Set objFSO = CreateObject("Scripting.FileSystemObject")
Message = "address"
Set objOutFile2 = objFSO.OpenTextFile("Completed.txt", 8, True)
Host_Names=InputBox(message)
Do
wmiQuery = "Select * From Win32_PingStatus Where " & _ 
"Address = '" & Host_Names & "'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
For Each objStatus in objPing
objOutFile2.WriteLine objStatus.ProtocolAddress
Next
WScript.Sleep 60000
Loop

Set objFSO = CreateObject("Scripting.FileSystemObject")
Message = "URL"
Set objOutFile2 = objFSO.OpenTextFile("iplist.txt", 8, True)
Host_Names=InputBox(message)
if InputBox(message) = "" then
WScript.Quit
end if
for i = 1 to 1000
wmiQuery = "Select * From Win32_PingStatus Where " & _ 
"Address = '" & Host_Names & "'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
For Each objStatus in objPing
objOutFile2.WriteLine objStatus.ProtocolAddress
Next
WScript.Sleep 60000
Next