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