need help with IF and ELSE statement

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

need help with IF and ELSE statement

Logged in as: Guest

arrSession:exec spGetSession 2,2,34929

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> need help with IF and ELSE statement
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

need help with IF and ELSE statement - 5/28/2006 5:38:10 PM

blakeph

Posts: 17
Score: 0
Joined: 5/28/2006
Status: offline

hi everyone!

i had a script that will backup a file in a certain directory, after the backup is done, the script will run an external batch file as follows:

i noticed the above code that always the "email-err.bat" and page-err.bat" is always run, even if the script has been executed without errors.

below, is my entire script:

Option Explicit
dim zipCmd, backupLog, errors, backups, backuptemp
'for WinZip command line (registered version only)
zipCmd = "wzzip -p -r -whs -yb"
'location of temporary backup folder
backuptemp = "D:\backup\temp"
'location of the log file
backupLog = "D:\backup\backup.log"
'number of backups to retain
backups = 30
'common objects
Dim myNetworkObj, shellobj, WshSysEnv, filesys, emailShell, emailShell2, pageShell, pageShell2, copyShell
Set myNetworkObj = Wscript.CreateObject("Wscript.Network")
Set shellobj = CreateObject("Wscript.Shell")
set filesys = CreateObject ("Scripting.FileSystemObject")
Set emailShell = CreateObject("WScript.Shell")
Set emailShell2 = CreateObject("WScript.Shell")
Set pageShell = CreateObject("WScript.Shell")
Set pageShell2 = CreateObject("WScript.Shell")
Set copyShell = CreateObject("WScript.Shell")
'add event to the event viewer
dim eventshell, eventCmd
Set eventShell = WScript.CreateObject("WScript.Shell")
eventCmd = "eventcreate /T Information /ID 100 /L APPLICATION /SO recruit.vbs /D " & chr(34) & "recruit.vbs: Backup process started." & chr(34)
eventShell.Run eventCmd
'customized backup statements
logmsg ""
logMsg "Information starts here"
logmsg "========================================================" & vbcrlf 
logMsg "*** Recruitment Database backup starts on " & now & " ***"&vbCrLf
logMsg "Script: " & Wscript.Scriptname &" Version 1.1 "
logMsg "Running from: " & Wscript.ScriptFullName &" by "& Wscript.Application
logMsg "Environment:"
Set WshSysEnv = Shellobj.Environment("SYSTEM")
logMsg "  OS: " &   WshSysEnv("OS") & "  Computer: " & myNetworkObj.ComputerName & "  User: " &  myNetworkObj.UserName & "  WSH version: " & Wscript.Version
set myNetworkObj = Nothing       ' let the object go
Set WshSysEnv    = Nothing
logmsg ""
errors = 0
'location of backup files to compress
makeBackup_recruit "D:\backup\temp","D:\backup\data\recruitment.zip"
logmsg ""
logMsg "*** Recruitment Database backup completed on " & now & " ***"&vbCrLf 
logmsg "========================================================" 
logMsg "Information ends here" & vbcrlf
'end of customized backup statements
if errors > 0 then
       dim e
       if errors = 1 then e = " error" else e = " errors"
       msgbox "Warning:  " & errors & e & _
               " encountered during backup process...  See logfile " & chr(34) & backupLog & chr(34) & " for details."
end if
'create the backup text log
sub logMsg (msg)
       dim filetxt
       Const ForReading = 1, ForWriting = 2, ForAppending = 8
       Set filetxt = filesys.OpenTextFile(backupLog, ForAppending, True)
       filetxt.WriteLine(msg)
       filetxt.Close
end sub
'begin compression of "recruitment database"
sub makeBackup_recruit (src, dest)
       dim recruit_Shell, zipCommand_recruit, retcode_recruit
'shell object in which to run zip commands 
       Set recruit_Shell = WScript.CreateObject("WScript.Shell")
       backupFile (dest)
       deleteFile (dest)
       if filesys.FileExists(dest) then                
               logMsg "Could not remove " & chr(34) & dest & chr(34) & ".  Cannot move " & chr(34) & src & chr(34) & "."
               errors = errors + 1  
               exit sub
       end if
       zipCommand_recruit = zipCmd & " " & chr(34) & dest & chr(34) & " " & chr(34) & src & "\*.*" & chr(34)
       retcode_recruit = recruit_Shell.Run(zipCommand_recruit, 1, TRUE)
       if retcode_recruit <> 0 then
               logMsg "Error " & retcode_recruit & " encountered in creation of " & chr(34) & dest & chr(34) & "."
               errors = errors + 1
       else
 logmsg ""
 logmsg "" & now
               logMsg "Latest recruitment database in " & chr(34) & src & chr(34) & vbcrlf & "was successfully compressed to "& vbcrlf & chr(34) & dest & chr(34) & "."
 logmsg "A duplicate copy has been placed in \\rkdb01\s$\utils\backup\archive\ for housekeeping."
       end if
end sub
'delete temporary latest backup files in the d:\backup\temp
dim oFolder, oFile
Set oFolder = filesys.GetFolder(backuptemp)
For Each oFile In oFolder.files
   filesys.DeleteFile oFile
Next
Sub KillSubFolders (Subbackuptemp)
filesys.DeleteFolder Subbackuptemp
End Sub
'rename old compressed backup files for retention
sub backupFile(file)
       if backups < 1 then exit sub
       dim source, dest, i     
       for i = backups to 1 step -1
               if i > 1 then source = file & ".old" & i - 1 else source = file         
               dest = file & ".old" & i
               deleteFile(dest)              
               if filesys.FileExists(source) then
                       filesys.MoveFile source, dest
  logmsg ""
  logmsg "" & now
                       logMsg "Renaming old recruitment database backup for retention in " & vbcrlf & chr(34) & source & chr(34) & " to " & vbcrlf & chr(34) & dest & chr(34)
               end if
       next
end sub
sub deleteFile (file)
       if filesys.FileExists(file) then
               filesys.DeleteFile(file)         
 logmsg ""  
 logmsg "" & now     
               logMsg "Deleting old recruitment database backup file in " & vbcrlf & chr(34) & file & chr(34)
       end if
end sub
errors = 0
'e-mail and page the log file
if errors > 0 then
emailShell.Run "email-success.bat", 0, true
pageShell.Run "page-success.bat", 0, true
else
emailShell2.Run "email-err.bat", 0, true
pageShell2.Run "page-err.bat", 0, true
end if
'delete the log file
filesys.DeleteFile "d:\backup\backup.log"
'duplicate copy to exchtst and rkdb01
Dim fso_source, SourceFile, SourceFile2, dtmToday, dateToday
'DEFINE VARIABLE FOR THE CURRENT DATE
dtmToday = Date()
'FORMAT CURRENT DATE (I.E 4-18-2005)
dateToday = Replace(dtmToday, "/", "-")
Set fso_source = CreateObject ("Scripting.FileSystemObject")
Set SourceFile = fso_source.GetFile( "D:\backup\data\recruitment.zip" )
SourceFile.Copy "\\rkdb01\s$\utils\backup\archive\" & dateToday & "_CC1001-CIS01_Recruitment.zip", 0
wscript.quit

any help on this would be highly appreciated. thanks a lot!

Post #: 1

RE: need help with IF and ELSE statement - 5/30/2006 2:02:07 AM

ebgreen

Posts: 4970
Score: 31
Joined: 7/12/2005
Status: offline

try this:

errors = 0
'e-mail and page the log file
if errors >= 0 then
emailShell.Run "email-success.bat", 0, true
pageShell.Run "page-success.bat", 0, true
else
emailShell2.Run "email-err.bat", 0, true
pageShell2.Run "page-err.bat", 0, true
end if

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to blakeph)

Post #: 2

RE: need help with IF and ELSE statement - 5/30/2006 6:00:11 AM

Fredledingue

Posts: 383
Score: 0
Joined: 5/9/2005
From:
Status: offline

or

< Message edited by Fredledingue -- 5/30/2006 6:07:30 AM >

_____________________________

Fred

(in reply to ebgreen)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> need help with IF and ELSE statement

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