Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
Sub sbDefrag() set WshShell = CreateObject("WScript.Shell") Dim WshShell, Result, objFSO, objNetwork Result = WshShell.Popup("Weekly Computer Maintenance Is Being Preformed Please Do Not Log onto this Machine! The I.T. Department.", 10, "Title", 65) If result = 1 or Result = -1 THEN set WshShell = CreateObject("WScript.Shell") 'Runs a clean up on the C: Drive WshShell.Run "cleanmgr /sagerun:100" WScript.Sleep 5000 'Cleans out the WIndows XP Prefetch directory Const DeleteReadOnly = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("C:\WINDOWS\Prefetch\*.*"), DeleteReadOnly objFSO.DeleteFile("C:\WINDOWS\Prefetch\*"), DeleteReadOnly
|How to do something in VB script if the number of lines in the text file exceeds a value||14||29|
|how to pick files up from ftp via script||8||46|
|Cannot get VBScript to run as schedules task||10||28|
|Visual Studio search word table and return Cell index||8||37|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!