Hi Lendl!
Versuch es mal hiermit; verwende ich unter 2003 und läuft bislang ohne Probleme!
Gruss xseadog!
' Variablen festlegen
dim wshnetwork
dim ie
' Fehlermeldungen zeigen
on error resume next
' Defintion was ist zu tun
set wshnetwork=wscript.createobject("wscript.network")
' evtl. vorhandene Netzlaufwerke entfernen
wshnetwork.removenetworkdrive "z:"
wshnetwork.removenetworkdrive "y:"
wshnetwork.removenetworkdrive "x:"
wshnetwork.removenetworkdrive "w:"
' Netzlaufwerke hinzufügen
wshnetwork.mapnetworkdrive "z:","\\fileserver\stabszug"
wshnetwork.mapnetworkdrive "y:","\\fileserver\service"
wshnetwork.mapnetworkdrive "x:","\\fileserver\fotoablage"
wshnetwork.mapnetworkdrive "w:","\\fileserver\install"
' Verbindung zum Netzwerkdrucker herstellen
wshnetwork.addwindowsprinterconnection "\\converter\HP LaserJet 4200"
' neuen Printer als default setzen
wshnetwork.setdefaultprinter "\\converter\HP LaserJet 4200"
' Meldung erzeugen
Set Shell = CreateObject("WScript.Shell")
Shell.Popup "Die Netzwerkverbindungen wurden erfolgreich hergestellt", 2, "..: | Nachricht vom Administrator | :..", vbOKOnly + vbinformation