We know how difficult it can be to evaluate Wi-Fi vendors, so we created this helpful Wi-Fi Buyer's Guide to help you find the Wi-Fi vendor that's right for your business! Download the guide and get started on our checklist today!
'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)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.