自己搞定了.
dim DriveC
dim FreeSpace
dim FSO
dim wsh
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DriveC = FSO.GetDrive("C")
FreeSpace = FormatNumber(DriveC.FreeSpace/1024/1024/1024, 3)
Set wsh=WScript.CreateObject("WScript.Shell")
if FreeSpace<5 then wsh.run "c:\1.jpg"
已测试运行OK,有更好的建议者,请即时加以修正,Thanks!