Function ResolveIP(strComputer)
 Dim wmiQuery : wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer & "'"
 
 Dim objWMIService : Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 Dim objPing : Set objPing = objWMIService.ExecQuery(wmiQuery)
 Dim objStatus
 For Each objStatus in objPing
    If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
        ResolveIP = "Computer is Unreachable!"
    Else
        ResolveIP = objStatus.ProtocolAddress
    End If
 Next
 End Function

'NTDLL
Private Declare Function RtlGetVersion Lib "NTDLL" (ByRef lpVersionInformation As Long) As Long
 
Public Function GetSecInfo(ByVal Info As String) As String
    Dim oObj        As Object
    Dim tOSVw(&H54) As Long
 
    tOSVw(0) = &H54 * &H4
    Call RtlGetVersion(tOSVw(0))
 
    For Each oObj In GetObject("winmgmts:\\.\root\SecurityCenter" & IIf((tOSVw(1) * 10) + tOSVw(2) > 60, "2", "")).ExecQuery("Select DisplayName from " & Info & "Product")
        GetSecInfo = CStr(oObj.DisplayName)
    Next oObj
 
    Set oObj = Nothing
End Function