windows-server-2003/tools/perl/eg/windows script host/specialfolder.wsf

<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>