|
发表于 2008-8-2 08:18
|
显示全部楼层
来自: 中国山东青岛
楼下继续回答。。
dim wsExec, fso
Set wsExec = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
MenuLoc = wsExec.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Programs")
MenuLoc = MenuLoc + "\Tribon M3\Administration Tools\Sistership Setup.lnk"
Set lnkfile = fso.GetFile("Sistership Setup.lnk")
lnkfile.Copy(MenuLoc)
wsExec.Run "regsvr32 /s tbps.dll"
wsExec.Run "regsvr32 /s tbpsps.dll"
wsExec.Run "regsvr32 /s tbruntime.dll"
wsExec.Run "regsvr32 /s tbdbaccess.dll"
wsExec.Run "regsvr32 /s TbDotComOnClient.dll"
wsExec.Run "regsvr32 /s tbprojectselect.dll"
wsExec.Run "regsvr32 /s tbrmtfile.dll"
wsExec.Run "regsvr32 /s tbbatchjob.dll"
wsExec.Run "regsvr32 /s tbruntime.dll"
wsExec.Run "regsvr32 /s tbhtmlhelp.dll"
wsExec.Run "regsvr32 /s ModImport.dll"
wsExec.Run "regsvr32 /s TbCompInproc.dll"
wsExec.Run "regsvr32 /s tdmadmin.dll"
wsExec.Run "regsvr32 /s TbComDlg32.dll"
wsExec.Run "regsvr32 /s TbPrintSrv.dll"
wsExec.Run "regsvr32 /s TbQuerySrv.dll"
wsExec.Run "regsvr32 /s TbDocumentSrv.dll"
wsExec.Run "regsvr32 /s TbModelViewer.dll"
wsExec.Run "regsvr32 /s tbexpimp.dll"
wsExec.Run "regsvr32 /s tbcommon.dll"
wsExec.Run "regsvr32 /s TbMORMgr.dll"
wsExec.Run "regsvr32 /s tbtransferps.dll"
wsExec.Run "regsvr32 /s TbCadInterface.dll"
wsExec.Run "regsvr32 /s TBPresentCollisions.dll"
wsExec.Run "regsvr32 /s TbModelCalculations.dll"
wsExec.Run "regsvr32 /s TbGenPostprocessor.dll"
wsExec.Run "regsvr32 /s tbtmsrv.dll"
wsExec.Run "regsvr32 /s TbGraph.ocx"
wsExec.Run "regsvr32 /s calcx_m3.dll"
wsExec.Run "tbjlaunch.exe /regserver"
wsExec.Run "tbdexint.exe /regserver"
wsExec.Run "tbtransfer.exe /regserver"
WScript.Echo "Done!" |
|