Local Administrator Parolalarını Sıfırlayın !
Domain ortamınızdaki client bilgisayarlarda bulunan yerel admin parolalarını oturduğunuz yerden değiştirmek istiyorsanız aşağıdaki script’i kullanabilirsiniz. Tek yapmanız gereken OU, domain ve şifre bilgilerini kendi isteğinize göre düzenlemek.
Set objOU = GetObject(”LDAP://OU=OUismi,DC=Domainismi,DC=DomainUzantisi”)
objOU.Filter = Array(”Computer”)
For Each objItem in objOU
strComputer = objItem.CN
Set objUser = GetObject(”WinNT://” & strComputer & “/Administrator”)
objUser.SetPassword(”SifreyiBurayaYazin”)
Next
Set objOU = GetObject(”LDAP://OU=OUismi,DC=Domainismi,DC=DomainUzantisi”)
objOU.Filter = Array(”Computer”)
For Each objItem in objOU
strComputer = objItem.CN
Set objUser = GetObject(”WinNT://” & strComputer & “/Administrator”)
objUser.SetPassword(”SifreyiBurayaYazin”)
Next
Yorumlar