See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
'Defrags all drives Const LogFile = "f:\log\Defrag.log" Const DriveTypeRemovable = 1 Const DriveTypeFixed = 2 Const DriveTypeNetwork = 3 Const DriveTypeCDROM = 4 Const DriveTypeRAMDisk = 5 Set FSO = CreateObject("Scripting.FileSystemObject") Set Drives = FSO.Drives For each Drive in Drives if Drive.DriveType = 2 then RunCmd Drive end if Next Sub RunCmd(DriveString) Set WshShell = WScript.CreateObject("WScript.Shell") RunString = "%comspec% /c echo " & WeekDayName(WeekDay(Now), True) & " " & Now & " " & DriveString Return = WshShell.Run(RunString & " >> " & LogFile & " 2>&1", 0, TRUE) RunString = "%comspec% /c %WINDIR%\System32\Defrag.exe " & DriveString & " -f" Return = WshShell.Run(RunString & " >> " & LogFile & " 2>&1", 0, TRUE) Set WshShell = Nothing End Sub
|WPF - External data binding to controls inside a UserControl||2||43|
|Visual studio community prompts to sign in and how to use without signing in\is there a different way to set up.||7||97|
|Best way to configure an old server?||13||99|
|microsoft windows server 2008 r2 , keeps restarting||8||46|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!