不用管理员运行CAD，注册sqlite驱动的尝试

szjyf123456

学习http://bbs.xdcad.net/thread-725185-1-1.htmldcl1214大神的自动注册sqlite 驱动
发现没有管理员运行CAD，vl-registry-write 不能写HKLM根键，wsh（WScript.shell) 的regwrite方法写HKLM也一样，所以自动驱动不成功。所以想找一个不用管理员运行CAD。简单的思路就是用wsh的run方法，运行regeit命令。经过测试可行。reg文件可以自己做好，也可以在软件里写好。

2. (vl-load-com)
   
3. (defun c:wsh_reg(/ fso regfnm regf regnr)
   
4. 
   
5.     (setq fso (vlax-create-object "scripting.FileSystemObject")) ;;;;创建文件系统对象
   
6.     (setq regfnm "d:\\bdwg\\sqlite\\668.reg")                    ;;;;临时的注册表文件名称
   
7.     (setq regf (vlax-invoke fso 'OpenTextFile regfnm 2 t 0))     ;;;;创建临时的注册表文件对象 textstream
   
8.     (setq regnr                                                  ;;;;;;注册表内容注意根键\\，字符里面的路径要\\\\这样才可以
   
9.           "Windows Registry Editor Version 5.00                  
   
10. [HKEY_LOCAL_MACHINE\\SOFTWARE\\ODBC\\ODBC.INI\\SQLite3 Datasource]
    
11. "Driver"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"
    
12. "Database"=""
    
13. [HKEY_LOCAL_MACHINE\\SOFTWARE\\WOW6432Node\\ODBC\\ODBCINST.INI\\SQLite3 ODBC Driver]
    
14. "UsageCount"=dword:00000001
    
15. "Driver"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"
    
16. "Setup"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"
    
17. [HKEY_LOCAL_MACHINE\\SOFTWARE\\ODBC\\ODBCINST.INI\\SQLite3 ODBC Driver]
    
18. "UsageCount"=dword:00000001
    
19. "Driver"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"
    
20. "Setup"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"
    
21. [HKEY_LOCAL_MACHINE\\SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Drivers]
    
22. "SQLite3 ODBC Driver"="Installed""
    
23.     )
    
24.     (vlax-invoke regf 'Write regnr)                          ;;;;;filesystem textstream 对象
    
25.     (setq wsh (vlax-get-or-create-object "WScript.shell"))   ;;;;;创建脚本对象
    
26.     (setq commandstr (strcat "regedit /s " regfnm))          ;;;;;即将要运行的命令字符串
    
27.     (vlax-invoke wsh 'run commandstr)                        ;;;;;调用WScript.shell对象 运行方法，执行导入注册表的命令，无需管理员身份运行cad
    
28.     (vlax-invoke regf 'Close)                                ;;;;;关闭临时注册表文件
    
29.     (vlax-release-object regf)                               ;;;;;关闭临时注册表文件
    
30.     (vlax-invoke fso 'DeleteFile regfnm)
    
31.     (vlax-release-object fso)
    
32.     (vlax-release-object wsh)
    
33.     )

(vl-load-com)<br /> (defun c:wsh_reg(/ fso regfnm regf regnr)<br /> <br />     (setq fso (vlax-create-object "scripting.FileSystemObject")) ;;;;创建文件系统对象<br />     (setq regfnm "d:\\bdwg\\sqlite\\668.reg")                    ;;;;临时的注册表文件名称<br />     (setq regf (vlax-invoke fso 'OpenTextFile regfnm 2 t 0))     ;;;;创建临时的注册表文件对象 textstream<br />     (setq regnr                                                  ;;;;;;注册表内容注意根键\\，字符里面的路径要\\\\这样才可以<br />           "Windows Registry Editor Version 5.00                  <br /> [HKEY_LOCAL_MACHINE\\SOFTWARE\\ODBC\\ODBC.INI\\SQLite3 Datasource]<br /> "Driver"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"<br /> "Database"=""<br /> [HKEY_LOCAL_MACHINE\\SOFTWARE\\WOW6432Node\\ODBC\\ODBCINST.INI\\SQLite3 ODBC Driver]<br /> "UsageCount"=dword:00000001<br /> "Driver"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"<br /> "Setup"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"<br /> [HKEY_LOCAL_MACHINE\\SOFTWARE\\ODBC\\ODBCINST.INI\\SQLite3 ODBC Driver]<br /> "UsageCount"=dword:00000001<br /> "Driver"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"<br /> "Setup"="D:\\\\bdwg\\\\sqlite\\\\odbc\\\\sqlite64\\\\sqlite3odbc.dll"<br /> [HKEY_LOCAL_MACHINE\\SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Drivers]<br /> "SQLite3 ODBC Driver"="Installed""<br />     )<br />     (vlax-invoke regf 'Write regnr)                          ;;;;;filesystem textstream 对象<br />     (setq wsh (vlax-get-or-create-object "WScript.shell"))   ;;;;;创建脚本对象<br />     (setq commandstr (strcat "regedit /s " regfnm))          ;;;;;即将要运行的命令字符串<br />     (vlax-invoke wsh 'run commandstr)                        ;;;;;调用WScript.shell对象 运行方法，执行导入注册表的命令，无需管理员身份运行cad<br />     (vlax-invoke regf 'Close)                                ;;;;;关闭临时注册表文件<br />     (vlax-release-object regf)                               ;;;;;关闭临时注册表文件<br />     (vlax-invoke fso 'DeleteFile regfnm)<br />     (vlax-release-object fso)<br />     (vlax-release-object wsh)<br />     )