Берите библиотеку:
Обзор библиотеки AutoItX3.dll, регистрируйте её, пользуйте:
читать дальше »
Код:
Option Explicit
Const strWindow = "[REGEXPTITLE:^.* - Блокнот$; CLASS:Notepad]"
Dim objAutoItX3
Set objAutoItX3 = WScript.CreateObject("AutoItX3.Control")
Do
If objAutoItX3.WinGetState(strWindow) And 16 = 16 Then
objAutoItX3.WinSetState strWindow, "", objAutoItX3.SW_RESTORE
End If
WScript.Sleep 5000
Loop
WScript.Quit 0
P.S. Зачем это Вам?