• Hi, I use the following as an active x script from a job on SQL 2000:

    Dim conServer

    Dim fso

    Dim iFile

    Dim oJB

    Dim strJob

    Dim strFilename

    Const ioModeAppend = 8

    Set conServer = CreateObject("SQLDMO.SQLServer")

    conServer.LoginSecure = True

    conServer.Connect "##Server_Name##"

    strFilename = "C:\JOBS.sql"

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

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set iFile = fso.CreateTextFile(strFilename, True)

    iFile.Write (strJob)

    iFile.Close

    Set fso = Nothing