' 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 ... 1 Kommentar, 139 mal gelesen.
↧