Users/Groups
Delete Disabled Users
Delete Disabled Users
Enum. Users
Enum. Users
Delete Users
Add Users
Enum. Groups
Enum. Groups
Change Groups
Add Group
Active Directory
Enum. AD Groups
Enum. AD Users
List AD Users w/Prop
Join AD Users
NIC/IP Addresses
Get IP Addresses
Get IP Addresses
Backup and Restore IP's
Add IP's
NIC Settings
OS/Hardware
OS Info Script
OS Info Script All
OS Info Script All
OS System Count
Hardware Info Script
Hardware Info Script #1
Hardware Info Script #2
CPU Settings
Enum. Printers
Disk Quotas
Disable Disk Quota
Enable Disk Quota
Disk Quota Query
Disk Quota Update
Shares/Files/Sessions
Enum. Shares
Enum. Shares
Enum. All Shares
Enum. Open Files
Enum. Open Files
Enum. Open Sessions
Others
Servers Uptime
DNS Stuff
Services Enum
Services Enum
Enum Processes
Enum Hot Fixes
MS FTP Server
FTP VD Query
FTP VD Delete
FTP Site Enum.
MS WWW Server
WWW Site Enum.
Enum Mime Types
Enum Mime Types
Application Pools
Application Pool Enum
Application Pool Enum
Create Application Pool
Create Application Pool
Delete Application Pool
Enum Apps in App Pool
Enum App Pool Settings
Move Apps Between App Pools
Others
IIS Component Probe
IIS Status
Enum SQL Dbases
Backup SQL Dbases
Orphan SQL Users
List AD/WG
My AD/WG Name
My PC Name
Enum AD Computers
Contact Us Form
SM Login Form Code
Imail Login Form Code
Enum. Domains in Imail
Enum. Users in Imail
CDONTS Component
CDOSYS Component
SA SMTP Component
App Pool Monitor
Ping and Tracert
Hard Drive Monitoring
Uptime Monitoring
Desktop Lock
CD Key Revealer
MIK Restarter
Site Map
About the Site
RSS Feeds I Read
Custom Scripts
Visitor #:
windowsadminscripts.com
www
Script:
SQL Databases Backup
This script will backup all SQL Dbases on SQL Server. You can also have email sent after backups are done. Also you can copy local backups to remote server and then delete local backups."
Email Address To Send Sample Code To:
@
'***************************************************** ' Script Written by Larry Heintz ' Dec 2007 www.windowsadminscripts.com ' This script will backup all SQL Dbases on SQL Server. ' You can also have email sent after backups are done ' Also you can copy local backups to remote server ' and then delete local backups. ' ' usage cscript sqlbackup.vbs *will use local pc for server ' or ' usage cscript sqlbackup.vbs /computer:[sql server name] '***************************************************** Dim args,strDBServerName,strBackupPath Dim ToAddress,FromAddress Set args = Wscript.Arguments.Named strBackupPath = "" 'Path to send Backup files to local machine strRBUP = "" 'Path to send Backup files to Remote machine ToAddress = "" 'Email Address to for Email Confirmation FromAddress = "" 'Email Address from for Email Confirmation SendEmail = "True" 'True to send email False not to send EmailComponent = "CDOSYS" 'CDOSYS or CDONTS if args.Item("computer") <> "" then strDBServerName = args.Item("computer") else strDBServerName = getComputer() end if Call getDbases (strDBServerName) Sub getDbases (sqlserver) Dim objSQLServer,colDatabases,starttime,objDatabase,count starttime = now() count = 0 Set objSQLServer = CreateObject("SQLDMO.SQLServer") objSQLServer.LoginSecure = True objSQLServer.Connect strDBServerName Set colDatabases = objSQLServer.Databases For Each objDatabase In colDatabases wscript.echo objDatabase.Name count = count + 1 backupDBase sqlserver,objDatabase.Name Next Set colDatabases = nothing Set objSQLServer = nothing 'Uncomment line below if you wish to move backup files to a remote machine and then delete local backups 'Call getDirListing endtime = now() if SendEmail = True then emailSend starttime,endtime,count end if End Sub Sub backupDBase (sqlserver,dbname) Dim objBackup,objSQLServer Set objSQLServer = CreateObject("SQLDMO.SQLServer") objSQLServer.LoginSecure = True objSQLServer.Connect sqlserver Set objBackup = CreateObject("SQLDMO.Backup") 'setting the properties objBackup.BackupSetName = dbname & "BackUp" objBackup.Database = dbname objBackup.Action = 0 '0 = Full backup 1 = Differential 2 = Specified files only 3 = Log backup objBackup.BackupSetDescription = dbname & "Backup" objBackup.Files = strBackupPath & "\" & dbname & ".bak" objBackup.TruncateLog = 2 '2=Truncate objBackup.Initialize = True 'backing up the database if dbname <> "tempdb" then objBackup.SQLBackup objSQLServer End if 'disconnecting from the server objSQLServer.disconnect set objBackup = Nothing set objSQLServer = nothing wscript.echo "backup for " & dbname & " done" End Sub Sub emailSend (starttime,endtime,count) Dim Mailer,Message,Subject if EmailComponent = "CDOSYS" then Set Mailer = CreateObject("CDO.Message") Mailer.TextBody = Message elseif EmailComponent = "CDONTS" then Set Mailer = CreateObject("CDONTS.NewMail") Mailer.Body = Message else wscript.echo "Please make sure you are using either CDOSYS or CDONTS for EmailComponent variable" wscript.quit end if Message = "===============================================" & VbCrLf Message = Message & "SQL Server Backup for " & strDBServerName & " has been completed" & VbCrLf Message = Message & "Number of Dbases: " & count & VbCrLf Message = Message & "Start Date/Time: " & starttime & " " & VbCrLf Message = Message & "End Date/Time: " & endtime & " " & VbCrLf Message = Message & "===============================================" & VbCrLf Subject = "SQL Server Backup for " & strDBServerName & " has been completed" Mailer.Subject = Subject Mailer.To = ToAddress Mailer.From = FromAddress Mailer.Send set Mailer = Nothing End Sub Sub getDirListing Dim fso,flog,temp,flname Set fso = CreateObject("Scripting.FileSystemObject") for each flog in fso.GetFolder(strBackupPath).files flname = flog.name set fsoobj = fso.Getfile(strBackupPath & "\" & flog.name) fsoobj.copy(strRBUP & "\" & flog.name) wscript.echo flog.name & " copied to remote server" fsoobj.delete wscript.echo flname & " local copy has been deleted" set fsoobj = nothing Next Set fso = nothing End Sub
Click Here to Download the VBS Script
Copyright 2006 WindowsAdminScripts.com all rights reserved.