Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @goto :batch
- <html><!--
- :batch
- @echo off
- if NOT "%*"=="" goto :TryIP
- 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%"
- if "%networkpass%"=="false</enable" set "networkpass="
- 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
- :TryIP
- 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
- set clipboard = createobject("htmlfile")
- cliptext = clipboard.ParentWindow.ClipboardData.GetData("text")
- 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")
- if NOT isnull(cliptext) then clipboard.ParentWindow.ClipboardData.SetData "text",cliptext
- 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>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement