这个宏在有的电脑能用，有的不能用，不知是什么原因

花落，相依　发表于：2013-08-19 18:45:42 　

请为什么以下这个宏，在有的电脑上可以使用，而在有的电脑上则提示：不能创建

ActiveX部件不能创建对象，我引用了ADO360还是不行，请老师指点。（主要提示问题光标总在Scripting这个上面）

Option Compare Database

Sub txt()
Dim n
Dim drive$
drive = "d:"
n = Format(CreateObject("Scripting.FileSystemObject").GetDrive(drive).SerialNumber)
MsgBox "序号为:" & n, 32, "提示"
End Sub

Top

沧海桑田发表于：2013-08-20 09:09:13

可能是电脑设置不一样，你试试在“ACCESS选项”修改一下“信任中心设置”---宏设置--启用所有宏看行不行

Top

蟹仔发表于：2013-08-20 13:13:18

这个是获取硬盘序列号的代码。如果这个方法不完美，那就在找其他方法。反正获取硬盘序列号的方法又不止这一种

Top

花落，相依发表于：2013-08-20 14:50:56

安全一性我设了的，是不是要引用什么哟？

Top

沧海桑田发表于：2013-08-20 19:28:12

不是安全性，是信任中心

Top

花落，相依发表于：2013-08-21 20:40:01

都是设一样的，有的电脑就没有问题，有的电脑就提示ActiveX部件不能创建对象

Top

沧海桑田发表于：2013-08-23 09:46:17

重装office系统

Top

花落，相依发表于：2013-08-23 19:07:22

重装office系统我也试了，还是一样，只差重装电脑了。哎

Top

李东远发表于：2013-08-24 22:24:44

估计是那台不能运行的缺少什么组件吧

Top

cspa 发表于：2013-08-24 23:05:09

把下面的内容存成一个bat文件，运行试试：
echo 正在修复，这个过程可能需要几分钟，请稍候…… rundll32.exeadvpack.dll /DelNodeRunDLL32 %systemroot%\System32\dacui.dll rundll32.exeadvpack.dll /DelNodeRunDLL32 %systemroot%\Catroot\icatalog.mdb 
regsvr32 /s comcat.dll 
regsvr32 /s asctrls.ocx 
regsvr32 /s oleaut32.dll 
regsvr32 /s shdocvw.dll/I 
regsvr32 /s shdocvw.dll regsvr32 /s browseui.dll 
regsvr32 /s browseui.dll /I 
regsvr32 /s msrating.dll 
regsvr32 /s mlang.dll 
regsvr32 /s hlink.dll 
regsvr32 /s mshtml.dll regsvr32 /s mshtmled.dll 
regsvr32 /s urlmon.dll regsvr32 /s plugin.ocx 
regsvr32 /s sendmail.dll 
regsvr32 /s mshtml.dll/i 
regsvr32 /s scrobj.dll 
regsvr32 /s corpol.dll 
regsvr32 /s jscript.dll 
regsvr32 /s msxml.dll 
regsvr32 /s imgutil.dll 
regsvr32 /s cryptext.dll 
regsvr32 /s inseng.dll 
regsvr32 /s iesetup.dll /i 
regsvr32 /s cryptdlg.dll 
regsvr32 /s actXPrxy.dll 
regsvr32 /s dispex.dll 
regsvr32 /s occache.dll 
regsvr32 /s iepeers.dll 
regsvr32 /s urlmon.dll/i 
regsvr32 /s cdfview.dll 
regsvr32 /s webcheck.dll regsvr32 /s mobsync.dll 
regsvr32 /s pngfilt.dll 
regsvr32 /s licmgr10.dll 
regsvr32 /s hhctrl.ocx 
regsvr32 /s inetcfg.dll 
regsvr32 /s trialoc.dll 
regsvr32 /s tdc.ocx 
regsvr32 /s MSR2C.DLL 
regsvr32 /s msident.dll 
regsvr32 /s msieFTP.dll 
regsvr32 /s xmsconf.ocx 
regsvr32 /s ils.dll 
regsvr32 /s msoeacct.dll 
regsvr32 /s wab32.dll 
regsvr32 /s wabimp.dll 
regsvr32 /s wabfind.dll 
regsvr32 /s oemiglib.dll 
regsvr32 /s directdb.dll 
regsvr32 /s inetcomm.dll 
regsvr32 /s msoe.dll 
regsvr32 /s oeimport.dll 
regsvr32 /s msdxm.ocx 
regsvr32 /s dxmasf.dll 
regsvr32 /s laprxy.dll 
regsvr32 /s l3codecx.ax 
regsvr32 /s acelpdec.ax 
regsvr32 /s mpg4ds32.ax 
regsvr32 /s danim.dll 
regsvr32 /s Daxctle.ocx 
regsvr32 /s lmrt.dll 
regsvr32 /s datime.dll 
regsvr32 /s dxtrans.dll 
regsvr32 /s dxtmsft.dll 
regsvr32 /s wshom.ocx 
regsvr32 /s wshext.dll 
regsvr32 /s vbscript.dll 
regsvr32 /s scrrun.dll mstinit.exe /setup 
regsvr32 /s MSNsspc.dll /SspcCreateSspiReg 
regsvr32 /s msapsspc.dll /SspcCreateSspiReg 
echo. 
echo. 
echo 修复成功！任意键退出！ 
pause>nul

提问者评价

谢谢了，好了，呵

Top

花落，相依发表于：2013-08-25 14:57:45

谢谢各位朋友的帮助，感谢9楼的老师。我试试再结贴。

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

这个宏在有的电脑能用，有的不能用，不知是什么原因