бльо... пиши на delphi... что это еще за мего-батнег?

что за херня erase? del /Q, чувак

это что такое? пингуй и сразу парси find'ом (ping айпи | find "то что надо найти")
что за find /i ??? /I это поиск без регистра. где ты ищешь?

бльо.... ну почитай сначала хелпы по коммандам, потом организуй каждую команду по отдельности, погляди как чо делает =\