远程备份方案,有些问题,请邹老大帮忙

Question

我们公司这样做：
用调度把数据库备份到数据库服务器上。
然后我写个脚本把他备份copy到指定地点一下。
如果想定期运行，可以把脚本放在计划任务里。

Answer 1

另外你的命令好像写得不对。
你看一下我写的远程登录的脚本吧。Option Explicit
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Dim CMD
'net use 命令使用方法
'net use \\计算机名或IP\共享名 登陆到此计算机的密码 /user:登陆到此计算机的用户名
CMD = "cmd /c net use \\10.1.2.1\d$ xxxx /user:administrator"
While True
Dim oExec
Set oExec = WshShell.Exec(CMD)
WScript.Echo(Now() & " 登陆：")
Dim stdOut,stdErr
stdOut = oExec.StdOut.ReadAll()
stdErr = oExec.StdErr.ReadAll()
If stdOut = Empty Then
WScript.Echo("登陆失败，原因 ：")
WScript.Echo(stdErr)
Else
'WScript.Echo("登陆失败，原因 ：")
WScript.Echo(stdOut)
End If
Do While oExec.Status <> 1
WScript.Sleep(100)
Loop
Set oExec = Nothing
WScript.Sleep(60 * 1000) 'ms 10秒钟循环一下
WEnd