Все, разобрался сам,вот код:
Dim WshShell
'Создаем объект WshShell:
Set WshShell = WScript.CreateObject("WScript.Shell")
'Вызываем Блокнот и добавляем к нему в качестве параметра
'путь исполняемого сценария:
WshShell.Run "%windir%\notepad " & WScript.ScriptFullName,0,true
|