perl下怎么检查用户的权限?

chairman

1^# chairman 发表于 2008-04-01 15:11

在windows上想判断一个域用户是否在administrator组下,不知道perl下有没有API可以调用.谢谢

xki

2^# xki 发表于 2008-04-03 16:03

[Copy to clipboard] [ - ]

CODE:

use Win32;
if (Win32::IsAdminUser())
{
print "administrators";
}
else{
print "users";
}