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

Bearbeitet 17. Juli 200916 j von m0nstar

hat sich erstmal erledigt...kann also geclosed werden...danke

Und, wo lag der Fehler? Wäre interessant....

tsg

strHomeServer = "\\rechnernummer\c$"

der string war falsch das musste

strHomeServer = "\\"" + rechnernummer + ""\c$"

sein.

Danach gings plötzlich, wer interesse am ganzen Programm hat, kann ich am Montag mal posten, habs leider nur auf der arbeit.