Board logo

标题: [网络连接] 求助把这2个自动连接对应WIFI的bat合并到一个 [打印本页]
作者: xiyimood    时间: 2022-1-25 11:32     标题: 求助把这2个自动连接对应WIFI的bat合并到一个

这是用来封装系统进入桌面时自动连接对应WIFI的，我们这 有2个WIFI，想自动保存到WIFI连接列表，求高手合并，虽然分别运行也是可以的，但还是想用一个做到，谢谢
  1. @echo off

  2. powershell -c "Get-Content -LiteralPath '%~0' | Select-Object -Skip 3 | Out-String | Invoke-Expression" 

  3. pause&goto b_bat

  4. $wifiName="WIFI1"; # WIFI NAME

  5. $wifiKey="88888888"; # WIFI PASSWORD

  6. $xml_Template=@"

  7. <?xml version="1.0"?>

  8. <WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">

  9. 	<name>WIFI_NAME</name>

  10. 	<SSIDConfig>

  11. 		<SSID>

  12. 			<hex>WIFI_NAME_HEX</hex>

  13. 			<name>WIFI_NAME</name>

  14. 		</SSID>

  15. 	</SSIDConfig>

  16. 	<connectionType>ESS</connectionType>

  17. 	<connectionMode>manual</connectionMode>

  18. 	<MSM>

  19. 		<security>

  20. 			<authEncryption>

  21. 				<authentication>WPA2PSK</authentication>

  22. 				<encryption>AES</encryption>

  23. 				<useOneX>false</useOneX>

  24. 			</authEncryption>

  25. 			<sharedKey>

  26. 				<keyType>passPhrase</keyType>

  27. 				<protected>false</protected>

  28. 				<keyMaterial>WIFI_KEY</keyMaterial>

  29. 			</sharedKey>

  30. 		</security>

  31. 	</MSM>

  32. 	<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">

  33. 		<enableRandomization>false</enableRandomization>

  34. 		<randomizationSeed>634562794</randomizationSeed>

  35. 	</MacRandomization>

  36. </WLANProfile>

  37. "@

  38. $wifiNameHex="";

  39. foreach ($each in [System.Text.Encoding]::UTF8.GetBytes($wifiName)) { $wifiNameHex+=("{0:x}" -f $each).ToUpper();}

  40. $xmlFile="WLAN-{0}.xml" -f $wifiName

  41. $xml=$xml_Template -replace "WIFI_NAME_HEX",$wifiNameHex -replace "WIFI_NAME",$wifiName -replace "WIFI_KEY",$wifiKey

  42. $xml | Out-File $xmlFile -Encoding utf8 

  43. netsh wlan delete profile $wifiName 2>$null

  44. netsh wlan add profile $xmlFile 

  45. netsh wlan connect $wifiName

  46. Remove-Item -LiteralPath $xmlFile
复制代码
  1. @echo off

  2. powershell -c "Get-Content -LiteralPath '%~0' | Select-Object -Skip 3 | Out-String | Invoke-Expression" 

  3. pause&exit

  4. $wifiName="WIFI2"; # WIFI NAME

  5. $wifiKey="88888888"; # WIFI PASSWORD

  6. $xml_Template=@"

  7. <?xml version="1.0"?>

  8. <WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">

  9. 	<name>WIFI_NAME</name>

  10. 	<SSIDConfig>

  11. 		<SSID>

  12. 			<hex>WIFI_NAME_HEX</hex>

  13. 			<name>WIFI_NAME</name>

  14. 		</SSID>

  15. 	</SSIDConfig>

  16. 	<connectionType>ESS</connectionType>

  17. 	<connectionMode>manual</connectionMode>

  18. 	<MSM>

  19. 		<security>

  20. 			<authEncryption>

  21. 				<authentication>WPA2PSK</authentication>

  22. 				<encryption>AES</encryption>

  23. 				<useOneX>false</useOneX>

  24. 			</authEncryption>

  25. 			<sharedKey>

  26. 				<keyType>passPhrase</keyType>

  27. 				<protected>false</protected>

  28. 				<keyMaterial>WIFI_KEY</keyMaterial>

  29. 			</sharedKey>

  30. 		</security>

  31. 	</MSM>

  32. 	<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">

  33. 		<enableRandomization>false</enableRandomization>

  34. 		<randomizationSeed>634562794</randomizationSeed>

  35. 	</MacRandomization>

  36. </WLANProfile>

  37. "@

  38. $wifiNameHex="";

  39. foreach ($each in [System.Text.Encoding]::UTF8.GetBytes($wifiName)) { $wifiNameHex+=("{0:x}" -f $each).ToUpper();}

  40. $xmlFile="WLAN-{0}.xml" -f $wifiName

  41. $xml=$xml_Template -replace "WIFI_NAME_HEX",$wifiNameHex -replace "WIFI_NAME",$wifiName -replace "WIFI_KEY",$wifiKey

  42. $xml | Out-File $xmlFile -Encoding utf8 

  43. netsh wlan delete profile $wifiName 2>$null

  44. netsh wlan add profile $xmlFile 

  45. netsh wlan connect $wifiName

  46. Remove-Item -LiteralPath $xmlFile
复制代码
作者: yakeyun    时间: 2022-1-25 13:30

本帖最后由 yakeyun 于 2022-1-26 17:08 编辑

回复 1# xiyimood


效果自测：
  1. @echo off

  2. powershell -c "Get-Content -LiteralPath '%~0' | Select-Object -Skip 3 | Out-String | Invoke-Expression" 

  3. pause & goto b_bat

  4. $wifiName="WIFI1"; # WIFI NAME

  5. $wifiKey="88888888"; # WIFI PASSWORD

  6. $xml_Template=@"

  7. <?xml version="1.0"?>

  8. <WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">

  9. 	<name>WIFI_NAME</name>

  10. 	<SSIDConfig>

  11. 		<SSID>

  12. 			<hex>WIFI_NAME_HEX</hex>

  13. 			<name>WIFI_NAME</name>

  14. 		</SSID>

  15. 	</SSIDConfig>

  16. 	<connectionType>ESS</connectionType>

  17. 	<connectionMode>manual</connectionMode>

  18. 	<MSM>

  19. 		<security>

  20. 			<authEncryption>

  21. 				<authentication>WPA2PSK</authentication>

  22. 				<encryption>AES</encryption>

  23. 				<useOneX>false</useOneX>

  24. 			</authEncryption>

  25. 			<sharedKey>

  26. 				<keyType>passPhrase</keyType>

  27. 				<protected>false</protected>

  28. 				<keyMaterial>WIFI_KEY</keyMaterial>

  29. 			</sharedKey>

  30. 		</security>

  31. 	</MSM>

  32. 	<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">

  33. 		<enableRandomization>false</enableRandomization>

  34. 		<randomizationSeed>634562794</randomizationSeed>

  35. 	</MacRandomization>

  36. </WLANProfile>

  37. "@

  38. $wifiNameHex="";

  39. foreach ($each in [System.Text.Encoding]::UTF8.GetBytes($wifiName)) { $wifiNameHex+=("{0:x}" -f $each).ToUpper();}

  40. $xmlFile="WLAN-{0}.xml" -f $wifiName

  41. $xml=$xml_Template -replace "WIFI_NAME_HEX",$wifiNameHex -replace "WIFI_NAME",$wifiName -replace "WIFI_KEY",$wifiKey

  42. $xml | Out-File $xmlFile -Encoding utf8 

  43. netsh wlan delete profile $wifiName 2>$null

  44. netsh wlan add profile $xmlFile 

  45. netsh wlan connect $wifiName

  46. Remove-Item -LiteralPath $xmlFile

  47. 

  48. ::Ping网络状态

  49. choice /t 10 /d y /n >nul

  50. ping -n 3 www.baidu.com >nul

  51. IF ERRORLEVEL 1 (goto WIFI2)

  52. IF ERRORLEVEL 0 (goto End)

  53. 

  54. :WIFI2

  55. powershell -c "Get-Content -LiteralPath '%~0' | Select-Object -Skip 3 | Out-String | Invoke-Expression" 

  56. pause & exit /b

  57. $wifiName="WIFI2"; # WIFI NAME

  58. $wifiKey="88888888"; # WIFI PASSWORD

  59. $xml_Template=@"

  60. <?xml version="1.0"?>

  61. <WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">

  62. 	<name>WIFI_NAME</name>

  63. 	<SSIDConfig>

  64. 		<SSID>

  65. 			<hex>WIFI_NAME_HEX</hex>

  66. 			<name>WIFI_NAME</name>

  67. 		</SSID>

  68. 	</SSIDConfig>

  69. 	<connectionType>ESS</connectionType>

  70. 	<connectionMode>manual</connectionMode>

  71. 	<MSM>

  72. 		<security>

  73. 			<authEncryption>

  74. 				<authentication>WPA2PSK</authentication>

  75. 				<encryption>AES</encryption>

  76. 				<useOneX>false</useOneX>

  77. 			</authEncryption>

  78. 			<sharedKey>

  79. 				<keyType>passPhrase</keyType>

  80. 				<protected>false</protected>

  81. 				<keyMaterial>WIFI_KEY</keyMaterial>

  82. 			</sharedKey>

  83. 		</security>

  84. 	</MSM>

  85. 	<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">

  86. 		<enableRandomization>false</enableRandomization>

  87. 		<randomizationSeed>634562794</randomizationSeed>

  88. 	</MacRandomization>

  89. </WLANProfile>

  90. "@

  91. $wifiNameHex="";

  92. foreach ($each in [System.Text.Encoding]::UTF8.GetBytes($wifiName)) { $wifiNameHex+=("{0:x}" -f $each).ToUpper();}

  93. $xmlFile="WLAN-{0}.xml" -f $wifiName

  94. $xml=$xml_Template -replace "WIFI_NAME_HEX",$wifiNameHex -replace "WIFI_NAME",$wifiName -replace "WIFI_KEY",$wifiKey

  95. $xml | Out-File $xmlFile -Encoding utf8 

  96. netsh wlan delete profile $wifiName 2>$null

  97. netsh wlan add profile $xmlFile 

  98. netsh wlan connect $wifiName

  99. Remove-Item -LiteralPath $xmlFile

  100. 

  101. :End

  102. exit /b
复制代码
作者: xiyimood    时间: 2022-1-25 14:40

回复 2# yakeyun


    谢谢大神，没有成功
  1. Invoke-Expression : 所在位置 行:48 字符: 3

  2. + IF ERRORLEVEL 1 goto WIFI2

  3. +   ~

  4. if 语句中的“IF”后面缺少“(”。

  5. 所在位置 行:49 字符: 3

  6. + IF ERRORLEVEL 0 exit

  7. +   ~

  8. if 语句中的“IF”后面缺少“(”。

  9. 所在位置 行:53 字符: 6

  10. + pause&exit

  11. +      ~

  12. 不允许使用与号(&)。& 运算符是为将来使用而保留的；请用双引号将与号引起来("&")，以将其作为字符串的一部分传递。

  13. 所在位置 行:1 字符: 96

  14. + ... 装部署文件\c.bat' | Select-Object -Skip 3 | Out-String | Invoke-Expression

  15. +                                                         ~~~~~~~~~~~~~~~~~

  16.     + CategoryInfo          : ParserError: (:) [Invoke-Expression], ParseException

  17.     + FullyQualifiedErrorId : MissingOpenParenthesisInIfStatement,Microsoft.PowerShell.Commands.InvokeExpressionComman

  18.    d

  19. 

  20. 请按任意键继续. . .
复制代码
作者: xiyimood    时间: 2022-1-25 14:41

回复  yakeyun


    谢谢大神，没有成功
xiyimood 发表于 2022-1-25 14:40



    c.bat是我保存你的代码文件
作者: went    时间: 2022-1-25 15:14

本帖最后由 went 于 2022-1-26 20:39 编辑

47，49行自己改下
test.bat, ansi编码
  1. #&cls&@cd /d "%~dp0" & powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" &pause&exit

  2. $xml_Template=@'

  3. <?xml version="1.0"?>

  4. <WLANProfile xmlns="http://www.microsoft.com/networking/WLAN/profile/v1">

  5. 	<name>WIFI_NAME</name>

  6. 	<SSIDConfig>

  7. 		<SSID>

  8. 			<hex>WIFI_NAME_HEX</hex>

  9. 			<name>WIFI_NAME</name>

  10. 		</SSID>

  11. 	</SSIDConfig>

  12. 	<connectionType>ESS</connectionType>

  13. 	<connectionMode>manual</connectionMode>

  14. 	<MSM>

  15. 		<security>

  16. 			<authEncryption>

  17. 				<authentication>WPA2PSK</authentication>

  18. 				<encryption>AES</encryption>

  19. 				<useOneX>false</useOneX>

  20. 			</authEncryption>

  21. 			<sharedKey>

  22. 				<keyType>passPhrase</keyType>

  23. 				<protected>false</protected>

  24. 				<keyMaterial>WIFI_KEY</keyMaterial>

  25. 			</sharedKey>

  26. 		</security>

  27. 	</MSM>

  28. 	<MacRandomization xmlns="http://www.microsoft.com/networking/WLAN/profile/v3">

  29. 		<enableRandomization>false</enableRandomization>

  30. 		<randomizationSeed>634562794</randomizationSeed>

  31. 	</MacRandomization>

  32. </WLANProfile>

  33. '@

  34. #函数 更新或添加一个wifi配置

  35. function Add-WifiConfig($wifiName,$wifiKey,[switch]$connect){

  36. 	$wifiNameHex="";

  37. 	foreach ($each in [System.Text.Encoding]::UTF8.GetBytes($wifiName)) { $wifiNameHex+=("{0:x}" -f $each).ToUpper();}

  38. 	$xmlFile="WLAN-{0}.xml" -f $wifiName

  39. 	$xml=$xml_Template -replace "WIFI_NAME_HEX",$wifiNameHex -replace "WIFI_NAME",$wifiName -replace "WIFI_KEY",$wifiKey

  40. 	$xml | Out-File $xmlFile -Encoding utf8 

  41. 	netsh wlan delete profile $wifiName >$null 2>$null

  42. 	netsh wlan add profile $xmlFile 

  43. 	if($connect){ netsh wlan connect $wifiName }

  44. 	Remove-Item -LiteralPath $xmlFile

  45. }

  46. 

  47. Add-WifiConfig -wifiName 'TP-LINK_0AE2' -wifiKey 'LLLL1234' -connect

  48. 

  49. Add-WifiConfig -wifiName 'TP-LINK_5G_0AE2' -wifiKey 'LLLL1234'
复制代码
作者: yakeyun    时间: 2022-1-25 16:21

本帖最后由 yakeyun 于 2022-1-25 16:24 编辑

回复 3# xiyimood


已经修改，再试下看看。批处理中只有包含了中文，才能另存为ansi编码。
当检测到第一个WIFI连接，延时10秒，网络畅通就退出，网络不通就尝试连接第二个WIFI。IP分配延时时间，可以根据实际自测速度调整，一般5秒以内就可以正常连接上。
作者: xiyimood    时间: 2022-1-26 14:33

回复 6# yakeyun


   你好，您是在原回复上改的吗，我试了还不行
  1. Invoke-Expression : 所在位置 行:48 字符: 3

  2. + IF ERRORLEVEL 1 goto WIFI2

  3. +   ~

  4. if 语句中的“IF”后面缺少“(”。

  5. 所在位置 行:49 字符: 3

  6. + IF ERRORLEVEL 0 goto End

  7. +   ~

  8. if 语句中的“IF”后面缺少“(”。

  9. 所在位置 行:53 字符: 6

  10. + pause&exit

  11. +      ~

  12. 不允许使用与号(&)。& 运算符是为将来使用而保留的；请用双引号将与号引起来("&")，以将其作为字符串的一部分传递。

  13. 所在位置 行:1 字符: 108

  14. + ... sktop\1.bat' | Select-Object -Skip 3 | Out-String | Invoke-Expression

  15. +                                                         ~~~~~~~~~~~~~~~~~

  16.     + CategoryInfo          : ParserError: (:) [Invoke-Expression], ParseException

  17.     + FullyQualifiedErrorId : MissingOpenParenthesisInIfStatement,Microsoft.PowerShell.Commands.InvokeExpressionComman

  18.    d

  19. 

  20. 请按任意键继续. . .
复制代码
作者: xiyimood    时间: 2022-1-26 14:35

回复 5# went


    哥，你这确实是可以，但只是加入记忆，可以让它主动连接第一个wifi吗
  1. 已将配置文件 GDPR-office 添加到接口 WLAN。

  2. 已成功完成连接请求。

  3. 已将配置文件 CSGX2 添加到接口 WLAN。

  4. 已成功完成连接请求。

  5. 请按任意键继续. . .
复制代码
作者: yakeyun    时间: 2022-1-26 17:09

回复 7# xiyimood


原代码基础上修改，可以再试下看看。
作者: went    时间: 2022-1-26 20:43

回复 8# xiyimood
需要连接哪个wifi,就加上-connect选项,详见5楼
作者: xiyimood    时间: 2022-1-27 17:50

回复 10# went


    加了 -connect不知为啥也没自动连接，自动连接没打勾
作者: went    时间: 2022-1-27 20:39

回复 11# xiyimood


    我这里可以自动连接，你那边不清楚
作者: xiyimood    时间: 2022-1-28 10:46

回复 12# went


    感谢，实在没自动连接手动点一下也行，已经很不错了



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2