VBS Loginscript
Hallo Zusammen,
ich habe ein Loginscript geschrieben, damit ich die Drucker und Laufwerke über die Active Directory verbinden kann.
Nun habe ich das Problem, wenn ich einer AD Gruppe eine AD Gruppe hinzufüge, dass diese nun nicht abgefragt wird. (siehe Bild)
Wie muss ich nun mein Loginscript anpassen, damit dies auch funktioniert?
' Laufwerk Z:\ Info Stelle, sofern in Gruppe
' ------------------------------------------
If BenutzerInGruppe("LG-InfoStelle") then
WSHNetwork.MapNetworkDrive "Z:", "\\ZG01F005\InfoStelle"
end if
' Selbst gebastelte Funktion, um Benutzergruppen-Zugehörigkeit eines Users zu überprüfen
' --------------------------------------------------------------------------------------
Function BenutzerInGruppe(SucheGruppe)
Set Benutzer = GetObject("WinNT:" & WSHNetwork.UserDomain & "/" & WSHNetwork.UserName)
FoundIt = False
For Each Gruppe In Benutzer.Groups
if LCase(Gruppe.Name) = LCase(SucheGruppe) then FoundIt = True
Next
BenutzerInGruppe = FoundIt
Set Benutzer = nothing
End Function
' Selbst gebastelte Funktion, um Benutzergruppen-Zugehörigkeit eines Users zu überprüfen
' --------------------------------------------------------------------------------------
Function BenutzerNichtInGruppe(SucheGruppe)
Set Benutzer = GetObject("WinNT:" & WSHNetwork.UserDomain & "/" & WSHNetwork.UserName)
FoundIt = True
For Each Gruppe In Benutzer.Groups
if LCase(Gruppe.Name) = LCase(SucheGruppe) then FoundIt = False
Next
BenutzerNichtInGruppe = FoundIt
Set Benutzer = nothing
End Function
' ------------------------------------------
If BenutzerInGruppe("LG-InfoStelle") then
WSHNetwork.MapNetworkDrive "Z:", "\\ZG01F005\InfoStelle"
end if
' Selbst gebastelte Funktion, um Benutzergruppen-Zugehörigkeit eines Users zu überprüfen
' --------------------------------------------------------------------------------------
Function BenutzerInGruppe(SucheGruppe)
Set Benutzer = GetObject("WinNT:" & WSHNetwork.UserDomain & "/" & WSHNetwork.UserName)
FoundIt = False
For Each Gruppe In Benutzer.Groups
if LCase(Gruppe.Name) = LCase(SucheGruppe) then FoundIt = True
Next
BenutzerInGruppe = FoundIt
Set Benutzer = nothing
End Function
' Selbst gebastelte Funktion, um Benutzergruppen-Zugehörigkeit eines Users zu überprüfen
' --------------------------------------------------------------------------------------
Function BenutzerNichtInGruppe(SucheGruppe)
Set Benutzer = GetObject("WinNT:" & WSHNetwork.UserDomain & "/" & WSHNetwork.UserName)
FoundIt = True
For Each Gruppe In Benutzer.Groups
if LCase(Gruppe.Name) = LCase(SucheGruppe) then FoundIt = False
Next
BenutzerNichtInGruppe = FoundIt
Set Benutzer = nothing
End Function
Please also mark the comments that contributed to the solution of the article
Content-Key: 197203
Url: https://administrator.de/contentid/197203
Printed on: April 23, 2024 at 13:04 o'clock
1 Comment
Hallo flexi87 und willkommen im Forum!
Da gibt's doch auch was von den Scripting Guys ...
Grüße
bastla
Da gibt's doch auch was von den Scripting Guys ...
Grüße
bastla