@DIV
<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
	@C:green(WshShell.CurrentDirectory = ScriptDir)
	Call WshShell.Run( "cmd.exe /c install.bat", , True )
end if


</SCRIPT>
</JOB>
@END


[[以下は install.bat]]
MSDE2000 のパッケージを解凍してできる @C:red(MSDESetup) ディレクトリの中に
上記 .wsf と install.bat を入れて、wsf を実行。

@DIV
setup SAPWD="password" SECURITYMODE=SQL DISABLENETWORKPROTOCOLS=0 INSTANCENAME="MSDE2000" TARGETDIR="c:\mssql2000\" /L*v C:/MSDELog.log
@END

※ 接続は、サーバを コンピュータID\MSDE2000 で