Тема: VBS: Скрипт VBS выдаёт ошибку под Win10
Скрипт, который прекрасно работал под Win7 , отказывается работать под Win10. Сам скрипт:
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "telnet.exe"
WScript.Sleep 2000
WshShell.SendKeys"open 192.168.1.1" & chr(13)
WScript.Sleep 2000
WshShell.SendKeys"admin" & chr(13)
WScript.Sleep 2000
WshShell.SendKeys"admin" & chr(13)
WScript.Sleep 5000
WshShell.SendKeys"reboot" & chr(13)
WScript.Sleep 3500
ProcessClose("cmd.exe")
ProcessClose("telnet.exe")
Function ProcessClose(sProcName)
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function
Поиск по теме результатов не принёс, хотя не исключаю, что я просто искать не умею. Подскажите, плз, чайнику, в чём может быть засада. Заранее премного благодарен.