"http://192.168.0.123/cgi-bin/code.pl"

 Name 
	Value => Server

 Name 
	Value =>

print "content-type: text\n\n"; 
 
use Win32::OLE 'in'; 
$Win32::OLE::Warn = 3; 
 
# ------ SCRIPT CONFIGURATION ------ 
$strServer = '192.168.0.123'; # e.g. dns1.rallencorp.com 
# ------ END CONFIGURATION --------- 
 
# Instantiate a WMI object for the target server 
$objLocator = Win32::OLE->new("WbemScripting.SWbemLocator"); 
$objDNS = $objLocator->ConnectServer($strServer, 'root\\MicrosoftDNS' ); 
# Get an instance of the MicrosoftDNS_Server  class 
$objDNSServer = $objDNS->Get('MicrosoftDNS_Server.Name="."'); 
 
# Iterate over each property using Properties_ 
print $objDNSServer->Properties_->Item('Name')->Value . ':', "\n"; 
foreach my $objProp (in $objDNSServer->Properties_) { 
	print $objProp->Name, "\n"; 
	for my $k (keys %{$objProp}) { 
		print "\t", "$k => ${$objProp}{$k}", "\n"; 
	} 
}

E:\blah>perl dnsProperties.pl 
 
Name 
     Value => server 
     Name => Name 
     IsLocal => 1 
     Origin => CIM_ManagedSystemElement 
     CIMType => 8 
     Qualifiers_ => Win32::OLE=HASH(0x1bbc2ac) 
     IsArray => 0

http://mysite.com/cgi-bin/dnsProperties.pl 
 
Name 
	Value =>  
	Name => Name 
	IsLocal => 0 
	Origin => CIM_ManagedSystemElement 
	CIMType => 8 
	Qualifiers_ => Win32::OLE=HASH(0x193dfac) 
	IsArray => 0

 use Win32::OLE 'in'; 
print "content-type: text/html\n\n"; 
$strComputer = "."; 
$objWMIService = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\".$strComputer."\\root\\cimv2"); 
$colItems = $objWMIService->ExecQuery("Select * from Win32_ComputerSystem"); 
 
foreach $objItem (in $colItems) { 
    print "Computer Name: " . $objItem->Name . "\n"; 
	print "User Name: " . $objItem->UserName ; 
}

E:/blah>perl username.pl 
 
Computer Name: SERVER 
User Name: SERVER\Administrator

http://mysite.com/cgi-bin/username.pl 
 
Computer Name:  
User Name: