Skip to main content
etiquetas editadas
Enlace
sstan
  • 16.9k
  • 2
  • 24
  • 48
Se debe de poner tipo código ya que es un script, se añade etiqueta de vbscript
Origen Enlace
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

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

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

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
Origen Enlace
Nelson
  • 35
  • 1
  • 8

Inventario de red (Script Visual Basic)

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