mapping auslesen und in script schreiben

**forumwurm** · 08.05.2007, 13:51

ich möchte mittels NET USE (oder ähnlich) herausfinden, welche Laufwerke angehängt sind und diese in eine weitere Datei schreiben, welche dann zum mappen gebraucht werden kann, falls die Laufwerke nicht über das loginscript gemappt werden.

U:\>net use
New connections will be remembered.

Status Local Remote Network

-------------------------------------------------------------------------------
OK K: \\server1\share4
Microsoft Windows Network
OK P: \\server3\share7
Microsoft Windows Network
OK Q: \\server9\share2
Microsoft Windows Network

The command completed successfully.

das möchte ich wie folgt in die mapping.cmd datei laden
net use k: \\server1\share4
net use p: \\server3\share7
net use q: \\server9\share2

hat jemand eine zündende idee?

thx4nfo

**q3wert** · 08.05.2007, 13:56

zwischenfrage: brauchst du das einmalig, strategisch, halb-manuell während einer migration?
...oder wie soll das sonst sinnvoll zum einsatz kommen?

edit:

egal, das hier kannst du wunderbar umbauen...
http://www.microsoft.com/technet/scr.../stdvvb18.mspx
...und dann aufrufen mit

Code:

cscript.exe //nologo "scriptname.vbs" 1>mapping.cmd

edit2: oops. link korrigiert...

edit3: Beispiel für scriptname.vbs:

Code:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDrives = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DriveType = 4")

For Each objDrive in colDrives
    Wscript.Echo "NET USE " & objDrive.DeviceID & " " & objDrive.ProviderName
Next

edit4: habs jetzt auch "scriptname.vbs" getauft.

**linux-luder** · 08.05.2007, 15:02

Du solltest Dir zuerst Gedanken mchen, warum Netzlaufwerke nicht automatisch per Logonscript verbunden werden, da liegt der Hase im Pfeffer.

**forumwurm** · 08.05.2007, 15:57

werde mir das mal anschauen. kurz zum grund:

am netzwerk läuft natürlich das loginscript, kein problem. die benutzer hängen sich jedoch noch eigene laufwerke an.

wenn der benutzer nun out of office ist und sich über vpn (ohne loginscript) einwählt, dann soll er die möglichkeit haben, schnell den letzten stand wiederherzustellen mittels dieses scripts.

so, schau mir das ding nun mal an und melde mich wieder, aber vermuttlich erst morgen.

danke schon mal und bis dann...

**forumwurm** · 09.05.2007, 16:24

besten dank euch beiden. das scheint wunderbar zu klappen.

thx

**forumwurm** · 26.06.2007, 10:38

@q3wert

wie müsste ich dein vbscript anpassen, damit mir nicht alle sonder nur das laufwerk X: ausgelesen und in mein script geschrieben wird?

gruss und dank

christian

**q3wert** · 26.06.2007, 12:21

entweder so

Code:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDrives = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DriveType = 4 And DeviceID = 'X:'")

For Each objDrive in colDrives
    Wscript.Echo "NET USE " & objDrive.DeviceID & " " & objDrive.ProviderName
Next

oder so

Code:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDrives = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DriveType = 4")

For Each objDrive in colDrives
    If LCase(objDrive.DeviceID) = "x:" Then
        Wscript.Echo "NET USE " & objDrive.DeviceID & " " & objDrive.ProviderName
    End If
Next

richtig getestet hab ichs aber nicht...