vbscript調用fso

function getVersion(strPath)
Dim fver, fso
Set fso = CreateObject("Scripting.FileSystemObject")
fver = fso.GetFileVersion(strPath)
getVersion=fver
end function

sub saveResult(strOutPath,str)
Dim fver, fso
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObj = fso.opentextfile(strOutPath+"\\version.xml",2,true) '使用FSO建立文件寫入對象
fileObj.Write str '向文件寫入數據，覆蓋形式寫入
fileObj.close '推送內容寫入並關閉寫入通道
end sub

'Create an arguments object
Dim oArgs
Set oArgs = WScript.Arguments

'Get the named arguments
Dim oNamed
Set oNamed = oArgs.Named

'Get the computer name argument
Dim strPath
strPath = oNamed("strPath")

Dim strOutPath
strOutPath = oNamed("outPath")

dim tmp
tmp=getVersion(strPath+"\\install.exe")
tmp=tmp+"test"
msgbox tmp

saveResult strOutPath, tmp
msgbox strOutPath

 

 

dos命令行中：

   CScript "getFileVer.vbs" /strPath:C:\ /outPath:c:\