Probleme beim Netzlaufwerk- Mapping

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Refnex.

    Probleme beim Netzlaufwerk- Mapping

    Hi Leute,

    ich habe folgendes Problem:
    Und zwar habe ich ein Anmeldeskript erstellt, das wie in der Überschrift schon erwähnt,
    für das Mappen von Netzlaufwerken zuständig ist.
    Bei den meisten Usern funktioniert dieses auch wunderbar, aber eben nicht bei allen.
    Einige User bekommen nach der Anmeldung einfach keine Netzlaufwerke gemappt (allerdings auch keine Fehlermeldung!!).
    Führe ich das Skript nach deren Anmeldung manuell aus funktioniert es ohne Fehler.

    Die User sind in den richtigen Policy Groups!

    Brainfuck-Quellcode

    1. 'Variablen deklarieren
    2. '---------------------------------------------------------------------------------------------
    3. Dim wshNetwork, sUser, sNamegroup, sAdsPath, oUser, oGroup, server, share, fso
    4. Dim driveList, thisList
    6. Set driveList = CreateObject("System.Collections.ArrayList")
    7. Set thisList = CreateObject("System.Collections.ArrayList")
    8. Set fso = CreateObject("Scripting.FileSystemObject")
    10. 'Zuweisung der Server, Shares
    11. '---------------------------------------------------------------------------------------------
    12. server = Array("serverA","serverB","serverC")
    13. share = Array("shareA$", "shareB$", "shareC$")
    15. thisList.Add "Office-A"
    16. thisList.Add "Office-B"
    17. thisList.Add "Office-C"
    18. thisList.Add "Office-D"
    19. ...
    22. 'Objektdefinitionen und Zuweisungen
    23. '---------------------------------------------------------------------------------------------
    24. Set wshNetwork = WScript.CreateObject("WScript.Network")
    25. Set netDrives = wshNetwork.EnumNetworkDrives
    26. sUser = wshNetwork.username
    29. 'Funktion IsMember einbinden
    30. '---------------------------------------------------------------------------------------------
    31. Function IsMember(sGroup)
    32. If IsEmpty(oGroupDict) Then
    33. Set oGroupDict = CreateObject("Scripting.Dictionary")
    34. oGroupDict.CompareMode = vbTextCompare
    35. sAdsPath = WShNetwork.UserDomain & "/" & WShNetwork.UserName
    36. Set oUser = GetObject("WinNT://" & sAdsPath & ",user")
    37. For Each oGroup In oUser.Groups
    38. oGroupDict.Add oGroup.Name, "-"
    39. Next
    40. Set oUser = Nothing
    41. End If
    42. IsMember = CBool(oGroupDict.Exists(sGroup))
    43. End Function
    45. 'Zuweisung der Laufwerksfreigaben (Allgemein)
    46. '---------------------------------------------------------------------------------------------
    47. driveList.Add "[Laufwerksbuchstabe]:,[Policy Group],[Share Pfad]"
    48. ...
    49. ...
    51. 'Beispiel
    52. 'driveList.Add "a:,B-BeispielPolicy,\" & server(0) & "\Freigabe$"
    55. 'Zuweisung der Laufwerksfreigaben (Speziell)
    56. '---------------------------------------------------------------------------------------------
    57. if IsMember("B-" & thisList(0)) Then
    58. driveList.Add "[Laufwerksbuchstabe]:,[Policy Group],[Share Pfad]"
    59. ...
    60. ...
    61. End If
    66. 'Eigentlicher Ausführungscode'
    69. 'Netzlaufwerke trennen
    70. '---------------------------------------------------------------------------------------------
    71. set shell = CreateObject("WScript.Shell")
    72. shell.run "net use * /d /y",0
    74. 'Netzlaufwerke verbinden (nur a und b)
    75. '---------------------------------------------------------------------------------------------
    76. For Each office in thisList
    77. sNamegroup="B-" & office
    78. If IsMember(sNamegroup) Then
    79. WshNetwork.MapNetworkDrive "a:", "\"&server(0)&""&share(0)&""& office &"\Beispiel1"
    80. If fso.Folderexists("\"&server(0)&""&share(0)&""& office &"\Beispiel2" &suser) Then
    81. WshNetwork.MapNetworkDrive "b:", "\"&server(0)&""&share(0)&""& office &"\Beispiel2" &suser
    82. End If
    83. Exit For
    84. End If
    85. Next
    87. 'Netzlaufwerke verbinden (Alle die sich in driveList befinden überprüfen)
    88. '----------------------------------------------------------------------------------------------
    89. for Each element in driveList
    90. 'Hier werden Laufwerksbuchstabe (0), Policy Gruppe (1) und Pfad gesplittet (2)'
    91. arr = Split(element, ",")
    92. If(IsMember(arr(1))) Then
    93. WshNetwork.MapNetworkDrive arr(0), arr(2)
    94. End If
    95. Next



    Ich hoffe Ihr könnt mir weiterhelfen!
    Vielen Dank schonmal =)


    Gruß Exorior

Facebook
Telefonspende