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

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