Online brugere

Hejsa jct
Du kan liste alle brugere i en OU(Organisation Unit) på denne måde:


Set strOU = GetObject("LDAP://localhost/ou=layer two,ou=layer one,ou=test,dc=i,dc=j,dc=com")
strOU .Filter = Array("user")
For Each Member in strOU
Wscript.Echo Chr(92) & Chr(34) & member.distinguishedname & Chr(92) & Chr(34)
Next

Du kan så gentage samme procedure for hver OU i dit domæne.

Håber du kan bruge det:):)

Som jeg læser dit script, vil det vi opårettede bruger i AD, det jeg har brug for er et script som viser hvilke/antal brugere som er online på netværket lige nu.

hmm....jeg tror at det bliver svært hvis du skal tjekke på samtlige brugere i domænet.

en måde hvorpå du kan tjekke på om en bruger er logget på en maskine er:

ComputerName = InputBox("Enter the name of the computer you wish to query")

winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& ComputerName &""

Set UserSet = GetObject( winmgmt1 ).InstancesOf ("Win32_ComputerSystem")

for each User in UserSet
    MsgBox "The user name for the specified computer is: " & User.UserName
Next


dette script kunne du jo modificere så så i stedet for at checke 1 maskien kunne du lave en .txt fil med alle maskinerne. Denne liste kunne du så løbe igennem og lave en løkke som tæller op hvergang der er en bruger logget på en maskien.

Uanset hvad så er det en tung operation(:

Håber du akn bruge det:):)

fik du det til at virke?

Desværre ikke, der kommer en messagebox for hver bruger, og med ca. 230 brugere er det for tungt, jeg har behov for en kørsel som laver en liste over on-line brugere, men som jeg kan forstå på dit forrige svar, så bliver operationen meget tung.