Hi
I fund this code on the net. I hope it is helpfull.
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("NetworkAdapterConfiguration.txt ", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonat e}").InstancesOf ("Win32_NetworkAdapterConfiguration")
'outFile.WriteLine("DefaultIpGateway: " & Item.DefaultIpGateway)
'outFile.WriteLine("DNSServerSearchOrder: " & Item.DNSServerSearchOrder)
'outFile.WriteLine("IPaddress: " & Item.IPaddress)
'outFile.WriteLine("IPsubnet: " & Item.IPsubnet)
'outFile.WriteLine("WinsPrimaryServer: " & Item.WinsPrimaryServer)
outFile.WriteLine("Description: " & Item.Description)
outFile.WriteLine("DHCPenabled: " & Item.DHCPenabled) 'This item is Read/Write (-1: if DHCP is not enabled, 0: not enabled, 1: DHCP enabled)
outFile.WriteLine("DHCPLeaseObtained: " & Item.DHCPLeaseObtained)
outFile.WriteLine("DHCPLeaseExpires: " & Item.DHCPLeaseExpires)
outFile.WriteLine("DHCPServer: " & Item.DHCPServer)
outFile.WriteLine("DNSHostname: " & Item.DNSHostname)
outFile.WriteLine("DNSDomain: " & Item.DNSDomain)
outFile.WriteLine("IPenabled: " & Item.IPenabled)
outFile.WriteLine("MACAddress: " & Item.MACAddress)
outFile.WriteLine("")
Next
outFile.Close
Cheers
Karsten
|
