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)
Scriptteki domain name, 123456 ve administrator alanlarını, kendi sistemimize göre editleyip terminaller üzerinde çalıştırıyoruz.
December 21st, 2007 at 00:12
.bat olarak mı çalıştırıcaz yoksa .vbs olarak mı?
December 21st, 2007 at 01:41
vbs olarak çalıştırıyorsunuz.
January 23rd, 2008 at 15:40
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.
January 24th, 2008 at 18:29
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.
January 30th, 2008 at 12:48
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
June 23rd, 2010 at 01:21
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.