Aşağıdaki script’i bir notepad’a yapıştırıp uzantısını .VBS olarak değiştirerek Group Policy ile kullanabilirsiniz. ServerName kısmına yazdığınız server makinanız ile client bilgisayarlarınız aynı saat bilgisine sahip olucaktır.
Dim wshell
Set wshell = CreateObject(”WScript.Shell”)
wshell.Run “%COMSPEC% /c net time \\servername /set /y”,0,TRUE
set wshell = Nothing
Pc yazan yere yeni bilgisayar ismini girip, dosya uzantısını VBS yaparak çalıştırabilirsiniz.
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(“Pc”)
Next
Aşağıdaki script ile kullanıcılarınızı gruba üye yapabilirsiniz.Örneğin, Serhad isimli kullanıcıyı Power Users grubuna üye yaptık.İçeriği notepad’e yapıştırıp uzantısını .VBS yaparak kullanabilirsiniz.
strComputer = “.”
Set objGroup = GetObject(“WinNT://” & strComputer & “/Power
Users”)
Set objUser = GetObject(“WinNT://” & strComputer & “/Serhad”)
objGroup.Add(objUser.ADsPath)
Aşağıdaki script ile kullanıcılarınızı gruplardan silebilirsiniz.Örneğin, Smakbuloglu domainindeki Deneme isimli kullanıcıyı Local Administrators grubundan sildik.İçeriği notepad’e yapıştırıp uzantısını .VBS yaparak kullanabilirsiniz.
strComputer = “.”
Set objAdmins = GetObject(“WinNT://” & strComputer & “/Administrators”)
Set objGroup = GetObject(“WinNT://Smakbuloglu/Serhad”)
objAdmins.Remove(objGroup.ADsPath)
follow: RSS