2008.04.07 14:38

서비스 재 시작을 위한 Vbs

NLB 서비스 재 시작을 위한 스크립트 구성을 작성한 것이다.

벌써 2년전에 작성한거내..
근데 아직도 난 Vbs 스크립트 만들라면 잘 못만든다는것... ㅜ.ㅜ

해당 스크립트는 다음의 구성요소를 참조한다.
래지스트리에 등록 해줘야한다.


<소스>
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' NLB 서비스 중지를 위한 구성'
' 2006-04-07                     '
' L.Y.D                                '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const Ten_Second = 10000
strComputer = "."
strServiceName = "Themes"
Set objShell = WScript.CreateObject("WScript.Shell")

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2")
For i = 1 to 1000000000000

Dim inet
Dim url, str, worldPop
Dim iStart, iEnd

'해당 URL
url="http://211.XXX.XXX.100/default.htm"

'inet 컨트롤의 인스턴스를 생성한다.
set inet = CreateObject("InetCtls.Inet")

'Internet Transfer Control을 통해서 지정된 URL의 소스를 가져온다
inet.RequestTimeOut = 20
inet.Url = url
str =inet.OpenURL


iStart =instr(str, "<H1>") '<H1>태그가 시작하는 위치의 값
iEnd = instr(str, "</H1>")
worldPop = str

  If worldpop = "100" Then
' Wscript.Echo Mon_Counter & "Web_Service(HTTP) is Actived"
  Else
' Wscript.Echo Mon_Counter & "Web_Service(HTTP) is Stopped"
  objshell.Run "nlb stop"   
  End If

 Wscript.Sleep Ten_Second
next
Trackback 0 Comment 0