Forum

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

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

4 Yazılar
2 Üyeler
0 Reactions
1,116 Görüntüleme
(@Mehmet_CAN)
Gönderiler: 18
Eminent Member
Konu başlatıcı
 
[#354682]

İ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: 1891
Ü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: 1891
Ü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ş: