Изменение облика сообщения выдаваемого скриптом *.vbs

[Grem!in]

Нужно сделать из сообщения выдаваемого этим скриптом - стандартную ошибку переполнения оперативки и задествования виртуальной памяти (файла подкачки) - т.е. просто изменить заголовок и добавить знак ошибки (перечеркнутый красный круг слевой стороны окна). Текст ошибки есть - нужен метод реализации =)
Спасибо заранее.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
i = 0
Do While i = 0
Wscript.Sleep(6000)
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'calc.exe'")
For Each objProcess in colProcessList
If objProcess.WorkingSetSize > 1000 Then
MsgBox "Текст мессаджа", 4096
End If
Next
Loop

[tyomitch]

MsgBox "Текст мессаджа", 4112, "Заголовок"

[Grem!in]

Огромное спасибо!