ping fra et PERL CGI script
Jeg har et PERL script som skal kunne udføre en simpel PING af en netværksenhed. Scriptet fungerer fint hvis det eksekveres manuelt i en DOS-box, men ikke når det kaldes fra en web-side.Jeg får min header og hvis jeg fylder data i @out manuelt, kommer det også godt nok frem.
Problemet synes at være eksekveringen af ping.exe
Alle gode råd modtages :-)
Miljø: Windows 2003 R2 Server og IIS
Mit script:
#!d:/Perl/bin/perl.exe
use CGI;
$query = new CGI;
print $query->header;
print $query->start_html(-title=>'ping ');
print "<I>Ping process has been initiated, please wait for the response below:</I>";
$asset = $query->param('asset');
open (CMD,"ping $asset -n 3 | ");
@out = <CMD>;
close CMD;
foreach (@out) { print "$_<BR>"; }
print $query->end_html;