I need to generate a list of all IPs on the network and generate a log of them. I don't want to go through all 130,050 iterations of two octets..
Here is what I have so far and I have trimmed it down.
Requires WSHPING() and LOGGER() UDFs:
Code:
CLS
BREAK ON
DIM $container
DIM $containername
DIM $computer
$logfile='H:\MMCInvent1.csv'
IF EXIST($logfile)
DEL $logfile
ENDIF
for $i=0 to 10
for $j=1 to 255
$res=wshping('1.1.$i.$j',1)[0]
if @error=0
$data='1.51.$i.$j'
?'found '+$data
LOGGER($logfile,$data+@crlf)
endif
next
next
for $j=1 to 255
$res=wshping('2.2.255.$j',1)[0]
if @error=0
$data='2.2.255.$j'
?'found '+$data
LOGGER($logfile,$data+@crlf)
endif
next
for $i=0 to 16
for $j=1 to 255
$res=wshping('3.3.$i.$j',1)[0]
if @error=0
$data='3.3.$i.$j'
?'found '+$data
LOGGER($logfile,$data+@crlf)
endif
next
next
Thanks,
Kent