Danke für die Links, Eknori.
Ich hab irgendwie das Gefühl, dass ich zu dumm für APIs bin. Hab das Werkl nicht zum laufen gebracht.
Nachdem die Tränen wegen meiner Unfähigkeit getrocknet sind, hab ich etwas gesucht und bin dann über
diesen Fred gestolpert, der mir weiter geholfen hat. (danke feargus)
So komm ich an meine 4 gesuchten Werte.
Forall Item In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_NetworkAdapterConfiguration")
Msgbox "IPaddress: " & Item.IPaddress(0)
Msgbox "IPsubnet: " & Item.IPsubnet(0)
Msgbox "DNSHostname: " & Item.DNSHostname(0)
Msgbox "MACAddress: " & Item.MACAddress(0)
Exit Forall
End Forall
Es ist zwar eine Blackbox, macht aber das, was ich möchte. (hoff ich)