Forum

Script İle Paylaşım...
 
Bildirimler
Hepsini Temizle

Script İle Paylaşımdaki Yazıcıyı Nasıl Ekleriz?

4 Yazılar
2 Üyeler
0 Likes
385 Görüntüleme
(@Mehmet_CAN)
Gönderiler: 18
Eminent Member
Konu başlatıcı
 

İ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 

 
Gönderildi : 19/10/2012 12:22

(@recepyuksel)
Gönderiler: 1893
Üye
 

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.
************************************************************

 
Gönderildi : 20/10/2012 11:14

(@Mehmet_CAN)
Gönderiler: 18
Eminent Member
Konu başlatıcı
 

Recep Bey çok teşekkür ederim kodlar çalışıyor yazıcıyı diğer pclere kurabildim.

 
Gönderildi : 02/11/2012 00:50

(@recepyuksel)
Gönderiler: 1893
Üye
 

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.
************************************************************

 
Gönderildi : 02/11/2012 01:46

Paylaş: