perl gethname.pl
call %temp%\_hname.cmd
del  %temp%\_hname.cmd