Hallo,
ich habe da ein Programm für mein Netzwerk entwickelt, was es mir ermöglichen soll in einer bestimmten Domäne anhand der Rechnernummer ein Netzwerklaufwerk hinzufügen zu können, danach soll ein bestimmtes Verzeichnis geöffnet werden. Das Ganze Basiert auf WSH (.vbs).
Vielleicht kann mir ja einer helfen, habe nicht ganz soviel Ahnung davon.
Option Explicit
Dim rechnernummer, domain, msgTitel
Dim objNetwork, strUserName, strDriveLetter, strHomeServer
Dim obj ' as ActiveDs.IADs
domain="die domain"
msgTitel="HARD DRVIE MAPPING"
MsgBox "Das Programm zur Laufwerk mapping wird gestartet...",,msgTitel
rechnernummer = CStr(InputBox("Rechnernummer", "Bitte ohne Domain eingeben"))
Set objNetwork = CreateObject("WScript.Network")
strDriveLetter = "S:"
strHomeServer = "\\rechnernummer\c$"
strUserName =objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strHomeServer & strUserName
Wscript.Echo "Mapped Drive " & strDriveLetter & " to " & strHomeServer
WScript.Quit
MsgBox "Der Cache wird geladen...",,msgTitel
set shell = WScript.CreateObject("WScript.Shell")
set expl = shell.exec("%windir%\explorer.exe der Pfad kommt dann hier")
Der Fehler, "Der Netzwerkpfad wird nicht gefunden" kommt immer.
Würde mich über jede Antwort freuen.
Grüße,
m0nstar
