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