Ответить в теме

Сообщение

[QUOTE="machito, post: 221327, member: 6520"]
Пробовал, команды не воспринимаются консолью. дописал твой скрипт.

[code=vbnet]Function PcOnline (strComputer)
   'Check if the remote machine is online.
   Dim objPing,objStatus
   Dim TextStream, TimeVar
   Dim fso, tf

Const ForReading =1, ForWriting =2, ForAppending =8
   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
        ExecQuery("select Replysize from Win32_PingStatus where address = '"& strComputer &"'")

ForEach objStatus in objPing
       IfIsNull(objStatus.ReplySize)Then
            PcOnline=False

'Пишем Лог файл
           Set fso =CreateObject("Scripting.FileSystemObject")

If(fso.FileExists("c:\routerlog.txt"))Then
               Set tf = fso.OpenTextFile("c:\routerlog.txt",ForAppending, True)
                tf.WriteLine(Now()&" "& strComputer &" is down ")
                tf.Close()
               Set fso =Nothing
               Set tf =Nothing
           Else
               Set tf = fso.CreateTextFile("c:\routerlog.txt",ForAppending, True)
                tf.WriteLine(Now()&" "& strComputer &" is down ")
                tf.Close()
               Set fso =Nothing
               Set tf =Nothing
           EndIf

' Конец Лог файла
       Else
            PcOnline =True
           'Wscript.Echo strComputer & " is responding to a ping "
       EndIf
   Next

Set objPing=Nothing
   Set objStatus=Nothing
EndFunction

Dim fsot, tft
Const ForReading =1, ForWriting =2, ForAppending =8

If PcOnline("www.ya.ru")_
   OR PcOnline("www.google.com")Then

' если статус = 0, пустая строка - другое
    Wscript.Echo"all ok"

Set fsot =CreateObject("Scripting.FileSystemObject")
   Set tft = fsot.OpenTextFile("c:\routerlog.txt",ForAppending, True)
    tft.WriteLine("-----------------")
    tft.Close()
   Set fsot =Nothing
   Set tft=Nothing
    WScript.Quit0
Else
   'WScript.Echo "Reboot"
   'Set oShell = WScript.CreateObject("WScript.Shell")
   'oShell.Run "telnet.exe 192.168.1.1"
   'WScript.Sleep 2000
   'oShell.SendKeys "admin" & chr(13)
   'WScript.Sleep 2000
   'oShell.SendKeys "*******" & chr(13)
   'WScript.Sleep 2000
   'oShell.SendKeys "reboot" & chr(13)
   'WScript.Sleep 2000
   'oShell.SendKeys "^({]})q" & chr(13)
   'WScript.Quit 255
EndIf

Set fsot =CreateObject("Scripting.FileSystemObject")
Set tft = fsot.OpenTextFile("c:\routerlog.txt",ForAppending, True)
tft.WriteLine("-----------------")
tft.Close()
Set fsot =Nothing
Set tft=Nothing
Set ColProcesses = objWMIService.ExecQuery("Select * from Win32_Process",,48)
           ForEach Process in ColProcesses
               If Process.Name="Telnet.exe"Then
                    WshShell.AppActivate Process.Identifier
               EndIf
           Next[/code]
[/QUOTE]

Проверка