Perl 列出系统所有的帐号（Windows）

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#FILTER_NORMAL_ACCOUNT     Lists normal accounts on a system.
#FILTER_SERVER_TRUST_ACCOUNT     Lists domain controller account data on a domain controller.
#FILTER_INTERDOMAIN_TRUST_ACCOUNT     Lists domain trust accounts on a domain controller.
#FILTER_TEMP_DUPLICATE_ACCOUNTS     Lists local accounts on a domain controller.
#FILTER_WORKSTATION_TRUST_ACCOUNT     Lists workstation accounts on a domain controller.

#!/usr/bin/perl -w

use Win32::NetAdmin;

$host = '';

$status = Win32::NetAdmin::GetUsers($host,FILTER_NORMAL_ACCOUNT,%users);

if ($status) {
   print_hash( %users );
} else {
   print_error();
}

sub print_hash {
   my($hash_ref) = $_[0];
   my(@keys) = keys( %$hash_ref );
   my($key);
   my(@sorted) = sort( @keys );
   foreach $key (@sorted) {
      print "t $key $$hash_ref{$key}n";
   }
}
sub print_error {
    print Win32::FormatMessage( Win32::GetLastError() );
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!