function isElevated()
{
  var e, f=GetSystemDrive()+RandomFileName();
  try{ CreateTextFile(f); FSO.DeleteFile(f);}
  catch (e) {return false;}
  return true;
}

Function CheckPerms4(perms)
	on error resume next
	CheckPerms4=true
	Const admin="S-1-5-32-544"
	Const elevated="S-1-16-12288"
	Set fso = CreateObject("Scripting.Filesystemobject")
	Set WshShell = CreateObject("Wscript.Shell")
	Set RExp = CreateObject("VBScript.RegExp")
	temp_file=fso.GetSpecialFolder(0)&"\"&fso.GetTempName
	ret=WshShell.Run("cmd /c whoami /groups >"""&temp_file&"""",0,true)
	RExp.Global=True
	Select Case UCase(perms)
	Case "ADMIN"
		RExp.Pattern=admin
	Case "ELEVATED"
		RExp.Pattern=elevated
	End Select
	CheckPerms4=RExp.Test(fso.OpenTextFile(temp_file).ReadAll)
	fso.DeleteFile temp_file
	Set fso = Nothing
	Set WshShell = Nothing
	Set RExp = Nothing
	on error goto 0
End Function

Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objOS In objService.ExecQuery("SELECT * FROM Win32_NetworkLoginProfile")
	If (objOS.UserType="Normal Account") Then
		If (objOS.Privileges=2) Then
			WScript.Echo objOS.Caption&" is Administrator"
		ElseIf (objOS.Privileges=1) Then 
			WScript.Echo objOS.Caption&" is User"
		Else 
			WScript.Echo objOS.Caption&" is Guest"
		End If 
	End If 
Next

Function GetUACState()
    On Error Resume Next
    GetUACState = 0
    GetUACState = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
End Function

regread("HKEY_USERS\S-1-5-19\Environment\TEMP")
If InStr(val,"Temp") Then
'...есть
Else 
'...нет
End If

@echo off
setlocal enableextensions enabledelayedexpansion

call :IsAdminTest IsAdmin

echo IsAdmin=%IsAdmin%

endlocal
exit /b 0

:IsAdminTest
    setlocal enableextensions enabledelayedexpansion
    
    "%systemroot%\system32\reg.exe" query "HKU\S-1-5-19" 1>nul 2>nul && set IsAdmin=1 || set IsAdmin=0
    
    endlocal & set /a %~1=%IsAdmin%
    exit /b 0