LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

ASP 取得硬盘某个分区的逻辑序列号等信息

admin
2011年4月10日 11:11 本文热度 2637
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Const TristateUseDefault = -2

' Opens the file using the system default. Const TristateTrue = -1

' Opens the file as Unicode. Const TristateFalse = 0

' Opens the file as ASCII.

Dim objFileSystem, strFile, strDriveName, objDrive, strDriveType, R

Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")

strFile = Request.ServerVariables("SCRIPT_NAME")

strFile = Server.MapPath(strFile)

strDriveName = objFileSystem.GetDriveName(strFile)

Set objDrive = objFileSystem.GetDrive(strDriveName)

R = "<b>Test filename</b> " & strDriveName & "/.." & Request.ServerVariables("SCRIPT_NAME") & "<BR>"

R = R & "<b>Some Properties of Drive</b> " & strDriveName & "<BR>"

R = R & "<b>Drive Letter</b> = " & objDrive.DriveLetter & "<BR>"

R = R & "<b>Path</b> = " & objDrive.Path & "<BR>"

R = R & "<b>File System</b> = " & objDrive.FileSystem & "<BR>"

R = R & "<b>Volume Name</b> = " & objDrive.VolumeName & "<BR>"

R = R & "<b>Free Space</b> = " & FormatNumber(objDrive.FreeSpace/1024, 0) & " KB<BR>"

R = R & "<b>Total Size</b> = " & FormatNumber(objDrive.TotalSize/1024, 0) & " KB<BR>"

R = R & "<b>Root Folder</b> = " & objDrive.RootFolder & "<BR>"

R = R & "<b>Serial Number</b> = " & objDrive.SerialNumber & "<BR>"

R = R & "<b>Share Name</b> = " & objDrive.ShareName & "<BR>"

If objDrive.IsReady = TRUE Then

    R = R & "<b>Access Status</b> = Ready for Access" & "<BR>"

  Else

    R = R & "<b>Access Status</b> = Not ready for Access" & "<BR>"

End If

Select Case objDrive.DriveType

  Case 0:

  strDriveType = "Unknown"

  Case 1:

  strDriveType = "Removable"

  Case 2:

  strDriveType = "Fixed"

  Case 3:

  strDriveType = "Network"

  Case 4:

  strDriveType = "CD-ROM"

  Case 5:

  strDriveType = "RAM Disk"

End Select

R = R & "<b>Drive Type</b> = " & strDriveType & "<BR>"

Response.Write R

Set objDrive = Nothing

Set objFileSystem = Nothing

该文章在 2011/4/10 11:12:16 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved