if ping ("ya.ru") then

Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

If objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'firefox.exe'").Count = 1 Then
            For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'firefox.exe'")
    objProc.Terminate
    Next
            Set WshShell = CreateObject("WScript.Shell")
            WshShell.Run "firefox.exe"  
             Else

End if
else
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

If objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'firefox.exe'").Count = 1 Then
                 Else
    For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'firefox.exe'")
    objProc.Terminate             
     Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "firefox.exe -offline"  
    End If

Function Ping(strAddr)
' Проверяем доступность компьютера с помощью команды PING 
        Set objShell = CreateObject("WScript.Shell")
        Set objScriptExec = objShell.Exec("%comspec% /c ping.exe -n 1 " & strAddr)
        strPingResults = LCase(objScriptExec.StdOut.ReadAll)
        Ping = InStr(strPingResults, "ttl=")
        
End Function
End if