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

chairman

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

xki

1. 
   
2. use Win32;
   
3. if (Win32::IsAdminUser())
   
4. {
   
5.   print "administrators";
   
6. }
   
7. else{
   
8.   print "users";
   
9. }
   

复制代码