Top Menu

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 & “rootcimv2”)
Set colPrinters = objWMIService.ExecQuery _
(“Select * From Win32_Printer Where Local = TRUE”)
If colPrinters.Count = 0 Then
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.AddWindowsPrinterConnection “\PrintServerHp
objNetwork.SetDefaultPrinter “\PrintServerHp
End If

Cevap bırakın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu HTML etiketleri ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Kapat