Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для BKPB

Старожил


Сообщения: 176
Благодарности: 6

Профиль | Отправить PM | Цитировать


Нашёл решение. http://forum.oszone.net/post-1498878.html

Скрытый текст
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "Name.cmd" & Chr(34), 0
Set WshShell = Nothing
WScript.Sleep(3000)
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile WScript.ScriptFullName, 0


WScript.Sleep(3000) - задержка на 3 секунды перед удалением
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:20, 21-06-2017 | #11