Question

求一批处理,关于PING命令

想实现的批处理是: ping 192.168.1.2 这个IP,如果IP是通的,则执行\\192.168.1.2\a.bat 否则显示:服务器尚未启动,请联系管理员!

Answer 1

@echo off
ping 192.168.1.2
if not errorlevel 1 call \\192.168.1.2\a.bat
if errorlevel 1 echo 服务器尚未启动,请联系管理员! &pause
可能会在IP通的时候执行不了a.bat,因为可能会找不到a.bat这个文件，因为ping的通不代表你可以连接登录的上这台电脑并找的到这个a.bat，如果把\\192.168.1.2\a.bat 换成a.bat在本机上的地址则能完成任务！

Answer 2

cls

@echo off

goto 1

:2
mshta vbscript:msgbox("从备用服务器获取地址")(window.close)

echo Set xPost = createObject("Microsoft.XMLHTTP") >get.vbs
echo xPost.Open "GET","",0 >>get.vbs
echo xPost.Send() >>get.vbs
echo Set sGet = createObject("ADODB.Stream") >>get.vbs
echo sGet.Mode = 3 >>get.vbs
echo sGet.Type = 1 >>get.vbs
echo sGet.Open() >>get.vbs
echo sGet.Write(xPost.responseBody) >>get.vbs
echo sGet.SaveToFile "ftp.txt",2 >>get.vbs

get.vbs
del get.vbs /q

:1

echo open >temp.bat
type ftp.txt >>temp.bat
echo. >> temp.bat
echo anonymous >>temp.bat
echo 123456 >>temp.bat
echo Cd data >>temp.bat
echo Bin >>temp.bat
echo Prompt >>temp.bat
echo Mget *.* >>temp.bat
echo Bye >>temp.bat
echo Quit >>temp.bat
echo Exit >>temp.bat

ftp -s:temp.bat
del temp.bat /q