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 = "."

For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next


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.


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.

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.


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

Scriptteki domain name, 123456 ve administrator alanlarını, kendi sistemimize göre editleyip terminaller üzerinde çalıştırıyoruz.


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.


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.

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.

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 /pass:Password1

/add: Sunucu ismi için ben IP adresi veriyorum. Eğer bu komutun çalışacağı terminaller yazacağınız ismi çözebiliyorsa isimde yazabilirsiniz. (DNS yapınız ile alakalı bir durum)

/user: erişimde kullanılacak domain ismi ve kullanıcı adı. Ör: TestDomain\User16

/pass: erişimde kullanılacak kullanıcı adının şifresi.

Son olarak bu hazırladığımız BAT dosyasının çalışacağı bilgisayarda, cmdkey.exe dosyasının windows\system32 klasörü altında olması gerekiyor. Bu dosya XP Home içinde yok. Herhangi bir WindowsServer2003 System32 klasörü içinden bu dosyayı kopyalayıp XP Home’a taşımanız gerekiyor. Bu dosya olmazsa komut hata verecektir.

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.