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 [...]
Merhaba,
Terminalleri script kullanarak domaine almak için gerekli scripti burada vermiştik.
Terminalleri script kullanarak domainden düşürmek için ise aşağıdaki kodu kullanabilirsiniz.
Şifre ve Kullanıcı adı kısımlarını düzenliyoruz. Script başarılı şekilde uygulandıktan sonra “Sistemi Yeniden Başlatın” gibi bir uyarı veriyor. Bunuda düzenleyebilirsiniz.
Domainden düşürülen terminallerin Computer Accountlar’ı, AD içinde manuel olarak silinmeli.
strServer = “.”
Set objWMI = GetObject(”winmgmts:\\” & strServer & [...]
Option Explicit
On Error Resume Next
Dim objNetwork, strUNCPrinter
strUNCPrinter = “\\PrintServer03\Canon i250″
Set objNetwork = CreateObject(”WScript.Network”)
objNetwork.RemovePrinterConnection strUNCPrinter
Wscript.Quit
\\PrintServer03\Canon i250 -> Paylaşımdan gelen yazıcının yolu. Uygun şekilde düzenleyip, logon script olarak atayabiliriz.
Bazı durumlarda MAP işlemini, Username ve Password bilgisi ile yapmamız gerekebilir. Bunun için aşağıdaki scripti kullanabiliriz.
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfilestrDriveLetter = “K:”
strRemotePath = “\\FileServer\Ortak”
strUser = “User35″
strPassword = “P@sswd1″
strProfile = “false”
Set objNetwork = WScript.CreateObject(”WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _
strProfile, strUser, strPassword
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfilestrDriveLetter = “X:”
strRemotePath = “\\192.168.0.1\1″
Set objNetwork = CreateObject(”WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, false, gt, pass
MAP yollarını ve uygun sürücü harflerini verdikten sonra kullanabiliriz.
Option Explicit
Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3
Dim strDriveLetter1, strDriveLetter2, strDriveLetter3 strDriveLetter1 = “M:”
strDriveLetter2 = “P:”
strDriveLetter3 = “S:”
strRemotePath1 = “\\FileServer\Ortak”
strRemotePath2 = “\\PServer\Raporlar”
strRemotePath3 = “\\F-Server\CP”
Set objNetwork = CreateObject(”WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath3
Aşağıdaki scriptin çalıştığı bilgisayardaki MP3 uzantılı dosyalar, otomatik olarak bulunur ve silinir.
strComputer = “.”
Set objWMIService = GetObject(”winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colFiles = objWMIService.ExecQuery _
(”Select * from CIM_DataFile where Extension = ‘mp3′”)
For Each objFile in colFiles
objFile.Delete
Next
Aynı anda birden fazla uzantıyı tarayıp silmek istersek, scripti aşağıdaki gibi editleyebiliriz. (örneğin mp3 ve wma dosyaları..)
strComputer = [...]
