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