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

<Job ID="args">
<script language=PerlScript>
    $arg = $WScript->{Arguments};

    $countArgs = $arg->{Count};

    for($i=0; $i<$countArgs; $i++) {
	$WScript->Echo($arg->Item($i));
    }
</script>
</Job>