schmida

funktioniert :D danke !

Das aktuelle Skript : Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") Dim strDomain : strDomain = WshNetwork.UserDomain Dim strUser : strUser = WshNetwork.UserName Set oDrives = WshNetwork.EnumNetworkDrives Set oPrinters = WshNetwork.EnumPrinterConnections 'fährt bei fehlern mit dem nächsten befehl weiter on error resume next 'entfernt vorhandene Netzlaufwerke wshnetwork.removenetworkdrive "h:" wshnetwork.removenetworkdrive "z:" wshnetwork.removenetworkdrive "o:" wshnetwork.removenetworkdrive "p:" 'Fügt das Persönliche Laufwerk hinzu wshNetwork.MapNetworkDrive "h:", "\\Sdcfaas\" & wshNetwork.UserName & "$" 'Fügt das Applikationslaufwerk hinzu wshNetwork.MapNetworkDrive "z:", "\\Sdcfaas\Application" 'Fügt das Firmenlaufwerk hinzu wshNetwork.MapNetworkDrive "p:", "\\Sdcfaas\FA" 'Fügt den Printer hinzu und Setzt ihn als Standard wshNetwork.AddWindowsPrinterConnection "\\Sdcfaas\FA_1300N_SCHMIDA" wshNetWork.SetDefaultPrinter "\\Sdcfaas\FA_1300N_SCHMIDA" If IsMember("fa-administration") Then wshNetwork.MapNetworkDrive "o:", "\\Sdcfaas\FAAdministration" End If If IsMember("fa-informatik") Then wshNetwork.MapNetworkDrive "o:", "\\Sdcfaas\FAInformatik" End If If IsMember("fa-human") Then wshNetwork.MapNetworkDrive "o:", "\\Sdcfaas\FAHuman" End If If IsMember("fa-finance") Then wshNetwork.MapNetworkDrive "o:", "\\Sdcfaas\FAFinance" End If Function IsMember(strGroup) Dim objMember, objGroup On Error Resume Next Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") If Err.Number = 0 Then IsMember = objGroup.IsMember("WinNT://" & strDomain & "/" & strUser) End If On Error Goto 0 End Function For i = 0 to oDrives.Count - 1 Step 2 LAUFWERKE = LAUFWERKE & oDrives.Item(i) & " = " & oDrives.Item(i+1) & vbcrlf next For i = 0 to oPrinters.Count - 1 Step 2 PRINTER = PRINTER & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) & vbcrlf next WScript.Echo "Herzlich Willkommen im Testnetzwerk !"_ &vbCr & " "_ &vbCr &"Domäne = " & WshNetwork.UserDomain _ &vbCr & "Computername = " & WshNetwork.ComputerName _ &vbCr & "Benutzername = " & WshNetwork.UserName _ &vbCr & " "_ &vbCr & "Zuordnungen der Netzlaufwerke:"_ &vbCr & LAUFWERKE _ &vbCr & " "_ &vbCr & "Zuordnung der Netzwerkdrucker"_ &vbCr & PRINTER

genau das meinte ich :) aber ich glaub bei jeden problem was beseitigt wird, entsteht n neues die laufwerke erscheinen im dialog nur, wenn sie schon angehängt waren und nicht erst beim login-vorgang gemappt werden...

danke ! das tut auch mit dem normalsterblichen user :D hat mir vielleicht noch jemand einen tipp bezüglich einer box, die mir alle angehängten laufwerke anzeigt ? ich habe eine variante die mir fast unzählige message boxes anzeigt (für jedes laufwerk ne neue) WScript.Echo "Domäne = " & WshNetwork.UserDomain _ &vbCr & "Computername = " & WshNetwork.ComputerName _ &vbCr & "Benutzername = " & WshNetwork.UserName _ &vbCr & "Zuordnungen der Netzlaufwerke:" For i = 0 to oDrives.Count - 1 Step 2 WScript.Echo "Laufwerk " & oDrives.Item(i) & " = " & oDrives.Item(i+1) next krieg ich das alles irgendwie in eine box gepackt ?

...es funktioniert doch noch nicht ganz, aber ich vermute das hängt nur indirekt mit dem script zusammen : ich habe einen domain admin user AS, mit diesem funktioniert alles perfekt. wenn ich jedoch mit einem normalen user einlogge erhält er die allgemeinen laufwerke, jedoch nicht das, dass je nach gruppenzugehörigkeit zugewiesen wird... während meiner ersten veruche mit den gruppenzugehörigkeiten mit einer box die mir die gruppen anzeigte, hatte ich festgestellt, dass beim admin user die gruppen angezeigt werden, wenn das LCase(Join(CurrentUser.MemberOf)) steht... mit den normalen usern hat es nur etwas angezeigt, wenn ich das Join herausgenommen habe...

vielen herzlichen dank ! es funktioniert ! :D

hat mir leider nicht weitergeholfen :( hat sonst jemand eine idee wie man das lösen oder umgehen könnte?

Rätsel 1 habe ich in zwischenzeit gelöst : wshNetwork.UserName & "$"

Hallo Zusammen Ich habe wirklich keine ahnung von logon scripts, geschweige denn von vbs, muss aber rahmen einer arbeit ein logon script realisieren...und das möglichst schnell. gemäss zeitplan müsste ich heute abend fertig sein :rolleyes: Der Code des Scripts: --------------- Const INFORMATIK_GROUP = "cn=fa-informatik" Const FINANCE_GROUP = "cn=fa-finance" Const HUMAN_GROUP = "cn=fa-human" Const ADMINISTRATION_GROUP = "cn=FA-Administration" 'fährt bei fehlern mit dem nächsten befehl weiter on error resume next Set wshNetwork = CreateObject("WScript.Network") 'entfernt vorhandene Netzlaufwerke wshnetwork.removenetworkdrive "h:" wshnetwork.removenetworkdrive "z:" wshnetwork.removenetworkdrive "o:" wshnetwork.removenetworkdrive "p:" 'Fügt das Persönliche Laufwerk hinzu wshNetwork.MapNetworkDrive "h:", "\\Sdcfaas\" & wshNetwork.UserName 'Fügt das Applikationslaufwerk hinzu wshNetwork.MapNetworkDrive "z:", "\\Sdcfaas\Application" Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) If InStr(strGroups, INFORMATIK_GROUP) Then wshNetwork.MapNetworkDrive "o:", "\\Sdcfaas\FAInformatik\" wshNetwork.AddWindowsPrinterConnection "\\Sdcfaas\FA_1300N_SCHMIDA" wshNetWork.SetDefaultPrinter "\\Sdcfaas\FA_1300N_SCHMIDA" ElseIf InStr(strGroups, FINANCE_GROUP) Then wshNetwork.MapNetworkDrive "o:", "\\Sdcfaas\FAFinance\" wshNetwork.AddWindowsPrinterConnection "\\Sdcfaas\FA_1300N_SCHMIDA" wshNetWork.SetDefaultPrinter "\\sdcfaas\FA_1300N_SCHMIDA" ElseIf InStr(strGroups, HUMAN_GROUP) Then wshNetwork.MapNetworkDrive "o:", "\\Sdcfaas\FAHuman\" wshNetwork.AddWindowsPrinterConnection "\\Sdcfaas\FA_1300N_SCHMIDA" wshNetWork.SetDefaultPrinter "\\Sdcfaas\FA_1300N_SCHMIDA" End If ---------------- habe 2 probleme : 1. das Persönliche laufwerk ist ein $ share... wie kann ich den mit wshNetwork.UserName hinzufügen ???? 2. die gruppensache mit LCase(Join(CurrentUser.MemberOf)) scheint irgendwie nicht zu funktionieren. Ehrlichgesagt bin ich mir schon bei den Const nicht sicher ob dies stimmt. Die Gruppen befinden sich in einer OU "Groups" die sich wiederum in einer OU "Facharbeit" befindet und heissen: FA-Administration FA-Finance FA-Human FA-Informatik weiss jemand der rätsel lösung ? ...eine etwas Ratlose