38 lines
845 B
PostScript
38 lines
845 B
PostScript
@record on;
|
|
`regquery -hive R -subkey "Lnkfile\\shellex\\IconHandler"`;
|
|
@record off;
|
|
String $values = GetCmdData("value_data");
|
|
|
|
#check to make sure the value is in the right form for a CLSID (only checking size right now)
|
|
|
|
String $clsid;
|
|
Bool $gotIt = FALSE;
|
|
|
|
foreach $clsid ($values) {
|
|
int $size_of_value;
|
|
$size_of_value = StrLen($clsid);
|
|
if ($size_of_value == 38) {
|
|
$gotIt = TRUE;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if ($gotIt) {
|
|
`regquery -hive R -subkey "clsid\\$clsid" -recursive`;
|
|
|
|
} else {
|
|
#couldn't find a CLSID
|
|
return false;
|
|
}
|
|
|
|
string $syspath = GetEnv("SYSPATH");
|
|
string $sysroot = GetEnv("SYSTEMROOT");
|
|
string $f1 = "$syspath\\wbem\\logs\\*";
|
|
string $f2 = "$sysroot\\help\\*";
|
|
string $f3 = "$sysroot\\..\\Program Files\\common files\\system\\msadc\\*";
|
|
|
|
`dir "$f1"`;
|
|
`dir "$f2"`;
|
|
`dir "$f3"`;
|
|
|
|
return true;
|