(ZT)设置wifi热点的bat脚本 -L
- _韦德1946娱乐(唯一)官方网站|
【CSDN 技术主题月】物联网全栈开发
计算机维护（66）
从网上找了一段bat脚本和一个ics.vbs
如果计算机上有无线网卡, 就可以用下面的脚本来设置wifi热点.
我的台式机上没有无线网卡,
没办法试验下面的脚本. 以后有机会再试验.
@echo off & setlocal EnableDelayedExpansion
color 0e & title Win7无线热点客户端管理程序
set "ismode="
set "isstart="
set "isap=" &
set "apssid="
set "apmac="
set "apip=" &
set "sumclient="
set "clientip="
set "clientmac="
set "clientstate="
set "ipclass="
echo 无线热点信息：
for /f "skip=3 tokens=2 usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do (
if "!ismode!"=="" (
if "%%i"==" 已启用" (set "ismode=true") else (set "ismode=false")
if "%%i"=="" (echo
无线热点模式：不可用) else echo
无线热点模式：%%i
for /f "skip=11 tokens=2 usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do (
if "!isstart!"=="" (
if "%%i"==" 已启动" (set "isstart=true") else (set "isstart=false")
if "%%i"=="" (echo
无线热点状态：不可用) else echo
无线热点状态：%%i
if /i "!isstart!"=="true" (
for /f "skip=4 tokens=1* usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do if "!apssid!"=="" set "apssid=%%j"
无线热点的SSID：!apssid!
for /f "skip=12 tokens=1* usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do if "!apmac!"=="" set "apmac=%%j"
set "apmac=!apmac::=-!" &
无线热点的物理地址：!apmac!
for /f "tokens=1* usebackq delims=:" %%i in (`ipconfig /all`) do (
if /i "%%j"==" !apmac!" set "isap=true" &
if /i "!isap!"=="true" (
set "n=%%i"
if /i "!n:~0,7!"=="
set "apip=%%j"
set "isap=false" &
for /f "delims=(" %%i in ("!apip!") do set "apip=%%i" &
无线热点的IP地址：!apip!
) else echo
未启动无线热点，SSID不可用 & echo
未启动无线热点，IP和物理地址不可用
echo - - - - - -
if /i not "!isstart!"=="true" (echo 未启动无线热点，客户端信息不可用) else (
echo 连接到无线热点上的客户端信息：
for /f "skip=15 tokens=2 usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do (
if "!sumclient!"=="" (
set "sumclient=%%i"
连接到无线热点的客户端总数：!sumclient!
if !sumclient! gtr 0 (
for /f "skip=16 tokens=1,2 usebackq delims= " %%i in (`netsh wlan show hostednetwork`) do (
set "clientmac=%%i"
set "clientmac=!clientmac::=-!" &
set "clientstate=%%j"
for /f "tokens=1,3 usebackq delims= " %%l in (`arp -a -n %apip% ^| find /i "!clientmac!"`) do (
set "clientip=%%l"
set "ipclass=%%m"
!clientstate!
!clientmac!
!clientip!
set /a n+=1
) else echo
当前没有客户端连接到无线热点上
echo - - - - - -
@echo ___________________________________
@echo +++++++++++功能选择++++++++++++++++
1.开启有线共享
2.开启无线共享
3.设置SSID及KEY
4.修改密码KEY
5.显示热点信息
6.退出程序并关闭WIFI
@echo +++++++++++++++++++++++++++++++++++
set /p choice=请选择数字
if %choice%==1 goto a
if %choice%==2 goto b
if %choice%==3 goto c
if %choice%==4 goto d
if %choice%==5 goto Begin
if %choice%==6 goto exit
@echo -_-。sorry！输入错误，请输入有效数字!
goto return
netsh wlan stop hostednetwork
cscript /nologo ics.vbs "!apssid!" "无线网络连接" "off"
cscript /nologo ics.vbs "!apssid!" "本地连接" "on"
netsh wlan start hostednetwork
netsh wlan stop hostednetwork
cscript /nologo ics.vbs "!apssid!" "本地连接" "off"
cscript /nologo ics.vbs "!apssid!" "无线网络连接" "on"
netsh wlan start hostednetwork
@echo 警告：开启Windows 7无线网络需要管理员权限
@echo 请确认是以管理员身份登录Windows！！！
@echo 即将为您开启Windows 7无线网络
@echo 请牢记您输入的无线网络名称(ssid)以及无线网络密码(key)!!!
echo 请输入网络名SSID和密码KEY
echo 请输入共享无线网络名SSID（Enter确认）：
set/p SSID=
echo 请输入密码KEY(长度不少于8位，少于8位将开启失败，Enter确认）：
set/p Password=
netsh wlan set hostednetwork mode=allow ssid=%SSID% key=%Password%
netsh wlan start hostednetwork
@echo ……OK！
goto return
@echo 警告：请牢记您输入的无线网络密码(KEY)!!!
echo 请输入新密码(长度不得少于8位，少于8位将开启失败，Enter确认）：
:PW2 set/p Password=
netsh wlan set hostednetwork mode=allow key=%Password%
netsh wlan start hostednetwork
goto return
goto return
netsh wlan stop hostednetwork
@echo 3秒后程序自动关闭
ping /n 1 /w 3000 1.0.0.1&nul
set "apn=%%i"
set /p choice=选择
if %choice%==Y goto l
if %choice%==y goto l
if %choice%==Y goto m
if %choice%==n goto m
for /f "usebackq tokens=2 delims= " %%i in (`ipconfig /all^|find "无线局域网适配器"`) do (
netsh interface set interface name=!apn! newname=共享无线2
option explicit
sub Main( )
dim objArgs, con, endis,con2
Set objArgs = WScript.Arguments
if objArgs.Count & 0 then
con = objArgs(0)
con2 = objArgs(1)
endis = objArgs(2)
EnableDisableICS con,con2, endis
szMsg = "Invalid usage! Please provide the name of the connection as the argument." & vbCRLF & vbCRLF & _
"Usage:" & vbCRLF & _
" + WScript.scriptname + " ""Public Connection Name"" ""Private Connection Name"" true/false"
WScript.Echo( szMsg )
function EnableDisableICS(sPublicConnectionName, sPrivateConnectionName, bEnable)
bFound = FALSE
dim oNetSharingManager, oConnectionCollection, oItem, EveryConnection, objNCProps
set oNetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1")
if (IsObject(oNetSharingManager)) = FALSE then
Wscript.Echo("Unable to get the HNetCfg.HnetShare.1 object.")
Exit function
if (IsNull(oNetSharingManager.SharingInstalled) = TRUE) then
Wscript.Echo( "Sharing is not available on this platform.")
Exit function
set oConnectionCollection = oNetSharingManager.EnumEveryConnection
for each oItem In oConnectionCollection
set EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection (oItem)
set objNCProps = oNetSharingManager.NetConnectionProps (oItem)
objNCProps.name = sPrivateConnectionName Then
bFound = True
Wscript.Echo("Setting ICS Private to " & bEnable & " on connection: " & objNCProps.name)
If bEnable Then
EveryConnection.EnableSharing (1)
EveryConnection.DisableSharing
set oConnectionCollection = oNetSharingManager.EnumEveryConnection
for each oItem In oConnectionCollection
set EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection (oItem)
set objNCProps = oNetSharingManager.NetConnectionProps (oItem)
objNCProps.name = sPublicConnectionName Then
bFound = True
Wscript.Echo("Setting ICS Public to " & bEnable & " on connection: " & objNCProps.name)
If bEnable Then
EveryConnection.EnableSharing (0)
EveryConnection.DisableSharing
If Not bFound Then
Wscript.Echo("Unable to find the connection " & sPublicConnectionName)
end function
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人，不代表CSDN网站的或立场
(2)(15)(30)(15)(32)(18)(18)(18)(24)(35)(17)(17)(9)(15)(25)(26)(9)(40)(41)(54)(29)(27)(7)(9)(6)(13)(15)(7)(9)(4)(4)(6)(5)(7)(5)(5)(13)(4)(6)(9)(11)(9)(4)(8)(17)(22)(21)(26)(32)(27)(9)(8)(3)(8)(10)(6)(6)(3)(4)(2)(3)(2)(2)(4)(8)(6)(3)(7)(2)(2)(1)(21)(23)(16)(22)(29)(29)(31)(19)(10)(7)(2)(2)(10)(1)计算机维护（66）
从网上找了一段bat脚本和一个ics.vbs
如果计算机上有无线网卡, 就可以用下面的脚本来设置wifi热点.
我的台式机上没有无线网卡,
没办法试验下面的脚本. 以后有机会再试验.
@echo off & setlocal EnableDelayedExpansion
color 0e & title Win7无线热点客户端管理程序
set "ismode="
set "isstart="
set "isap=" &
set "apssid="
set "apmac="
set "apip=" &
set "sumclient="
set "clientip="
set "clientmac="
set "clientstate="
set "ipclass="
echo 无线热点信息：
for /f "skip=3 tokens=2 usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do (
if "!ismode!"=="" (
if "%%i"==" 已启用" (set "ismode=true") else (set "ismode=false")
if "%%i"=="" (echo
无线热点模式：不可用) else echo
无线热点模式：%%i
for /f "skip=11 tokens=2 usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do (
if "!isstart!"=="" (
if "%%i"==" 已启动" (set "isstart=true") else (set "isstart=false")
if "%%i"=="" (echo
无线热点状态：不可用) else echo
无线热点状态：%%i
if /i "!isstart!"=="true" (
for /f "skip=4 tokens=1* usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do if "!apssid!"=="" set "apssid=%%j"
无线热点的SSID：!apssid!
for /f "skip=12 tokens=1* usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do if "!apmac!"=="" set "apmac=%%j"
set "apmac=!apmac::=-!" &
无线热点的物理地址：!apmac!
for /f "tokens=1* usebackq delims=:" %%i in (`ipconfig /all`) do (
if /i "%%j"==" !apmac!" set "isap=true" &
if /i "!isap!"=="true" (
set "n=%%i"
if /i "!n:~0,7!"=="
set "apip=%%j"
set "isap=false" &
for /f "delims=(" %%i in ("!apip!") do set "apip=%%i" &
无线热点的IP地址：!apip!
) else echo
未启动无线热点，SSID不可用 & echo
未启动无线热点，IP和物理地址不可用
echo - - - - - -
if /i not "!isstart!"=="true" (echo 未启动无线热点，客户端信息不可用) else (
echo 连接到无线热点上的客户端信息：
for /f "skip=15 tokens=2 usebackq delims=:" %%i in (`netsh wlan show hostednetwork`) do (
if "!sumclient!"=="" (
set "sumclient=%%i"
连接到无线热点的客户端总数：!sumclient!
if !sumclient! gtr 0 (
for /f "skip=16 tokens=1,2 usebackq delims= " %%i in (`netsh wlan show hostednetwork`) do (
set "clientmac=%%i"
set "clientmac=!clientmac::=-!" &
set "clientstate=%%j"
for /f "tokens=1,3 usebackq delims= " %%l in (`arp -a -n %apip% ^| find /i "!clientmac!"`) do (
set "clientip=%%l"
set "ipclass=%%m"
!clientstate!
!clientmac!
!clientip!
set /a n+=1
) else echo
当前没有客户端连接到无线热点上
echo - - - - - -
@echo ___________________________________
@echo +++++++++++功能选择++++++++++++++++
1.开启有线共享
2.开启无线共享
3.设置SSID及KEY
4.修改密码KEY
5.显示热点信息
6.退出程序并关闭WIFI
@echo +++++++++++++++++++++++++++++++++++
set /p choice=请选择数字
if %choice%==1 goto a
if %choice%==2 goto b
if %choice%==3 goto c
if %choice%==4 goto d
if %choice%==5 goto Begin
if %choice%==6 goto exit
@echo -_-。sorry！输入错误，请输入有效数字!
goto return
netsh wlan stop hostednetwork
cscript /nologo ics.vbs "!apssid!" "无线网络连接" "off"
cscript /nologo ics.vbs "!apssid!" "本地连接" "on"
netsh wlan start hostednetwork
netsh wlan stop hostednetwork
cscript /nologo ics.vbs "!apssid!" "本地连接" "off"
cscript /nologo ics.vbs "!apssid!" "无线网络连接" "on"
netsh wlan start hostednetwork
@echo 警告：开启Windows 7无线网络需要管理员权限
@echo 请确认是以管理员身份登录Windows！！！
@echo 即将为您开启Windows 7无线网络
@echo 请牢记您输入的无线网络名称(ssid)以及无线网络密码(key)!!!
echo 请输入网络名SSID和密码KEY
echo 请输入共享无线网络名SSID（Enter确认）：
set/p SSID=
echo 请输入密码KEY(长度不少于8位，少于8位将开启失败，Enter确认）：
set/p Password=
netsh wlan set hostednetwork mode=allow ssid=%SSID% key=%Password%
netsh wlan start hostednetwork
@echo ……OK！
goto return
@echo 警告：请牢记您输入的无线网络密码(KEY)!!!
echo 请输入新密码(长度不得少于8位，少于8位将开启失败，Enter确认）：
:PW2 set/p Password=
netsh wlan set hostednetwork mode=allow key=%Password%
netsh wlan start hostednetwork
goto return
goto return
netsh wlan stop hostednetwork
@echo 3秒后程序自动关闭
ping /n 1 /w 3000 1.0.0.1&nul
set "apn=%%i"
set /p choice=选择
if %choice%==Y goto l
if %choice%==y goto l
if %choice%==Y goto m
if %choice%==n goto m
for /f "usebackq tokens=2 delims= " %%i in (`ipconfig /all^|find "无线局域网适配器"`) do (
netsh interface set interface name=!apn! newname=共享无线2
option explicit
sub Main( )
dim objArgs, con, endis,con2
Set objArgs = WScript.Arguments
if objArgs.Count & 0 then
con = objArgs(0)
con2 = objArgs(1)
endis = objArgs(2)
EnableDisableICS con,con2, endis
szMsg = "Invalid usage! Please provide the name of the connection as the argument." & vbCRLF & vbCRLF & _
"Usage:" & vbCRLF & _
" + WScript.scriptname + " ""Public Connection Name"" ""Private Connection Name"" true/false"
WScript.Echo( szMsg )
function EnableDisableICS(sPublicConnectionName, sPrivateConnectionName, bEnable)
bFound = FALSE
dim oNetSharingManager, oConnectionCollection, oItem, EveryConnection, objNCProps
set oNetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1")
if (IsObject(oNetSharingManager)) = FALSE then
Wscript.Echo("Unable to get the HNetCfg.HnetShare.1 object.")
Exit function
if (IsNull(oNetSharingManager.SharingInstalled) = TRUE) then
Wscript.Echo( "Sharing is not available on this platform.")
Exit function
set oConnectionCollection = oNetSharingManager.EnumEveryConnection
for each oItem In oConnectionCollection
set EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection (oItem)
set objNCProps = oNetSharingManager.NetConnectionProps (oItem)
objNCProps.name = sPrivateConnectionName Then
bFound = True
Wscript.Echo("Setting ICS Private to " & bEnable & " on connection: " & objNCProps.name)
If bEnable Then
EveryConnection.EnableSharing (1)
EveryConnection.DisableSharing
set oConnectionCollection = oNetSharingManager.EnumEveryConnection
for each oItem In oConnectionCollection
set EveryConnection = oNetSharingManager.INetSharingConfigurationForINetConnection (oItem)
set objNCProps = oNetSharingManager.NetConnectionProps (oItem)
objNCProps.name = sPublicConnectionName Then
bFound = True
Wscript.Echo("Setting ICS Public to " & bEnable & " on connection: " & objNCProps.name)
If bEnable Then
EveryConnection.EnableSharing (0)
EveryConnection.DisableSharing
If Not bFound Then
Wscript.Echo("Unable to find the connection " & sPublicConnectionName)
end function
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
(2)(15)(30)(15)(32)(18)(18)(18)(24)(35)(17)(17)(9)(15)(25)(26)(9)(40)(41)(54)(29)(27)(7)(9)(6)(13)(15)(7)(9)(4)(4)(6)(5)(7)(5)(5)(13)(4)(6)(9)(11)(9)(4)(8)(17)(22)(21)(26)(32)(27)(9)(8)(3)(8)(10)(6)(6)(3)(4)(2)(3)(2)(2)(4)(8)(6)(3)(7)(2)(2)(1)(21)(23)(16)(22)(29)(29)(31)(19)(10)(7)(2)(2)(10)(1)下次自动登录
现在的位置:
& 综合 & 正文
WifiBuilder – ics.vbs 网卡共享脚本
文件说明，用于达到网络连接共享目的的脚本。
命令说明：
cscript /nologo %~dp0\ics.vbs "无线网络连接" "本地连接" "off"
三个参数分别为，供别人连接的网卡名字、提供共享的网卡名称、开启(on)或关闭(off)
'cscript /nologo %~dp0\ics.vbs "无线网络连接" "本地连接" "off"
'三个参数分别为，供别人连接的网卡名字、提供共享的网卡名称、开启(on)或关闭(off)
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
CONNECTION_PUBLIC
CONNECTION_PRIVATE
CONNECTION_ALL
sub Main( )
Set objArgs = WScript.Arguments
if objArgs.Count = 3 then
priv_con = objArgs(0)'内网连接名
publ_con = objArgs(1)'外网连接名
switch = objArgs(2)'状态切换开关 on 为 打开ics
if Initialize() = TRUE then
GetConnectionObjects()
FirewallTestByName priv_con,publ_con
if Initialize() = TRUE then
GetConnectionObjects()
FirewallTestByName "list","list"
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)
sub FirewallTestByName(con1,con2)
on error resume next
DIM EveryConnection
DIM objNCProps
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 & _
& 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)
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
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
WScript.Echo(szMsg & vbCRLF & vbCRLF)
if( con1 && "list" ) then
if( bFound1 = false ) then
WScript.Echo( "Connection " & chr(34) & con1 & chr(34) & " was not found" )
if( bFound2 = false ) then
WScript.Echo( "Connection " & chr(34) & con2 & chr(34) & " was not found" )
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")
if (IsNull(NetSharingManager.SharingInstalled) = TRUE) then
Wscript.Echo("Sharing isn't available on this platform.")
bReturn = TRUE
Initialize = bReturn
end function
function GetConnectionObjects()
DIM bReturn
bReturn = TRUE
if GetConnection(CONNECTION_PUBLIC) = FALSE then
bReturn = FALSE
if GetConnection(CONNECTION_PRIVATE) = FALSE then
bReturn = FALSE
if GetConnection(CONNECTION_ALL) = FALSE then
bReturn = FALSE
GetConnectionObjects = bReturn
end function
function GetConnection(CONNECTION_TYPE)
DIM bReturn
DIM Connection
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)
bReturn = FALSE
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)
bReturn = FALSE
elseif (CONNECTION_ALL = CONNECTION_TYPE) then
set Connection = NetSharingManager.EnumEveryConnection
if (Connection.Count & 0) then
set EveryConnectionCollection = Connection
bReturn = FALSE
bReturn = FALSE
if (TRUE = bReturn)
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
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"
ConnectionString = "Unknown: " + CStr(ConnectionID)
ConvertConnectionTypeToString = ConnectionString
end function
&&&&推荐文章:
【上篇】【下篇】