<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>

BackupFile = "C:\Documents and Settings\lightbox\My Documents\Test.dat"

Call Wsc.DeleteFile( BackupFile )

Ret = Wsc.DmoCreateDevice( "Test", BackupFile  )
if Ret <> "" then
	Lbox.MsgOk(Ret)
	Wscript.Quit
end if

Ret = Wsc.DmoBackup( "lbox", "Test" )
if Ret <> "" then
	Lbox.MsgOk(Ret)
	Wscript.Quit
end if

' LBOX は保存された時の論理名で、この名称で保存されているパスを識別します
' 保存されているパスを変更する場合は、サーバから見て正しいパスを指定します
Wsc.DMORelocateFiles = _
	"LBOX,C:\MSSQL7\Data\Lbox2.mdf" & _
	",LBOX_log,C:\MSSQL7\data\LBOX2_log.LDF"

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

Lbox.MsgOk("バックアップ・リストア完了")

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