求用VB编写读取USB序列号的源代码？

Question

想做一个保护文件不被复制的程序，通过USB的序列号作为唯一判别标识，先在程序内部固化该USB的序列号为常量，然后程序运行的时候首先读取USB的序列号和此固化的常量进行字符串对比，如果两个量相同，那么程序继续执行，否则提示错误，这样的话，即便别人复制走了文件，但是没U盘，依旧不能使用该文件，现在的问题是我不清楚如何使用VB调用U盘的序列号，请懂VB编程的朋友指教，如果VB不行，其他语言也行，越详细越好，期待牛人解答，非常谢谢！加Q：364109230

Answer 1

Shell"cmd.exe /c Vol H:>C:\HSerialNumber.txt"
假设H是U盘的盘符，那么U盘的序列号在C盘下的一个txt文件内。
用VBS的方法就是：

Pivate sub Command1_Click()
dim fso,drive
set fso=createobject("scripting.filesystemobject")
for each drive in fso.drives
if drive.isready and drive.drivetype=1 then msgbox drive.volumename & vbcrlf & drive.serialnumber
next
set fso=nothing
End Sub

Answer 2

u盘的序列号也是可以更改的