Top Menu

Aşağıdaki script kullanılarak bilgisayarlarınızı domain’den çıkartabilirsiniz.Örneğimizde, Administrator yetkisi ve şifresi(Password) ile domain disjoin işlemi gerçekleştirdik.İçeriği notepad’e atıp, uzantısını .VBS olarak kaydedip çalıştırabilirsiniz.

strServer = “.”
Set objWMI = GetObject(“winmgmts:\” & strServer & “rootcimv2”)
strWQL = “select * from Win32_ComputerSystem”
Set objInstances = objWMI.ExecQuery(strWQL,,48)

For Each objInstance in objInstances
p_Password = “Password”
p_UserName = “Administrator”
p_FUnjoinOptions = 0

intResult = objInstance.UnjoinDomainOrWorkgroup(p_Password, p_UserName, p_FUnjoinOptions)
Select case intResult

Case 0 : WScript.Echo “Bilgisayarı Yeniden Başlatın”
End Select
Next

Cevap bırakın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu HTML etiketleri ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Kapat