'vsmacaudit.vbs
On Error Resume Next

strLogFile = "C:\VirtualMACaddresses.txt"
Const ForWriting = 2

'Create Log File
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile (strLogFile, _
    ForWriting, True)


'Connect to virtual server application
Set objVS = CreateObject("VirtualServer.Application")
set colVMs = objVS.VirtualMachines

'Write Virtual MAC Addresses to text file
For Each objVM in colVMS
    Set colNetworkAdapters = objVM.NetworkAdapters
    For Each objAdapter in colNetworkAdapters
     	objFile.WriteLine("VM Name: " & objVM.Name)
     	objFile.WriteLine("MAC address: " &_
        objAdapter.EthernetAddress)
        If objAdapter.IsEthernetAddressDynamic = _
         "True" Then
          objFile.WriteLine "*** Warning: Dynamic" &_
          "MAC Address Assigned ***"
	End if
     	objFile.WriteLine("------------------------" &_
        "---------------------")
     	objFile.WriteLine()
    Next
Next