68 lines
2.1 KiB
PostScript
68 lines
2.1 KiB
PostScript
|
bool $ok = true;
|
||
|
|
string $cmd = "";
|
||
|
|
string $tabs = "\t\t\t";
|
||
|
|
|
||
|
|
@echo off;
|
||
|
|
#######################################################################
|
||
|
|
$cmd = "machineinfo $argv[1]";
|
||
|
|
#echo "\n---------- MachineInfoBox : $cmd ----------";
|
||
|
|
#######################################################################
|
||
|
|
@record on;
|
||
|
|
$ok = `$cmd`;
|
||
|
|
@record off;
|
||
|
|
@echo on;
|
||
|
|
|
||
|
|
echo "\n\t\t$cmd";
|
||
|
|
ifnot($ok) {echo "$tabs$cmd, failed to obtain requested information"; return false;}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
|
||
|
|
string $os_version = GetCmdData("os_version");
|
||
|
|
string $os_type = GetCmdData("os_type");
|
||
|
|
string $os_modifier = GetCmdData("os_modifier");
|
||
|
|
string $browser = GetCmdData("browser");
|
||
|
|
bool $netware_server = GetCmdData("netware_server");
|
||
|
|
bool $sql_server = GetCmdData("sql_server");
|
||
|
|
bool $time_source = GetCmdData("time_source");
|
||
|
|
bool $appletalk = GetCmdData("appletalk");
|
||
|
|
bool $novell = GetCmdData("novell");
|
||
|
|
bool $printq_server = GetCmdData("printq_server");
|
||
|
|
bool $dialin_server = GetCmdData("dialin_server");
|
||
|
|
bool $domain_member = GetCmdData("domain_member");
|
||
|
|
bool $unix_services = GetCmdData("unix_services");
|
||
|
|
bool $cluster = GetCmdData("cluster");
|
||
|
|
bool $terminal_server = GetCmdData("terminal_server");
|
||
|
|
bool $dce = GetCmdData("dce");
|
||
|
|
|
||
|
|
if (defined($os_version[0]) == false)
|
||
|
|
{
|
||
|
|
echo "$cmd, script variables were not defined.";
|
||
|
|
pause;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
echo "$tabs os_version:\t $os_version";
|
||
|
|
echo "$tabs os_type:\t $os_type";
|
||
|
|
echo "$tabs os_modifier:\t $os_modifier";
|
||
|
|
echo "$tabs browser:\t $browser\n";
|
||
|
|
|
||
|
|
echo "$tabs netware_server:\t $netware_server";
|
||
|
|
echo "$tabs sql_server:\t $sql_server";
|
||
|
|
echo "$tabs time_source:\t $time_source";
|
||
|
|
echo "$tabs appletalk:\t $appletalk";
|
||
|
|
echo "$tabs novell:\t $novell";
|
||
|
|
echo "$tabs printq_server:\t $printq_server";
|
||
|
|
echo "$tabs dialin_server:\t $dialin_server";
|
||
|
|
echo "$tabs domain_member:\t $domain_member";
|
||
|
|
echo "$tabs unix_services:\t $unix_services";
|
||
|
|
echo "$tabs cluster:\t $cluster";
|
||
|
|
echo "$tabs[0]terminal_server:\t $terminal_server";
|
||
|
|
echo "$tabs dce:\t $dce";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return true;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|