Scripting >> Perl >> How to use Wscript objects

use OLE; $oNetwork = CreateObject OLE "Wscript.Network"; $sComputerName = $oNetwork->{ComputerName}; print "Hostname=$sComputerName";