How to check windows administrative privilege?

[alemrantareq]

All the above VBScripts will not work if you disable your LAN connection from the system tray.

[alemrantareq]

Hey, I've found a vbscript -

Code: Select all

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
strUser = objNetwork.UserName

isAdministrator = false

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser in objGroup.Members
    If objUser.Name = strUser Then
        isAdministrator = true        
    End If
Next

If isAdministrator Then
    Wscript.Echo strUser & " is a local administrator."
Else
    Wscript.Echo strUser & " is not a local administrator."
End If

I put the above code into a vbs file & then run it; it just works very fine. But if I put it into rev custom property & try to execute, it says "execution error". I think it needs some modifications for using in rev. Someone pls, help me

[Mark]

I'm not sure that it will actually help, alemrantareq, but what happens if you delete "Set " from your script?

Best,

Mark

[alemrantareq]

Same problem

[Mark]

Hi,

I think you need to remove Wscript.Echo because this is a kind of GUI element that RunRev can't work with. Just return the variable isAdministrator in the result.

Best,

Mark

[alemrantareq]

Yahooo !!! At last I've succeeded in the vbscript -

Code: Select all

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
strUser = objNetwork.UserName

isAdministrator = false

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser in objGroup.Members
    If objUser.Name = strUser Then
        isAdministrator = true        
    End If
Next

If isAdministrator Then
    result = "admin"
Else
    result = "not admin"
End If

Just replaced the "Wscript.Echo" with "result =".

Now I think this one is the most accepted vbscript to check user administrative privileges both for them who have net connections or not.

[Mark]

Cool, Alemrantareq, and thanks for posting this. This is very useful for me.

Best,

Mark