引用Windows Script Host Object Model来读取注册表数据，出现以下文件没有自注册工撒消注册1.C:\WINNT\SYSTEM32\WSHOM.OCX找不到指定的

有VB做的程序，在测试时有一部分电脑出现如下错误：
引用Windows Script Host Object Model来读取注册表数据，出现以下文件没有自注册工撒消注册1.C:\WINNT\SYSTEM32\wshom.ocx找不到指定的程序的错误
以下是读注册表的代码：
        Dim wshshellobj As New IWshRuntimeLibrary.WshShell
        UID = wshshellobj.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\satsoftware\Username")
        PWD = wshshellobj.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\satsoftware\PassName")
        DSN = wshshellobj.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\satsoftware\ODBCname")
        DATABASE = wshshellobj.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\satsoftware\MSDBname")
        Set wshshellobj = Nothing
请指点一下。