The following RhinoScript uses the Windows Management Instrumentation (WMI) to determine the physical addresses, or MAC addresses, of a computer.

  Sub PrintMacAddress


    Dim strComputer
    strComputer = "."


    Dim objWMIService
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")


    Dim colAdaptors
    Set colAdapters = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")


    Dim n
    n = 1


    For Each objAdapter In colAdapters
     Rhino.Print ""
     Rhino.Print "Network Adapter " & n
     Rhino.Print "  Description: " & objAdapter.Description
     Rhino.Print "  Physical (MAC) address: " & objAdapter.MACAddress
     n = n + 1
    Next


  End Sub
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
10/6/2008 4:22:41 PM - dale@mcneel.com-204.177.179.111
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
10/6/2008 4:22:41 PM - dale@mcneel.com-204.177.179.111
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
10/6/2008 4:22:41 PM - dale@mcneel.com-204.177.179.111