czjt1234

set objWsh = CreateObject("Wscript.Shell")
intNumber = objWsh.Popup(strText, nSecondsToWait, strTitle, nType)
'弹出式消息框。比 Msgbox 多了等待选择时间参数，少了帮助参数

'返回值intNumber代表如下按钮:
vbOK     = 1    '确定
vbCancel = 2    '取消
vbAbort  = 3    '放弃
vbRetry  = 4    '重试
vbIgnore = 5    '忽略
vbYes    = 6    '是
vbNo     = 7    '否
           -1   '选择超时

参数:
strText         '要显示的文本信息

nSecondsToWait  '等待选择的秒数。若选择超时，消息框自动关闭，返回值 -1
                '缺省值 0 秒，必须选择一个按钮，消息框才会关闭

strTitle        '弹出式消息框的标题。缺省值 "Windows Script Host"

nType           '要显示的按钮和图标类型。缺省值 0
0     显示“确定”按钮
1     显示“确定”和“取消”按钮
2     显示“放弃”、“重试”和“忽略”按钮
3     显示“是”、“否”和“取消”按钮
4     显示“是”和“否”按钮
5     显示“重试”和“取消”按钮
16    显示“停止标记”图标
32    显示“问号”图标
48    显示“感叹号”图标
64    显示“信息标记”图标

czjt1234

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDrivers = objFSO.Drives

For Each objDriver In objDrivers
  MsgBox objDriver.DriveType
Next

'DriveType 磁盘类型 返回值：0未知 1可移动 2固定 3网络 4CDROM 5RAM盘