VBS獲取文件MD5值(無(wú)組件)
下面這個(gè)代碼不需要組件一樣可以獲取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)文章
vbscript的骨灰級(jí)寫(xiě)法計(jì)算1到100的和
vbscript的骨灰級(jí)寫(xiě)法計(jì)算1到100的和的代碼,實(shí)現(xiàn)的比較不錯(cuò)2012-05-05用vbs實(shí)現(xiàn)的確定共享文件夾的本地路徑?
用vbs實(shí)現(xiàn)的確定共享文件夾的本地路徑?...2007-03-03VBS 腳本中的字典、動(dòng)態(tài)數(shù)組、隊(duì)列和堆棧實(shí)現(xiàn)代碼
今天用VBS腳本寫(xiě)了幾個(gè)程序,用到了字典(Dictionary)、動(dòng)態(tài)數(shù)組(ArrayList)、隊(duì)列(Queue)和堆棧(Stack)。現(xiàn)在寫(xiě)篇Blog總結(jié)一下 ,需要的朋友可以參考下2018-05-05VBS讀取配置文件配置項(xiàng)的實(shí)現(xiàn)代碼
今天寫(xiě)代碼的時(shí)候需要用到vbs獲取文件配置項(xiàng),不用放數(shù)據(jù)庫(kù)里面,要不增刪改查都要做一篇,本身功能就簡(jiǎn)單,這里就為大家分享一下實(shí)現(xiàn)代碼,需要的朋友可以參考下2019-09-09用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板
用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板...2007-04-04用vbs確定可移動(dòng)驅(qū)動(dòng)器的連接時(shí)間
用vbs確定可移動(dòng)驅(qū)動(dòng)器的連接時(shí)間...2007-03-03vbs實(shí)現(xiàn)的eMule電驢自動(dòng)關(guān)機(jī)腳本代碼
verycd,eMule電驢官方網(wǎng)站上說(shuō):為了不違背共享精神,是不會(huì)為eMule電驢添加自動(dòng)關(guān)機(jī)功能的,這要多費(fèi)電呀,在網(wǎng)上看了一個(gè)方法,感覺(jué)非常不錯(cuò),改掉了原代碼的不足之處2008-07-07VBS教程:VBscript屬性-Description 屬性
VBS教程:VBscript屬性-Description 屬性...2006-11-11