I would like to run the script without pop up DOS window .

[Leon Shin]

Hi !
I wanted to connect to my office PC Anytime ay home by UltraVNC. But my office have used Private IP so I couldn't connect.
Then I found reverse connection. So I searched internet and finally found the following script file.
The Way is
Just install the UltraVNC server on a company computer , and run the script
Then waiting at home as a UltraVNC listen mode then will be automatically connected.

But This script has a problem. Every 10 seconds DOS window will pop up that prevent me from using my computer. T.T

Is there anyone who can modify this script so that it does not appear the DOS window(dos screen)?

-------------------------------
'URL of the page that contains the ip access to connect
url="http://abc.org/vnc.txt"
'intervals to check
delay=10

Set http = CreateObject("WinHttp.WinHttprequest.5.1")
Set sh = CreateObject("WScript.Shell")

Do While True
target = getURL(url)



Set cmd = sh.exec("c:\windows\system32\netstat -an")
netresult = cmd.StdOut.ReadAll
Do While cmd.Status=0
WScript.Sleep 50
Loop

Set cmd = Nothing
If InStr(netresult, target&":5500") Then

Else
Set cmd = sh.exec ("C:\Program Files\uvnc bvba\UltraVNC\winvnc -connect " & target )
Do While cmd.Status=0
WScript.Sleep 50
Loop
Set cmd = Nothing
WScript.Sleep 30*1000
End If


WScript.Sleep delay*1000
Loop

Function getURL(url)

Dim re, matches

http.Open "GET", url, False
http.Send
getURL = http.ResponseText
Set re = New RegExp
re.Pattern = "([\w\.]+)"
Set matches = re.Execute(getURL)
getURL = matches.Item(0)

End Function
-----------------------------------