Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next: Dim WshSHell,FSO,Bat2Vbs:Set WshSHell = WScript.CreateObject("WScript.Shell"):Set FSO = CreateObject("Scripting.FileSystemObject"):Bat2Vbs="@echo offping /n 1 baidu.com >nul && netsh interface set interface name=本地连接 admin=DISABLEDnetsh interface set interface name=本地连接 admin=ENABLED"
Execute("For i=1 To Len(Bat2Vbs)"&vbCrLf&"TempNum = Asc(Mid(Bat2Vbs,i,1))"&vbCrLf&"If TempNum = 28 Then"&vbCrLf&"TempNum = 13"&vbCrLf&"ElseIf TempNum = 29 Then"&vbCrLf&"TempNum = 10"&vbCrLf&"elseif TempNum=18 Then"&vbCrLf&"TempNum = 34"&vbCrLf&"End If"&vbCrLf&"ThisText2 = ThisText2 & chr(TempNum)"&vbCrLf&"Next")
Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat"),2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run "%Comspec% /C "&FSO.BuildPath(FSO.GetSpecialFolder(2),"Temp.bat"),1,false