Terminalleri Domaine Alma – Script

28.10.2007 | 23:24 Çözümler , Windows 6 Yorum


Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

strDomain = “DomainName”
strPassword = “123456”
strUser = “administrator”

Set objNetwork = CreateObject(“WScript.Network”)
strComputer = objNetwork.ComputerName

Set objComputer = GetObject(“winmgmts:{impersonationLevel=Impersonate}!\\” & _
strComputer & “\root\cimv2:Win32_ComputerSystem.Name=’” & _
strComputer & “‘”)

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & “\” & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
ADsPath)

Script içindeki domain name, 123456 ve administrator alanlarını kendi sistemimize göre düzenledikten sora terminaller üzerinde çalıştırıyoruz.

Yazı Etiketleri: ,

Sayfa Başı ▲

Yorumlar (6)

  1. Eren

    .bat olarak mı çalıştırıcaz yoksa .vbs olarak mı?

  2. Serhat

    vbs olarak çalıştırıyorsunuz.

  3. Ahmed

    Güzelce kopyalamış yapıştırmışsınız sitenize ama çalışıp çalışmadığını denediniz mi? Çalışmıyor, hatayı düzeltip yazarsanız en azından faydalı bir şekilde kullanma imkanımız olur.

  4. Serhat

    Merhaba Ahmed,

    Problem script içindeki tırnak işaretlerinin, benim blog editorü tarafından yanlış algılanıp, yanlış gösterilmesinden kaynaklanıyor.

    Bu konuda bir çalışma yapıyorum ve blogtaki tüm scriptleri yeniden düzenleyeceğim. Şimdilik çift tırnak işaretlerini manuel olarak değiştirip kullanırsanız, sorun çıkartmadan çalışacaktır. Hoşçakalın.

  5. ismail sen

    s.a. serhat abi nbr bebn ismal tanıdınmı :D
    nese abi çok güzel site yapmışın hoş meşde resimli olsa daha iyi olur yaw

  6. Salla SERHAT

    Güzelce kopyalamış yapıştırmışsınız sitenize ama çalışıp çalışmadığını denediniz mi? Çalışmıyor, hatayı düzeltip yazarsanız en azından faydalı bir şekilde kullanma imkanımız olur.

Yorum Ekle