有关SerialNumber属性，请教

wu8313

Sub ShowDriveInfo(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    '************************
   ' Select Case d.DriveType
      '  Case 0: t = "Unknown"
       ' Case 1: t = "Removable"
      '  Case 2: t = "Fixed"
      '  Case 3: t = "Network"
      '  Case 4: t = "CD-ROM"
     '   Case 5: t = "RAM Disk"
   ' End Select
   ' s = "Drive " & d.DriveLetter & ": - " & t
   ' s = s & vbCrLf & "SN: " & d.SerialNumber
   '************************
   s = d.SerialNumber
   
   '这个s的值针对不同机器是唯一的吗？它的值受到哪些因素影响？
   
       MsgBox s
End Sub

[此贴子已经被作者于2005-4-11 17:50:26编辑过]

wu8313

不会没有人知道吧？请赐教。

wanshan

这个s值是C盘的序列号，分区时分配给每个区的识别号，如果不重新分区，不格式化，不用软件故意去改变等，一般不会变。在不同的电脑上一般不会相同，我原来写的一个备份工具就是用这个号进行注册的！

wu8313

谢谢wanshan.

一下子说到了我的心坎上。

看来可以放心的使用了。