Subnet Scanner

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Subnet Scanner

Logged in as: Guest

arrSession:exec spGetSession 2,16,34740

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Subnet Scanner
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Subnet Scanner - 5/19/2006 4:59:01 AM

mcds99

Posts: 421
Score: 4
Joined: 2/28/2006
Status: offline

With the help and encoragement of Vbscript.com I've solved a problem that just bugged me.
"This is a work in progress"
Any network administrator needs to view his network to determine what addresses are in use and or available.
Where I work the number of subnets is staggering I take care of all DNS and DHCP for a major retailer.
This script is a subnet scanner it uses Excel workbooks with tables of IP addresses as it's database.
I may switch this to Access or MySql for the database, everything comes to those who wait.
Note:
To make this execute without the cmd prompt flashing I used a wrapper file and a shortcut.
The wrapper file is just a batch file (cmd file) with "cscript subnet.scan.vbs" and a shortcut running minimized.

You will need to customize the script in places to make it work with your network, cosmetic naming and color.
I'm willing to help, just ask.

'### Dimension Variables
Dim aCmd, bCmd, cCmd, dCmd, eCmd
Dim aServer, bServer, cServer
Dim iFile, oFile, hFile
Dim nLines, nElement, pLines, pElement
Dim Ping, PingEd
Dim aRed, aBlue, clrCount
Public dName, dnsName, ipAddr, ipAddress
Dim fSo1, fSo2, fSo3
Dim rdFile, wrFile, dFile, wrHtmlFile, strFile, dispFile, strCN1
Dim eNet, sNet, cNet
Dim intCnt, intSht
Dim fName, strPath
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
'### Value Variables
aCmd = "nslookup"
bCmd = " "
cCmd = "ping"
dCmd = "-a"
iFile = "ifile.txt"
oFile = "ofile.txt"
hFile = "ofile.html"
dFile = ""
aBlue = """#CCFFFF"""
aRed = """#CC6666"""
sNet = Null
eNet = ".0"
cNet = ""
strPath = "C:\_Script\DNS\IDF.Scan\xls\"
dispFile = "C:\_Script\DNS\IDF.Scan\ofile.html"
'### html status bar settings.
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
 objExplorer.Navigate "about:blank"
 objExplorer.Document.Title = ""
 objExplorer.ToolBar = 0
 objExplorer.StatusBar = 0
 objExplorer.Width=500
 objExplorer.Height = 400
 objExplorer.Left = 0
 objExplorer.Top = 0
 objExplorer.Visible = 1
'### Initialize File System Object 1, Delete File
Set fSo1 = CreateObject("Scripting.FileSystemObject")
 fSo1.DeleteFile("c:\_Script\DNS\IDF.Scan\ofile.html")
'### Initialize File System Object 2, Create File
Set fSo2 = CreateObject("Scripting.FileSystemObject")
set dFile = fSo2.CreateTextFile("C:\_Script\DNS\IDF.Scan\ofile.html",true)
 dFile.Close
'### Initialize File System Object 3, Write File
Set fSo3 = CreateObject("Scripting.FileSystemObject")
Set wrHtmlFile = fSo3.OpenTextFile(hFile, ForAppending)
'### Write HTML File Beginning
 wrHtmlFile.writeline "<html><body><title>IDF Subnet Scan</title>"
 wrHtmlFile.writeline "<center>IDF Subnet Scan</center> "
 wrHtmlFile.writeline "<center>"
 wrHtmlFile.writeline "<table border>"
 wrHtmlFile.writeline "<tr"&" "&"width="&"45%"&" "&"valign="&"top"&" "&"height=15>"&"<td>"& "Host Name" &"</td>"&"<td>"& "IP Address" &"</td>"&"<td>"& "Status" &"</td>"
'### Get IDF
fName = inputbox("IDF5, IDF6             Example: IDF5")
  If fName <> idf5 or idf6 then
     objExplorer.Document.Body.InnerHTML = ""&""&"Invalid Subnet or No Subnet Entered > Value Entered: "& fName &" "&" "&"Close this Dialog Box and Try Again"
     wscript.quit
  end if
'Get the worksheet names from the workbook
intSht = 1
Set objExcel = CreateObject("Excel.Application")
 strPathExcel = strPath & fName & ".xls"
 objExcel.Workbooks.open strPathExcel
Set objSheet = objExcel.ActiveWorkbook.Worksheets(intSht)
'### put all the sheet names in to an array
Set oDic = CreateObject("Scripting.Dictionary")
For each objSheet in objExcel.Worksheets
  oDic.Add objSheet.Name,""
Next
'### Get Subnet to scan
aSheets = oDic.Keys
sNet = inputbox("IDF5 - enter 3 octets delimited by a   .   dot             Example: 10.116.170")
 cNet = sNet & eNet
 'WScript.Echo "The sheet names are: 1" & VbCrLf & Join(aSheets,VbCrLf)
 For each aSheets in oDic
   If cNet = aSheets then
     exit For
   else
      objExplorer.Document.Body.InnerHTML = ""&""&"Invalid Subnet or No Subnet Entered > Value Entered: "& cNet &" "&" "&"Close this Dialog Box and Try Again"
      objExcel.Workbooks.close
      objExcel.Application.Quit
      wscript.quit
   end if
 Next  
   objExcel.Workbooks.close
   objExcel.Application.Quit
'### Value Counters.
intRow = 1
intCnt = 1
'### Script Body
Set objExcel = CreateObject("Excel.Application")
 strPathExcel = strPath & fName & ".xls"
 objExcel.Workbooks.open strPathExcel
Set objSheet = objExcel.ActiveWorkbook.Worksheets(cNet)
Do while objSheet.Cells(intRow, 1).Value <> ""
  strCn1 = Trim(objSheet.Cells(intRow, 1).Value) 'host name
  aServer = strCn1
'### Write Explorer Status Bar
objExplorer.Document.Body.InnerHTML = ""& fName &""&" Scan ***This May Take a While.***" & " " & "Subnet: " & cNet & " "&"Address Count: " & intCnt
'### NSLOOKUP Create Shell Object, Execute Command, String Output
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec(aCmd & bCmd & aServer)
Set objStdOut = objWshScriptExec.StdOut
nLines = Split(objStdOut.ReadAll,VbCrLf)
 For nElement = 0 To UBound(nLines)
   If nElement = "3" then
     dName = nLines(nElement)
     dnsName =(replace(dName,"Name:    ",""))
   end if
   If nElement = "4" then
     ipAddr = nLines(nElement)
     ipAddress = (replace(ipAddr,"Address:  ",""))
   end if
 Next
'### WMI Ping   
set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
     ("select * from Win32_PingStatus where address = '" & aServer & "'")
 For each objRetStatus in objPing
   If IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode <> 0 then
     Ping = False
       pingEd = "Host did NOT ping"
   else
     Ping = True
       pingEd = "Host Pinged"
   end if
 Next
   If dnsName = "" then
      dnsName = "No DNS Entry"
      clrCount = "1"
      ipAddress = aServer
      else
        clrCount ="0"
   end if
   If clrCount ="1" then
      aColor = aBlue
      else
      aColor = aRed
   end if
'### Write HTML File
wrHtmlFile.writeline "<tr bgcolor="& aColor &" "&"width="&"45%"&" "&"valign="&"top"&" "&"height=15>"&"<td>"& dnsName &"</td>"&"<td>"& ipAddress &"</td>"&"<td>"& pingEd &"</td>"
'### Increment Counter
 intRow = intRow + 1
 intCnt = intCnt + 1
Loop
'### Write HTML File End
 wrHtmlFile.writeline "</table>"
 wrHtmlFile.writeline " "
 wrHtmlFile.writeline "</center>"
 wrHtmlFile.writeline "Written By: Sam MacDonald 05-17-2006"
 wrHtmlFile.writeline "</body></html>"
'### Close Excel
 objExcel.Workbooks.close
 objExcel.Application.Quit
 wscript.sleep 1000
'### Write Explorer Status Bar
 objExplorer.Document.Body.InnerHTML = ""&""&"IDF5 Subnet: "& cNet & " Is Complete " & intCnt & " Addresses"
 wscript.sleep 5000
'### Open Explorer Output Window
 objExplorer.Navigate "[link=http://www.visualbasicscript.com/file:///]file:///[/link]" & dispFile
'### Exit Script
wscript.quit

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

Post #: 1

RE: Subnet Scanner - 5/28/2007 9:41:36 PM

4scriptmoni

Posts: 190
Score: 0
Joined: 5/3/2007
Status: offline

i was unable to run it :(
maybe it could just grab the local IP and search the entire subnet for valid IPS?
the nslookup is used to check if a valid DNS exists?
maybe get the list from a simple listips.txt ..
i will keep studying the code
cheers,

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.felipeferreira.net

(in reply to mcds99)

Post #: 2

RE: Subnet Scanner - 5/29/2007 4:47:25 AM

mcds99

Posts: 421
Score: 4
Joined: 2/28/2006
Status: offline

Try this one.
You will need to alter paths and create the ofile.html file.

'### ----------------------------------------###
'### Scans a given subnet, Nslookup and Ping ###
'### Returns an HTML output telling the user ###
'### the addresses with host name resolution ###
'### and if the host pings.                  ###
'### ----------------------------------------###

aCmd = "nslookup"
bCmd = " "
cCmd = "ping"
dCmd = "-a"

dispFile = "C:\_Script\DNS\subscanX\ofile.html"
'### Counter
cIPadd = 1
'### Colors used
aBlue = """#CCFFFF"""
aYellow = """#FFCC33"""

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

'### Initialize File System Object 1, Delete File
Set fSo1 = CreateObject("Scripting.FileSystemObject")
 fSo1.DeleteFile("C:\_Script\DNS\subscanX\ofile.html")
 
'### Initialize File System Object 2, Create File
Set fSo2 = CreateObject("Scripting.FileSystemObject")
set dFile = fSo2.CreateTextFile("C:\_Script\DNS\subscanX\ofile.html",true)
 dFile.Close
 
'### Initialize File System Object 3, Write File
Set fSo3 = CreateObject("Scripting.FileSystemObject")
Set wrHtmlFile = fSo3.OpenTextFile(dispFile, ForAppending)

'### Start Internet Explorer for Status Messages and Output
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.Document.Title = "SubNet Scan"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width=600
objExplorer.Height = 400
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1

'### Write HTML File Header
wrHtmlFile.writeline "<html><body><title>IDF Subnet Scan</title>"
wrHtmlFile.writeline "<center>IDF Subnet Scan</center> "
wrHtmlFile.writeline "<center>"
wrHtmlFile.writeline "<table border>"
wrHtmlFile.writeline "<tr"&" "&"width="&"45%"&" "&"valign="&"top"&" "&"height=15>"&"<td>"& "Host Name" &"</td>"&"<td>"& "IP Address" &"</td>"&"<td>"& "Status" &"</td>"

objExplorer.Document.Body.InnerHTML = "Subnet Scan " & "" & "X" & ""

eIPadd = inputbox("Enter Subnet to Scan")
   If eIPadd = "" then 
      objExplorer.Document.Body.InnerHTML = "You must enter a valid subnet"
      wscript.quit
     else
   end if
      
do while cIPadd <> "255"

gIPadd = eIPadd & "." & cIPadd

objExplorer.Document.Body.InnerHTML = "This may take a while" & " " & "Scanning Subnet: " & eIPadd & "." & "0" & " " & "Scanning Address: " & gIPadd

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec(aCmd & bCmd & gIPadd)
Set objStdOut = objWshScriptExec.StdOut

nLines = Split(objStdOut.ReadAll,VbCrLf)
 For nElement = 0 To UBound(nLines)
   If nElement = "3" then
     dName = nLines(nElement)
     dnsName =(replace(dName,"Name:    ",""))
   end if
   If nElement = "4" then
     ipAddr = nLines(nElement)
     ipAddress = (replace(ipAddr,"Address:  ",""))
   end if
 Next

'### WMI Ping   
 set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_PingStatus where address = '" & gIPadd & "'")
 For each objRetStatus in objPing
   If IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode <> 0 then
     Ping = False
       pingEd = "Host did NOT ping"
   else
     Ping = True
       pingEd = "Host Pinged"
   end if
 Next
   If dnsName = "" then
      dnsName = "No DNS Entry"
      clrCount = "1"
      ipAddress = gIPadd
      else
        clrCount ="0"
   end if
   If clrCount ="1" then
      aColor = aBlue
      else
      aColor = aYellow
   end if

wrHtmlFile.writeline "<tr bgcolor="& aColor &" "&"width="&"45%"&" "&"valign="&"top"&" "&"height=15>"&"<td>"& dnsName &"</td>"&"<td>"& ipAddress &"</td>"&"<td>"& pingEd &"</td>"
  
cIPadd = cIPadd + 1

Loop

wrHtmlFile.writeline "</table>"
 wrHtmlFile.writeline " "
 wrHtmlFile.writeline "</center>"
 'wrHtmlFile.writeline "Written By: Sam MacDonald 05-17-2006"
 wrHtmlFile.writeline "</body></html>"

objExplorer.Navigate "file:///" & dispFile
 
Wscript.quit

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to 4scriptmoni)

Post #: 3

RE: Subnet Scanner - 5/29/2007 4:48:05 AM

mcds99

Posts: 421
Score: 4
Joined: 2/28/2006
Status: offline

BTW some companies feel scanning their network is hacking, use with caution.

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to mcds99)

Post #: 4

RE: Subnet Scanner - 5/30/2007 2:17:10 AM

4scriptmoni

Posts: 190
Score: 0
Joined: 5/3/2007
Status: offline

Now its working, nice job.
its not a port scan, just more of a locator.
just pings, and nslookup.
some ideas, maybe i modife and post:
could also use a ping -a to retrive the hostnames
dont print the hosts not pinged
nslookup for internal subnets is not usefull
maybe do simple port scans like 25, 80 ?

but nice script and GUI!
u know of port scans in vb?
cheers,
FF

< Message edited by 4scriptmoni -- 5/30/2007 2:24:06 AM >

_____________________________

Enterprise Microsoft Scripts
Exchange, Login/Logout Monitor,TS, Monitoring, Security, AD, etc...
http://www.felipeferreira.net

(in reply to mcds99)