[All] Mac address in variabele

[Verwijderd]

Ik wil graag bij elke machine het MAC address in een Dos-variabele hebben. Dit klinkt simpel maar ik kan echter geen manier vinden om dit voor elkaar te krijgen.

Heeft iemand een tooltje hiervoor gezien? Staat het MAC address ook in het register? Of heeft iemand een andere methode die ik over het hoofd zie?

[Verwijderd]

ipconfig /all geeft het MAC-adres terug (physical address)

[Verwijderd]

Tja, dat weet ik. Geen oplossing helaas voor mij. Hoe krijg ik volgens jou alleen dat MAC Address in een Dos-variabele?

[Luppie]

Vanuit IP config kan je ook d.m.v. een sluis het mac-adres alleen krijgen.

code:

ipconfig /all |find "Fysiek"

Je kan het ook in XP ook als volgt doen in een dosbox.

code:

getmac

Evt zijn er ook WMI (Windows Management Instrumentation) methodes voor, hier een voorbeeld. (Vbs)

code:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter",,48)
For Each objItem in colItems
    Wscript.Echo "Adapter Type: " & objItem.AdapterType

Select Case objItem.AdapterTypeID
    Case 0 strAdapterType = "Ethernet 802.3" 
    Case 1 strAdapterType = "Token Ring 802.5" 
    Case 2 strAdapterType = "Fiber Distributed Data Interface (FDDI)" 
    Case 3 strAdapterType = "Wide Area Network (WAN)" 
    Case 4 strAdapterType = "LocalTalk" 
    Case 5 strAdapterType = "Ethernet using DIX header format" 
    Case 6 strAdapterType = "ARCNET" 
    Case 7 strAdapterType = "ARCNET (878.2)" 
    Case 8 strAdapterType = "ATM" 
    Case 9 strAdapterType = "Wireless" 
    Case 10 strAdapterType = "Infrared Wireless" 
    Case 11 strAdapterType = "Bpc" 
    Case 12 strAdapterType = "CoWan" 
    Case 13 strAdapterType = "1394"
End Select

    Wscript.Echo "Adapter Type Id: " & strAdapterType
    Wscript.Echo "AutoSense: " & objItem.AutoSense
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "Index: " & objItem.Index
    Wscript.Echo "MAC Address: " & objItem.MACAddress
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Maximum Number Controlled: " & objItem.MaxNumberControlled
    Wscript.Echo "Maximum Speed: " & objItem.MaxSpeed
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Net Connection ID: " & objItem.NetConnectionID
    Wscript.Echo "Net Connection Status: " & objItem.NetConnectionStatus
    For Each strNetworkAddress in objItem.NetworkAddresses
        Wscript.Echo "NetworkAddress: " & strNetworkAddress
    Next
    Wscript.Echo "Permanent Address: " & objItem.PermanentAddress
    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
    Wscript.Echo "Product Name: " & objItem.ProductName
    Wscript.Echo "Service Name: " & objItem.ServiceName
    Wscript.Echo "Speed: " & objItem.Speed
Next

[F_J_K]

Bovenstaand script kan je inderdaad aanpassen. Met bijv. wshshell.environment kan je de enviroment variables uitlezen/schrijven:

Visual Basic:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Environment.item("envnaam") = "waarde"

Voor het geval je helemaal geen kennis van VBScript/WSH hebt en je toch een tooltje wilt: WOS --> SA