strComputer = “.”
Set objUser = GetObject(”WinNT://” & strComputer & “/Administrator, user”)
objUser.SetPassword “NewPassword”
objUser.SetInfo
NewPassword yazan yere yeni şifreyi yazıyoruz. Dosya uzantısını VBS yapıp yapıp çalıştırıyoruz.
Birden fazla bilgisayarda bu işlemi yapmak için GPO ile domain ortamına uygulayabilirsiniz.
Cmdkey: Depolanan kullanıcı adları ve parolalarını veya kimlik bilgilerini oluşturur, listeler ve siler.
Domain client desteği olmayan Xp Home larda bu komutu kullanmak, paylaşımlara erişimde büyük kolaylık sağlar. (Aynı durum, domaine dahil edilmemiş Xp Prolar içinde geçerli).
Aşağıdaki komutu bir BAT dosyası olarak kaydedip açılışa koyarsak, bilgisayar her açıldığında paylaşımlara erişim için bizden şifre istemez.
cmdkey /add:192.168.0.1 /user:DomainName\UserName [...]
Set objFirewall = CreateObject(”HNetCfg.FwMgr”)
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE
FALSE değeri, güvenlik duvarının kapalı olacağını gösterir. Bu değeri TRUE yaparsak açık olur.
Aynı işi Netsh komutuyla da yapabiliyoruz.
netsh firewall>set opmode enable güvenlik duvarını açar.
netsh firewall>set opmode disable güvenlik duvarını kapatır.
strComputer = “.”
Set objAdmins = GetObject(”WinNT://” & strComputer & “/Administrators”)
Set objGroup = GetObject(”WinNT://sistem/user17″)
objAdmins.Remove(objGroup.ADsPath)
Gerekli düzenlemeyi yaptıktan sonra, uzantısını VBS yapıp kaydediyoruz. Scriptin çalıştığı bilgisayarda, sistem domainindeki user17 kullanıcısı, local administrator gurubundan silinir.
GPO ile domain’e uygulayabiliyoruz.
strComputer = “.”
Set objWMIService = GetObject(”winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colComputers = objWMIService.ExecQuery _
(”Select * from Win32_ComputerSystem”)
For Each objComputer in colComputers
err = objComputer.Rename(”Terminal48″)
Next
Gerekli düzenlemeyi yaptıktan sonra (Terminal48) uzantısını VBS yapıp kaydediyoruz. Örnekte, scriptin çalıştığı bilgisayarın ismi Terminal48 olarak değişir.
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 & [...]
strComputer = “.”
Set objGroup = GetObject(”WinNT://” & strComputer & “/Power Users”)
Set objUser = GetObject(”WinNT://” & strComputer & “/Deneme”)
objGroup.Add(objUser.ADsPath)
Scriptin yaptığı işi özetlersek; çalıştığı bilgisayar üzerinde, Deneme kullanıcısını Power users gurubuna dahil eder. Gerekli şekilde düzenleyip kullanabilirsiniz.
strComputer = “127.0.0.1″
Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set colPrinters = objWMIService.ExecQuery _
(”Select * From Win32_Printer Where Local = TRUE”)
If colPrinters.Count = 0 Then
Set objNetwork = CreateObject(”WScript.Network”)
objNetwork.AddWindowsPrinterConnection “\\PrintServer1\Xerox300”
objNetwork.SetDefaultPrinter “\\PrintServer1\Xerox300”
End If
Koyu renkli kısımları sistemimize göre editleyerek domain ortamına uygulayabiliriz.
Bazı durumlarda domain ortamındaki terminallerin sistem saat senkronizasyonu yada farklı bir NTP sunucusu ile çalışmaları gerekebilir. Bu gibi durumlarda işlemi merkezi yapmak için aşağıdaki script kullanılabilir.
Dim wshell
Set wshell = CreateObject(”WScript.Shell”)
wshell.Run “%COMSPEC% /c net time \\servername /set /y”,0,TRUE
set wshell = Nothing
Servername yazan kısma NTP sunucumuzun adını yazıyoruz.
Paylaşımdan kasıt, ağ üzerinden tanımlı yazıcılar. Örneğin domain ortamında çalışan terminaller üzerinde, farklı bilgisayarlar üzerinde host edilen yazıcıları tanımlamış olabiliriz.
Aşağıdaki script’i kullanarak, terminal üzerinde sadece paylaşım yolu ile eklenmiş tüm yazıcıları kaldırabiliriz. Diğer local yazıcılar kullanılmaya devam eder.
strComputer = “.”
Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)
Set colInstalledPrinters = objWMIService.ExecQuery _
(”Select * From [...]
