회사가 사설IP라 UltraVNC를 써서 외부에서 접속할 수가 없습니다.
팀뷰어나 RemoteVIEW 등의 중계서버를 가진 원격제어프로그램이 아닌 이상...
그러다 UltraVNC의 Reverse Connection 기능을 이용해서 접속가능한 것을 알게 되었습니다.
즉, 회사컴이 역으로 외부의 PC에 접속을 시도해서 접속되는 방식인데..
제가 인터넷에서 구한 그 스크립트 파일은 아래와 같습니다.
그런데 문제는 이 스크립트를 실행하면 도스창(cmd 창)이 체크할 간격(아래 스크립트에서는 10초)마다 뜹니다.
이래서야 회사 컴퓨터에서 뭘 작업할 수가 없어서 여기저기 물어보았는데
run 구문을 활용해서 해결해보라는 답변까지는 얻었는데 제가 이런 프로그램밍을 아는 사람이 아니라
아직 해결하지 못했습니다. 그래서 고민하고 있다가 뽐뿌 개발자포럼이 생각나서
혹 아래 스크립트를 수정해주실 수 없을까해서 글 올려봅니다.
제가 개발자포럼에 올린 글 링크 추가합니다.
https://kldp.org/node/149564
-------------------------------
'접속할 ip가 있는 페이지의 URL
url="http://abc.org/vnc.txt"
'체크할 초 간격
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
---------------------- | |
|
등록안내
등록안내
Set cmd = sh.exec(\"c:windowssystem32netstat -an\") 이 부분을 다음과 같이 바꿔보시죠.
Set cmd = sh.run(\"c:windowssystem32netstat -an\", 0, true)
개체가 필요합니다... \'sh.run(...)\' 이라고 오류가 뜹니다.