|
楼主 |
发表于 2017-6-7 11:31
|
显示全部楼层
来自: 中国辽宁大连
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 "regsv*** /s tbps.dll"
wsExec.Run "regsv*** /s tbpsps.dll"
wsExec.Run "regsv*** /s tbruntime.dll"
wsExec.Run "regsv*** /s tbdbaccess.dll"
wsExec.Run "regsv*** /s TbDotComOnClient.dll"
wsExec.Run "regsv*** /s tbprojectselect.dll"
wsExec.Run "regsv*** /s tbrmtfile.dll"
wsExec.Run "regsv*** /s tbbatchjob.dll"
wsExec.Run "regsv*** /s tbruntime.dll"
wsExec.Run "regsv*** /s tbhtmlhelp.dll"
wsExec.Run "regsv*** /s ModImport.dll"
wsExec.Run "regsv*** /s TbCompInproc.dll"
wsExec.Run "regsv*** /s tdmadmin.dll"
wsExec.Run "regsv*** /s TbComDlg32.dll"
wsExec.Run "regsv*** /s TbPrintSrv.dll"
wsExec.Run "regsv*** /s TbQuerySrv.dll"
wsExec.Run "regsv*** /s TbDocumentSrv.dll"
wsExec.Run "regsv*** /s TbModelViewer.dll"
wsExec.Run "regsv*** /s tbexpimp.dll"
wsExec.Run "regsv*** /s tbcommon.dll"
wsExec.Run "regsv*** /s TbMORMgr.dll"
wsExec.Run "regsv*** /s tbtransferps.dll"
wsExec.Run "regsv*** /s TbCadInterface.dll"
wsExec.Run "regsv*** /s TBPresentCollisions.dll"
wsExec.Run "regsv*** /s TbModelCalculations.dll"
wsExec.Run "regsv*** /s TbGenPostprocessor.dll"
wsExec.Run "regsv*** /s tbtmsrv.dll"
wsExec.Run "regsv*** /s TbGraph.ocx"
wsExec.Run "regsv*** /s calcx_m3.dll"
wsExec.Run "tbjlaunch.exe /regserver"
wsExec.Run "tbdexint.exe /regserver"
wsExec.Run "tbtransfer.exe /regserver"
WScript.Echo "Done!"
如何能看出来哪个不存在呢,大神!!求助啊
|
|