Vbscript get mac

[schwitzd]

Sto facendo uno script che mi dice il mac e l'ip del computer... solo che non mi riesce a trovare il mac...

ecco il codice

strComputer = "."
On Error Resume Next
Set objergebnis = objWMI.InstancesOf("Win32_NetworkAdapterConfiguration")
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

mi dite dove sbaglio?
grazie mille

[oregon]

Non è stato creato l'oggetto

objWMI

e la query corretta è

"Win32_NetworkAdapterConfiguration WHERE IPEnabled=True"

[LeleFT]

VBScript viene trattato con il suo genitore VB nel forum Visual Basic e .NET Framework.

Sposto.


Ciao.

[schwitzd]

ma fammi capire... allora diventerebbe cosi giusto?

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??

[oregon]

Quale IP ti trova di cui non trova il MAC?

[schwitzd]

prima come l'avevo fatto io lo script riusciva solo a trovarmi l'ip address ma non il mac

[oregon]

Sì ... ma ti trovava l'IP di quale interfaccia?

[schwitzd]

ha un interfaccia di rete sola.

[oregon]

Ne ha una sola "fisica" ma, magari, ne ha di "virtuali" o di altro tipo ...

Controlla la lista dal comando

IPCONFIG /ALL