VBA调用Powershell提取指定文件的哈希码SHA1、MD5算法可选

向東

最近试着写了一段代码，实现了VBA调用Powershell提取指定文件的哈希码（SHA1、MD5算法可选），经测试可用。
Powershell Windows7自带，XP下没有，而且Powershell要4.0以上版本支持 Get-FileHash 命令。
代码简单写了一下，纯粹是测试用的，如果改一下，应该会更好用，这里做个抛砖引玉，大家来共同交流。
代码如下：

1. Private Sub CommandButton1_Click()
   
2.     Dim wsh As Object, oExec As Object
   
3.     Dim fFile As String, strAll As String
   
4.     Dim myFile As String, i As Long
   
5.    
   
6.     On Error GoTo errHandle
   
7.     Set wsh = CreateObject("WScript.Shell")
   
8.    
   
9.     myFile = Dir([A1] & "\*.*")
   
10.    
    
11.     i = 1
    
12.     Do While myFile <> ""
    
13.         i = i + 1
    
14.         strAll = ""
    
15. '        fFile = [A1] & " \ " & myFile
    
16.         fFile = """" & [A1] & "" & myFile & """"
    
17.         Set oExec = wsh.Exec("POWERSHELL Get-FileHash -Path " & fFile & " -Algorithm " & [B1]) '调用POWERSHELL（4.0版本以上版本支持 Get-FileHash）脚本，Windows 7 支持
    
18.         
    
19.         strAll = oExec.StdOut.ReadAll '提取脚本输出的信息
    
20.         strAll = Mid(strAll, InStr(1, strAll, [B1]))
    
21.         Cells(i, 1).Value = Trim(Left(strAll, InStr(1, strAll, Chr(13)) - 1))
    
22.         
    
23.         myFile = Dir()
    
24.     Loop
    
25.     If i = 1 Then MsgBox "未找到 A1单元格指定文件夹 的文件！"
    
26.    
    
27.     Set oExec = Nothing
    
28.     Set wsh = Nothing
    
29.     Exit Sub
    
30. errHandle:
    
31.     MsgBox "错误！"
    
32. End Sub

复制代码

VBA调用powershell提取指定文件的哈希码.rar (19.05 KB, 下载次数: 62)

2018-8-21 12:25 上传

点击文件名下载附件

02761752696

谢谢分享   学习