18 lines
260 B
PostScript
18 lines
260 B
PostScript
|
@record on;
|
||
|
|
`regquery -hive U`;
|
||
|
|
@record off;
|
||
|
|
|
||
|
|
string $subkeys = GetCmdData('subkey');
|
||
|
|
string $subkey;
|
||
|
|
|
||
|
|
foreach $subkey ($subkeys)
|
||
|
|
{
|
||
|
|
if (`regquery -hive U -subkey "$subkey\\software\\microsoft\\NetWin"`)
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
return false;
|