LISTING 2: Script to Redirect Command-Line Data to a Text File

use Win32::NetAdmin;
my %buf;
Win32::NetAdmin::GetUsers("", 0, \%buf)
	or die "GetUsers() failed: $^E";
open FILE, ">usercomment.txt"
	or die "Could not open file: $^E";
foreach $name (sort keys %buf) {
	print FILE $name,",",substr(`net user $name | find "User's"`,29)
		unless $name=~/.*\$$/;
}
close FILE;