不老魂意思:关于取硬盘序列号的问题VB与ASP

我做了一个DLL文件（用VB做的），可以取硬盘序列号.在VB中调试可以显示。但我用在ASP中调用就会显示为空.（仅限于win2003系统），请教什么问题.
——————————————————————
Private Function getid() '得到硬盘的序列号
Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String

If DiskID32(DiskModel(0), DiskID(0)) <> 1 Then
Exit Function
End If

For i = 0 To 31
If Chr(DiskModel(i)) <> Chr(0) Then
Model = Model & Chr(DiskModel(i))
End If

If Chr(DiskID(i)) <> Chr(0) Then
ID = ID & Chr(DiskID(i))
End If
Next i
ID = Trim(ID)
Model = Trim(Model)
'如果ID的值为空则取设备号码.
If ID <> "" Then
getid = ID
Else
getid = Model
End If
End Function
———————————————————————
ASP中调用：
<%set myobj=server.createobject("cyt.ccyytt")%>
<%=myobj.getid%>
_____________________________________________
此DLL文件的其它函数都可以调用.不会出错。只是上面那一句不会显示.比较急请教。在win2000上没有问题。