Cmd 可以显示您的位置吗？ [关闭]答案

【问题标题】：Can Cmd Show Your Location? [closed]Cmd 可以显示您的位置吗？ [关闭]
【发布时间】：2015-06-19 00:24:54
【问题描述】：

是否有可以提供我当前位置的命令或批处理文件？请提供代码。

【问题讨论】：

请学习书写英文的大写规则，不要误用粗体。无论如何，如果没有外部 Web 服务和 IP 数据库或板载 GPS 接收器，这将不会发生。
到目前为止你尝试过什么？请阅读How do I ask a good question?。

标签： file batch-file cmd location

【解决方案1】：

正如他所说的六分之一

没有外部网络服务和 IP 数据库就不会发生这种情况，或板载 GPS 接收器

所以你可以试试这个在网上找到的混合脚本（batch/Vbscript）： TrackLocation.bat

@echo off
title BatTrack Location, By Pierre JOUSSAIN
color 0a
mode con cols=41 lines=14

set vc=%temp%\BatTrack\%username%
if not exist "%vc%" md "%vc%"

set vs=%windir%\system32


:initialization
cls
echo.
echo  Initialization...
echo.
echo   ----^> Checking resources...

set ipwan= Unknown             
echo Set objHTTP = CreateObject("MSXML2.XMLHTTP")>"%vc%\ipwan.vbs"
echo Call objHTTP.Open("GET", "http://checkip.dyndns.org", False)>>"%vc%\ipwan.vbs"
echo objHTTP.Send()>>"%vc%\ipwan.vbs"
echo strHTML = objHTTP.ResponseText>>"%vc%\ipwan.vbs"
echo wscript.echo strHTML>>"%vc%\ipwan.vbs"
if exist "%vc%\ipwan.vbs" for /f "tokens=7 delims=:<" %%a in ('cscript /nologo "%vc%\ipwan.vbs"') do set ipwan=%%a                   
set ipwan=%ipwan:~-0,20%


set location= Unknown             
echo Set objHTTP = CreateObject("MSXML2.XMLHTTP")>"%vc%\location.vbs"
echo Call objHTTP.Open("GET", "http://www.geo-ip.fr/", False)>>"%vc%\location.vbs"
echo objHTTP.Send()>>"%vc%\location.vbs"
echo strHTML = objHTTP.ResponseText>>"%vc%\location.vbs"
echo wscript.echo strHTML>>"%vc%\location.vbs"
if exist "%vc%\location.vbs" for /f "tokens=7 delims=:<" %%a in ('cscript /nologo "%vc%\location.vbs"') do set location=%%a                   
set location=%location:~-0,20%


:menu
set choice=0
echo 
cls
echo.
echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    º                º   ³ %date% ³
echo    º    BatTrack    º   ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
echo    º                º   ³  %time:~0,8%  ³
echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼   ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ

echo.
echo    Your IP wan :%ipwan%
echo.
echo    Location :%location%


pause >nul
goto menu

【讨论】：