Set Disks =createobject("scripting.filesystemobject").Drives
'U盘为1，硬盘为2，光盘为4
For Each Disk in Disks
if Disk.IsReady then
msgbox Disk.DriveType & disk.Path
end if
Next
这个程序能判断上述盘的情况 ，但数字证书插入后，怎么没法判断？
'U盘为1，硬盘为2，光盘为4
For Each Disk in Disks
if Disk.IsReady then
msgbox Disk.DriveType & disk.Path
end if
Next
这个程序能判断上述盘的情况 ，但数字证书插入后，怎么没法判断？
