Hola tengo el siguiente script para un inventario de red, lo he probado pero al final del procedimiento me coloca el nombre del pc en las 3 columnas, no me arroja ni la ip de los equipos ni MacAdress me podrían ayudar a encontrar la solución.

    Option Explicit
    Dim Row, XL, WshShell, FileSystem, RegularExpression, Dummy, TheNVFile, 
    TheLine
    Dim Whacks, WhacksFound, WhacksPattern,  Flag, HostName, NBTable, 
    PingReport, PingPattern
    Dim IPAddress, MACPattern, MACAddress, Matches, TheMatch, Match, NBCommand, 
    TheNBTFile
    Dim IPCommand, TheIPFile, FileName, TheDate, Suggestion, Book
 
    Const ForReading = 1
    Row = 2

    Set XL = WScript.CreateObject("Excel.Application")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    Set RegularExpression = New RegExp

    Dummy = WshShell.Popup ("Compilando inventario de red.  Por favor                 
    espere...",1,"Utilidad para inventario de red",64)

    Call BuildSpreadSheet()

    WshShell.Run "Cmd.exe /c Net View > C:\Windows\Temp\NetViewList.txt", 2,True
    Set TheNVFile = FileSystem.OpenTextFile("C:\Windows\Temp\NetViewList.txt",     ForReading, True)

    Do While TheNVFile.AtEndOfStream <> True
    TheLine = TheNVFile.ReadLine
    Whacks = "\\"
    WhacksFound = FindPattern(TheLine, Whacks)
    If WhacksFound Then
    WhacksPattern = "\\\\\S*"
    Flag = "1"
    HostName = GetPattern(TheLine, WhacksPattern, Flag )
    NBTable = GetNBTable(HostName)
    MACPattern = "MAC Address = \S*"
    Flag = "2"
    MACAddress = GetPattern(NBTable, MACPattern, Flag )
    PingReport = GetIPAddress(HostName)
    PingPattern = "Reply from \S*"
    Flag = "3"
    IPAddress = GetPattern(PingReport, PingPattern, Flag )
    IPAddress = Replace(IPAddress, ":", "")
    Call AddToSpreadSheet(HostName, IPAddress, MACAddress)
    End If
    Loop

    TheNVFile.Close
    FileSystem.DeleteFile("C:\Windows\Temp\NetViewList.txt")
    Dummy = WshShell.Popup ("Inventario de red completado",5,"Utilidad para             inventario de red",64 )
    Call SaveSpreadSheet()
    Wscript.Quit

    Sub BuildSpreadSheet()
    XL.Visible = True
    Set Book = XL.WorkBooks.Add
    XL.Columns(1).ColumnWidth = 20
    XL.Columns(2).ColumnWidth = 20
    XL.Columns(3).ColumnWidth = 20
    XL.Cells(1, 1).Value = "Nombre Equipo"
    XL.Cells(1, 2).Value = "Direccion IP"
    XL.Cells(1, 3).Value = "Direccion MAC"
    XL.Range("A1:C1").Select
    XL.Selection.Font.Bold = True
    XL.Selection.Font.Size = 12
    End Sub

    Sub AddToSpreadSheet(HostName, IPAddress, MACAddress)
    XL.Cells(Row, 1).Value = HostName
    XL.Cells(Row, 2).Value = IPAddress
    XL.Cells(Row, 3).Value = MACAddress
    Row = Row + 1
    XL.Cells(Row, 1).Select
    End Sub
    Sub SaveSpreadSheet()
    TheDate = Date
    TheDate = Replace(TheDate, "/", "-")
    Suggestion = "NetAI " & TheDate & ".xls"
    FileName = XL.GetSaveAsFilename(Suggestion)
    If FileName <> False Then
    Book.SaveAs(FileName)
    End If
    End Sub

    Function FindPattern(TheText, ThePattern)
    RegularExpression.Pattern = ThePattern
    If RegularExpression.Test(TheText) Then
    FindPattern = "True"
    Else
    FindPattern = "False"
    End If
    End Function

    Function GetPattern(TheText, ThePattern, Flag)
    RegularExpression.Pattern = ThePattern
    Set Matches = RegularExpression.Execute(TheText)
    For Each Match in Matches
    TheMatch = Match.Value
    If Flag = "1" Then TheMatch = Mid(TheMatch, 3)
    If Flag = "2" Then TheMatch = Mid(TheMatch, 14)
    If Flag = "3" Then TheMatch = Mid(TheMatch, 11)
    Next
    GetPattern = TheMatch
    End Function

    Function GetNBTable(HostName)
    NBCommand = "nbtstat -a " & HostName
    WshShell.Run "Cmd.exe /c " & NBCommand &" > C:\Windows\Temp\NBTList.txt",     2,True
    Set TheNBTFile = FileSystem.OpenTextFile("C:\Windows\Temp\NBTList.txt",     ForReading, True)
    GetNBTable = TheNBTFile.ReadAll
    TheNBTFile.Close
    FileSystem.DeleteFile("C:\Windows\Temp\NBTList.txt")
    End Function
    
    Function GetIPAddress(HostName)
    IPCommand = "ping -n 1 " & HostName
    WshShell.Run "Cmd.exe /c " & IPCommand &" > C:\Windows\Temp\IPList.txt", 2,True
    Set TheIPFile = FileSystem.OpenTextFile("C:\Windows\Temp\IPList.txt",     ForReading, True)
    GetIPAddress = TheIPFile.ReadAll
    TheIPFile.Close
    FileSystem.DeleteFile("C:\Windows\Temp\IPList.txt")
    End Function