[VBScript] ADSI: User ingelogged of niet*

[coldasice]

code:

Dim sUserInfo

Set oContainer = GetObject("WinNT://my_domain")

For Each oIADs In oContainer
    If (oIADs.Class = "User") Then
        Set oUser = oIADs
    
        UserName = ""
        FullName = ""
        
        UserName = oUser.Name
        FullName = oUser.FullName
%>

<TR>
    <TD><%=UserName%> </TD>
    <TD><%=FullName%> </TD>

<%    End If%>

Nu wil ik graag de status van de user bekijken...of hij online danwel offline is...
weet iemand of dit met ADSI gaat of kan dit niet ...kan ik dit eenvoudig anders oplossen???

USer online status bekijken moet de topic titel zijn....sorry

[ Voor 17% gewijzigd door coldasice op 17-10-2003 13:23 ]

[PhoneTech]

Bekijk de properties van de user eens als ADSI entry..
Met ADSI kan je alles doen wat je in Active Directory ook kan..(pin me er niet op vast)

[coldasice]

Ik heb heel veel sites afgelopen en volgens mij gaat het niet....
nu moet ik verder zoeken naar andere manieren.....

ik wil eigenlijk gewoon de status van een computer(aan/uit) op intranet zetten zodat mensen kunnen zien wie er vandaag aanwezig is op systeembeheer.....zou toch moeten kunnen....

[PhoneTech]

Heb je op http://www.iisfaq.com al gekeken in de sectie ADSI scripts?

Misshcien kan je er beter met .NET over heen gaan...die heeft een wat betere support...en het is veel overzichtelijker...

[mulder]

Mocht het met ADSI mogelijk zijn: je weet toch wanneer diegene inlogd? Dat kun je natuurlijk opslaan.

[coldasice]

de lastlogin heb je wel ja maar dan weet je niet voor 100% of hij nog wel online is.....

ik heb nu iets met WMI gevonden...het werkt alleen nog niet helemaal

code:

<%



strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Account",,48)
For Each objItem in colItems
if objItem.Status<>OK then
else
    %><tr><td>Name: </td><td> <%=objItem.Name%><td>
    <td>Status:  </td><td> <%= objItem.Status%><td></tr>
end if
Next    
%>

Alleen dit is van een WScript gejat en dit moet ik nog ff herschrijven naar vbscript....

[coldasice]

werkt niet....de status is altijd oke....ook als mensen offline zijn....