$Admin = IsAdminGroup()
If @error Then
MsgBox(0, "Error", "Пользователь не найден")
Exit
EndIf
If $Admin Then
Run("cmd.exe")
Else
Run("calc.exe")
EndIf
Func IsAdminGroup($UserName = @UserName, $UserDomain = @ComputerName)
Local $User = ObjGet("WinNT://" & $UserDomain & "/" & $UserName & ",user")
If Not IsObj($User) Then Return SetError(1, 0, -1)
For $Group In $User.Groups
If $Group.Name = "Администраторы" Then Return SetError(0, 0, 1)
Next
Return SetError(0, 0, 0)
EndFunc