foreach $server(@server) {
	%account = (
		server => "\\\\$server",
		user => "Test",
		password => "12345678",
		homedir  => "",
		priv => "USER_PRIV_USER",
		flags => "UF_SCRIPT |UF_TEMP_DUPLICATE_ACCOUNT",
		comment  => "Test",
		logon => "",
		);

	unless (Win32::NetAdmin::UserCreate($account{server}, $account{user}, $account{password}, 0, $account{priv}, $account{homedir}, $account{comment}, $account{flags}, $account{logon})) {
		print LOG "$server,Problem,Unable To Create Account,".Win32::NetAdmin::GetError().",".localtime()."\n";
		++$errorct;
	} else {
		print LOG "$server,Good,Added Account,".localtime()."\n";
		++$goodct;
	}
}