19 lines
443 B
XML
19 lines
443 B
XML
<Job Id="SpecialFolder">
|
|
<script language=PerlScript>
|
|
$WshShell = $WScript->CreateObject("WScript.Shell");
|
|
$numFolders = $WshShell->SpecialFolders->{Count};
|
|
$title = "PerlScript & WSH Example";
|
|
$style = 1;
|
|
|
|
for($i=0; $i<$numFolders; $i++) {
|
|
$ok_or_cancel = $WshShell->Popup(
|
|
$WshShell->SpecialFolders($i),
|
|
undef,
|
|
$title,
|
|
$style);
|
|
|
|
exit if ($ok_or_cancel == 2);
|
|
}
|
|
</script>
|
|
</job>
|