diff --git a/TOOL-Invoke-TSPingSweep/Invoke-TSPingSweep.ps1 b/TOOL-Invoke-TSPingSweep/Invoke-TSPingSweep.ps1
new file mode 100644
index 00000000..2d5ceab1
--- /dev/null
+++ b/TOOL-Invoke-TSPingSweep/Invoke-TSPingSweep.ps1
@@ -0,0 +1,113 @@
+function Invoke-TSPingSweep { 
+  <# 
+    .SYNOPSIS 
+    Scan IP-Addresses, Ports and HostNames 
+ 
+    .DESCRIPTION 
+    Scan for IP-Addresses, HostNames and open Ports in your Network. 
+     
+    .PARAMETER StartAddress 
+    StartAddress Range 
+ 
+    .PARAMETER EndAddress 
+    EndAddress Range 
+ 
+    .PARAMETER ResolveHost 
+    Resolve HostName 
+ 
+    .PARAMETER ScanPort 
+    Perform a PortScan 
+ 
+    .PARAMETER Ports 
+    Ports That should be scanned, default values are: 21,22,23,53,69,71,80,98,110,139,111, 
+    389,443,445,1080,1433,2001,2049,3001,3128,5222,6667,6868,7777,7878,8080,1521,3306,3389, 
+    5801,5900,5555,5901 
+ 
+    .PARAMETER TimeOut 
+    Time (in MilliSeconds) before TimeOut, Default set to 100 
+ 
+    .EXAMPLE 
+    Invoke-TSPingSweep -StartAddress 192.168.0.1 -EndAddress 192.168.0.254 
+ 
+    .EXAMPLE 
+    Invoke-TSPingSweep -StartAddress 192.168.0.1 -EndAddress 192.168.0.254 -ResolveHost 
+ 
+    .EXAMPLE 
+    Invoke-TSPingSweep -StartAddress 192.168.0.1 -EndAddress 192.168.0.254 -ResolveHost -ScanPort 
+ 
+    .EXAMPLE 
+    Invoke-TSPingSweep -StartAddress 192.168.0.1 -EndAddress 192.168.0.254 -ResolveHost -ScanPort -TimeOut 500 
+ 
+    .EXAMPLE 
+    Invoke-TSPingSweep -StartAddress 192.168.0.1 -EndAddress 192.168.10.254 -ResolveHost -ScanPort -Port 80 
+
+    .NOTES
+    Goude 2012, TrueSec
+ 
+  #> 
+  Param( 
+    [parameter(Mandatory = $true, 
+      Position = 0)] 
+    [ValidatePattern("\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b")] 
+    [string]$StartAddress, 
+    [parameter(Mandatory = $true, 
+      Position = 1)] 
+    [ValidatePattern("\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b")] 
+    [string]$EndAddress, 
+    [switch]$ResolveHost, 
+    [switch]$ScanPort, 
+    [int[]]$Ports = @(21,22,23,53,69,71,80,98,110,139,111,389,443,445,1080,1433,2001,2049,3001,3128,5222,6667,6868,7777,7878,8080,1521,3306,3389,5801,5900,5555,5901), 
+    [int]$TimeOut = 100 
+  ) 
+  Begin { 
+    $ping = New-Object System.Net.Networkinformation.Ping 
+  } 
+  Process { 
+    foreach($a in ($StartAddress.Split(".")[0]..$EndAddress.Split(".")[0])) { 
+      foreach($b in ($StartAddress.Split(".")[1]..$EndAddress.Split(".")[1])) { 
+        foreach($c in ($StartAddress.Split(".")[2]..$EndAddress.Split(".")[2])) { 
+          foreach($d in ($StartAddress.Split(".")[3]..$EndAddress.Split(".")[3])) { 
+            write-progress -activity PingSweep -status "$a.$b.$c.$d" -percentcomplete (($d/($EndAddress.Split(".")[3])) * 100) 
+            $pingStatus = $ping.Send("$a.$b.$c.$d",$TimeOut) 
+            if($pingStatus.Status -eq "Success") { 
+              if($ResolveHost) { 
+                write-progress -activity ResolveHost -status "$a.$b.$c.$d" -percentcomplete (($d/($EndAddress.Split(".")[3])) * 100) -Id 1 
+                $getHostEntry = [Net.DNS]::BeginGetHostEntry($pingStatus.Address, $null, $null) 
+              } 
+              if($ScanPort) { 
+                $openPorts = @() 
+                for($i = 1; $i -le $ports.Count;$i++) { 
+                  $port = $Ports[($i-1)] 
+                  write-progress -activity PortScan -status "$a.$b.$c.$d" -percentcomplete (($i/($Ports.Count)) * 100) -Id 2 
+                  $client = New-Object System.Net.Sockets.TcpClient 
+                  $beginConnect = $client.BeginConnect($pingStatus.Address,$port,$null,$null) 
+                  if($client.Connected) { 
+                    $openPorts += $port 
+                  } else { 
+                    # Wait 
+                    Start-Sleep -Milli $TimeOut 
+                    if($client.Connected) { 
+                      $openPorts += $port 
+                    } 
+                  } 
+                  $client.Close() 
+                } 
+              } 
+              if($ResolveHost) { 
+                $hostName = ([Net.DNS]::EndGetHostEntry([IAsyncResult]$getHostEntry)).HostName 
+              } 
+              # Return Object 
+              New-Object PSObject -Property @{ 
+                IPAddress = "$a.$b.$c.$d"; 
+                HostName = $hostName; 
+                Ports = $openPorts 
+              } | Select-Object IPAddress, HostName, Ports 
+            } 
+          } 
+        } 
+      } 
+    } 
+  } 
+  End { 
+  } 
+}
\ No newline at end of file