VBS獲取文件MD5值(無組件)
更新時間:2013年11月25日 18:20:33 作者:
VBS獲取MD5值最簡單的方法是直接調(diào)用CAPICOM組件,但是由于CAPICOM組件系統(tǒng)并不是默認安裝,所以使用起來不方便
下面這個代碼不需要組件一樣可以獲取MD5值。
復制代碼 代碼如下:
Option Explicit
Dim wi
Dim file
Dim file_size
Dim file_attributes
Dim file_version
Dim file_hash
Set wi = CreateObject("WindowsInstaller.Installer")
file = "111.exe"
file_size = wi.FileSize(file)
file_attributes = wi.FileAttributes(file)
file_version = wi.FileVersion(file)
file_hash = GetFileHash(file)
Set wi = Nothing
MsgBox "File: " & file & vbCrLf & _
"Size: " & file_size & vbCrLf & _
"Attributes: " & file_attributes & vbCrLf & _
"Version: " & file_version & vbCrLf & _
"MD5: " & file_hash
Function GetFileHash(file_name)
Dim file_hash
Dim hash_value
Dim i
Set file_hash = wi.FileHash(file_name, 0)
hash_value = ""
For i = 1 To file_hash.FieldCount
hash_value = hash_value & BigEndianHex(file_hash.IntegerData(i))
Next
GetFileHash = hash_value
Set file_hash = Nothing
End Function
Function BigEndianHex(Int)
Dim result
Dim b1, b2, b3, b4
result = Hex(Int)
b1 = Mid(result, 7, 2)
b2 = Mid(result, 5, 2)
b3 = Mid(result, 3, 2)
b4 = Mid(result, 1, 2)
BigEndianHex = b1 & b2 & b3 & b4
End Function
相關(guān)文章
VBS 腳本中的字典、動態(tài)數(shù)組、隊列和堆棧實現(xiàn)代碼
今天用VBS腳本寫了幾個程序,用到了字典(Dictionary)、動態(tài)數(shù)組(ArrayList)、隊列(Queue)和堆棧(Stack)?,F(xiàn)在寫篇Blog總結(jié)一下 ,需要的朋友可以參考下2018-05-05vbs實現(xiàn)的eMule電驢自動關(guān)機腳本代碼
verycd,eMule電驢官方網(wǎng)站上說:為了不違背共享精神,是不會為eMule電驢添加自動關(guān)機功能的,這要多費電呀,在網(wǎng)上看了一個方法,感覺非常不錯,改掉了原代碼的不足之處2008-07-07VBS教程:VBscript屬性-Description 屬性
VBS教程:VBscript屬性-Description 屬性...2006-11-11