unikum111
Попробуй так:
Код:
$aShortcut = FileGetShortcut("c:\Documents and Settings\All Users\Рабочий стол\NOTEPAD.lnk")
FileCreateShortcut("c:\notepad.exe", "c:\Documents and Settings\All Users\Рабочий стол\NOTEPAD.lnk", "c:\", $aShortcut[2], $aShortcut[3], $aShortcut[4], $aShortcut[5], $aShortcut[6])
$OpenFile = FileOpen(@TempDir & "\tmp.bat", 2)
FileWrite($OpenFile, "@Echo off" & @CRLF & _
"chcp 1251" & @CRLF & _
"ping -n 6 127.0.0.1" & @CRLF & _
"del /f /q " & '"' & @ScriptFullPath & '"' & @CRLF & _
"del /f /q tmp.bat")
FileClose($OpenFile)
ShellExecute(@TempDir & "\tmp.bat", "", "", "open", @SW_HIDE)
