10 lines
315 B
PostScript
10 lines
315 B
PostScript
@record on;
|
|
`regquery -hive L -subkey "software\\microsoft\\windows nt\\currentversion"`;
|
|
string $values=GetCmdData("value_data");
|
|
@record off;
|
|
|
|
echo "install hex is $values[1]";
|
|
|
|
`local run -command "perl d:/dszopsdisk/resources/ops/tools/installdate.pl $values[1]" -redirect installdate`;
|
|
|
|
return true;
|