my $hn = qx[c:\\WINDOWS\\system32\\hostname.exe];
####
my $res = qx[c:\\WINDOWS\\system32\\dsquery.exe computer -name $hn];
##
##
#!perl
my $hn = qx[c:\\WINDOWS\\system32\\hostname.exe];
$hn =~ s/\s+$//;
print $hn."\n";
my $res = qx[c:\\WINDOWS\\system32\\dsquery.exe computer -name $hn];
print $res."\n";
__END__
C:\scripts>perl dsquery.pl
WWWSERVER006
'c:\WINDOWS\system32\dsquery.exe' is not recognized as an internal or external command,
operable program or batch file.
C:\scripts>dir c:\WINDOWS\system32\hostname.exe
Volume in drive C has no label.
Volume Serial Number is 8065-2993
Directory of c:\WINDOWS\system32
02/18/2007 06:00 AM 10,752 hostname.exe
1 File(s) 10,752 bytes
0 Dir(s) 5,173,231,616 bytes free
C:\scripts>dir c:\WINDOWS\system32\dsquery.exe
Volume in drive C has no label.
Volume Serial Number is 8065-2993
Directory of c:\WINDOWS\system32
02/18/2007 06:00 AM 284,160 dsquery.exe
1 File(s) 284,160 bytes
0 Dir(s) 5,173,231,616 bytes free