xseadog

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