VBS Netzwerklaufwerk mappen

[Armbrust 10]

Hallo,

 

haben bei uns eine 2003 Domäne mit XP Rechnern.

Die Netzwerklaufwerke werden vom DC per VBS an den jeweiligen User übertragen.

Bei XP funktioniert das auch alles wunderbar, nur jetzt kommen die ersten Windows 7 Rechner und ich bekomme keine Automatische Netzwerklaufwerkszuordnung.

 

Bei der MsgBox, nachdem das Script ausgeführt wurde, stehen zwar Uhrzeit, User, Domäne und alle Netzwerklaufwerke korrekt drin, aber wenn ich anschließend im Explorer schaue gibt es keine Netzwerklaufwerke :(.

Führe ich das VBS jedoch manuell vom Rechner aus, funktioniert es tadellos???

 

Was mache ich falsch?

Oder gibt es unter Windows 7 andere Möglichkeiten, um die Laufwerke zu mappen. Ohne CMD-Batchdatei.

 

 

Gruß

[duerener 12]

ich habe die auch mit vbs verbunden, genau wie unter xp.

... die stehen unter computer aufgelistet, nicht unter netzwerk...

[Armbrust 10]

Das ist klar,

aber leider auch da nicht.

 

Wie gesagt, führe ich das Skript nach dem Anmelden Manuel aus, funktioniert es tadellos.

[duerener 12]

Verbindest Du denn nur Laufwerke oder auch Drucker? Nicht dass da schon vorher etwas klemmt?

bearbeitet 11. Januar 2011 von duerener

[Armbrust 10]

Nur Laufwerke:

 

' #####BOF#####
' logon.vbs
' #############
Option Explicit
On Error Resume Next

Dim WSHNetwork, WSHShell, CRLF, objArgs, strMsg, Company, i, colDrives
Dim colPrinters, UserName, LogonSRV, Domain, nReturnCode, nSecondsToWait

CRLF = Chr(13) & Chr(10)
LogonSRV = "domain.intra"

Set WSHNetwork = Wscript.CreateObject("WScript.Network")
Set WSHShell = WScript.CreateObject("WScript.Shell")
WScript.sleep 5000
Set objArgs = Wscript.Arguments

' Auslesen des Benutzernamens

Set WshNetwork = WScript.CreateObject("WScript.Network")
UserName = WshNetwork.UserName

' Einrichten der Netzlaufwerke

Company = "ddm.intra"
Domain = WSHNetwork.Userdomain
Do While UserName = ""
 UserName = WSHNetwork.UserName
Loop

WSHNetwork.RemoveNetworkDrive "I:"
WSHNetwork.RemoveNetworkDrive "M:"
WSHNetwork.RemoveNetworkDrive "U:"

WSHNetwork.MapNetworkDrive "I:", "\\Server\LW1"
WSHNetwork.MapNetworkDrive "M:", "\\Server\LW2"
WSHNetwork.MapNetworkDrive "U:", "\\Server\" & UserName

If WSHNetwork.UserName = "Doering" OR WSHNetwork.UserName = "xxx" Then
    WSHNetwork.RemoveNetworkDrive "Q:"
    WSHNetwork.MapNetworkDrive "Q:", "\\Server\LW3"
End If

'Laufwerksbezeichnung ndern
'* Bentigte Deklarationen
Set oShell = CreateObject("Shell.application")
Set oShFolder = oShell.Namespace(17)

'* Aufruf der Subroutine
Call subdriverename

'* Die Routine
Sub subdriverename()
For Each oShFolderItem In oShFolder.Items
 Select  Case oShFolderItem.Path
  Case "I:\"      oShFolderItem.Name = "var1"
  Case "I:"      oShFolderItem.Name = "var1"
  Case "M:\"      oShFolderItem.Name = "var2"
  Case "M:"      oShFolderItem.Name = "var2"
  Case "U:\"      oShFolderItem.Name = UserName 
  Case "U:"      oShFolderItem.Name = UserName 
 End Select
Next
End Sub  

' ----------------------------------------------------------
' Überschrift und Ausgabe

Set colDrives = WSHNetwork.EnumNetworkDrives
Set colPrinters = WSHNetwork.EnumPrinterConnections

strMsg = _
   "Anmelde Ergebnisse" & CRLF & CRLF & _
   "Benutzername" & Chr(9) & "= " & UserName & CRLF & _
   "Computername" & Chr(9) & "= " & _
   WSHNetwork.ComputerName & CRLF & _
   "Domne" & Chr(9) & Chr (9) & "= " & Domain & CRLF

If colDrives.Count = 0 Then
  strMsg = strMsg & CRLF & _
    "Kein Netzlaufwerk ist verbunden." & CRLF
Else
  strMsg = strMsg & CRLF & _
    "Verbundene Netzlaufwerk(e):" & CRLF
  For i = 0 To colDrives.Count - 1 Step 2
     strMsg = strMsg & CRLF & colDrives(i) & _
        Chr(9) & colDrives(i + 1)
  Next
End If

Function zeit
' FormatDateTime formatiert das Datum als langes Datumsformat.
zeit = "Systemzeit: " & Chr(9) & FormatDateTime(Date, 1) & " - " & FormatDateTime(Time, 4)
End Function

WshShell.PopUp zeit & CRLF & CRLF & strMsg,10, " " & Username &"@" & Company, 64

Set WSHNetwork = Nothing
Set WSHShell = Nothing
Set objArgs = Nothing
Set colDrives = Nothing
Set colPrinters = Nothing
' #####EOF#####

bearbeitet 11. Januar 2011 von Armbrust

[Cybquest 36]

...Oder gibt es unter Windows 7 andere Möglichkeiten, um die Laufwerke zu mappen. Ohne CMD-Batchdatei.

 

Die gibt es durchaus! Nennt sich GPPs

Schaust hier mal Gruppenrichtlinien - Übersicht, FAQ und Tutorials nach "HowTo Vista - GPP"

[Sunny61 806]

Was mache ich falsch?

Oder gibt es unter Windows 7 andere Möglichkeiten, um die Laufwerke zu mappen. Ohne CMD-Batchdatei.

 

Sind die Benutzer lokale Administratoren und UAC ist aktiv? Wenn zweimal ja, dann gehts hier weiter: faq-o-matic.net Benutzerkontensteuerung (UAC) richtig einsetzen Ziemlich weit unten gibts einen Hinweis zu Login Scripten.

 

Beispiel No. 44 könnte auch was für dich sein: ADM Templates - Administrative Vorlagen, Weiter unten mal einige Sample´s und Codebeispiele:

 

Oder das ganz mit Group Policy Preferences durchführen: GPP - Group Policy Preferences - Gruppenrichtlinien Einstellungen

CSE, GPP, RSAT - Remote Server Admistration Tool und die neue GPMC

[NorbertFe 2.034]

Oder das ganz mit Group Policy Preferences durchführen:

 

Wobei das genauso zu Problemen führt mit lokalen Admins und aktiver UAC. ;)

 

Bye

Norbert

[Armbrust 10]

Ja das stimmte, wegen einrichten des Benutzerkontos waren da noch Adminrechte drauf. Ohne funktioniert es ohne Probleme.

 

Danke für die Links.

[GELOEST]

[Sunny61 806]

Wobei das genauso zu Problemen führt mit lokalen Admins und aktiver UAC. ;)

 

Grmpf, ja genau, darüber hatten wir schon öfters gesprochen. ;)