将无线网卡变身为 wifi 热点的 完整批处理文件 或者 让i电脑变成wifi热点

这个批处理完全依靠widows 自己的命令，启动无线网络承载功能、并完成本地网卡到无线网络的共享，再不用手动去设置网络internet共享了，

第一次配置，选择数字键后，填入ssid 及密码直接可以使用了，以后直接按按数字键就可以使用

说明一下：

1、批处理开头的测试管理员权限是借用jayxon关于迅雷安装的批处理部分

2、在选择网卡部分，是论坛boot 测试提供批处理脚本

3、internet 连接共享部分是直接调用的ics.vbs脚本，而这个脚本是从网上搜出来的

4.第一次使用：选择2 填入 ssid 和密码 下一步就可以了,之后使用直接选择3就可以了.第一次使用要 先要看看自己的无线网卡是不是支持无线网络承载功能，也就是选择 1查看吧，如果没有配置过直接选择第3项会 跳入第2想配置界面

鉴于以上种种，说以此批处理也没再作什么其他的包装，也没有什么类似于版权的东西，也没有署名，只是想让大家方便一下而已，觉得不好可以自己完善！也算一个抛砖引玉吧！

wifi.cmd

@ECHO OFF

Title 无线热点设置工具

color 0a

Pushd %~dp0

If "%PROCESSOR_ARCHITECTURE%"=="AMD64" (Set b=%SystemRoot%\SysWOW64) Else (Set b=%SystemRoot%\system32)

Rd "%b%\test_permission_test" >nul 2>nul

Md "%b%\test_permission_test" 2>nul||(Echo 请使用右键管理员身份运行&&Pause >nul&&Exit)

Rd "%b%\test_permission_test" >nul 2>nul

setlocal ENABLEDELAYEDEXPANSION

GOTO MENU

:MENU

cls

ECHO.

ECHO.          =-=-=-=-=请选择要启动的无线热点（wifi）服务项目=-=-=-=-=

ECHO.

ECHO.                       1  查看无线网卡是否支持wifi热点功能

Echo.

ECHO.                       2  第一次配置并开启wifi热点

ECHO.

ECHO.                       3  开启已有的wifi热点

ECHO.

ECHO.                       4  查看wifi信息

ECHO.          

ECHO.                       5  关闭wifi热点

ECHO.

ECHO.                       6  退     出

ECHO.

ECHO.

ECHO.

ECHO.

Set /p c=请输入数字并按Enter确定：

IF NOT "%c%"=="" SET c=%c:~0,1%

If "%c%"=="1" Goto wifi_verify

If "%c%"=="2" Goto wifi_config

If "%c%"=="3" Goto wifi_start

If "%c%"=="4" Goto wifi_show

If "%c%"=="5" Goto wifi_stop

If "%c%"=="6" Goto exit

GOTO MENU

:wifi_verify

cls

ECHO =-=-=-=-=您的无线网卡是否支持wifi热点功能？=-=-=-=-=

ECHO.

ECHO.

IF EXIST "%b%\netsh.exe" netsh interface set interface name="无线网络连接" admin=ENABLED

Set supportWifi="false"

netsh wlan show drivers | find "支持的承载网络  : 是" >nul&&If "1"=="1" (Set supportWifi="true")

if %supportWifi%=="true" (set/p=<nul&echo.> 恭喜您！您的无线网卡支持wifi热点功能，赶快去开启吧！！&findstr /a:0c .* 恭喜您！*&del 恭喜您！*) else (set/p=<nul&echo.> 很遗憾！您的无线网卡不支持wifi热点功能，换块网卡再试试把！！&findstr /a:0c .* 很遗憾！*&del 很遗憾！*) 

echo.

ECHO.

ECHO.

pause

GOTO MENU

:wifi_config

cls

ECHO. =-=-=-=-=创建一个无线热点=-=-=-=-=

ECHO.

echo 第一步：输入新SSID Enter结束

echo.

:begin

set /p SSID=请输入新SSID：

if "%SSID:~1,1%"==""  echo 最少输入2位&goto begin

echo.

echo.

echo.

echo.

:key

echo 第二步：输入8位以上新密码 Enter结束

echo.

set /p pw=请输入密码(8-16位)：

if "%pw:~7,1%"==""  echo 最少输入8位&goto key

if "%pw:~16,1%" neq "" echo 超过16位了&goto key

echo ^[WLAN_SSID^]>config.ini

echo WLAN_SSID^=%SSID%>>config.ini

echo.>>config.ini

echo ^[WLAN_PASSWORD^]>>config.ini

echo WLAN_PASSWORD^=%PW%>>config.ini

echo.>>config.ini

echo.

netsh interface set interface name="无线网络连接" admin=ENABLED

netsh wlan set hostednetwork mode=allow

netsh wlan set hostednetwork ssid=%SSID% key=%PW%

netsh wlan start hostednetwork

echo 正在查找当前正在使用的网络名称,请稍等....

Getmac /v /nh /fo csv | find /i "Device" > network_all.txt

ping 127.0.0.1>nul

for /f "tokens=1-3* delims=," %%a in (network_all.txt) do if not "%%d"==""媒体被断开"" (

    set myname=%%a

    rem 网卡:%%b

    set mymac=%%c

    rem 协议:%%d

)

set myname=%myname:~1,-1%

set mymac=%mymac:~1,-1%

echo 当前mac为%mymac%，网卡名称叫做"%myname%"

echo.

netsh interface set interface name="%myname%" newname="wlan_ap"

net start MpsSvc

cscript /nologo "%~dp0\ics.vbs" "wlan_ap" "本地连接" "on" >nul

net stop MpsSvc

set/p=<nul&echo.>恭喜！！wifi接入点已经设置完成&findstr /a:0e .*  恭喜！！wifi接入点已经设置完成*&del 恭喜！！wifi接入点已经设置完成*

ECHO.

set/p=<nul&echo.>【SSID："%ssid%"密码："%pw%"】&findstr /a:0c .*  【SSID：*&del 【SSID：*

ECHO.

ECHO.

pause

GOTO MENU

:wifi_start

cls

if exist config.ini (echo 配置文件已确认...) else (goto wifi_config)

FOR /F "tokens=1,2 delims==" %%i in (config.ini) DO (

SET %%i=%%j

)

netsh interface set interface name="无线网络连接" admin=ENABLED

netsh wlan set hostednetwork mode=allow

netsh wlan set hostednetwork ssid=%WLAN_SSID% key=%WLAN_PASSWORD%

netsh wlan start hostednetwork

net start MpsSvc

cscript /nologo "%~dp0\ics.vbs" "wlan_ap" "本地连接" "on" >nul

net stop MpsSvc

set/p=<nul&echo.>恭喜！！wifi接入点已经设置完成&findstr /a:0e .*  恭喜！！wifi接入点已经设置完成*&del 恭喜！！wifi接入点已经设置完成*

ECHO.

set/p=<nul&echo.>【SSID："%WLAN_SSID%"密码："%WLAN_PASSWORD%"】&findstr /a:0c .*  【SSID：*&del 【SSID：*

ECHO.

pause

GOTO MENU

:wifi_show

cls

ECHO. =-=-=-=-=wifi热点状态=-=-=-=-=

ECHO.

ECHO.

netsh wlan show hostednetwork

ECHO.

ECHO.

ECHO.

ECHO.

pause

GOTO MENU

:wifi_stop

ECHO. =-=-=-=-=关闭无线热点服务=-=-=-=-=

ECHO.

ECHO.

netsh wlan set hostednetwork mode=disallow

netsh wlan stop hostednetwork

cscript /nologo "%~dp0\ics.vbs"  "无线网络连接 4" "本地连接" off >nul

netsh interface set interface name="无线网络连接" admin=DISABLED

ECHO.

set/p=<nul&echo.>wifi热点功能已经成功关闭！！！&findstr /a:0c .*  wifi热点*&del wifi热点*

ECHO.

ECHO.

pause

GOTO MENU

:Exit

cls

------------------------------------

ics.vbs

'cscript /nologo ics.vbs "无线网络连接" "本地连接" "off"

'将以上代码保存为*.bat文件运行，三个参数分别为，供别人连接的网卡名字、提供共享的网卡名称、开启(on)关闭(off)

' VBScript source code

OPTION EXPLICIT

DIM ICSSC_DEFAULT, CONNECTION_PUBLIC, CONNECTION_PRIVATE, CONNECTION_ALL

DIM NetSharingManager

DIM PublicConnection, PrivateConnection

DIM EveryConnectionCollection

DIM objArgs

DIM priv_con, publ_con

dim switch

ICSSC_DEFAULT         = 0

CONNECTION_PUBLIC     = 0

CONNECTION_PRIVATE    = 1

CONNECTION_ALL        = 2

Main()

sub Main( )

    Set objArgs = WScript.Arguments

    if objArgs.Count = 3 then

        priv_con = objArgs(0)'内网连接名

                publ_con = objArgs(1)'外网连接名

                switch = objArgs(2)'状态切换开关 on 为 打开ics  off 相反

        if Initialize() = TRUE then

            GetConnectionObjects()

            FirewallTestByName priv_con,publ_con

        end if

    else

        DIM szMsg

        if Initialize() = TRUE then

            GetConnectionObjects()

            FirewallTestByName "list","list"

        end if

        szMsg = "To share your internet connection, please provide the name of the private and public connections as the argument." & vbCRLF & vbCRLF & _

                "Usage:" & vbCRLF & _

                "       " & WScript.scriptname & " " & chr(34) & "Private Connection Name" & chr(34) & " " & chr(34) & "Public Connection Name" & chr(34)

        WScript.Echo( szMsg & vbCRLF & vbCRLF)

    end if

end sub

sub FirewallTestByName(con1,con2)

        on error resume next

    DIM Item

    DIM EveryConnection

    DIM objNCProps

    DIM szMsg

    DIM bFound1,bFound2

    WScript.echo(vbCRLF & vbCRLF)

    bFound1 = false

    bFound2 = false

    for each Item in EveryConnectionCollection

        set EveryConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item)

        set objNCProps = NetSharingManager.NetConnectionProps(Item)

        szMsg = "Name: "       & objNCProps.Name & vbCRLF & _

                "Guid: "       & objNCProps.Guid & vbCRLF & _

                "DeviceName: " & objNCProps.DeviceName & vbCRLF & _

                "Status: "     & objNCProps.Status & vbCRLF & _

                "MediaType: "  & objNCProps.MediaType

        if EveryConnection.SharingEnabled then

            szMsg = szMsg & vbCRLF & _

                    "SharingEnabled" & vbCRLF & _

                    "SharingType: " & ConvertConnectionTypeToString(EveryConnection.SharingConnectionType)

        end if

        if objNCProps.Name = con1 then

            bFound1 = true

            if EveryConnection.SharingEnabled = False and switch="on" then

                szMsg = szMsg & vbCRLF & "Not Shared... Enabling private connection share..."

                WScript.Echo(szMsg)

                EveryConnection.EnableSharing CONNECTION_PRIVATE

                szMsg = " Shared!"

                                                elseif(switch = "off") then 

                                                                szMsg = szMsg & vbCRLF & "Shared... DisEnabling private connection share..."

                WScript.Echo(szMsg)

                                                                EveryConnection.EnableSharing CONNECTION_ALL

                                

            end if

                        end if

        if objNCProps.Name = con2 then

            bFound2 = true

            if EveryConnection.SharingEnabled = False and switch="on" then

                szMsg = szMsg & vbCRLF & "Not Shared... Enabling public connection share..."

                WScript.Echo(szMsg)

                EveryConnection.EnableSharing CONNECTION_PUBLIC

                szMsg = " Shared!"

                                                elseif(switch = "off") then 

                                                                szMsg = szMsg & vbCRLF & "Shared... DisEnabling public connection share..."

                WScript.Echo(szMsg)

                                                                EveryConnection.EnableSharing CONNECTION_ALL

                   end if

        end if

        WScript.Echo(szMsg & vbCRLF & vbCRLF)

    next

    if( con1 <> "list" ) then

        if( bFound1 = false ) then

            WScript.Echo( "Connection " & chr(34) & con1 & chr(34) & " was not found" )

        end if

        if( bFound2 = false ) then

            WScript.Echo( "Connection " & chr(34) & con2 & chr(34) & " was not found" )

        end if

    end if

end sub

function Initialize()

    DIM bReturn

    bReturn = FALSE

    set NetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1")

    if (IsObject(NetSharingManager)) = FALSE then

        Wscript.Echo("Unable to get the HNetCfg.HnetShare.1 object")

    else

        if (IsNull(NetSharingManager.SharingInstalled) = TRUE) then

            Wscript.Echo("Sharing isn't available on this platform.")

        else

            bReturn = TRUE

        end if

    end if

    Initialize = bReturn

end function

function GetConnectionObjects()

    DIM bReturn

    DIM Item

    bReturn = TRUE

    if GetConnection(CONNECTION_PUBLIC) = FALSE then

        bReturn = FALSE

    end if

    if GetConnection(CONNECTION_PRIVATE) = FALSE then

        bReturn = FALSE

    end if

    if GetConnection(CONNECTION_ALL) = FALSE then

        bReturn = FALSE

    end if

    GetConnectionObjects = bReturn

end function

function GetConnection(CONNECTION_TYPE)

    DIM bReturn

    DIM Connection

    DIM Item

    bReturn = TRUE

    if (CONNECTION_PUBLIC = CONNECTION_TYPE) then

        set Connection = NetSharingManager.EnumPublicConnections(ICSSC_DEFAULT)

        if (Connection.Count > 0) and (Connection.Count < 2) then

            for each Item in Connection

                set PublicConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item)

            next

        else

            bReturn = FALSE

        end if

    elseif (CONNECTION_PRIVATE = CONNECTION_TYPE) then

        set Connection = NetSharingManager.EnumPrivateConnections(ICSSC_DEFAULT)

        if (Connection.Count > 0) and (Connection.Count < 2) then

            for each Item in Connection

                set PrivateConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item)

            next

        else

            bReturn = FALSE

        end if

    elseif (CONNECTION_ALL = CONNECTION_TYPE) then

        set Connection = NetSharingManager.EnumEveryConnection

        if (Connection.Count > 0) then

            set EveryConnectionCollection = Connection

        else

            bReturn = FALSE

        end if

    else

        bReturn = FALSE

    end if

    if (TRUE = bReturn)  then

        if (Connection.Count = 0) then

            Wscript.Echo("No " + CStr(ConvertConnectionTypeToString(CONNECTION_TYPE)) + " connections exist (Connection.Count gave us 0)")

            bReturn = FALSE

        'valid to have more than 1 connection returned from EnumEveryConnection

        elseif (Connection.Count > 1) and (CONNECTION_ALL <> CONNECTION_TYPE) then

            Wscript.Echo("ERROR: There was more than one " + ConvertConnectionTypeToString(CONNECTION_TYPE) + " connection (" + CStr(Connection.Count) + ")")

            bReturn = FALSE

        end if

    end if

    Wscript.Echo(CStr(Connection.Count) + " objects for connection type " + ConvertConnectionTypeToString(CONNECTION_TYPE))

    GetConnection = bReturn

end function

function ConvertConnectionTypeToString(ConnectionID)

    DIM ConnectionString

    if (ConnectionID = CONNECTION_PUBLIC) then

        ConnectionString = "public"

    elseif (ConnectionID = CONNECTION_PRIVATE) then

        ConnectionString = "private"

    elseif (ConnectionID = CONNECTION_ALL) then

        ConnectionString = "all"

    else

        ConnectionString = "Unknown: " + CStr(ConnectionID)

    end if

    ConvertConnectionTypeToString = ConnectionString

end function