[VBS] Lokale Ordner mappen

[DragonIce]

Hallo,

ich möchte lokale Ordner mappen via VB-Script.
Dies haut nur leider nicht so hin wie ich es gerne hätte - Nämlich garnicht!
Mein Ansatz lautet wie folgt:

Option Explicit
Dim objNetwork, objNet, user, path
	Set objNetwork = CreateObject("WScript.Network")
	Set objNet = CreateObject("WScript.Network")
	user = objNet.UserName
	objNetwork.MapNetworkDrive "H:", "\\127.0.0.1\D:\" & user	
	objNetwork.MapNetworkDrive "K:", "\\127.0.0.1\D:\Korrespondenz"
	objNetwork.MapNetworkDrive "V:", "\\127.0.0.1\D:\Versicherungsfälle"
	objNetwork.MapNetworkDrive "W:", "\\127.0.0.1\D:\Vertragsangebote"

Die Ordner müssen von Laufwerk D: gemappt werden.
Wo liegt mein Fehler?
Vielen dank im Vorraus.

Mit freundlich Grüßen,
Dragon

 

[Backslash]

Hm, weis jetz nicht was du unter mappen verstehst, aber schau dir mal das Scripting.FileSystemObject an. klick!

mfg

 

[DragonIce]

Als Netzlaufwerk einbinden ist darunter zu verstehen.
Ich "will" mit Partition D: einen Fileserver "simulieren".
Und er soll mir die Pfade einbinden. Halt wie bei

net use x: "\\server\ordner"

Und danke für den Link - Ich werd es mir mal anschauen ob mir dort geholfen werden kann

 

[mato]

ersetze mal : mit $

	objNetwork.MapNetworkDrive "H:", "\\127.0.0.1\D$\" & user	
	objNetwork.MapNetworkDrive "K:", "\\127.0.0.1\D$\Korrespondenz"
	objNetwork.MapNetworkDrive "V:", "\\127.0.0.1\D$\Versicherungsfälle"
	objNetwork.MapNetworkDrive "W:", "\\127.0.0.1\D$\Vertragsangebote"

 

[Backslash]

Ahso... ne ich hab an was andres gedacht.
Daaaann das: klick!

mfg

PS: wie wärs mal mit google suchen? das is der 4te treffer zu "vbs mappen"

 

[DragonIce]

@ mato -- Wunderbar, so klappt es. An die administrative Freigabe hab ich garnicht gedacht.
@ Backslash -- Hatte leider erfolglos gegooglet, keine Angst.

Vielen dank euch beiden .