Как рассчитать доступные IP-адреса в заданном диапазоне с VBScript? - PullRequest
Новая
       2

Как рассчитать доступные IP-адреса в заданном диапазоне с VBScript?

2 голосов
/ 10 мая 2011

У меня есть диапазон IP.192.168.1.0/28 поэтому ips 

192.168.1.1
192.168.1.2
.
.
.
192.168.1.13
192.168.1.14

Допустим, некоторые из этих ips используются.И эта информация мне доступна. 

192.168.1.1
192.168.1.2

Теперь мне нужно вычислить все доступные адреса, оставшиеся в указанном диапазоне.Ответ должен быть 

192.168.1.3
192.168.1.4
.
.
192.168.1.13
192.168.1.14

Как я могу рассчитать это с помощью VBScript?
Я использовал очень простой диапазон, чтобы сделать вопрос простым, но в реальном мире мне нужно выполнить эту операцию на многобольшие подсети.
Спасибо

1 Ответ

0 голосов
/ 13 мая 2011

После нескольких дней исследований.Я разобрался в сценарии.Вот ответ 

Dim strAllIP, strUsedIP, strAvailableIps
Dim ynum, xnum, counter, outercounter

ynum = 0
xnum = 0
counter = 0
outercounter = 0

strAllIP = Array("192.168.1.1","192.168.1.2","192.168.1.3", _
                 "192.168.1.4","192.168.1.5","192.168.1.6", _
                 "192.168.1.7","192.168.1.8","192.168.1.9", _
                 "192.168.1.10","192.168.1.11","192.168.1.12", _
                 "192.168.1.13", "192.168.1.14")

strUsedIP = Array("192.168.1.1","192.168.1.2")

For each i in strAllIP


  For each j in strUsedIP
  If i = j Then
  Exit For
  End if
  counter = counter + 1
  If counter - 1 = Ubound(strUsedIP) Then
  Match = True
  Exit for
  End if
  Next

  counter = 0
  If match = True Then
  Redim preserve newarray(outercounter)
  newarray(outercounter)= i
  outercounter = outercounter + 1
  End if
  Match = False

Next

strAvailableIps = join(newarray,chr(13))
msgbox strAvailableIps,0,"Available IPs"
...