Sub test()
    Debug.Print getIPAdress("Rechnername")
    Debug.Print getBIOS1("Rechnername")
    Debug.Print getBIOS2("Rechnername")
End Sub

Public Function getIPAdress(ByVal ComputerName As String) As String
    Dim colItems   As Object
    Dim objItem    As Object
    Dim Ping_IP    As String
 
    On Error GoTo Fehler
    Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .ExecQuery("SELECT * " & _
                                      "FROM Win32_PingStatus " & _
                                      "WHERE address = '" & ComputerName & "'")
 
 
    If colItems.Count < 1 Then Exit Function
 
    For Each objItem In colItems
            Ping_IP = objItem.ProtocolAddress         'IP Adresse
    Next objItem
 
    ' return IP
    getIPAdress = Ping_IP
    ' zerstören
    Set colItems = Nothing
    Set objItem = Nothing
Exit Function
 
Fehler:
   Debug.Print Err.Description & "(No. " & Err.Number & "): " & _
               "Fehler wmi_Classes - Function CheckListe!!!"
 
End Function

Public Function getBIOS1(ByVal ComputerName As String) As String
    Dim colItems         As Object
    Dim objItem          As Object
    Dim BIOS_Version     As String
 
    On Error GoTo Fehler
    Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                           .ExecQuery("SELECT * " & _
                                      "FROM Win32_BIOS " & _
                                      "WHERE address = '" & ComputerName & "'")
 
 
    If colItems.Count < 1 Then Exit Function
 
    For Each objItem In colItems
            BIOS_Version = objItem.ReleaseDate         ' BIOS Version
    Next objItem
 
    ' return BIOS Version
    getBIOS1 = BIOS_Version
 
    ' zerstören
    Set colItems = Nothing
    Set objItem = Nothing
Exit Function
 
Fehler:
   Debug.Print Err.Description & "(No. " & Err.Number & "): " & _
               "Fehler wmi_Classes - Function getBIOS!!!"
 
End Function

Public Function getBIOS2(ByVal ComputerName As String) As String
    Dim objWMIService    As Object
    Dim colItems         As Object
 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery( _
                    "SELECT * FROM Win32_BIOS")
 
        For Each objItem In colItems
            Debug.Print objItem.ReleaseDate
        Next
 
End Function