Нужно что бы vbs скрипт запускал сам себя каждые десять секунд как это сделать?

А может просто зациклить его с ожиданием в 10 секунд:
Dim fso, tf, time
Set fso = CreateObject("Scripting.FileSystemObject")
while 1=1
Cоnst FоrAppending = 8
Set tf = fso.OpenTextFile("Тест интернет. txt", ForAppending, True)
time = Now()
tf.Write(time)
Set oShell = WScript.CreateObject("WScript.Shell")
strHost = "192.168.0.150"
strPingCommand = "ping -n 1 -w 300 " & strHost
ReturnCode = oShell.Run(strPingCommand, 0, True)
If ReturnCode = 0 Then
tf.WriteLine ""
tf.WriteLine "Есть подключение. "
Else
tf.WriteLine ""
tf.WriteLine "Нет подключения. "
End If
WScript.Sleep 10000
wend

> сам себя

"сам себя" только барон фон Мюнхгаузен умеет вытаскивать)

Помести всю эту лабуду в вечный цикл.
Только в конце цикла что-нить типа Sleep(10000) не забудь поставить.

Я синтаксис паскаля не в курсе, как-нить вроде
while(True)

в винде в стандартных есть планировщик задач

как мне зациклить скрипт:msgbox"fatal error the hard drive is damaged", 64, "Error"

do
Dim fso, tf, time
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Set tf = fso.OpenTextFile("Тест интернет. txt", ForAppending, True)
time = Now()
tf.Write(time)
Set oShell = WScript.CreateObject("WScript.Shell")
strHost = "192.168.0.150"
strPingCommand = "ping -n 1 -w 300 " & strHost
ReturnCode = oShell.Run(strPingCommand, 0, True)
If ReturnCode = 0 Then
tf.WriteLine ""
tf.WriteLine "Есть подключение."
Else
tf.WriteLine ""
tf.WriteLine "Нет подключения."
End If
wscript.sleep 10000
loop
Есть ещё пранк от меня вот скрипт:
x=msgbox("Процесс Windows Bios не работает в связи с неполадками в системе", 2+48, "cmd")
x=msgbox("Критическое состояние Windows", 0+48, "Windows")
x=msgbox("Внимание, в связи с критическим состоянием Windows будут возникать технические неполадки", 0+16, "Windows")
t.run"calc.exe"
t.run"notepad.exe"
t.run"calc.exe"
t.run"notepad.exe"
Set s = CreateObject("Wscript.Shell")
do
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
loop
x=msgbox("Для отключения данного вида текста отмените процесс в диспечере задач.", 0+48, "F1")
UserName=InputBox("Ваше имя:","WebKill","name")
MsgBox "Здорово " &UserName& "!",0,"WebKill"
set FSO=CreateObject("Scripting.FileSystemObject")
set file =FSO.CreateTextFile("C:\WebKill's.html")
file.WriteLine("t.run"calc.exe"
t.run"notepad.exe"
t.run"calc.exe"
t.run"notepad.exe"
Set s = CreateObject("Wscript.Shell")
do
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
loop