---

Hallo zusammen,

habe ein Problem mit folgendem Code:

Code:

---

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colSessions = objWMI.ExecQuery("Select * from Win32_LogonSession Where LogonType = 2 OR LogonType = 10")
For Each objSession In colSessions
Set colList = objWMI.ExecQuery("Associators of " _
  & "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " _
  & "Where AssocClass=Win32_LoggedOnUser Role=Dependent")
For Each objItem In colList
  Fullname = objItem.Fullname
  UserName = objItem.Caption
Next
Next

---

Ich bekomme den Fullname und Username zurück. Alles bestens. Wenn ich nun den Code Kompiliere und als exe starte, sind die beiden Werte leer. Ich habe mir dann als msgbox colSessions.count anzeigen lassen. Dieser ist dann auch leer. Woran liegt das? Warum geht das in Kompilierter Version nicht?

------------------
cu
Heiko

Schau mal rein www.diemertens.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Glaub ich habs gefunden. Das ist Win32 und ich hab Windows7 64bit. Das kann ja nicht funktionieren. Wenn ich die exe im Konpatibilitätsmodus als XP ausführe, dann klappts. Gibt es da noch eine andere Lösung?

------------------
cu
Heiko

Schau mal rein www.diemertens.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP