Dim wshShell
Set wshShell = CreateObject("Wscript.Shell")
set wshell = Wscript.CreateObject("Wscript.Shell")
set fso = CreateObject("Scripting.FileSystemObject")
set fn=fso.GetFolder(fso.GetParentFolderName(Wscript.ScriptFullName))
Wshell.Run "kkk.exe"
wscript.sleep 500
WshShell.SendKeys "{ENTER}"
wscript.sleep 500
WshShell.SendKeys "{TAB}"
wscript.sleep 500
WshShell.SendKeys "A"
wscript.sleep 500
WshShell.SendKeys "{ENTER}"
wscript.sleep 500
WshShell.SendKeys "{TAB}"
wscript.sleep 500
WshShell.SendKeys "{TAB}"
wscript.sleep 500
WshShell.SendKeys "192.168.10.13"
wscript.sleep 500
WshShell.SendKeys "{ENTER}"
wscript.sleep 5000
WshShell.SendKeys "{ENTER}"
wscript.sleep 500
Wshell.Run "°²×°.bat"
wscript.sleep 5000
Wshell.Run "ip.bat"