So, hab jetzt VBScript gelernt. :D
Für alle die es interessiert, hier das Script, so wie ich es benötigt habe.
Vielen Dank trotzdem an alle, die mitgeholfen haben.
LG
Shrek
'======================================================================
'
'Löschen aller aktiven Netzlaufwerkverbindungen
'
'======================================================================
Set objNet = WScript.CreateObject("WScript.Network")
Set CheckDrive = objNet.EnumNetworkDrives()
For i = 0 To CheckDrive.Count - 1 Step 2
objNet.RemoveNetworkDrive CheckDrive.Item(i)
next
'======================================================================
'
'Setzen der neuen Netzlaufwerkverbindungen
'
'======================================================================
Dim objNet, strUserName
Set objNet = CreateObject("Wscript.Network")
strUserName =objNet.UserName
objNet.MapNetworkDrive "I:", "\\Server\" & strUserName &"$"
objNet.MapNetworkDrive "J:", "\\Server\Freigabe"
'======================================================================
'
'Aktive Netzwerkdrucker mit Con2Prt.exe löschen...
'
'======================================================================
Set con2prt = WScript.CreateObject("WScript.Shell")
con2prt.Run("c:\temp\con2prt.exe /f")
ReturnCode = con2prt.Run("c:\temp\con2prt.exe", 0, True)
'======================================================================
'
'Lese Eintrag aus Exceldatei und such in Spalte A nach dem Usernamen.
'Wenn der Username gefunden wird, dann Verbinde den in Spalte B eingetragenen Drucker
'vom Printserver mit der lokalen Workstation und setze diesen als Std. Drucker
'
'======================================================================
Dim objXL, net, printer, zeile
Set net = CreateObject("WScript.Network")
Set objXL = GetObject("c:\temp\drucker.xls")
strUserName =net.UserName
'======================================================================
'
'Suche und setze Std., und weitere Drucker
'
'======================================================================
For i = 1 To objXL.Sheets("Standarddrucker").UsedRange.Rows.Count +1
if objXL.Sheets("Standarddrucker").Cells(i,1).Value = strUsername then
printer = objXL.Sheets("Standarddrucker").Cells(i,2).Value
net.AddWindowsPrinterConnection "\\Printserver\" & printer
net.SetDefaultPrinter "\\Printserver\" & printer
For n = 3 To objXL.Sheets("Standarddrucker").UsedRange.Columns.Count -1 +1
printer = objXL.Sheets("Standarddrucker").Cells(i,n).Value
net.AddWindowsPrinterConnection "\\Printserver\" & printer
next
else
end if
next
WSCript.Quit