Job to script all Jobs

				
--**************************************
-- Name: Job to script all Jobs
-- Description:There are various utilities for scripting MS SQL Server objects : Tables , Procedures , Functions .... etc ...
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/ShowCode.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.
*/