Forum
İstediğim şey script dosyası ile paylaşıma açılmış yazıcıyı başka bir bilgisayara yüklemek. Aşağıdaki komutları not defterine kopyalayıp vbs olarak kaydediyorum ancak sürekli hata alıyorum. Yardımlarınızı rica ediyorum.
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 “\\PrintServer\Hp”
objNetwork.SetDefaultPrinter “\\PrintServer\Hp”
End If
Siyah olarak yazan yerlere kendime göre düzenliyorum.Bilgisayar adı\paylaşılan yazıcının adı şeklinde
Mehmet bey merhaba aynı işlemi aşağıdaki kodlar ile deneyebilirmisiniz?
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\PrintServer\Xerox-8830"
WshNetwork.SetDefaultPrinter "\\PrintServer\Xerox-8830"
************************************************************
Probleminiz çözüldüğünde sonucu burada paylaşırsanız,
sizin ile aynı problemi yaşayanlar için yardım etmiş olursunuz.
Eğer sorununuz çözüldü ise "çözüldü" olarak işaretlerseniz
diğer üyeler için çok büyük kolaylık sağlayacaktır.
************************************************************
Recep Bey çok teşekkür ederim kodlar çalışıyor yazıcıyı diğer pclere kurabildim.
Mehmet bey,
Çok sevindim çalışmasına, geri bildirim için ben teşekkür ederim. Belki bir başkasınında işine yarar böylece.
İyi akşamlar.
************************************************************
Probleminiz çözüldüğünde sonucu burada paylaşırsanız,
sizin ile aynı problemi yaşayanlar için yardım etmiş olursunuz.
Eğer sorununuz çözüldü ise "çözüldü" olarak işaretlerseniz
diğer üyeler için çok büyük kolaylık sağlayacaktır.
************************************************************