[madmasles]

TERMINAL,
Это?

Код:

IsAdmin()

[TERMINAL]

madmasles, У меня включён UAC и скрипт стартует без #RequireAdmin, а IsAdmin() всегда, в таком случае, выдаёт ответ 0 (нуль) под любыми правами. Есть ещё идейки ?

[Iska]

TERMINAL, и что не так? Разве не это Вы хотели получить?

[madmasles]

TERMINAL,
А если так? У меня работает.

Код:

ConsoleWrite(_WinAPI_IsUserAdmin() & @LF)

Func _WinAPI_IsUserAdmin()
    Local $a_Res = DllCall('setupapi.dll', 'bool', 'IsUserAdmin')
    If @error Then Return SetError(1, 0, -1)
    Return $a_Res[0]
EndFunc   ;==>_WinAPI_IsUserAdmin

У меня включён UAC и скрипт стартует без #RequireAdmin, а IsAdmin() всегда, в таком случае, выдаёт ответ 0 (нуль) под любыми правами. »

У меня также включен UAC, и скрипт стартует без #RequireAdmin, но IsAdmin() возвращает 1.

[TERMINAL]

madmasles, тоже возврат 0 под админ-правами, а если запустить от имени администратора-тогда 1... (этот вариант не подходит))
Суть какая-узнать, без всяких запросов и подтверждений запуска файла, наличие прав у текущего пользователя. Если это права Администратора, тогда управление передаётся другому файлу (в котором уже срабатывает #RequireAdmin) и пользователь подтверждает его выполнение. Если же пользователь обыкновенный, то нечего даже и стартовать т.к. даже запуск от прав Администратора ни к чему хорошему не приведёт (скрипт у меня нормально работает только под админ-правами). И вот этот файл (который определяет наличие прав) находится в автозагрузке-не охота чтобы он каждый раз спрашивал разрешение на запуск если у пользователя нет прав.

[TERMINAL]

Помог скрипт

читать дальше »

$sUser = @UserName

$objADSI=ObjGet("WinNT://./"&$sUser)
$obj = $objADSI.Groups
$temp = ""
For $element In $obj
$temp &= $element.Name & @CRLF
Next
MsgBox(0, "Членство в группах", "Пользователь <" & $sUser & "> принадлежит к группе:" & @CRLF & $temp)

#include <Array.au3>
$sStartUser = @UserName
MsgBox(0, "Запуск от имени", "Пользователь: " & $sStartUser & @CRLF & "Группа: " & GroupInfo($sStartUser))

Dim $Array[1]
$Container=ObjGet("WinNT://.")
_ArrayAdd( $Array,"User")
$Container.Filter = $Array
$Info = ""
For $User in $Container
$users_d = $User.Name
$sUser = $User.Name
$Info &= "Пользователь: " & $users_d & " ::: Группа: " & GroupInfo($sUser) & @CRLF
Next
MsgBox(0, "Пользователи и группы", $Info)

Func GroupInfo($sUser)
$objADSI=ObjGet("WinNT://./"&$sUser)
$obj = $objADSI.Groups
$InfoGroup = ""
For $element In $obj
$InfoGroup &= $element.Name
Next
If $InfoGroup = "" Then
$InfoGroup = "Нет группы"
EndIf
Return $InfoGroup
EndFunc

правда, чуть подкорректировал и улучшил под себя.

[-TRM-]

На Windows 8.1 варианты от madmasles и TERMINAL уже не работают. Есть варианты ?