xml 格式:
<?xml version="1.0" encoding="UTF-8"?>
<STD-Disks>
<DocumentProperties>
<AuthorID>csadop</AuthorID>
<Created>2009-10-30 9:14:35</Created>
<RegisteredOwner>HJTC</RegisteredOwner>
<RegisteredOrganization>HJTC</RegisteredOrganization>
<Computer>C01VPC00001</Computer>
<ExportTool>DameWare Exporter</ExportTool>
<Version>1.0</Version>
</DocumentProperties>
<Disks>
<Source>
<ServerName>c01pc00396</ServerName>
<ServerDomainName>HJTC</ServerDomainName>
<ServerType>WS SRV NT PBR</ServerType>
<ServerFlags>69635</ServerFlags>
<ServerOSVersion>5.0</ServerOSVersion>
<ServerComment/>
<Disk>
<Drive>C:</Drive>
<Format>NTFS</Format>
<Size>19,921,794,906</Size>
<Free>282,736,632</Free>
<Used>19,638,627,264</Used>
<PercentFree>1.42</PercentFree>
<PercentUsed>98.58</PercentUsed>
<VolumeName/>
<SerialNumber>1CF7-111B</SerialNumber>
</Disk>
<Disk>
<Drive>D:</Drive>
<Format>NTFS</Format>
<Size>20,094,528,176</Size>
<Free>4,582,526,800</Free>
<Used>15,511,568,972</Used>
<PercentFree>22.81</PercentFree>
<PercentUsed>77.19</PercentUsed>
<VolumeName>新加卷</VolumeName>
<SerialNumber>3412-1F4D</SerialNumber>
</Disk>
</Source>
</Disks>
</STD-Disks>
VBS解析程序:
option explicit
dim fpath,fso,logfile,fwrite
fpath=inputbox ("输入目标文件夹","文件处理器")
logfile="AnalyzeComputer.csv"
set fso=createobject("scripting.filesystemobject")
Set fwrite=fso.opentextfile(logfile,8,true)
getfilename fpath
fwrite.close
Set fso=Nothing
MsgBox "命令执行完成!"
function getfilename(path)
dim file,folder,sfolder,fname,subfolder,Files
if not fso.folderexists(path) then
set fso=nothing
msgbox "目标文件夹不存在!"
exit function
end if
set folder=fso.getfolder(path)
set files=folder.files
fwrite.writeline "ServerName,Drive,Size,Free,Used,PercentFree,PercentUsed"
for each file in Files
'fwrite.writeline path&"\"&file.name
readXml path&"\"&file.name
Next
end Function
Function readXml(filename)
Dim xmlDOC,objNodeList,plot,x,ServerName
Set xmlDOC =CreateObject("MSXML.DOMDocument")
xmlDoc.load filename
Set objNodeList = xmlDoc.getElementsByTagName("ServerName")
If objNodeList.length > 0 then
For each x in objNodeList
ServerName=x.Text
Next
End If
Set objNodeList = xmlDoc.getElementsByTagName("Disk")
If objNodeList.length > 0 then
For each x in objNodeList
plot=replace(x.Text,",","")
plot=parseDisk(plot)
fwrite.writeline ServerName & "," & plot
Next
End If
End Function
Function parseDisk(disk)
'C: NTFS 19921794906 282736632 19638627264 1.42 98.58 1CF7-111B
'array_str=split(input_str,"||")
Dim Drive,Size,Free,Used,PercentFree,PercentUsed,temp
temp = split(disk," ")
If UBound(temp)>3 Then
Drive = temp(0)
Size = temp(2)
Free = temp(3)
Used = temp(4)
PercentFree = temp(5)
PercentUsed = temp(6)
Else
Drive = temp(0)
Size = ""
Free = ""
Used = ""
PercentFree = ""
PercentUsed = ""
End If
parseDisk=Drive & "," & Size & "," & Free & "," & Used & "," & PercentFree & "," & PercentUsed
End Function
分享到:
相关推荐
本文介绍了vbs类如何生成xml文件。
VB解析Json转换为Xml。内有详细使用代码例子
扫描指定路径,并生成文本形式的文件树结构,可以选择遍历文件,可以扫描网络共享文件夹
DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本DB自动生成用vbs脚本
绝对不错的工具书~~大全html.js.css.vbs.xml
VBS 生成文件 MD5 VBS 生成文件 MD5 VBS 生成文件 MD5 VBS 生成文件 MD5 VBS 生成文件 MD5
VBS随机生成密码的一段小程序可以选择数字、大小写字母、字符、长度
使用说明 下载并解压后无需安装直接使用即可将写好的vbs脚本生成可执行文件.exe
从XML文件中获取信息的vbs代码,这个脚本演示了如何通过MSXML从一个XML文件中的信息。示例XML文件是用于在网站上的相册。此脚本将返回特定图片的标题。
一个小型简易的随机二维码生成器 设备需求: windows系统 64位系统 电脑能上网
vbs脚本, 生成磁盘文件列表, 用到堆栈的算法.
本文作为一个例子,可以给您演示如何通过VBS脚本来绘制PS,可自己修改实现自己的需求
昨天说了下用 htmlfile 来解析 html,今天依然用他来解析,htmlfile 是一个 COM 版的 BOM 和 DOM,所以解析 html, 执行 js 完全不在话下,今天就继续解析 json 和 jsonp 吧
按键精灵VBS脚本教程按键精灵VBS脚本教程按键精灵VBS脚本教程按键精灵VBS脚本教程按键精灵VBS脚本教程
公司电脑配置统计利器,省时省力,默认统计的配置文本生成在当前脚面本目录下,也可以修改为客户端能访问和修改的服务器目录,通过邮件或域策略将该文件分发至所有需要统计的客户端,运行并输入用户名即可。
一个简易的vbs二维码生成器 设备需求: windows系统 64位系统 电脑能上网
vbs命令cmd生成exe可执行文件
可以轻松实现Bat脚本和Vbs脚本转换成EXE文件。
自己想了很久才想出来的,我还是新手 大家支持我下吧!