|
Dim Fs,WshShell
ComDir = "D:\WSC\CLLib\MyCom\ReleaseMinDependency"
ComName = "MyCom.dll"
ComClass = "MyCom.MyAPI"
Set WshShell = CreateObject("WScript.Shell")
SystemDir = WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "\system32"
' カレントに COM がある場合は
' ComDir = WshShell.CurrentDirectory
on error resume next
strValue = WshShell.RegRead("HKCR\" & ComClass & "\CLSID\")
if Err.Number = 0 then
strValue = "HKCR\CLSID\" & strValue
strValue = strValue & "\InprocServer32\"
strValue = WshShell.RegRead(strValue)
strValue = "regsvr32.exe /u """ & strValue & """"
Call WshShell.Run( strValue,,true )
end if
on error goto 0
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile ComDir & "\" & ComName, SystemDir & "\", true
strValue = "regsvr32.exe """ & SystemDir & "\" & ComName & """"
Call WshShell.Run( strValue )
| |