Merhaba AD yazıcı ou lar da nasıl ekleyebiliriz ?
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 “\\PC_NAME\PAYLAŞIMDAKİ_YAZICI”
objNetwork.SetDefaultPrinter “\\PC_NAME\PAYLAŞIMDAKİ_YAZICI”
End If
Bu scripti kopyalayıp bir txt ye yapıştırın uzantısını vbs olarak kayıt edin ve logon script olarak bir OU daki pclere uygularsanız. Paylaşımdaki bir yazıcı o OU daki pclere eklenecektir. scriptin çalıştığından emin olmak için PC_NAME ve PAYLAŞIMDAKİ_YAZICI kısmını ayarlayarak önce local pc üzerinde çalıştırıp deneyiniz.
İyi Çalışmalar..
Alper Kaynak