Chip 2000 May/Chip_2000-05_cd1.bin/zkuste/Perl/ActivePerl-5.6.0.613.msi/䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥/_95b3d175fcc49a586150ced66cee9ac8

Text File | 2000-03-15 | 248b | 15 lines

<Job ID="Test">
<script language=PerlScript runat=server>
$Shell = $WScript->CreateObject("WScript.Shell");

$vars = $Shell->Environment("SYSTEM");

foreach $item (Win32::OLE::in($vars)) {
$WScript->Echo($item);
}




</script>
</Job>