SQL Server

SQLDMO Script SQL Server Jobs

Posted on by WARDY IT Solutions

The following VBScript code snippet can be used to script all SQL Server Jobs on a SQL Server instance:

~~

Const ForWriting = 2

Dim job
Dim oFSO
Dim oFSOWrite
Dim oSQLServer

Set oFSO = CreateObject(“Scripting.FileSystemObject”)
Set oSQLServer = CreateObject(“SQLDMO.SQLServer”)

oSQLServer.LoginSecure = True
oSQLServer.Connect “(local)”

Set oFSOWrite = oFSO.OpenTextFile(“c:\sqljobs.sql”, ForWriting, True)

For Each job in oSQLServer.JobServer.Jobs
oFSOWrite.WriteLine job.script
Next

oFSOWrite.Close

Set oFSO = Nothing

~~

WARDY IT Solutions

WARDY IT Solutions - Australia's leading SQL Server consultants, trainers and Business Intelligence specialists. WARDY IT Solutions has established itself amongst the top solution providers in SQL Server technologies providing solutions for customers throughout Asia Pacific.