获取指定盘符信息
2008-11-17 12:25
197 查看
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'获取指定盘符信息: '
'版权所有:坏男孩 '
'MSN:[email]hahazhu0634@live.cn[/email]
'QQ:383088680 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set FSO=CreateObject("Scripting.FileSystemObject")
set dc=FSO.Drives
Dim dName
dName=""
For Each d in dc
dName=dName&d.DriveLetter&"盘 "
'Wscript.echo dName
Next
Wscript.Echo "温馨提醒:"+vbCRLF+vbTab+"您的电脑磁盘仅有"&dName+vbCRLF+"如果您输入的盘符不在这个范围内,或者CD-ROM无法加载,"+vbcrlf+"将不会有任何磁盘信息显示!"
set dc=nothing
Set fso=nothing
ON ERROR RESUME NEXT
Dim DrviePath
DrviePath=InputBox("请输入您要检查的磁盘:(格式:盘符:,盘符:\指定路径)")
if Trim(DrviePath)<>"" then
Wscript.Echo GetDrive(DrviePath)
Function GetDrive(DrviePath)
Dim fso
Dim s
Dim tp
Dim dc
s=""
if instr(DrivePath,":")= 0 then '当客户端输入c等,那么需要将其合并成c:
DrviePath=DrviePath&":"
end if
set FSO=CreateObject("Scripting.FileSystemObject")
set Drive=fso.GetDrive(fso.GetDriveName(DrviePath))
'显示Drive所有属性
if(Drive.VolumeName)="" then
VolumeName="系统默认"
else
VolumeName=Drive.VolumeName
end if
s="驱动盘符:"&Drive.DriveLetter&"盘"
s=s+vbCRLF+"文件系统类型:"&Drive.FileSystem
s=s+vbCRLF+Drive.DriveLetter&"磁盘总空间:"&FormatNumber(Drive.TotalSize/(1024*1024*1024))&"GB"
s=s+vbCRLF+Drive.DriveLetter&"盘剩余空间:"&FormatNumber(Drive.AvailableSpace/(1024*1024*1024))&"GB"
s=s+vbCRLF+Drive.DriveLetter&"盘卷标:"&VolumeName
Tnum=Drive.DriveType'驱动类型
if(Tnum=0) then
tp = "磁盘不清楚"
elseif(Tnum=2) then
tp="逻辑磁盘"
else
tp="其他磁盘"
end if
s=s+vbCRLF+"驱动器类型:"&tp
GetDrive=s
set Drive=nothing
set fso=nothing
End Function
Else
Wscript.echo "您放弃了磁盘信息显示功能!"
End if
'获取指定盘符信息: '
'版权所有:坏男孩 '
'MSN:[email]hahazhu0634@live.cn[/email]
'QQ:383088680 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set FSO=CreateObject("Scripting.FileSystemObject")
set dc=FSO.Drives
Dim dName
dName=""
For Each d in dc
dName=dName&d.DriveLetter&"盘 "
'Wscript.echo dName
Next
Wscript.Echo "温馨提醒:"+vbCRLF+vbTab+"您的电脑磁盘仅有"&dName+vbCRLF+"如果您输入的盘符不在这个范围内,或者CD-ROM无法加载,"+vbcrlf+"将不会有任何磁盘信息显示!"
set dc=nothing
Set fso=nothing
ON ERROR RESUME NEXT
Dim DrviePath
DrviePath=InputBox("请输入您要检查的磁盘:(格式:盘符:,盘符:\指定路径)")
if Trim(DrviePath)<>"" then
Wscript.Echo GetDrive(DrviePath)
Function GetDrive(DrviePath)
Dim fso
Dim s
Dim tp
Dim dc
s=""
if instr(DrivePath,":")= 0 then '当客户端输入c等,那么需要将其合并成c:
DrviePath=DrviePath&":"
end if
set FSO=CreateObject("Scripting.FileSystemObject")
set Drive=fso.GetDrive(fso.GetDriveName(DrviePath))
'显示Drive所有属性
if(Drive.VolumeName)="" then
VolumeName="系统默认"
else
VolumeName=Drive.VolumeName
end if
s="驱动盘符:"&Drive.DriveLetter&"盘"
s=s+vbCRLF+"文件系统类型:"&Drive.FileSystem
s=s+vbCRLF+Drive.DriveLetter&"磁盘总空间:"&FormatNumber(Drive.TotalSize/(1024*1024*1024))&"GB"
s=s+vbCRLF+Drive.DriveLetter&"盘剩余空间:"&FormatNumber(Drive.AvailableSpace/(1024*1024*1024))&"GB"
s=s+vbCRLF+Drive.DriveLetter&"盘卷标:"&VolumeName
Tnum=Drive.DriveType'驱动类型
if(Tnum=0) then
tp = "磁盘不清楚"
elseif(Tnum=2) then
tp="逻辑磁盘"
else
tp="其他磁盘"
end if
s=s+vbCRLF+"驱动器类型:"&tp
GetDrive=s
set Drive=nothing
set fso=nothing
End Function
Else
Wscript.echo "您放弃了磁盘信息显示功能!"
End if
相关文章推荐
- 获取指定路径下未安装的apk包信息
- 能否实现获取指定进程的调用堆栈信息?
- ctags用法(一)——获取指定文件中的函数信息
- MFC获取版本指定信息方法
- 获取Android应用程序出错信息并将信息发送到指定邮件
- 获取指定窗口信息(坐标,窗口风格)
- Sql :获取数据库所有表及其字段名称、类型、长度 (也可以指定单张或若干张表的详细信息。。。)
- 获取指定盘符的目录树
- 用servlet获取web.xml中指定的servlet初始化信息的几种方式
- C#获取指定文件著作权信息的方法
- loadrunner获取Http信息头中指定值作为参数
- python实现批量获取指定文件夹下的所有文件的厂商信息
- 转:C# 获取指定目录下所有文件信息、移动目录、拷贝目录
- 节假日api接口之获取指定日期的节假日信息
- C# 获取PDF文档的字体信息及指定文字的坐标,宽度和高度
- 获取指定包下所有自定义注解并提取注解信息
- java 获取指定的信息
- 获取Android应用程序出错信息并将信息发送到指定邮件
- Java获取视频的相关信息,并获取指定时间的视频图片
- 使用反射技术获取指定类型中方法的完整信息