2002-11-04 15:40:55 +00:00
|
|
|
Name "UserInfo.dll test"
|
|
|
|
OutFile UserInfo.exe
|
|
|
|
|
|
|
|
Section
|
2003-02-09 13:22:09 +00:00
|
|
|
ClearErrors
|
2002-11-04 15:40:55 +00:00
|
|
|
UserInfo::GetName
|
2003-02-09 13:22:09 +00:00
|
|
|
IfErrors Win9x
|
2002-11-04 15:40:55 +00:00
|
|
|
Pop $0
|
2002-11-04 15:44:51 +00:00
|
|
|
UserInfo::GetAccountType
|
2002-11-04 15:40:55 +00:00
|
|
|
Pop $1
|
2002-11-06 16:22:30 +00:00
|
|
|
StrCmp $1 "Admin" 0 +3
|
|
|
|
MessageBox MB_OK 'User "$0" is in the Administrators group'
|
|
|
|
Goto done
|
|
|
|
StrCmp $1 "Power" 0 +3
|
|
|
|
MessageBox MB_OK 'User "$0" is in the Power Users group'
|
|
|
|
Goto done
|
|
|
|
StrCmp $1 "User" 0 +3
|
|
|
|
MessageBox MB_OK 'User "$0" is just a regular user'
|
|
|
|
Goto done
|
|
|
|
StrCmp $1 "Guest" 0 +3
|
|
|
|
MessageBox MB_OK 'User "$0" is a guest'
|
|
|
|
Goto done
|
2003-02-09 13:22:09 +00:00
|
|
|
MessageBox MB_OK "Unknown error"
|
2003-05-02 17:11:40 +00:00
|
|
|
Goto done
|
2003-02-09 13:22:09 +00:00
|
|
|
|
|
|
|
Win9x:
|
|
|
|
# This one means you don't need to care about admin or
|
|
|
|
# not admin because Windows 9x doesn't either
|
|
|
|
MessageBox MB_OK "Error! This DLL can't run under Windows 9x!"
|
2002-11-06 16:22:30 +00:00
|
|
|
|
|
|
|
done:
|
2002-11-04 15:40:55 +00:00
|
|
|
SectionEnd
|