Question

vbs写入打开txt中的网址，如果成功就写入一个“网址+卡开成功"的记录到另一个txt，求大神帮助~~

目前写成一个这样的，可以把sleep那里写成插入记录吗？还有现在老报错"第8行系统找不到指定文件"啥的，要哭了，，，实在是没什么积分请大神看看，感激不尽~
set fso = createobject("scripting.filesystemobject")
set urlfile = fso.opentextfile("F:\健康检查\IIS.txt")
url = urlfile.readall
urlfile.close
url = split(url,vbcrlf)
set ws = createobject("wscript.shell")
for each u in url
ws.run u
wscript.sleep 1000*5
next
如果打不开或者报啥错就写入“失败”
IIS.txt
里面是
http:// bjzh-fs /image /web.config
http:// bys-fs /image /web.config
http:// cc-fs /image /web.config
http:// cd-fs /image /web.config
输出可以在同一个文件夹
http:// bjzh-fs /image /web.config 成功
http:// bys-fs /image /web.config 成功
http:// cc-fs /image /web.config 失败

Answer 1

Dim fso,WS
Set fso=CreateObject("Scripting.FileSystemObject")
Set WS=Wscript.CreateObject("Wscript.Shell")
i=0
Dim s(100)
Set urlfile = fso.OpenTextFile("F:\健康检查\IIS.txt",1)
url = urlfile.ReadAll
urlfile.Close
url = Split(url,vbcrlf)
For each u in url
	Set tmp = fso.CreateTextFile("F:\健康检查\tmp_1",True)
	Wscript.Sleep 1000
	tmp.WriteLine u
	tmp.Close
	check()
	Set ans = fso.OpenTextFile("F:\健康检查\tmp_2",1)
	s(i)=ans.ReadAll
	ans.Close
	i=i+1
next
Set res = fso.CreateTextFile("F:\健康检查\IIS_ANS.txt",True)
For j= 0 To i-1
	res.WriteLine s(i)
Next
res.Close
Wscript.Quit

Function check()
	WS.Run "cmd /c check.bat",vbhide
	Wscript.Sleep 5000
End Function

以上内容复制保存为“文件名.vbs”

@echo off
:panduan
set /p url=<F:\健康检查\tmp_1
ping %url%>nul 2>nul&&goto tongchang
goto duanwang

:tongchang
echo %url%成功>F:\健康检查\tmp_2
del tmp_1
exit /b 0

:duanwang
echo %url%失败>F:\健康检查\tmp_2
del tmp_1
exit /b 0

以上内容复制保存为“check.bat”和“文件名.vbs”放在同一目录！

追问

非常谢谢您呀，不过运行的时候出现报错了，怎么办？~~o(>_<)o ~~求救
说行13字符2无效的过程调用或参数，800A0005

追答

不太清楚，我这里运行良好。主要是后面bat的代码，作用是读取“tmp_1”文本文件中的第一行内容作为网址检测，能够访问就在“tmp_2”文本文件中写入网址加上“成功”；不能访问就写入网址加上“失败”，然后删除“tmp_1”文件。根据这个写个vbs现读取IIS.txt的全部内容再依次一行行的创建包含单个网址的“tmp_1”文本文件，每创建一个运行一下bat，再收集“tmp_2”中的结果，等所有的网址都测试完成之后再统一写入另一个文本文件。整体就是这么个流程。
关于文件路径：如果都是在同一目录下就可以直接写文件名称。

追问

还是没搞定啊，还是谢谢你了^_^

Answer 2