Open-AudIT

What's on your network?
It is currently Wed Jan 17, 2018 1:51 am

All times are UTC + 10 hours




Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 1 post ] 
Author Message
PostPosted: Fri Nov 02, 2007 5:48 am 
Offline
Newbie

Joined: Thu Nov 01, 2007 8:21 am
Posts: 27
i post here my mod for scanning all Ip classes with nmap.vbs

for use modify audit.config file
like this :
nmap_ip_start = "172.25.0.5"
nmap_ip_end = "172.25.6.24"

and copy following code in nmap.vbs new file


Code:
'''''''''''''''''''''''''''''''''''
' Open Audit                      '
' Software and Hardware Inventory '
' Outputs into MySQL              '
' (c) Mark Unwin 2003 with exmachina all class compatibility mod           '
'''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''
' User defined settings below here '
''''''''''''''''''''''''''''''''''''

' Below calls the file audit_include.vbs to setup the variables.
ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile("audit.config").ReadAll


'nmap_ip_start = "192.168.0.1"       
'nmap_ip_end = "192.168.0.24"

'nmap_ie_form_page = "http://192.168.10.28/oa/admin_nmap_input.php"
'nmap_ie_visible = "n"
'nmap_ie_auto_close = "y"


''''''''''''''''''''''''''''''''''''''''
' Don't change the settings below here '
''''''''''''''''''''''''''''''''''''''''
Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS         = &H80000003
Const ForAppending = 8


Set oShell = CreateObject("Wscript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")
sTempFile = sTemp & "\" & oFS.GetTempName


sTempFile = "temp.txt"

'-----------------------------IP START TRAITEMENT------------------------------------------------
ip_start_A = Left(nmap_ip_start,(InStr(1,nmap_ip_start,".")-1))

ip_start_B = Mid(nmap_ip_start,InStr(1,nmap_ip_start,".")+1,InStr(InStr(1,nmap_ip_start,".")+1,nmap_ip_start,".")-InStr(1,nmap_ip_start,".")-1)

ip_start_C = Mid(nmap_ip_start,InStr(InStr(1,nmap_ip_start,".")+1,nmap_ip_start,".")+1,InStr(InStr(InStr(1,nmap_ip_start,".")+1,nmap_ip_start,".")+1,nmap_ip_start,".")-InStr(InStr(1,nmap_ip_start,".")+1,nmap_ip_start,".")-1)

ip_start_D = Right(nmap_ip_start,Len(nmap_ip_start)-InStr(InStr(InStr(1,nmap_ip_start,".")+1,nmap_ip_start,".")+1,nmap_ip_start,"."))
'-----------------------------IP END TRAITEMENT------------------------------------------------

ip_end_A = left(nmap_ip_end,(InStr(1,nmap_ip_end,".")-1))

ip_end_B = Mid(nmap_ip_end,InStr(1,nmap_ip_end,".")+1,InStr(InStr(1,nmap_ip_end,".")+1,nmap_ip_end,".")-InStr(1,nmap_ip_end,".")-1)


ip_end_C = Mid(nmap_ip_end,InStr(InStr(1,nmap_ip_end,".")+1,nmap_ip_end,".")+1,InStr(InStr(InStr(1,nmap_ip_end,".")+1,nmap_ip_end,".")+1,nmap_ip_end,".")-InStr(InStr(1,nmap_ip_end,".")+1,nmap_ip_end,".")-1)

ip_end_D = Right(nmap_ip_end,Len(nmap_ip_end)-InStr(InStr(InStr(1,nmap_ip_end,".")+1,nmap_ip_end,".")+1,nmap_ip_end,"."))


nmap = "nmap.exe -O -v -oN " & sTempFile & " "


'''''''''''''''''''''''''''''''''''
' Script loop starts here         '
'''''''''''''''''''''''''''''''''''

for ipA = ip_start_A to ip_end_A
for ipB = ip_start_B to ip_end_B
for ipC = ip_start_C to ip_end_C
for ipD = ip_start_D to ip_end_D
Dim ie
Dim oDoc
    scan = nmap & ipA & "." & ipB & "." & ipC & "." & ipD
    wscript.echo scan
    Set sh=WScript.CreateObject("WScript.Shell")
    sh.Run scan, 6, True
    set sh = nothing
    set form_input = nothing
    set file_read = nothing
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile(sTempFile, 1)
    Do Until objTextFile.AtEndOfStream
      strText = objTextFile.ReadAll
    Loop
    objTextFile.Close
    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate nmap_ie_form_page
    Do Until IE.readyState = 4 : WScript.sleep(200) : Loop
    if nmap_ie_visible = "y" then
      ie.visible= True
    else
      ie.visible = False
    end if
    Set oDoc = IE.document
    Set oAdd = oDoc.getElementById("add")
'    oAdd.value = oAdd.value + strText
    oAdd.value = strText
    IE.Document.All("submit").Click
    if nmap_ie_auto_close = "y" then
      Do Until IE.readyState = 4 : WScript.sleep(5000) : Loop
      WScript.sleep(5000)
      ie.Quit
    end if
next
next
next
next
wscript.quit


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 1 post ] 

All times are UTC + 10 hours


Who is online

Users browsing this forum: No registered users and 4 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group