Tjekke om bruger er administrator

er brugeren logget ind på et Windows 2000 domæne?

VH CK

nej det er lokalt på computeren

i Windows 2000/XP

'Aktive logins,:
Dim mc As New ManagementClass("Win32_LoggedOnUser")
Dim mcCollection As ManagementObjectCollection = mc.GetInstances()
Dim mo As ManagementObject

For Each mo In mcCollection
    Console.WriteLine("------------------------------------------")
    Console.WriteLine("User '" & mo("Antecedent").ToString() & "' has logon session '" & mo("Dependent").ToString() & "'")

    Dim user As New ManagementObject(mo("Antecedent").ToString())
    Dim session As New ManagementObject(mo("Dependent").ToString())
    Dim logon As Integer = Convert.ToInt32(session("LogonType"))

    If logon = 2 Then
        Console.WriteLine("Interactive User is '{0}'", user("Name").ToString())
    End If
Next mo

og det script gør hvad?