Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("NetworkAdapter.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_NetworkAdapter")
outFile.WriteLine("Description: " & Item.Description)
outFile.WriteLine("MACAddress: " & Item.MACAddress)
outFile.WriteLine("")
Next
outFile.Close