感謝分享~
參考上面作者，個人做了一些小修改，有興趣的可以參考~
主要是將最上面兩行的Echo拿掉，然後目錄跟資料夾分開宣告，並加入紀錄功能。
至於Copy Shutdown.exe的部分，有需要的人可以加回去。
==================================================
'WScript.Echo "WARNING! Please copy the file C:\Windows\System32\shutdown.exe to F:\shutdown.exe"
'WScript.Echo "WARNING! Please check these file existed C:\1.jpg, C:\1.pdf, C:\1.xlsx, C:\1.pptx, C:\1.docx, C:\1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("Wscript.Shell")
Dim folder
folder = "C:\!Crypto\"
Dim fileList(6)
fileList(0) = "1.txt"
fileList(1) = "1.jpg"
fileList(2) = "1.pdf"
fileList(3) = "1.xlsx"
fileList(4) = "1.pptx"
fileList(5) = "1.docx"
'Check files
Do
For Index = 0 To Ubound(fileList) - 1
If Not fso.FileExists(folder & fileList(Index)) Then
ws.run "cmd /c echo ＊在%date%%time% 已偵測到檢測目錄" & folder & "中的檔案已被變更，並實行自動關機。請檢查檔案是否仍存在於原路徑或被更名！若出現奇怪檔名/附檔名，請考慮盡速備份硬碟資料！>>%USERPROFILE%\Documents\已偵測對檔案的變更.txt"
ws.popup("已偵測到對於" & folder & fileList(Index) & "的變更，並實行自動關機！" & vbcrlf & " " & vbcrlf & "請檢查檔案是否仍存在於原路徑或被更名！" & vbcrlf & " " & vbcrlf & "若出現奇怪檔名/附檔名，請考慮盡速備份硬碟資料！"), 3,"注意，有程序更動檢測的jpg檔案！", 64
ws.run "shutdown.exe -s -f -t 0", vbhide
'ws.run "cmd /c F:\shutdown.exe -s -f -t 0", vbhide
End If
Next
wscript.sleep 15000
Loop
==================================================