VBS Anmeldescript
Hallo,
ich habe mittels VBS mein Anmeldescript schon soweit, dass abhängig von der OE (=OU) des Benutzers Drucker mappe und dem entsprechend auch Netzlaufwerke. Nun möchte ich gerne das am Anfang alle Netzwerkdrucker die schon von einer vorherigen Anmeldung gemappt wurden gelöscht werden. Nur wie geht das?
Hier der Ausschnitt aus meinem Druckermapping:
Schon mal vielen Dank!
Gruß
MaxTPayne
ich habe mittels VBS mein Anmeldescript schon soweit, dass abhängig von der OE (=OU) des Benutzers Drucker mappe und dem entsprechend auch Netzlaufwerke. Nun möchte ich gerne das am Anfang alle Netzwerkdrucker die schon von einer vorherigen Anmeldung gemappt wurden gelöscht werden. Nur wie geht das?
Hier der Ausschnitt aus meinem Druckermapping:
Option Explicit
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
Set objOU = GetObject(objUser.parent)
'* Aufruf der Subroutine
Call Submapprinter
'* Die Routine
Sub Submapprinter()
objOU.Filter=Array("printqueue")
For Each oPq In objOU
wshNetwork.AddWindowsPrinterConnection oPq.PrinterPath
wshNetwork.SetDefaultPrinter oPq.PrinterPath
Next
WScript.Quit
Gruß
MaxTPayne
Please also mark the comments that contributed to the solution of the article
Content-Key: 66780
Url: https://administrator.de/contentid/66780
Printed on: April 17, 2024 at 11:04 o'clock
2 Comments
Latest comment
Sollte in etwas so funktionieren:
Dim objNetwork, objPrinter, i
Set objNetwork = CreateObject("WScript.Network")
Set objPrinter = objNetwork.EnumPrinterConnections
For i = 0 to objPrinter.Count -1 Step 2
'' objPrinter.Item(i) == port
'' objPrinter.Item(i+1) == Drucker name
objNetwork.RemovePrinterConnection oldPrinter(i+1), True, True
next