12 lines
259 B
XML
12 lines
259 B
XML
<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>
|