• RSS
  • Twitter
  • FaceBook

Welcome to ISAserver.org

Forums | Register | Login | My Profile | Inbox | RSS RSS icon | My Subscription | My Forums | Address Book | Member List | Search | FAQ | Ticket List | Log Out

Automated ISA Backup using scripts

Users viewing this topic: none

Logged in as: Guest
  Printable Version
All Forums >> [ISA Server 2000 Misc.] >> ISA Server Programming >> Automated ISA Backup using scripts Page: [1]
Login
Message << Older Topic   Newer Topic >>
Automated ISA Backup using scripts - 20.Oct.2005 5:06:00 AM   
mohankumar.palaniappan

 

Posts: 1
Joined: 20.Oct.2005
From: Bangalore,INDIA
Status: offline
Any idea about taking BACKUP automatically and send the same to another system or mail.Kindly help me in this issue.
Post #: 1
RE: Automated ISA Backup using scripts - 3.Oct.2008 1:50:16 PM   
selmanh

 

Posts: 3
Joined: 14.Jul.2008
Status: offline
Hi,

You can use scripts and windows scheduling service to automate ISA Server backup. With this script you can put backup file wherever you like in your network. I am using this script for some time now and it does a full server backup no problems so far.

<package>
<job id="isasrvexport">
<form>
</form>
<script language="VBScript">
Dim WSHNetwork, objXML
Dim strPath
Dim strFileName
Dim dtmThisMinute, dtmThisHour
Dim dtmThisDay, dtmThisMonth, dtmThisYear
Set WSHNetwork = CreateObject("WScript.Network")
Set objXML = CreateObject("Msxml2.DOMDocument")
strPath = "\\isa\BackupISA server"           
dtmThisMinute = PadDigits(Minute(Now), 2)
dtmThisHour = PadDigits(Hour(Now), 2)
dtmThisDay = PadDigits(Day(Now), 2)
dtmThisMonth = PadDigits(Month(Now), 2)
dtmThisYear = Year(Now)
strFileName = WSHNetwork.ComputerName & "-" & dtmThisYear & "-" & dtmThisMonth & "-" & dtmThisDay & "-" & dtmThisHour & "-" & dtmThisMinute & ".xml"
Dim objFPC
Dim objArray
Set objFPC = WScript.CreateObject("FPC.Root")
Set objArray = objFPC.GetContainingArray
objArray.Export objXML, 0
objXML.Save(strPath & "\" & strFileName)
Function PadDigits(n, totalDigits)
If totalDigits > len(n) then
PadDigits = String(totalDigits-len(n),"0") & n
Else
PadDigits = n
End If
End Function
</script>
</job>
</package>

at the beginning of the script i have put a name of the script "isasrvexport" you have to name the script the same. You can put whatever name there but you should keep in minde that the same name you have to put on the file as well. Also, the extention of the script should be .wsf. Therefore, the name of this script would be isasrvexport.wsf.

Use windows scheduler and as application use this script.

I hope this will help you.

cheers,

(in reply to mohankumar.palaniappan)
Post #: 2

Page:   [1] << Older Topic    Newer Topic >>
All Forums >> [ISA Server 2000 Misc.] >> ISA Server Programming >> Automated ISA Backup using scripts Page: [1]
Jump to:

New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts