script felmeddelande !!

[mayar]

Hej

Jag använder mig av den här scripten för att lägga till och ta bort skrivare till olika klienter, men jag eller användaren får felmeddelande när det inte finns någon skrivare att ta bort. Hur kan man redirect felmeddelanden att inte synas på skärmen? eller finns det ett annat sätt att ta bort skrivare utan att få felmeddelanden när det inte finns några skrivare att ta bort?

 

 

Dim ClientIP, netPrinter, UNCpath

'Ta reda på IP-adress
Set WTS = Wscript.CreateObject("WTSManager.Shell")
ClientIP = WTS.MyIPAddress


If ClientIP = "192.168.0.11" then
UNCpath = "\\server\hp LaserJet 1320" 

'remove printer
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\server\HP 2200"

elseif 
ClientIP = "192.168.0.10" then
UNCpath = "\\server\HP 2200" 


else 'Annars ta bort skrivare

Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\server\HP 2200"

Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\server\hp LaserJet 1320"



End if


'Mappa skrivaren
Set netPrinter = CreateObject("WScript.Network") 
netPrinter.AddWindowsPrinterConnection UNCpath

WScript.Quit 

 

[Johan Sandqvist]

Du skulle kunna testa med att köra EnumPrinterConnections för att ta reda på vilka skrivare som redan finns, och i förekommande fall ta bort resp inte ta bort skrivaren ifråga.

 

[edit] Sen så verkar det som om den funktionen är gammal och inte längre stöds (oklart varför - är ingen skriptexpert precis). Titta gärna på http://www.microsoft.com/technet/scriptcenter/findit.mspx för andra exempel på det du vill göra.

[inlägget ändrat 2005-12-27 16:02:23 av Johan Sandqvist]