Option Explicit
On Error Resume Next

' Constants for access rights and registry hive 
const HKEY_LOCAL_MACHINE = &H80000002 
const KEY_DELETE = &H00010000 

Dim objReg, IsAdmin 

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") 

isAdmin = False 

objReg.CheckAccess HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services", KEY_DELETE, isAdmin

Set objReg = Nothing

If isAdmin = True Then 
   WScript.Quit 0 
Else 
   WScript.Quit -1 
End If