ma fammi capire... allora diventerebbe cosi giusto?
codice:
strComputer = "."
On Error Resume Next
set objWMI = GetObject("winmgmts:\\" & strComputer)
Set objergebnis = objWMI.InstancesOf("Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
For Each objinstance In objergebnis
			ip = Join(objinstance.IPAddress, "")
			MAC = objinstance.MACAddress
Next

dim fso, f1
set fso = createobject("scripting.filesystemobject")
set f1 = fso.createtextfile("c:\Data\nic.txt", true)
f1.writeline "--- NIC Information ---"
f1.writeline "IP: " & IP
f1.writeline "MAC: " & MAC
f1.close
ma allora perchè l'ip me lo trova senza e il mac no??