VBS教程：属性-SerialNumber 属性

SerialNumber 属性

返回十进制序列号，用于唯一标识一个磁盘卷。

object.SerialNumber

object 应为 Drive 对象的名称。

说明


可以使用 SerialNumber 属性以确保在可移动媒体驱动器中插入正确的磁盘。

以下代码举例说明如何使用 SerialNumber 属性：

Function ShowDriveInfo(drvpath)    Dim fso, d, s, t    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))    Select Case d.DriveType        Case 0: t = "未知"        Case 1: t = "可移动"        Case 2: t = "固定"        Case 3: t = "网络"        Case 4: t = "CD-ROM"        Case 5: t = "RAM 磁盘"    End Select    s = "驱动器 " & d.DriveLetter & ": - " & t    s = s & "<BR>" & "序列号：" & d.SerialNumberShowDriveInfo = sEnd Function

请参阅

赞 (0)

相关推荐

  • VBS教程：属性-SerialNumber 属性

    SerialNumber 属性返回十进制序列号,用于唯一标识一个磁盘卷. object.SerialNumber object 应为 Drive 对象的名称. 说明可以使用 SerialNumber 属性以确保在可移动媒体驱动器中插入正确的磁盘. 以下代码举例说明如何使用 SerialNumber 属性: Function ShowDriveInfo(drvpath) Dim fso, d, s, t Set fso = CreateObject("Scripting.FileSystemObj

  • VBS教程：VBscript属性-HelpFile 属性

    HelpFile 属性设置或返回帮助文件的完整有效路径. object.HelpFile [= contextID] 参数object 必选项.Err 对象. contextID 可选项.帮助文件的完整有效路径. 说明如果在 HelpFile 中指定帮助文件,则当用户在错误消息对话框中单击帮助按钮(或按 F1 键)时,自动调用此文件.如果 HelpContext 属性包含指定文件的有效上下文 ID ,则自动显示该主题.如果未指定 HelpFile,则显示 VBScript Help 文件. On

  • VBS教程：VBscript属性-FirstIndex 属性

    FirstIndex 属性返回在搜索字符串中匹配的位置. object.FirstIndex object 参数总是一个 Match 对象. 说明FirstIndex 属性使用从零起算的偏移量,该偏移量是相对于搜索字符串的起始位置而言的.换言之,字符串中的第一个字符被标识为字符 0. 下面的例子说明了 FirstIndex 属性的用法: ~Function RegExpTest(patrn, strng) Dim regEx, Match, Matches         ' 建立变量. Set

  • VBS教程：VBscript属性-Value 属性

    Value 属性返回在一个搜索字符串中找到的匹配的值或文本. object.Value object 参数总是一个 Match 对象. 说明下列代码说明了 Value 属性的用法: Function RegExpTest(patrn, strng) Dim regEx, Match, Matches         ' 建立变量. Set regEx = New RegExp         ' 建立正则表达式. regEx.Pattern = patrn         ' 设置模式. reg

  • VBS教程：VBscript属性-Description 属性

    Description 属性返回或设置与错误相关联的说明性字符串. object.Description [= stringexpression] 参数object Err 对象. stringexpression 包含错误说明的字符串表达式. 说明Description 属性包含错误的简短说明.此属性用于提示用户注意您不能或不想处理的错误.当产生一个用户定义的错误时,将此错误的简要说明赋值给此属性.如果未填充 Description 属性并且 Number 的值对应于 VBScript 运行时

  • VBS教程：VBscript属性-功能介绍

    VBScript 属性描述语言元素返回或设置与一个错误相关联的描述性字符串.Description 属性返回搜索字符串中找到匹配项的位置.FirstIndex 属性设置或返回一个布尔值.Global 属性设置或返回帮助文件中某个主题的上下文 ID.HelpContext 属性设置或返回一个帮助文件的完整可靠的路径.HelpFile 属性设置或返回一个布尔值,指明模式搜索是否区分大小写.IgnoreCase 属性返回搜索字符串中所找到的匹配的长度.Length 属性返回或设置指明一个错误的一个数值

  • VBS教程：VBscript属性-HelpContext 属性

    HelpContext 属性设置或返回帮助文件主题的上下文 ID. object.HelpContext [= contextID] 参数object 必选项.Err 对象. contextID 可选项.在帮助文件中帮助主题的有效标识符. 说明如果在 HelpFile 中指定帮助文件,则 HelpContext 属性用于自动显示标识的帮助主题.如果 HelpFile 和 HelpContext 都为空,则检查 Number 属性.如果它对应于 VBScript 运行时错误值,则使用该错误的 VB

  • VBS教程：VBscript属性-Length 属性

    Length 属性返回在字符串搜索中找到的匹配的长度. object.Length object 参数总是一个 Match 对象. 说明下面的代码说明了 Length 属性的用法: Function RegExpTest(patrn, strng) Dim regEx, Match, Matches      ' 建立变量. Set regEx = New RegExp         ' 建立正则表达式. regEx.Pattern = patrn         ' 设置模式. regEx.

  • VBS教程：VBscript属性-Global 属性

    Global 属性设置或返回一个 Boolean 值,该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个. object.Global [= True | False ] 对象 参数总是 RegExp 对象.如果搜索应用于整个字符串,Global 属性的值为 True,否则其值为 False.默认的设置为 False. 说明下面的代码说明了 Global 属性的用法(改变赋予 Global 属性的值并观察其效果): Function RegExpTest(patrn, strng) Dim

  • VBS教程：VBscript属性-IgnoreCase 属性

    IgnoreCase 属性设置或返回一个Boolean值,指明模式搜索是否区分大小写. object.IgnoreCase [= True | False ] Object 参数总是一个 RegExp 对象.如果搜索是区分大小写的,则 IgnoreCase 属性为 False:否则为 True.缺省值为 False. 说明下面的代码说明了 IgnoreCase 属性的用法(改变赋予 IgnoreCase 属性的值以观察其效果): Function RegExpTest(patrn, strng)

随机推荐