18 lines
No EOL
260 B
PostScript
18 lines
No EOL
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; |