<PACKAGE>
<JOB>
<RUNTIME>
<DESCRIPTION>
*******************************************************************
 プログラム名 : SQLServer リストア

 データーベースをバックアップして、そのファイルより
 名前を変更して新しいデータベースを作成する

 DMORelocateFiles プロパティで保存情報を変更するのが重要
*******************************************************************
</DESCRIPTION>
<EXAMPLE>

引数無し
</EXAMPLE>
</RUNTIME>

<COMMENT>
************************************************************
 オブジェクト定義
************************************************************
</COMMENT>
<OBJECT id="Lbox" progid="Lbox.BatchHelper" />
<OBJECT id="Wsc" progid="Lbox.BatchWsc" />

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 カレントスクリプト
************************************************************
</COMMENT>
<SCRIPT language=VBScript>

if not Lbox.MsgOkCancel( "処理を実行しますか?" ) then
	Wscript.Quit
end if

Wsc.DMOServer = "IBM-A0786409C75\MSDE2000"
Wsc.DMOUser = "sa" 
Wsc.DMOPassword = "password" 
Wsc.DMOFileNumber = 1 
Wsc.DMOReplaceDatabase = True

Wsc.DMORelocateFiles = _
	"ISDB,C:\mssql2000\MSSQL$MSDE2000\Data\ISDB.mdf" & _
	",ISDB_log,C:\mssql2000\MSSQL$MSDE2000\Data\ISDB_log.ldf"

Ret = Wsc.DmoRestore( "ISDB", "ISDB" )
if Ret <> "" then
	Lbox.MsgOk(Ret)
	Wscript.Quit
end if

Lbox.MsgOk("リストア完了")

</SCRIPT>
</JOB>
</PACKAGE>