用VBSCRIPT 实现 JOBs？

Question

是 SQL SERVER 中的  JOBS 吗？ 你看看是不是 你要的：
===================================================================Dim conServer
Dim fso
Dim iFile
Dim oJB
Dim strJob
Dim strFilename
Const ioModeAppend = 8strFilename = "c:\Scripts\Jobs-" & cstr(Year(now())) & cstr(Month(Now())) & _
               Cstr(Day(Now())) & ".TXT"Set conServer = CreateObject("SQLDMO.SQLServer")
conServer.Connect "YourServerName", "sa", ""For Each oJB In conServer.JobServer.Jobs
    strJob = strJob & "----------------------------" & vbCrLf
    strJob = strJob & "- SCRIPTING JOB: " & oJB.Name & vbCrLf
    strJob = strJob & "----------------------------" & vbCrLf
    strJob = strJob & oJB.Script() & vbCrLf
Next
Set conServer = NothingSet fso = CreateObject("Scripting.FileSystemObject")
Set iFile = fso.CreateTextFile(strFilename, True)
iFile.Write (strJob) 
iFile.Close
Set fso = Nothing

Answer 1

对，是 SQL SERVER 中的  JOBS