Dim objFileSystem, objOutputFile
Dim strOutputFile
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For each objItem in colItems
'Wscript.Echo objItem.MACAddress
strOutputFile = "\\backup\logs$\lapmacs\" & Replace(objItem.MACAddress,":","-") & ".log"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
Set WshNetwork = WScript.CreateObject("WScript.Network")
objOutputFile.WriteLine(WshNetwork.ComputerName)
Set objFileSystem = Nothing
Next