--**************************************
--     
-- Name: Job to script all Jobs
-- Description:There are various utiliti
--     es for scripting MS SQL Server objects :
--      Tables , Procedures , Functions .... et
--     c ...
This is small piece OF code that will allow you TO script all jobs FROM your SQL Server using SQL DMO object.
-- By: Srdjan Josipovic
--
--This code is copyrighted and has-- limited warranties.Please see http://
--     www.Planet-Source-Code.com/vb/scripts/Sh
--     owCode.asp?txtCodeId=492&lngWId;=5--for details.--**************************************
--     

/*
Step 1. 
ActiveX Script >> SET TO >> VB Script : 
============================ 
*/
Dim oSQLServer 
Dim oStream 
SET oSQlServer = CreateObject("SQLDMO.SQLServer") 
SET oStream = CreateObject("ADODB.Stream") 
oSQLServer.Connect "MySERVER", "UserID", "Pwd" 
Dim idStep 
Dim ScriptJob 
Dim CountJobs 
Dim JobName 
Dim ScriptAllJobs 
FOR Each oJob IN oSQLServer.JobServer.Jobs 
CountJobs = oSQLServer.JobServer.Jobs.Count 
Next 
FOR idStep = 1 TO CountJobs 
JobName = oSQLServer.JobServer.Jobs.Item(idStep).Name 
ScriptJob = oSQLServer.JobServer.Jobs.Item (idStep).Script(4, "C:\" & JobName & ".sql") 
ScriptAllJobs = ScriptAllJobs & ScriptJob 
Next 
oStream.Open 
oStream.WriteText (ScriptAllJobs) 
oStream.SaveToFile ("C:\SQLAllScripts.sql"), 2 
oStream.Close 
oSQLServer.DisConnect 
SET oStream = Nothing 
SET oSQLServer = Nothing 
===================================== 
/*
First Loop will make script FOR each Job ,and second one for ALL OF them . 
Schedule this Job , ON the daily basis AND BACKUP your Jobs.
*/