Microsoft SQL Server Desktop Engine 2000 のアンインストール・インストール
日時: 2018/02/02 17:52
名前: lightbox
拡張子:
<JOB>
<COMMENT>
************************************************************
WEB WSH 実行スケルトン
************************************************************
</COMMENT>
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************' 処理開始' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "wmiReg.vbs" )
GetWshShell
TargetPath = ""
strPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
if WMIRegEnumKey( HKEY_LOCAL_MACHINE, strPath, aKeys ) then
For Each strKey in aKeys
strPath2 = strPath & "\" & strKey
if WMIRegGetStringValue( HKEY_LOCAL_MACHINE, strPath2, "DisplayName", strValue ) then
if Instr( strValue, "Microsoft SQL Server Desktop Engine" ) > 0 then
if TargetPath <> "" then
TargetPath = TargetPath & ","
end if
TargetPath = TargetPath & strPath2
end if
end if
Next
end if
if TargetPath <> "" then
if YesNo( "既に MSDE はインストールされています。アンインストールしますか?" ) then
aPath = Split( TargetPath, "," )
For I = 0 to Ubound( aPath )
Call WMIRegGetStringValue( HKEY_LOCAL_MACHINE, aPath(I), "UninstallString", strValue )
Call WshShell.Run( strValue, , True )
Next
MsgOk( "MSDE のアンインストールが終了しました" )
else
Wscript.Quit
end if
end if
if YesNo("MSDE のインストールを開始しますか?") then
WshShell.CurrentDirectory = ScriptDir
Call WshShell.Run( "cmd.exe /c install.bat", , True )
end if
</SCRIPT>
</JOB>