E14– Windows Server Backup on DAG–Part6-BalanceDbsByActivationPreference

 

 

1.

@echo off For /f "tokens=1-3 delims=/ " %%a in ('date /t') do (set date=%%a-%%b-%%c) For /f "tokens=1-2 delims=: " %%a in ('time /t') do (set time=%%a:%%b) rem echo The date is %date% rem echo The time is %time% set backuplog="c:\batch\WSB\BackupLog\"%computername%-WSB.txt"" echo. Start:%date%  %time%  >> %backuplog% echo. ================================== >> %backuplog% Rem ================================== wbadmin start backup  -backupTarget:B: -include:P:,S:,T:,U:,V:,W:  -vssFull -quiet >> %backuplog% Rem ================================== echo. ================================== >> %backuplog% echo. End    >> %backuplog% For /f "tokens=1-3 delims=/ " %%a in ('date /t') do (set date=%%a-%%b-%%c) For /f "tokens=1-2 delims=: " %%a in ('time /t') do (set time=%%a:%%b) echo. Start:%date%  %time%  >> %backuplog% echo. ================================== >> %backuplog%   Rem ================================== cscript C:\Batch\WSB\Backupnotify.vbs Rem ================================== copy "c:\batch\WSB\BackupLog\"%computername%-WSB.txt"" "c:\batch\WSB\BackupLog\"%computername%-WSB_%date%.txt"" /Y del  "c:\batch\WSB\BackupLog\"%computername%-WSB.txt"" Timeout /T 100 Rem ================================== PowerShell.exe -command ". C:\Batch\WSB\PS_RedistributeActiveDatabase_after-WSB.ps1" Rem ================================== Cscript C:\Batch\WSB\DB_Active_Notify.vbs Rem ================================== del  "C:\Batch\WSB\DB_Activation_Log\DB_Activation.txt"

 

2.
PowerShell.exe -command ". C:\Batch\WSB\PS_RedistributeActiveDatabase_after-WSB.ps1

D:\Exchsrvr\Scripts\.\RedistributeActiveDatabases.ps1 -ShowDatabaseDistributionByServer | ft -AutoSize >>"C:\Batch\WSB\DB_Activation_Log\DB_Activation.txt" D:\Exchsrvr\Scripts\.\RedistributeActiveDatabases.ps1 -BalanceDbsByActivationPreference -Confirm:$false D:\Exchsrvr\Scripts\.\RedistributeActiveDatabases.ps1 -ShowDatabaseDistributionByServer | ft -AutoSize >>"C:\Batch\WSB\DB_Activation_Log\DB_Activation.txt"

 

3.
Cscript C:\Batch\WSB\DB_Active_Notify.vbs

On Error Resume Next Set net = CreateObject("WScript.Network") sCompName = net.Computername Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile ("C:\Batch\WSB\DB_Activation_Log\DB_Activation.txt", ForReading, True, -1) strText = objTextFile.ReadAll Wscript.Echo strText m=Month(Now) d=Day(Now) s=Second(Now) If (m<10) Then     m="0" & m End If If (d<10) Then     d="0" & d End If sDate = Y & M & D Set email = CreateObject("CDO.Message")' email.From = ""&sCompName&"@MSFT.com" email.To = "Johnny.Yao@MSFT.Com" email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.82.131.80" email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 email.Configuration.Fields.Update email.Subject = ""&sDate&" -  "&sCompName&"_DB Activation Log" email.TextBody = strText email.AddAttachment "C:\Batch\WSB\DB_Activation_Log\DB_Activation.txt" email.Send Set email = nothing objTextFile.Close