Domain’ e Alma Scriptti

serdarates

Active Directory’ ye script kullanılarak makine dahil etme

Öncelikle yeni bir metin belgesi oluşturalım oluşturduğumuz bu belgenin adını domain.vbs yapalım daha sonra aşağıdaki kodu örnek dosyamız içine kopyalayalım

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 = ” ”
strPassword = ” ”
strUser = ” ”

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

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

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=209621
strPassword, strDomain & “\” & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)

Buradaki;

strDomain = ” ” kısmında tırnak işaretleri olan alana tam domain adımızı yazmalıyız.

strPassword = ” ” kısmında tırnak işaretleri olan alana Domaine alma yetkisi olan kullanıcımızın Şifresini yazmalıyız.

strUser = ” ” kısmında tırnak işaretleri olan alana Domaine alma yetkisi olan kullanıcımızın Kullanıcı adınız yazmalıyız