$NORESULT
$NOCONSOLE
<PACKAGE>
<JOB>
<RUNTIME>
<DESCRIPTION>
*******************************************************************
 プログラム名 : SQLServer バックアップ・リストア
*******************************************************************
</DESCRIPTION>
<EXAMPLE>

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

<COMMENT>
************************************************************
 オブジェクト定義
************************************************************
</COMMENT>
<OBJECT id="Lbox" progid="Lbox.BatchHelper" />
<OBJECT id="Wnet" progid="Lbox.Wnet" />
<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

Wsc.DMORelocateFiles = _
	"LBOX,C:\MSSQL7\Data\Lbox2.mdf" & _
	",LBOX_log,C:\MSSQL7\data\LBOX_log2.LDF"

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

Lbox.MsgOk("バックアップ・リストア完了")
</SCRIPT>
</JOB>
</PACKAGE>