Adding Message to a running console window

[dseaver]

I have a script that calls Acronis True Image restore from the cmd console, the line follows. Is there a way to change the title to the window to "Do Not Close" and also, display "Do Not Close" on the line before True Image is called?

MyObj.Run """c:\program files\acronis\trueimageworkstation\trueimagecmd.exe"" /filerestore /asz:1 /index:1"

 

[dseaver]

Is there also a way to log when this command completes itself?

 

[dseaver]

I found logging options, just need the messaging

 

[dseaver]

On the Same subject, how can I make the following line work, along with the first Requirement (Do Not Close Message)

dim
log = "D:\AcronisLogs\Restore" & month(date) & "_" & day(date) & "_" & year(Date) & ".log"

'Calls Acronis to restore the first backup store in the Acronis Secure Zone
Dim MyObj
Set MyObj=CreateObject("WScript.Shell")
MyObj.Run """c:\program files\acronis\trueimageworkstation\trueimagecmd.exe"" /filerestore /asz:2 /index:3 /log:" & log

 

[dseaver]

FOund the error in the dim line, just the first request

 

[dseaver]

Is it just not possible? From first post:
I have a script that calls Acronis True Image restore from the cmd console, the line follows. Is there a way to change the title to the window to "Do Not Close" and also, display "Do Not Close" on the line before True Image is called?

heres the whole script

' VBScript file for nightly Restoration of Acronis Backup
' Restores a predefined backup from the Acronis Secure Zone
' Creates a log file in D:\AcronisLogs





Const wshYes = 6
Const wshNo = 7
Const wshQuestionMark = 32
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Creates Log Directory
strFolderPath = "D:\AcronisLogs\"
If objFSO.FolderExists(strFolderPath) Then
Else
	objFSO.CreateFolder(strFolderPath)
End If
	
'Warining Messages
objShell.Popup "The C: drive is currently being restored, please be aware that personal data (desktop and My Documents) on the C: will be temporarily stored on the D: drive, then moved back to the C: drive. As such, you are urged that you save to the D: drive, so there is no risk of your data being lost.", _
    10, "Scheduled Task", wshQuestionMark
objShell.Run "C:\scripts\Message.vbs" 

dim log
log = "D:\AcronisLogs\Restore_" & Right("0" & hour(time),2) & Right("0" & minute(time),2) &  "_" & Right("0" & Month(Date),2) & "_" & Right("0" & Day(Date),2) & "_" & Year(Date) & ".log"

'Calls Acronis to restore the first backup store in the Acronis Secure Zone
Dim MyObj
Set MyObj=CreateObject("WScript.Shell")
MyObj.Run("""c:\program files\acronis\trueimageworkstation\trueimagecmd.exe"" /filerestore /asz:2 /index:3 /log:" & log)

WScript.quit

 

[JustinEzequiel]

try

MyObj.Run("cmd.exe /c start ""Do Not Close"" ""c:\program files\acronis\trueimageworkstation\trueimagecmd.exe"" /filerestore /asz:2 /index:3 /log:" & log)

 

[dseaver]

Works perfectly, thanks!