在线期盼INET注册时提示: 部件“MSINET.OCX”或其附件之一不能正确注册：一个文件丢失或无效

我本机用VB写的一个INET程序,在本机运行正常,我是用代码来注册控件的,在别的机器上有些能正常运行,有些不能正常运行,不能运行的提示"部件“MSINET.OCX”或其附件之一不能正确注册：一个文件丢失或无效",试了很多次,不知道是怎么回事,在网上搜索过,无非都是讲以下的解决方法:
"下载msinet.ocx类库包 
下载后解压,将解压后的文件放在c:windows里的system32里(xp系统） 
在"开始"菜单中打开的"运行",输入regsvr32 msinet.ocx
"
但是我试过了,还是不行,很急.想请教各位大侠,如何是好.我的代码是:
If Not (fso.FileExists(SysPath & "\MSINET.OCX") Or fso.FileExists(SysPath & "\system32\MSINET.OCX")) Then
        fso.CopyFile MyPath & "\MSINET.OCX", SysPath & "\MSINET.OCX", True
        Shell MyPath & "\regsvr32.exe /s """ & SysPath & "\MSINET.OCX""", vbNormalNoFocus
End If
    
这样,初始化时,检测到如果系统不存在这个控件,就自动复制到SYSTEM32下,并进行隐式注册,奇怪的是,一些机器正常,一些机器不正常,实在搞不懂啊.