Scriptonit/ScanNetwork.ps1 at main · Montigomo/Scriptonit · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
[CmdletBinding(DefaultParameterSetName = 'NetworkName')]
param (
    [Parameter(Mandatory = $false, ParameterSetName = 'NetworkName')]
    [string]$NetworkName,
    [Parameter(Mandatory = $false, ParameterSetName = 'NetworkRange')]
    [ipaddress]$FromIp,
    [Parameter(Mandatory = $false, ParameterSetName = 'NetworkRange')]
    [ipaddress]$ToIp,
    [Parameter(Mandatory = $false, ParameterSetName = 'NetworkRange')]
    [int] $Port
)

Set-StrictMode -Version 3.0

. "$PSScriptRoot\Modules\LoadModule.ps1" -ModuleNames @("Common", "Network") -Force | Out-Null

#region ResolveHost ScanIpRangePrinters ScanIpRangePort ScanIpRangePing

function ResolveHost {
    param(
        [Parameter(Mandatory = $true, ValueFromPipeline)] [object] $Item
    )
    $label = ""
    try {
        $label = [System.Net.DNS]::GetHostEntry($Item.IPAddress).HostName
    }
    catch {}
    if (-not ([bool]($Item.PSobject.Properties.name -match "ComputerName"))) {
        $Item | Add-Member -MemberType NoteProperty -Name "ComputerName" -Value "no set"
    }
    $Item.ComputerName = $label
    $Item
}

function ScanIpRangePrinters {
    param(
        [Parameter(Mandatory = $true)]
        [array]$IpRange
    )
    $IpRange | Invoke-Parallel { Test-RemotePort -ComputerName $_ -Port 9100 -TimeoutMilliSec 3000 } -ThrottleLimit 128 | Where-Object Response | Invoke-Parallel { Get-PrinterInfo -ComputerName $_.ComputerName }
}

function ScanIpRangePort {
    param(
        [Parameter(Mandatory = $true)]
        [array]$IpRange,
        [Parameter(Mandatory = $false)]
        [int] $Port
    )
    $result = $IpRange | Invoke-Parallel { Test-RemotePort -Port $Port -IPAddress $_ -TimeoutMilliSec 1000 } -ThrottleLimit 64 | Where-Object { $_.Response }
    $result = $result | Invoke-Parallel { ResolveHost -Item $_ } -ThrottleLimit 128
    $result = $result | Select-Object -Property IPAddress, Port, Response, ComputerName | Sort-Object { $_.IPAddress -replace '\d+', { $_.Value.PadLeft(3, '0') } }
    $result | Format-Table -Wrap -AutoSize
}

function ScanIpRangePing {
    param(
        [Parameter(Mandatory = $true)]
        [array]$IpRange
    )
    $result = $IpRange | Invoke-Parallel { Test-Ping -IPAddress $_ -TimeoutMilliSec 100 } -ThrottleLimit 128 | Where-Object { $_.Response }
    $result = $result |  Invoke-Parallel { ResolveHost -Item $_ } -ThrottleLimit 128
    $result = $result | Select-Object -Property IPAddress, Port, Response, ComputerName | Sort-Object { $_.IPAddress -replace '\d+', { $_.Value.PadLeft(3, '0') } }
    $result | Format-Table -Wrap -AutoSize
}

#endregion

#region ScanNetwork
function ScanNetwork {
    [CmdletBinding(DefaultParameterSetName = 'NetworkName')]
    param (
        [Parameter(Mandatory = $false, ParameterSetName = 'NetworkName')]
        [string]$NetworkName,
        [Parameter(Mandatory = $false, ParameterSetName = 'NetworkRange')]
        [ipaddress]$FromIp,
        [Parameter(Mandatory = $false, ParameterSetName = 'NetworkRange')]
        [ipaddress]$ToIp,
        [Parameter(Mandatory = $false, ParameterSetName = 'NetworkRange')]
        [int] $Port
    )


    switch ($PSCmdlet.ParameterSetName) {
        'NetworkName' {
            $objects = LmGetObjects "networks", "$NetworkName", "scan"
            if (-not $objects) {
                return
            }
            $objects = $objects.GetEnumerator() | Sort-Object { $_.order }

            foreach ($item in $objects) {
                $ipFrom = $item.ipfrom
                $ipTo = $item.ipto
                $IpRange = New-IpRange -From $ipFrom -To $ipTo

                switch ($item.method) {
                    "ping" {
                        Write-Host "Lan: Scan by ping" -ForegroundColor DarkYellow
                        ScanIpRangePing -IpRange $IpRange
                        break
                    }
                    "port" {
                        $port = $item.port
                        Write-Host "Lan: Scan port $port" -ForegroundColor DarkYellow
                        ScanIpRangePort -IpRange $IpRange -Port $port
                        break
                    }
                }
            }
            break
        }
        'NetworkRange' {
            $IpRange = New-IpRange -From $FromIp -To $ToIp
            if ($Port) {
                ScanIpRangePort -IpRange $IpRange -Port $port
            }
            else {
                ScanIpRangePing -IpRange $IpRange
            }
            break
        }
    }
}

#endregion

if ($PSBoundParameters.Count -gt 0) {
    Get-ModuleAdvanced -ModuleName "PSParallel"
    $params = $PSCmdlet.MyInvocation.BoundParameters
    ScanNetwork @params
    break
}