Best way to know if a user has administrative privileges from a VBScript

Question

I need to check whether the user executing the script has administrative privileges on the machine.

I have specified the user executing the script because the script

Answer 1

Function isAdmin
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    isAdmin = false
    errorLevel = shell.Run("%comspec% /c net session >nul 2>&1", 0, True)
    if errorLevel = 0
        isAdmin = true
    End If
End Function