Beyaz.Net İpucu
Çeşitli Scriptler
Paylaşımdan Eklenmiş Bütün Yazıcıları Silmek(Script)
Aşağıdaki script kullanılarak, paylaşım üzerinden eklemiş olduğunuz bütün yazıcıları kaldırabilirsiniz.İçeriği notepad’e atıp, uzantısını .VBS olarak kaydedip çalıştırabilirsiniz.
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2″)
Set colInstalledPrinters = objWMIService.ExecQuery _
(“Select * From Win32_Printer Where Network = True”)
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next
Paylaşıma Açılmış Yazıcı Eklemek(Script)
Aşağıda yer alan script ile paylaşıma açılmış olan yazıcıları istediğiniz makinaya tanıtabilirsiniz.Örneğimizde, kendi makinamıza(127.0.0.1) PrintServer üzerinde tanımlı olan Hp yazıcıyı ekledik.Bilgileri kendi yapınıza göre güncelleyerek, içeriği notepad’e atıp .VBS olarak kaydedip 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 “\\PrintServer\Hp”
objNetwork.SetDefaultPrinter “\\PrintServer\Hp”
End If
Bilgisayarları Domaine Almak(Script)
Aşağıdaki script kullanılarak bilgisayarlarınızı domain’e alabilirsiniz.Örneğimizde, HSoylemez domainine Administrator yetkisi ile domain üyelik işlemi gerçekleştirdik.İçeriği notepad’e atıp, uzantısını .VBS olarak kaydedip çalıştırabilirsiniz.
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 = “HSoylemez”
strPassword = “Password”
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)
Kullanıcıları Gruba Eklemek/Çıkarmak(Script)
Aşağıdaki script ile kullanıcılarınızı gruba üye yapabilirsiniz.Örneğin, Hakan 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 & "/Hakan")
objGroup.Add(objUser.ADsPath)
Aşağıdaki script ile kullanıcılarınızı gruplardan silebilirsiniz.Örneğin, HSoylemez 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://HSoylemez/Hakan")
objAdmins.Remove(objGroup.ADsPath)
Computer Name Değiştirilmesi(Script)
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
Local Admin Şifresini Değiştirmek(Script)
Local Administrator şifresini değiştirmek için aşağıda yer alan script’i kullanabilirsiniz.Password yazan yere yeni şifreyi yazıp, VBS olarak kaydedip çalıştırıyoruz.
strComputer = "."
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "Password"
objUser.SetInfo