vbs/Query.vbs at master · chenhaibin/vbs · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
set oFso = createobject ("scripting.filesystemObject")

Set DNS = CreateObject("TCPIP.DNS")


set oFile = ofso.opentextfile ("195.92.1_244.x.txt")

i = 0

Do while oFile.atendofstream = false

	i = i + 1

	strline = ofile.readline

	if Left (strline, 2) = "--" or Len (strline) = 0 then

		'ignore line

	else

		'process strline
		strline = Replace (strline, "* - ", "")

		'process strhost
		strhost = gethost (strline)

		'process strServer

		set oHTTP = createobject ("Coalesys.CSHttpClient.1")

		oHTTP.RequestURL = strline
		oHTTP.Execute "GET"

		strHeader = oHTTP.ResponseHeaders

		arrHeader = Split (strheader, vbcrlf)

		for i = 0 to ubound (arrheader)

		if Left (arrheader(i), 6) = "Server" then
			strServer = arrHeader(i)
		else
		end if

		set oHTTP = nothing

next

wscript.echo strServer

		wscript.echo "------------------------"
		wscript.echo "Host No  : " & i
		wscript.echo "Host IP  : " & strline
		wscript.echo "HostName : " & strHost
		wscript.echo "Server   : " & strServer

	end if


loop


Function GetHost(IP)
  If bDNS = "N" Then
    GetHost = "-"
  Else
    On Error Resume Next
      GetHost = DNS.GetHostByIP(IP)
      If Err Then GetHost = Err.Description
    On Error GoTo 0
  End If
End Function