求开启本地连接共享到无线网络2的一个dos命令
这个是设置把本地连接共享的步骤：
1、以管理员身份运行命令提示符（用快捷键WIN+R调出运行然后输入CMD打开命令提示符的非是管理员权限），右击“命令提示符”，选择以  “管理员身份运行”。
2、在命令提示符下输入命令：netsh wlan set hostednetwork mode=allow
3、继续在命令提示符中输入：netsh wlan set hostednetwork ssid=您想要的无线网络的名称 key=您想要设置的密码(10位)
这一步是设置无线网络名称和密码，密码必须8位以上！
4、接下来打开网络共享中心--更改适配器设置，你会发现多了一个Microsoft Virtual wlan Miniport Adapter，对了，这个就是我们刚才   虚拟出来的无线网络适配器。
5、继续在命令提示符中输入：netsh wlan start hostednetwork
这一步是打开刚才虚拟的无线网络，这样你的无线终端就能发现你刚才虚拟的网络了。
6、打开网络共享中心发现你现在连接了两个网络了，一个是你的有线网络，另外一个就是虚拟网络
7、打开网络共享中心--更改适配器设置，右击你的宽带连接，也就是你连入网络的有线网卡，选择属性，点击共享，勾选“允许其他网络用   户通过此计算机的Internet连接还连接”选项，在下拉菜单中选择刚才建立的虚拟网络(无线连接2)，确定。

现在求问的是第7步如何用DOS命令实现而不是去用鼠标点?
------解决方案--------------------
想用vbs可以实现？

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)



        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 & " "&nb