Подскажите, как сделать задержку секунд на 10, перед выполнением команд:
Код:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
WinDir = WshShell.ExpandEnvironmentStrings("%windir%")
WshShell.Run "REG DELETE HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /V DisableTaskMgr /f", 0
FileDelete fso, WinDir & "\tweaks2.reg", True
FileDelete fso, WinDir & "\DT.exe", True
FileDelete fso, WinDir & "\reboot.exe", True
FileDelete fso, WinDir & "\Unlocker189.exe", True
FileDelete fso, WinDir & "\PuntoSwitcher31172.exe", True
FileDelete fso, WinDir & "\1365VidChng.exe", True
FileDelete fso, WScript.ScriptFullName, True
Function FileDelete(oFile, sFileName, bForce)
If oFile.FileExists(sFileName) Then
oFile.DeleteFile sFileName, bForce
End If
End Function
Function FolderDelete(oFile, sFolderName, bForce)
If oFile.FolderExists(sFileName) Then
oFile.DeleteFolder sFolderName, bForce
End If
End Function
