VBScript: Find Hostname from a IP Address

I had a requirement to find computer name from a list of IP addersses. I wrote the following vb script function for my requirement. I made it more generic function so any one can use it. Here it is.

‘Function to find Hostname from IP address. To run this function,
‘you have to be administrator to the targer computer.
‘
‘ Function Name: HostName
‘ Parameters: IP Address as a string
‘ Returns Hostname string
‘
Function HostName (IPAddress)
 Dim objWMI, objItem, colItems

 On Error Resume Next
 ‘ Get local WMI CIMv2 object
 Set objWMIService = GetObject(“winmgmts:\\” & IPAddress & “\root\cimv2”)
 If Err.Number <> 0 Then
  HostName = “Error”
  Err.Clear
   On Error Goto 0
  Exit Function
 End If
 On Error Goto 0

 Set colItems = objWMIService.ExecQuery(“SELECT * FROM Win32_ComputerSystem”, “WQL”, _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

 For Each objItem In colItems
  HostName = objItem.Name
 Next

 Set colItems = Nothing
 Set objWMI = Nothing
End Function
‘ – – – – End of Function  – – – –