[GUI]-GetHiddenComputerIPs.cmd

@goto :batch
<html><!--
:batch
@echo off
if NOT "%*"=="" goto :try
mode con: cols=32 lines=5
title [%~n0]
color 0b
echo.
echo.
echo.          loading ...
for /f "tokens=5 skip=5" %%A in ('netsh int ipv4 show ipaddress') do set "compip=%%A" & goto :GotIP
:GotIP
mkdir "%temp%\ForTempXMLfile" >nul
for /f "tokens=1,* delims=: skip=8" %%A in ('netsh wlan show int') do set "currnetwork=%%B" & goto :GotNetName
:GotNetName
set "currnetwork=%currnetwork:~1%"
netsh wlan export profile name="%currnetwork%" folder="%temp%\ForTempXMLfile" key=clear >nul
for /f "tokens=*" %%a in ('dir /b %temp%\ForTempXMLfile\') do set "currfile=%%a"
for /f "tokens=2 delims=^> skip=21" %%a in ('type %temp%\ForTempXMLfile\%currfile%') do set "networkpass=%%a" & goto :GotNetPass
:GotNetPass
set "networkpass=%networkpass:~0,-13%"
del /f /q "%temp%\ForTempXMLfile\*" >nul
rmdir "%temp%\ForTempXMLfile" >nul
reg add HKCU\Software\Classes\%~x0 /d "htafile" /f >nul
start "" mshta.exe "%~dpnx0" "%currnetwork%" "%networkpass%" "%compip%"
exit
:try
setlocal EnableDelayedExpansion
for /f "tokens=2 delims=:" %%A in ('netsh int ipv4 show address ^| find /I "Default Gateway"') do set "Dgateway=%%A" & set "Dgateway=!Dgateway: =!"
for /f "tokens=1,2,3,4 delims=." %%A in ('echo %Dgateway%') do set "IPrange=%%A.%%B.%%C."
if NOT "!IPrange!%1"=="%2" (
for /f "tokens=8 skip=2" %%B in ('tracert -d -h 1 -w 1000 !IPrange!%1') do (
if NOT "%%B"=="%Dgateway%" if NOT "%%B"=="unreachable." echo %%B
)
)
exit
-->
<head>
<title>[Network Scanner] - scans for other computers on the WiFi-Network including hidden/un-discoverable computers</title>
<HTA:APPLICATION ID="ThisApp"
APPLICATIONNAME="Network Scanner"
>
</head>
<script language="VBScript">
sub Window_OnLoad
set x = createobject("wscript.shell")
args = split(ThisApp.commandline,chr(34))
Ext = split(args(1),".")(ubound(split(args(1),".")))
x.run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true
document.all.wifiname.value = args(3)
document.all.wifipass.value = args(5)
document.all.compipv4.value = args(7)
document.all.compname.value = x.expandenvironmentstrings("\\%computername%")
document.all.scanstatus.value = "scanning ...  "
for n = 0 to 260
x.run chr(34)&"%comspec%"&chr(34)&" /d /c "&chr(34)&args(1)&chr(34)&" "&n&" "&document.all.compipv4.value&"| clip & @exit",0,true
document.all.IPlist.value = document.all.IPlist.value & CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
next
document.all.scanstatus.value = "done scanning  "
end sub
</script>
<body bgcolor=black style=border:0px;padding:0px;margin:0px;color:black;font-size:0 ><br/><font color=cyan face=arial size=2><b>
<hr noshade=noshade style=color:purple;margin:0px;padding:0px />
WiFi-Network Name: <input type=text name=wifiname style=border:0px;background-color:black;color:yellow readonly /><br/>
WiFi-Network Password: <input type=text name=wifipass style=border:0px;background-color:black;color:yellow readonly /><br/><br/>
This Computer's In-Network IP-Address: <input type=text name=compipv4 style=border:0px;background-color:black;color:yellow readonly /><br/>
This Computer's In-Network DNS-name: <input type=text name=compname style=border:0px;background-color:black;color:yellow readonly /><br/>
<hr noshade=noshade style=color:purple;margin:0px;padding:0px />
<span style=float:right><input type=text name=scanstatus style=border:0px;background-color:black;color:#00ff00;text-align:right readonly /></span>
<br/><br/><br/><br/><center>
<fieldset style=width:60%;border-style:solid;border-color:grey;border-width:4px>
<legend style=border-style:solid;border-color:grey;color:red;border-width:4px>Other Computers: </legend>
<textarea name=IPlist style=background-color:black;color:#00ff00;border:0px;width:100% rows=10 readonly ></textarea></fieldset>