А есть возможность проверить ? На ночь глядя никак не соображу как протестить этот кейс.

Перечитал раза 3, на третий раз дошло. Тонко подмечено.

А из ответов, которые по ссылке ничего подходящего нет ?

Там для сессий ещё какой-то такой код предлагают:

strComputer = "." ' " use "." for local computer

Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colSessions = objWMI.ExecQuery _
("Select * from Win32_LogonSession Where LogonType = 2 OR LogonType = 10")

If colSessions.Count = 0 Then
    Wscript.Echo "No interactive users found"
Else
    For Each objSession in colSessions
        If objSession.LogonType = 2 Then
            WScript.Echo "Logon type: Console"
        Else
            WScript.Echo "Logon type: RDP/Terminal Server"
        End If
        Set colList = objWMI.ExecQuery("Associators of " _
            & "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " _
            & "Where AssocClass=Win32_LoggedOnUser Role=Dependent" )

        For Each objItem in colList
            WScript.Echo "User: " & objItem.Name
            WScript.Echo "FullName: " & objItem.FullName
            WScript.Echo "Domain: " & objItem.Domain
        Next
        Wscript.Echo "Session start time: " & objSession.StartTime
        WScript.Echo
    Next
End If

ибо quser знает лишь, если мне память не изменяет , Win10 и Srv 2012 и более

Как минимум, Windows 7 SP1 знает.

Xameleon, помнится, в Win32_ComputerSystem.UserName будет имя пользователя, залогинившегося последним. Не факт, что им окажется пользователь, от чьего имени было вызвано 'Запуск от имени Администратора'.

Коллеги, мне сдаётся, что проверять надо именно вариант «Пользователь, не обладающий административными привилегиями, вызывает 'Запуск от имени Администратора'», а не «Администратор вызывает 'Запуск от имени Администратора'» и не «Пользователь вызывает 'Запуск от имени другого пользователя'».

Option Explicit
Dim objWMIService, colComputer, objComputer
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
    Wscript.Echo objComputer.UserName
Next

cсылка

Последовал вашему предложению. Создал пользователя admin и запустил от его имени скрипт в консоли. Авторизован на компьютере как superuser. Вот что вижу в консоли:

P.S На той же странице в ответах приведены примеры кода на случай RDP сессий

ну что-то в этом есть интересное, только лучше этими командами: query session или qwinsta. Ибо quser знает лишь, если мне память не изменяет , Win10 и Srv 2012 и более.

Но: 1) хотелось бы более элегантный вариант, без вызова сторонних утилит.
2) quser/query session/qwinsta CONSOLE не имеет значение при работе в терминале, возвращает пустое значение. Юзеры же, которые работают на терминале, обзываются сеансами типа rdp-tcp#XXX, поэтому вообще не понять кто из N-ого количества запустил на выполнение скрипт. А как следствие при выполнении скрипта, ему нужно определить в каком режиме работы выполняется сессия пользователя Console или rdp (переменная среды SESSIONNAME у пользователя с повышенными правами вообще отсутствует).

Вариант с сайта coderoad:
https://coderoad.ru/20985756/Получить-т … -в-систему

Dim strCmd
    strCmd = "cmd /q /c ""quser console | find /i ""console"" "" "

Dim buffer 
    buffer = WScript.CreateObject("WScript.Shell").Exec(strCmd).StdOut.ReadAll()

Dim c, consoleUserName
    c = InStr(buffer,"console")
    If c > 2 Then
        consoleUserName = Trim(Mid(buffer,2,c-2))
    Else
        consoleUserName = ""
    End If

    WScript.Echo consoleUserName

With CreateObject("WScript.Network")
    MsgBox .UserDomain & "\" & .UserName
End With

В принципе на 90% уверен, что раз вы использовали гораздо более сложные конструкции кода, то видимо этот простейший вариант явно не катит. Но вижу, что он не упомянут, поэтому всё же рискнул спросить.

USERDOMAIN_ROAMINGPROFILE

Мне кажется, это малоинформативная переменная. На ss64 говорят, что она

Например, у меня на рабочем компе ее значение совпадает с USERDOMAIN.

А вот переменная USERNAME указывает на одного и того же пользователя и в обычном режиме и в режиме с повышенными привелегиями.

В своем батнике с громким названием sudo.bat я использую такой код для проверки уровня привилегий:

for /f "tokens=3 delims=\ " %%a in ( '
	call "%SystemRoot%\system32\whoami.exe" /groups ^| findstr /b /c:"Mandatory Label"
' ) do if /i "%%~a" == "system" (
	echo:system
) else if /i "%%~a" == "high" (
	echo:admin
) else if /i "%%~a" == "medium" (
	echo:user
) else (
	echo:others
)

Решение взято отсюда: https://stackoverflow.com/a/27717205/3627676.
Хотя утвержают (здесь - https://stackoverflow.com/a/30921854/3627676), что этот подход не является 100% надежным.

Видимо эта информация весьма ненадежная. Судя по этой ссылке, вывод может быть локализован.

Возможно, медитация над этим C#-кодом как-то поможет реализовать искомое на WSH. Возможно, и не поможет.
https://github.com/gerardog/gsudo/blob/ … #L142-L157

                WindowsIdentity identity = WindowsIdentity.GetCurrent();
                WindowsPrincipal principal = new WindowsPrincipal(identity);
                _cacheIsAdmin = principal.IsInRole(WindowsBuiltInRole.Administrator);
                return _cacheIsAdmin.Value;

Увы, показывает Админского юзера, т.е. юзера от имени которого запущен скрипт, но ни того, который залогинился (под чьей сессий произошел запуск)