.: Disk and File Scripts
|
|
| |
Please select from the following vbscript examples:
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Create and Write to File
' Create Text file called Temp.txt
Dim fso
Dim ObjStream
Const TristateFalse = 0
Const FILE_LOCATION = "C:\"
Const FILE_NAME = "Temp.txt"
set Fso = CreateObject("Scripting.FilesystemObject")
set objStream = FSO.CreateTextFile(FILE_LOCATION & FILE_NAME, True, TristateFalse)
With ObjStream
.WriteLine "Test Line 1..."
.WriteLine "Test Line 2..."
.Write "The .Write command Writes with no carriage return at end of line."
.WriteBlankLines (2)
.WriteLine "Test Line 3..."
.Close
End With
MsgBox "File " & FILE_NAME & " was Created Successfully."
Get Free Space On a Drive
Option Explicit
Dim FsoObject, DiskDrive, AvailSpaceGB, AvailSpacebytes, AvailSpaceKB, AvailSpaceMB
' Instantiate the VBScript FileSystemObject
Set FsoObject = WScript.CreateObject("Scripting.FileSystemObject")
' Use the FilesystemObject Object's GetDrive Method to set up a reference to the computer's
' C: Drive.
Set DiskDrive = FsoObject.GetDrive(FsoObject.GetDriveName("C:"))
' Main Processing Section
' Use the FileSystemObjects FreeSpace Property to Determine the Amount of FreeSpace in MB
' on the C: Drive
AvailSpacebytes = DiskDrive.FreeSpace
AvailSpaceKB = DiskDrive.FreeSpace / 1024
AvailSpaceMB = (DiskDrive.FreeSpace / 1024) / 1024
AvailSpaceGB = ((DiskDrive.FreeSpace / 1024) / 1024) / 1024
' Use VBScripts FormatNumber Function to format the results as a Whole Number
AvailSpacebytes = FormatNumber(AvailSpacebytes, 0)
AvailSpaceKB = FormatNumber(AvailSpaceKB, 0)
AvailSpaceMB = FormatNumber(AvailSpaceMB, 0)
AvailSpaceGB = FormatNumber(AvailSpaceGB, 0)
' Display the Amount of Free Space on the C: Drive
WScript.Echo "There is Currently: " & AvailSpacebytes & " bytes available on the C: Drive" & vbCrLf & _
"There is Currently: " & AvailSpaceKB & "KB available on the C: Drive" & vbCrLf & _
"There is Currently: " & AvailSpaceMB & "MB available on the C: Drive" & vbCrLf & _
"There is Currently: " & AvailSpaceGB & "GB available on the C: Drive" & vbCrLf
Get Parent Folder
Dim FSO, File1, ParentFolderPath, FileName
FileName = "GetParentFolder.vbs" ' Enter Script Filename here
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File1 = FSO.GetFile(FileName)
ParentFolderPath = File1.ParentFolder
MsgBox ParentFolderPath
WScript.Quit
Create a Random File Name
Option Explicit
Dim objWshObject, VarRnd, FileName, VarFor, VarFor1, WshShl, GetRandomNumber, FullFileName, fso, ObjStream, TEMP
Const FILE_LOCATION = "C:\windows\temp\"
Set WshShl = WScript.CreateObject("WScript.Shell")
Set objWshObject = WScript.CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FilesystemObject")
Dim avarArray(36) ' Array of variables athat has 36 elements
avarArray(0) = " "
avarArray(1) = "B"
avarArray(2) = "C"
avarArray(3) = "D"
avarArray(4) = "E"
avarArray(5) = "F"
avarArray(6) = "G"
avarArray(7) = "H"
avarArray(8) = "I"
avarArray(9) = "J"
avarArray(10) = "K"
avarArray(11) = "L"
avarArray(12) = "M"
avarArray(13) = "N"
avarArray(14) = "O"
avarArray(15) = "P"
avarArray(16) = "Q"
avarArray(17) = "R"
avarArray(18) = "S"
avarArray(19) = "T"
avarArray(20) = "U"
avarArray(21) = "V"
avarArray(22) = "W"
avarArray(23) = "X"
avarArray(24) = "Y"
avarArray(25) = "Z"
avarArray(26) = "0"
avarArray(27) = "1"
avarArray(28) = "2"
avarArray(29) = "3"
avarArray(30) = "4"
avarArray(31) = "5"
avarArray(32) = "6"
avarArray(33) = "7"
avarArray(34) = "8"
avarArray(35) = "9"
avarArray(36) = "A"
For VarFor = 1 to 10
Randomize
GetRandomNumber = Round(FormatNumber(Int((36*Rnd()) + 1)))
If GetRandomNumber = 1 Then VarRnd = avarArray(1)
If GetRandomNumber = 2 Then VarRnd = avarArray(2)
If GetRandomNumber = 3 Then VarRnd = avarArray(3)
If GetRandomNumber = 4 Then VarRnd = avarArray(4)
If GetRandomNumber = 5 Then VarRnd = avarArray(5)
If GetRandomNumber = 6 Then VarRnd = avarArray(6)
If GetRandomNumber = 7 Then VarRnd = avarArray(7)
If GetRandomNumber = 8 Then VarRnd = avarArray(8)
If GetRandomNumber = 9 Then VarRnd = avarArray(9)
If GetRandomNumber = 10 Then VarRnd = avarArray(10)
If GetRandomNumber = 11 Then VarRnd = avarArray(11)
If GetRandomNumber = 12 Then VarRnd = avarArray(12)
If GetRandomNumber = 13 Then VarRnd = avarArray(13)
If GetRandomNumber = 14 Then VarRnd = avarArray(14)
If GetRandomNumber = 15 Then VarRnd = avarArray(15)
If GetRandomNumber = 16 Then VarRnd = avarArray(16)
If GetRandomNumber = 17 Then VarRnd = avarArray(17)
If GetRandomNumber = 18 Then VarRnd = avarArray(18)
If GetRandomNumber = 19 Then VarRnd = avarArray(19)
If GetRandomNumber = 20 Then VarRnd = avarArray(20)
If GetRandomNumber = 21 Then VarRnd = avarArray(21)
If GetRandomNumber = 22 Then VarRnd = avarArray(22)
If GetRandomNumber = 23 Then VarRnd = avarArray(23)
If GetRandomNumber = 24 Then VarRnd = avarArray(24)
If GetRandomNumber = 25 Then VarRnd = avarArray(25)
If GetRandomNumber = 26 Then VarRnd = avarArray(26)
If GetRandomNumber = 27 Then VarRnd = avarArray(27)
If GetRandomNumber = 28 Then VarRnd = avarArray(28)
If GetRandomNumber = 29 Then VarRnd = avarArray(29)
If GetRandomNumber = 30 Then VarRnd = avarArray(30)
If GetRandomNumber = 31 Then VarRnd = avarArray(31)
If GetRandomNumber = 32 Then VarRnd = avarArray(32)
If GetRandomNumber = 33 Then VarRnd = avarArray(33)
If GetRandomNumber = 34 Then VarRnd = avarArray(34)
If GetRandomNumber = 35 Then VarRnd = avarArray(35)
If GetRandomNumber = 36 Then VarRnd = avarArray(36)
FileName = FileName & VarRnd
FullFileName = FileName & ".dat"
Next
set objStream = fso.CreateTextFile(FILE_LOCATION & FullFileName, True, 0)
MsgBox("File " & FullFileName & " has been created, at location " & FILE_LOCATION) ' Display Computer Suggested filename
Replace Text in a File
Dim FSO, ReplaceTab, ObjShl, AllText, ObjFso, CreateFile, TristateFalse
Dim SourceFile, SourceUserInput, DestFile, DestUserInput, FileExist
SourceUserInput = InputBox("Please choose source file?", "Where is the File", "C:\Temp\Source.txt")
DestUserInput = InputBox("Please choose Destination file?", "Where is the File", "C:\Temp\Destination.txt")
TristateFalse = 0
' Variables
Sourcefile = SourceUserInput
DestFile = DestUserInput
Set Fso = CreateObject("Scripting.FileSystemObject")
Set ObjShl = Fso.OpenTextFile(SourceUserInput, 1)
AllText = ObjShl.ReadAll
ObjShl.Close
ReplaceTab = Replace(AllText, vbTab, ":")
Set ObjFso = Fso.CreateTextFile(DestUserInput, True, TristateFalse)
ObjFso.WriteLine ReplaceTab
ObjFso.Close
WScript.Sleep 2000
FileExist = Fso.FileExists(DestFile)
If FileExist = True Then
MsgBox Destfile & " was created Successfully."
WScript.Quit
End If
WScript.Quit
Run NTBackup from VBScript and save backup to SNAP Server
Important Notes
SNAP Server Share must exist and be online before Script is run, Example: 192.168.0.201\ShareName\
The Email folder \\192.168.0.201\ShareName\Email\ must exist before script is run
Backup Selection must be created in NTBackup before script is run and placed in the BackupRootFolder - Example:
\\192.168.0.201\ShareName\UsersFolder.bks
To change the files that are included in the backup - Open NTBackup, select the files, Save the selection as a .BKS file
in the BackupRootFolder, give the file an appropriate name and assign that name to the variable NTBackupRootFolder
below.
ONLY CHANGE THE NON-CONSTANT VARIABLES BELOW
This script was designed to run on Windows 2003 server, if it is used on windows 2000 then change the line
CHR(34) & " /L:f /M " & JobType & " /SNAP:on", 0, True)
to
CHR(34) & " /L:f /M " & JobType, 0, True)
because windows 2000 does not have the /SNAP:on switch in NTBackup
Change the NON-Constant variables below to suit your network, the script will be run as a scheduled task on the server to be backed up under a users credentials that has both access rights to the SNAP server and "Backup and Restore" rights on the server. The script will then email the log to a given email address. The Server will require an internet connection for the email.
The script creates a folder for each days backup, if the SNAP server is full then the script will search for the oldest backup file in the Saturday folder and delete it, givning more room for another backup, however it does not search other folders, this was sufficient for me. if you find that your SNAP server is full and no files exist in the saturday folder then the log will be 0 bytes in the email, at this point you should manually delete a backup file.
'Start of Script ---------------------------------------------------------------------------------------------------------------------
Option Explicit
'On Error Resume Next
'Define Variables
Dim FileDelete, Fso, FSOFileExists, CreateLogFile, NTBackuplogFileName, BackupTempLogData, LogsFolder, NTBackupFolder
Dim IfFileExists, NTBackupTempLog, BackupTempLog, objFileHandle, Todaysdate, JobName, EventViewer, FinalLog
Dim ObjShl, RunNTBackup, WshShell, StartCMD, StartCMDType, UserProfile, LastTempFile, ArchiveFolder, CurrentTime
Dim JobType, IFFolderExists, CreateNTbackupFolder, CreateLogsFolder, CreateArchiveFolder, FileSelectionFileName
Dim BackupRootFolder, ArchiveLog, RunEmail, EmailFolder, BackupNSServer, DayOfTheWeek, WeekDayVar, BackupFolder
Dim CreateBackupFolder, SMTPServer, SNAPMail, FromAddress, SMTPServerPort, objFso, CopyLog, TempDir, TempDir1, ToAddress
Dim DiskSpace, DriveName, Ready, ClngDiskSpace, IntStrCompare, IntStr1Count, StringLength
Dim FileName, SourceFolder, Folders1, Folder1, Folder2, strDir, Folder3, OldestDate1
Dim FilePath, WSH, CreateFile, OpenFile, DateCreated, OpenFile1, Date1, Date2, Date3
Dim Date4, DateDiffNmbr, Date5, x, ArrayCounter, ViewArray, y, z, OldestDate, ArrayVar
Dim Counter, Var, Var1, Var2, DeleteFileName, Line1, OpenFile2, IntStr1, StringLenth, IntStr2
Dim FileExist, IntStrCompare1, IntCounter1, Run, AverageFileSize, IntStrRev1
Dim IntCounter, AllText, SourceFolderParsed, IntStrDiff, FileNmr, WSHN, Sharename
Set Fso = Createobject("Scripting.FileSystemObject")
Set WSH = WScript.CreateObject("WScript.Shell")
Set WSHN = Wscript.CreateObject("WScript.Network")
TempDir = WSH.ExpandEnvironmentStrings("%Temp%")
ReDim DateArray(0)
ArrayCounter = UBound(DateArray)
' Define Constant Variables
Const TristateFalse = 0
' Format Date as DD_MM_YYYY so that NTBackup.exe can use it in a filename
TodaysDate = Mid(Date, 1, 1) & Mid(Date, 2, 1) & "_" & Mid(Date, 4, 1) & Mid(Date, 5, 1) & "_" & _
Mid(Date, 7, 1) & Mid(Date, 8, 1) & Mid(Date, 9, 1) & Mid(Date, 10, 1)
' Find day if the week and save as variable DayOfTheWeek
WeekDayVar = Weekday(Date)
IF WeekDayVar = 1 Then
DayOfTheWeek = "Sunday"
End If
IF WeekDayVar = 2 Then
DayOfTheWeek = "Monday"
End If
IF WeekDayVar = 3 Then
DayOfTheWeek = "Tuesday"
End If
IF WeekDayVar = 4 Then
DayOfTheWeek = "Wednesday"
End If
IF WeekDayVar = 5 Then
DayOfTheWeek = "Thursday"
End If
IF WeekDayVar = 6 Then
DayOfTheWeek = "Saturday"
End If
IF WeekDayVar = 7 Then
DayOfTheWeek = "Saturday"
End If
'
' -------------------------------------------------------------------------------------------------------------
'
' -------------------------------------------------------------------------------------------------------------
' ONLY CHANGE the white text
'You can use the server DNS names rather than the IP address, it is your choice
' Define Non-Constant Variables
ShareName = "\\ServerIPAddress\ShareName"
BackupFolder = "\\ServerIPAddress\ShareName\NTBackup\"
NTBackupFolder = "\\ServerIPAddress\ShareName\NTBackup\" & DayOfTheWeek & "\"
JobName = "ServerName_" & TodaysDate
ArchiveFolder = "\\ServerIPAddress\ShareName\NTBackup\Archive\"
LogsFolder = "\\ServerIPAddress\ShareName\NTBackup\Logs\"
JobType = "Normal" ' Normal or Incremental or Differential
FileSelectionFileName = "XPSetupFiles.bks"
BackupRootFolder = "\\ServerIPAddress\ShareName\"
EmailFolder = "\\ServerIPAddress\ShareName\Email\"
BackupNSServer = "SNAPServerDNSName "
SMTPServer = "SMTPIPAddressOrDNSName"
SMTPServerPort = "25"
FromAddress = "Backup.User@EmailAddress.com"
ToAddress = "Backup.Mail@EmailAddress.com"
' -------------------------------------------------------------------------------------------------------------
'
' -------------------------------------------------------------------------------------------------------------
Set DriveName = Fso.GetDrive("X:\")
SourceFolder = BackupFolder & "Saturday\"
Folder3 = BackupFolder
IntStrCompare = 1
IntStrCompare1 = 4
IntStr1Count = 1
Counter = 0
WSHN.mapNetworkDrive "X:", Sharename
Ready = DriveName.IsReady
If Ready = True Then
DiskSpace = DriveName.AvailableSpace
End If
WSHN.RemoveNetworkDrive "X:", True
'-------------------------------------------------------------------------------------------------------
StringLength = Len(SourceFolder)
IntStrRev1 = InstrRev(SourceFolder, CHR(92), StringLength, 1)
DriveName = Mid(SourceFolder, 1, 1)
For IntCounter = 1 to 100
If IntStr1 = IntStrRev1 Then
IntCounter = 100
End If
IntStr1 = Instr(IntStrCompare, SourceFolder, CHR(92), 1)
IntStr2 = Instr(IntStrCompare1, SourceFolder, CHR(92), 1)
IntStrCompare = IntStr1 + 1
IntStrCompare1 = IntStr2 + 1
IntStrDiff = IntStr2 - IntStr1
If IntStrDiff < 0 Then
IntStrDiff = 2
End If
If IntStrCompare1 > StringLength Then
IntCounter = 100
End If
If IntStr1 = "" Then
IntStr1 = ""
IntCounter = 100
Else
IntStr1Count = IntStr1Count + 1
End If
If IntStr2 = "" Then
IntStr2 = StringLength
End If
Var1 = Mid(Sourcefolder, IntStrCompare, IntStrDiff - 1)
Var2 = Var2 & ".SubFolders(" & CHR(34) & Var1 & CHR(34) & ")"
SourceFolderParsed = "FSO.Drives(" & CHR(34) & DriveName & ":" & CHR(34) & ").RootFolder"
Next
SourceFolderParsed = SourceFolderParsed & Var2 & ".Files"
Set CreateFile = FSO.CreateTextFile(TempDir & "\00TempFile.vbs", True)
With CreateFile
.Writeline "Dim FsoFiles, Counter, Counter1, FileNames, SourceFolder"
.WriteLine "Dim FName, FSO, FileSize, TestVar, File1, TotalFileSize, CreateFile"
.WriteBlankLines(1)
.WriteLine "Set FSO = CreateObject(" & CHR(34) & "Scripting.FileSystemObject" & CHR(34) & ")"
.WriteLine "SourceFolder = " & CHR(34) & SourceFolder & CHR(34)
.WriteBlankLines(1)
.WriteLine "Set FSOFiles = " & SourceFolderParsed
.WriteBlankLines(1)
.WriteLine "Counter1 = FSOFiles.Count"
.WriteLine "Counter = FSOFiles.Count"
.WriteBlankLines(1)
.WriteLine "Redim FileNames(counter-1)"
.WriteBlankLines(1)
.WriteLine "for each file in FSOFiles"
.WriteLine "Fname = lcase(Fso.GetFileName(file.name))"
.WriteLine "counter = counter - 1"
.WriteLine "FileNames(counter) = ucase(file.name)"
.WriteLine "Set File1 = FSO.GetFile(SourceFolder & FName)"
.WriteLine "FileSize = file1.Size"
.WriteLine "TotalFileSize = TotalFileSize + FileSize"
.WriteLine "next"
.WriteLine "Set CreateFile = FSO.CreateTextFile(" & CHR(34) & TempDir & "\TotalFileSize1.tmp" & CHR(34) & ", True)"
.Writeline "CreateFile.WriteLine TotalFileSize"
.WriteLine "CreateFile.WriteLine Counter1"
.WriteLine "WScript.Quit"
.Close
End With
WScript.Sleep 1000
Run = WSH.Run(TempDir & "\00TempFile.vbs", 0, True)
WScript.Sleep 1000
FileDelete = FSO.DeleteFile(TempDir & "\00TempFile.vbs", True)
Set OpenFile = Fso.OpenTextFile(TempDir & "\TotalFileSize1.tmp", 1)
AllText = OpenFile.ReadLine
FileNmr = OpenFile.ReadLine
OpenFile.Close
AverageFileSize = AllText / FileNmr
'---------------------------------------------------------------------------------------------------------
Do While AverageFileSize > DiskSpace
Set CreateFile = FSO.CreateTextFile(TempDir & "\00TempFile1.tmp", True)
CreateFile.Close
Set Folders1 = FSO.GetFolder(Folder3)
For Each Folder2 in Folders1.Subfolders
GetDir SourceFolder
Next
'Openfile and counter the number of entries - if odd then add todays date
Set OpenFile1 = FSO.OpenTextFile(TempDir & "\00TempFile1.tmp", 1)
Do While OpenFile1.AtEndOfStream = False
Counter = Counter + 1
OpenFile1.SkipLine
Loop
OpenFile1.Close
Var = Counter / 2
Var1 = Fix(var)
Var2 = Var - Var1
If Var2 < 1 AND Var2 > 0 Then
Set OpenFile1 = FSO.OpenTextFile(TempDir & "\00TempFile1.tmp", 8)
OpenFile1.WriteLine Date
OpenFile1.Close
End If
On Error Resume Next
'Open 00TempFile1.tmp and get oldedest date
Set OpenFile1 = FSO.OpenTextFile(TempDir & "\00TempFile1.tmp", 1)
Do While OpenFile1.AtEndOfStream = False
Date1 = OpenFile1.Read(10)
Date2 = Replace(Date1, "_", "/", 1)
OpenFile1.SkipLine
Date3 = OpenFile1.Read(10)
Date4 = Replace(Date3, "_", "/", 1)
OpenFile1.SkipLine
DateDiffNmbr = DateDiff("d", Date2, Date4)
If DateDiffNmbr < 0 Then
Date5 = Date4
Else
Date5 = Date2
End If
On Error Resume Next
DateArray(ArrayCounter) = Date5
On Error Goto 0
ArrayCounter = ArrayCounter + 1
ReDim Preserve DateArray(ArrayCounter)
Loop
On Error Goto 0
ReDim Preserve DateArray(UBound(DateArray) - 1)
x = 0
y = 1
Do While x < (UBound(DateArray) - 1)
Date1 = DateArray(x)
Date2 = DateArray(y)
DateDiffNmbr = DateDiff("d", Date1, Date2)
If DateDiffNmbr < 0 Then
DateArray(x) = DateArray(UBound(DateArray))
Else
DateArray(y) = DateArray(UBound(DateArray))
End IF
ReDim Preserve DateArray(UBound(DateArray) - 1)
ArrayVar = 0
Date1 = ""
Date2 = ""
DateDiffNmbr = ""
If UBound(DateArray) = 1 Then
Date1 = DateArray(0)
Date2 = DateArray(1)
DateDiffNmbr = DateDiff("d", Date1, Date2)
If DateDiffNmbr < 0 Then
OldestDate = Date2
Else
OldestDate = Date1
End IF
Date1 = ""
Date2 = ""
End If
Loop
Erase DateArray
Oldestdate1 = Replace(OldestDate, "/", "_", 1)
Set OpenFile2 = FSO.OpenTextFile(TempDir & "\00TempFile1.tmp", 1)
Do While OpenFile2.AtEndOfStream = False
Line1 = OpenFile2.ReadLine
IntStr1 = InStr(1, Line1, OldestDate1, vbTextCompare)
If IntStr1 > 0 Then
IntStr2 = InStr(1, Line1, ",", vbTextCompare)
DeleteFileName = Mid(Line1, IntStr2 + 1)
End If
Line1 = ""
Loop
OpenFile2.Close
FileExist = FSO.FileExists(DeleteFileName)
If FileExist = True Then
If AverageFileSize > DiskSpace Then
FileDelete = FSO.DeleteFile(DeleteFileName, True)
End If
End If
Loop
' SCript Execution
On Error Resume Next
Set Fso = CreateObject("Scripting.FilesystemObject")
IFFolderExists = Fso.FolderExists(BackupFolder)
IF IFFolderExists = False Then
CreateBackupFolder = Fso.CreateFolder(BackupFolder)
CreateNTbackupFolder = Fso.CreateFolder(NTBackupFolder)
CreateLogsFolder = Fso.CreateFolder(LogsFolder)
CreateArchiveFolder = Fso.CreateFolder(ArchiveFolder)
Create
End IF
' Delete all Backup log files.
'On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
FileDelete = Fso.DeleteFile(NTBackupFolder & "Logs\" & "*.*")
'On Error Goto 0
' Create Log File
Set Fso = CreateObject("Scripting.FileSystemObject")
Set CreateLogFile = Fso.CreateTextFile(LogsFolder & "Temp_" & JobName & ".log", True, TristateFalse)
With CreateLogFile
.WriteLine "Temp Log file for Backup Job " & JobName & ".bkf"
.WriteBlankLines(1)
CurrentTime = Now
.WriteLine JobName & "Started: " & VbTab & CurrentTime
.WriteBlankLines(1)
.Close
End With
WScript.Sleep 2000
' NTBackup Temp Log file will now be reffered to as BackupTempLog
BackupTempLog = LogsFolder & "Temp_" & JobName & ".log"
' Delete all NTBackup files in NTBackup folder - if none exist resume script execution
'On Error Resume Next
FileDelete = Fso.DeleteFile(NTBackupFolder & "*.bkf") ' Change this to only delete files if number of files > 4
'On error Goto 0
' Set up access to %Temp variable%
Set WshShell = WScript.CreateObject("WScript.Shell")
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%") & CHR(92)
' Delete all NTBackup log files.
'On Error Resume Next
FileDelete = Fso.DeleteFile(UserProfile & "\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\" & "*.log")
'On Error Goto 0
' Run NTBackup and backup Folder
set ObjShl = WScript.CreateObject("WScript.Shell")
RunNTBackup = ObjShl.Run("NTBackup.exe backup @" & BackupRootFolder & FileSelectionFileName & " /j " & CHR(34) & "NTBackup_" & _
TodaysDate & CHR(34) & " /f " & CHR(34) & NTBackupFolder & "NTBackup_" & TodaysDate & "_" & JobType & ".bkf " & _
CHR(34) & " /L:f /M " & JobType & " /SNAP:on", 0, True)
' Get Backup Job Log filename
NTBackuplogFileName = Fso.MoveFile(UserProfile & "\Local Settings\Application Data\Microsoft\Windows NT" & _
"\NTBackup\data\*.log", LogsFolder)
WScript.Sleep 2000
' Start CMD and rename NTBackup log file
StartCMD = ObjShl.Run("%Comspec% /C Rename " & LogsFolder & "Backup*.log NTBackup_Temp_" & _
JobName & ".log", 0, True)
' NTBackup lof file now referred to as TempLog
NTBackupTempLog = LogsFolder & "NTBackup_Temp_" & JobName & ".log"
Wscript.Sleep 3000
' Create Final Log
Set ObjFileHandle = Fso.CreateTextFile(LogsFolder & JobName & "_" & JobType & ".log", True, TriStateFalse)
FinalLog = LogsFolder & JobName & "_" & JobType & ".log"
WSCript.Sleep 1000
' Run Type command and create new log file that can be read by vbscript
StartCMDType = ObjShl.Run("%Comspec% /C Type " & NTBackupTempLog & " > " & NTBackupTempLog & ".temp", 0, True)
LastTempFile = NTBackupTempLog & ".temp"
WScript.Sleep 4000
Set ObjFileHandle = Fso.OpenTextFile(LastTempFile, 1)
BackupTempLogData = objFileHandle.ReadAll
objFileHandle.Close
Set ObjFileHandle = Fso.OpenTextFile(FinalLog, 2)
ObjFileHandle.WriteLine "Backup Log for Job: " & vbTab & JobName & ".bkf"
ObjFileHandle.WriteBlankLines(2)
ObjFileHandle.WriteLine BackupTempLogData
ObjFileHandle.WriteBlankLines(2)
ObjFileHandle.WriteLine JobName & " Complete: " & DayOfTheWeek & vbTab & CurrentTime
ObjFileHandle.Close
'End If
WScript.Sleep 3000
' Check for existence of log file
IfFileExists = Fso.FileExists(FinalLog)
If IfFileExists = False Then
Set EventViewer = WScript.CreateObject("WScript.Shell")
EventViewer.LogEvent 1, "VBScript BackupJob " & JobName & "Error - Log File was not Created."
End If
' Copy Final Log to Archive folder
Set Fso = CreateObject("Scripting.FileSystemObject")
ObjFileHandle = Fso.CopyFile(FinalLog, ArchiveFolder)
WScript.Sleep 2000
' Delete all Backup log files.
'On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
FileDelete = Fso.DeleteFile(LogsFolder & "*.*")
'On Error Goto 0
' Email file to Backup Mail
ArchiveLog = ArchiveFolder & JobName & "_" & JobType & ".log"
Set WshShell = CreateObject("WScript.Shell")
TempDir1 = WshShell.ExpandEnvironmentStrings("%Temp%")
TempDir = TempDir1 & "\"
Set objFso = CreateObject("Scripting.FileSystemObject")
CopyLog = objFso.CopyFile(ArchiveLog, TempDir, True)
Set SNAPMail = CreateObject("CDO.Message")
SNAPMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
SNAPMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
SNAPMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPServerPort
SNAPMail.Configuration.Fields.Update
SNAPMail.Subject = "Backup Log for " & JobName
SNAPMail.From = FromAddress
SNAPMail.To = ToAddress
SNAPMail.TextBody = "if " & FinalLog & " is not attached, you can find it at: " & vbCrLf & vbCrLf & ArchiveLog & vbCrLf
SNAPMail.AddAttachment TempDir & FinalLog
SNAPMail.Send
Function GetDir(strDir)
Dim File, Folder, Folder1
strDir = Folder3 & Folder2.Name
Set Folder = FSO.GetFolder(strDir)
For each File in Folder.Files
FileName = File.Name
DateCreated = Mid(FileName, 10, 10)
FilePath = File.Path
Set OpenFile = FSO.OpenTextFile(TempDir & "\00TempFile1.tmp", 8, False, 0)
OpenFile.WriteLine datecreated & "," & FilePath
OpenFile.Close
Next
For Each Folder1 in Folder.SubFolders
GetDir(Folder1.path)
Next
End Function
Set DiskSpace=Nothing
Set DriveName=Nothing
Set Ready=Nothing
Set ClngDiskSpace=Nothing
Set IntStrCompare=Nothing
Set IntStr1Count=Nothing
Set StringLength=Nothing
Set FSO=Nothing
Set FileName=Nothing
Set SourceFolder=Nothing
Set Folders1=Nothing
Set Folder1=Nothing
Set Folder2=Nothing
Set strDir=Nothing
Set Folder3=Nothing
Set OldestDate1=Nothing
Set FilePath=Nothing
Set TempDir=Nothing
Set WSH=Nothing
Set CreateFile=Nothing
Set OpenFile=Nothing
Set DateCreated=Nothing
Set OpenFile1=Nothing
Set Date1=Nothing
Set Date2=Nothing
Set Date3=Nothing
Set Date4=Nothing
Set DateDiffNmbr=Nothing
Set Date5=Nothing
Set x=Nothing
Set ArrayCounter=Nothing
Set ViewArray=Nothing
Set y=Nothing
Set z=Nothing
Set OldestDate=Nothing
Set ArrayVar=Nothing
Set Counter=Nothing
Set Var=Nothing
Set Var1=Nothing
Set Var2=Nothing
Set DeleteFileName=Nothing
Set Line1=Nothing
Set OpenFile2=Nothing
Set IntStr1=Nothing
Set StringLenth=Nothing
Set IntStr2=Nothing
Set FileExist=Nothing
Set FileDelete=Nothing
Set IntStrCompare1=Nothing
Set IntCounter1=Nothing
Set Run=Nothing
Set AverageFileSize=Nothing
Set IntStrRev1=Nothing
Set IntCounter=Nothing
Set AllText=Nothing
Set SourceFolderParsed=Nothing
Set IntStrDiff=Nothing
Set FileNmr=Nothing
set WshShell=nothing
set objFso=nothing
set SNAPMail=nothing
Set TodaysDate = Nothing
Set BackupFolder = Nothing
Set NTBackupFolder = Nothing
Set JobName = Nothing
Set ArchiveFolder = Nothing
Set LogsFolder = Nothing
Set JobType = Nothing
Set FileSelectionFileName = Nothing
Set BackupRootFolder = Nothing
Set EmailFolder = Nothing
Set BackupNSServer = Nothing
Set SMTPServer = Nothing
Set SMTPServerPort = Nothing
Set FromAddress = Nothing
Set Fso = Nothing
Set BackupTempLog = Nothing
Set StartCMD = Nothing
Set StartCMDType = Nothing
Set ObjFileHandle = Nothing
Set objFso = Nothing
Set SNAPMail = Nothing
Set ArchiveLog = Nothing
Set TempDir1 = Nothing
Set TempDir = Nothing
On Error Goto 0
Web site contents © Copyright Alan Phipps 2006, All rights reserved.
Website templates |
