Chinaunix

标题: perl下怎么检查用户的权限? [打印本页]

---

作者: chairman    时间: 2008-04-01 15:11
标题: perl下怎么检查用户的权限?
在windows上想判断一个域用户是否在administrator组下,不知道perl下有没有API可以调用.谢谢

---

作者: xki    时间: 2008-04-03 16:03

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

复制代码

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2