Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
'On Error Resume Next Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\SMS_Discovery\maskiner.txt") x = 1 Do Until objExcel.Cells(x, 1).Value = "" If objExcel.Cells(x, 1).Value = "" Then Exit Do End If strComputer = objExcel.Cells(x, 1).Value Set WshShell = WScript.CreateObject("WScript.Shell") errorReturn = WshShell.Run("%comspec% /c C:\SMS_Discovery\psloggedon.exe \\" & strComputer & " >>C:\SMS_Discovery\Results.csv", 0, True) x = x + 1 Loop objWorkbook.Close objExcel.Quit msgbox "script complete!" Wscript.Quit(0)
Join the community of 500,000 technology professionals and ask your questions.