#!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