RE: [ActiveDir] OT: port scanning software

[Parker, Edward]

Here is a VBScript. Simple but works.

1) Test in a test lab prior to use.
2) Not responsible for the results of the script.  Use at your own risk.


***** SCRIPT BEGIN *****

Option Explicit

If WScript.Arguments.Count<>1 Then
        Wscript.Echo "Param : RemoteHostIP"
        WScript.Quit
End If

Dim K,P
If right(Ucase(WScript.FullName),11)="WSCRIPT.EXE" Then
        Set K=CreateObject("WScript.Shell")
        K.Run K.ExpandEnvironmentStrings("%COMSPEC%") & " /C cscript.exe
""" & WScript.ScriptFullName & """ " & WScript.Arguments(0),1,False
        Set K=Nothing
        WScript.Quit
End If

Set K=I()

L "PortScanner running on " & K.LocalHostName & " (" & K.LocalIP & ")"

K.RemoteHost=WScript.Arguments(0)
For P=1 To 3000
        K.RemotePort=P
        K.Connect
        While K.State<>0
                wscript.sleep 90
        Wend
Next
L "End"

Function I()
        On Error Resume Next
        Err.Number=0
        Set I=WScript.CreateObject("MSWinsock.Winsock","s_")
        Select Case Err.Number
        Case 0
        case &H80040112
                L "No licence found. Install Visual Studio"
        case &H80020009
                L "ActiveX Winsock not registered - use regsvr32"
        Case else
                L "Error " & Err.Number & " - &H" & Hex(Err.Number) & "
- " & Err.Description
        End Select
End Function

Sub L(S):WScript.Echo S:End Sub

Sub s_Connect
        K.Close
        L "Port " & P & " Open !"
End Sub
Sub s_Error(ByVal N,D,c,S,F,H,A)
        K.Close
        If N=10061 Then
                WScript.StdOut.Write "."
        Else
                L P & ":" & N & " " & D
        End If
End Sub

***** SCRIPT END *****
-----Original Message-----
From: Jason Benway [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, November 12, 2003 11:20 AM
To: '[EMAIL PROTECTED]'
Subject: [ActiveDir] OT: port scanning software


I'm looking for software that I can scan my subnets looking for machines
running open ports. I would like to be able to scan a subnet and then
filter the results for just the port I'm looking for.

I've played with LAN Guard, but I can't find a way to filter so it only
shows me for example machines with port 80 open

Thanks,jb
List info   : http://www.activedir.org/mail_list.htm
List FAQ    : http://www.activedir.org/list_faq.htm
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/

List info   : http://www.activedir.org/mail_list.htm
List FAQ    : http://www.activedir.org/list_faq.htm
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
List info   : http://www.activedir.org/mail_list.htm
List FAQ    : http://www.activedir.org/list_faq.htm
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
List info   : http://www.activedir.org/mail_list.htm
List FAQ    : http://www.activedir.org/list_faq.htm
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
List info   : http://www.activedir.org/mail_list.htm
List FAQ    : http://www.activedir.org/list_faq.htm
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
List info   : http://www.activedir.org/mail_list.htm
List FAQ    : http://www.activedir.org/list_faq.htm
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/