列出系统所有的帐号代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】列出系统所有的帐号

作者:dezai / 发布于2014/9/12/ 634


	#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() );
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　列出帐号　　系统帐号　

同语言下

可能有用的

dezai贡献的其它代码(1065)