谁会写个VBS脚本批量获取URL地址源代码内容

Dim fso,ts,s

set WshShell = WScriptCreateObject("WScriptShell") 

Set fso = CreateObject("ScriptingFileSystemObject")

Set ts = fsoOpenTextFile("D:\urltxt" , 1)  'urltxt 放在 D盘

Do Until tsAtEndOfStream

s = tsReadLine

if len(s) > 1 then  '非空行

'msgbox s

url_tmp = Trim(s)  '去两端空格

'msgbox url_tmp

date_str = get_url(url_tmp)

'msgbox date_str

export_str url_tmp & " " & date_str & chr(13) & chr(10)

end if

loop

tsClose

set WshShell = nothing

set fso = nothing

set ts = nothing

msgbox "运行结束!"

Function get_url(url)

Dim >

参考：

如何自动统计Windows已安装软件清单_百度知道

wmic运行比较慢，等10分钟左右很正常，耐心等结果就行。用里面介绍的软件会快一些。

以上就是关于谁会写个VBS脚本批量获取URL地址源代码内容全部的内容，包括:谁会写个VBS脚本批量获取URL地址源代码内容、用powershell ise 向 vbs脚本中传递多个文件路径后生成一个压缩包，怎么弄、域环境下如何用批处理或vbs脚本获取电脑系统版本、安装软件、硬件等，生成excel或TXT输出到共享路径下等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！