Netzwerdrocker mittels VBscript löschen

[adamok 10]

Hallo Leuts!

könnt ihr mir bitte, bitte helfen:

 

Ich habe ein loginscript in vb, welches mir beim anmelden die netzwerkdrucker installiert.

soweit so gut.

nun möchte ich aber ein abmeldescript einbauen, welches mir die drucker beim abmelden wieder entfernt.

 

könnt ihr mir bitte eklären welche befehle ich verwenden muss.

anbei noch das schript mit dem ich die drucker einrichte:

 

 

Set WSHNet=CreateObject("WScript.Network")

 

WSHNet.AddWindowsPrinterConnection "\\wien-sv-dc-1\DJ959"

WSHNet.AddWindowsPrinterConnection "\\wien-sv-dc-1\SAP_WIEN02"

WSHNet.AddWindowsPrinterConnection "\\wien-sv-dc-1\SAP_WIEN01"

WSHNet.SetDefaultPrinter "\\wien-sv-dc-1\SAP_WIEN02"

 

 

Vielen Dank für euere Hilfe

[PortMs 10]

Auf diese Weise trennt man die Verbindung sämtlicher Netzwerkdrucker, welche an einer IP-Adresse angeschlossen sind. Allfällige lokale Drucker mit Freigaben (Namensspace) werden so nicht getrennt.

 

Set objNetwork = Wscript.CreateObject("WScript.Network")

Set selPrinter = objNetwork.EnumPrinterConnections

Dim FlagPrinter

For i = 0 to selPrinter.Count -1 Step 2

FlagPrinter = selPrinter.Item(i) & vTab & selPrinter.Item(i+1)

if left(FlagPrinter,3) = "IP_" then

objNetwork.RemovePrinterConnection mid(FlagPrinter,16,100)

end if

Next