VC6.0创建ASP组件在Server2003中功能不正常！

Question

用VC6.0开发了一个简单的组件，用来读取c盘的序列号，同时对字符串加密。
测试程序如下：<%
dim a 
dim b 

set obj1 = server.createobject("DbInfoEncrypt.OfficeTelEncrypt")
a = "12345789"                                
b = obj1.OfficetelEncode(a,2) 
         
response.write b
%>
在组件的实现代码中，调用了GetVolumeInformation（）函数。
现在有个奇怪的问题，在服务器上该组件能正常注册，但是GetVolumeInformation（）函数获取的序列号（dwWord）总是0，
在本地虚拟机的环境上功能却正常。
请问，这到底是什么原因？