Paylasimdan Yazici Ekleme

Posted: 11 Mayıs 2011 in Script, Sistem

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 kisimlari sistemimize göre editleyerek domain ortam?na uygulayabiliriz.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s