...

[stuka]

.

Edited August 23, 2009 by stuka

[Paulie]

See DriveGetDrive in the help:

$var = DriveGetDrive( "all" )
If NOT @error Then
    MsgBox(4096,"", "Found " & $var[0] & " drives")
    For $i = 1 to $var[0]
        MsgBox(4096,"Drive " & $i, $var[$i])
    Next
EndIf

[MrCreatoR]

$DrivesArr = DriveGetDrive("FIXED") ;Change "FIXED" to "ALL" if you need not only local drives
If Not @error Then
    For $i = 1 To $DrivesArr[0]
        If FileExists($DrivesArr[$i] & "\Autorun.inf") Then FileDelete($DrivesArr[$i] & "\Autorun.inf")
    Next
EndIf

Edited September 16, 2007 by MsCreatoR

[MrCreatoR]

But, could you explain how your script works so I won't blindly use it without first understanding it

Read the help file, there is nothing dificult in my script

It only deletes the files found in the root directory right?

Yes.

[Monamo]

oh yea, MsCreatoR, if I want the script to create/update a logfile everytime it deletes an 'autorun.inf' file, how do I do it?

I should also include the drive name that was cleared.

You'd just throw it into the IF statement:

$logfile = "C:\Test\AutorunDeletes.log"
$DrivesArr = DriveGetDrive("FIXED") ;Change "FIXED" to "ALL" if you need not only local drives
If Not @error Then
    FileOpen($logfile, 1)
    For $i = 1 To $DrivesArr[0]
        If FileExists($DrivesArr[$i] & "\Autorun.inf") Then
            FileDelete($DrivesArr[$i] & "\Autorun.inf")
            FileWriteLine($logfile, "Autorun.inf deleted from drive " & $DrivesArr[$i])
        EndIf
    Next
    FileClose($logfile)
EndIf

Edit: Syntax

Edit2: See below, MsCreatoR caught an error control instance I missed

Edited September 20, 2007 by Monamo

[MrCreatoR]

jackit

MsCreatoR? You there?

Yes

As Monamo seguested, you write to file every time the file deleted... but in his example there one missed checking (if file was realy deleted)

$logfile = "C:\Test\AutorunDeletes.log"
$DrivesArr = DriveGetDrive("FIXED") ;Change "FIXED" to "ALL" if you need not only local drives
If Not @error Then
    FileOpen($logfile, 1)
    For $i = 1 To $DrivesArr[0]
        If FileExists($DrivesArr[$i] & "\Autorun.inf") Then
            $Time = @HOUR & ":" & @MIN & ":" & @SEC
            $LogLine = $Time & "> Autorun.inf was deleted from drive " & $DrivesArr[$i]
            If Not FileDelete($DrivesArr[$i] & "\Autorun.inf") Then _
                $LogLine = $Time & "> There was a problem to delete Autorun.inf from drive " & $DrivesArr[$i]
            FileWriteLine($logfile, $LogLine)
        EndIf
    Next
    FileClose($logfile)
EndIf

Edited September 20, 2007 by MsCreatoR

[Monamo]

Nice, but what about '_FileWriteLog'?

Yep, that'll work, too. Plus with _FileWriteLog, you'll get the added bonus of timestamps (if you need them).

[Zedna]

Try this:

; scan results label
$scanresults = TrayCreateMenu ("Scan Results")
$viewlog = TrayCreateItem ("View Log", $scanresults)
$deletelog = TrayCreateItem ("Delete Log", $scanresults)
TraySetState ()

While 1

    $msg = TrayGetMsg ()
    Select
        Case $msg = 0
            ContinueLoop


; ----- view log label-----
        Case $msg = $viewlog
            
            ShellExecute (@ScriptDir & "\results.log" )
            
            ; ----- delete log label-----
        Case $msg = $deletelog
            
            FileDelete (@ScriptDir & "\results.log")

Edited September 20, 2007 by Zedna

[MrCreatoR]

jackit

My final version:

It will not give a right results in some cases...

You not checking if file was realy deleted... and you do not have to check if file exists to set attribut or try to delete it:

While 1

    TrayGetMsg ()

    ; delete autorun.inf files from root directories Drive A:\ - Z:\
    $DrivesArr = DriveGetDrive ("ALL")
    If Not @error Then
        For $i = 1 To $DrivesArr[0]
            FileSetAttrib ($DrivesArr[$i] & "\autorun.inf", "-RSH")
            If FileDelete ($DrivesArr[$i] & "\autorun.inf") Then _FileWriteLog(@ScriptDir & "\results.log","Autorun.inf deleted from drive " & $DrivesArr[$i] & @CRLF & @CRLF)
        Next
    EndIf

WEnd

it doesnt open the log file

FileOpen() not realy opening anything except the access to the file (it returns the file handel, so later you can write to file or read from it - depends on the opening mode, and in the end you must close the file with FileClose()).

[MrCreatoR]

Ok, try this (it's answer on your bouth questions):

expandcollapse popup

#include <File.au3>

While 1
    TrayGetMsg ()
    ; delete autorun.inf files from root directories Drive A:\ - Z:\
    $DrivesArr = GetRemAndFixedDrives()
    If Not @error Then
        For $i = 1 To $DrivesArr[0]
            If FileExists($DrivesArr[$i] & "\autorun.inf") Then
                FileSetAttrib($DrivesArr[$i] & "\autorun.inf", "-RSH")
                $FileDeleted = FileDelete($DrivesArr[$i] & "\autorun.inf")
                $WriteLine = "autorun.inf file deleted from drive " & $DrivesArr[$i]
                If $FileDeleted = 0 Then $WriteLine = "Can not delete autorun.inf"
                _FileWriteLog(@ScriptDir & "\results.log", $WriteLine & @CRLF & @CRLF)
            EndIf
        Next
    EndIf
    Sleep(100)
WEnd

Func GetRemAndFixedDrives()
    Local $RetErr = 0
    Local $RetDrivesArr = DriveGetDrive("REMOVABLE")
    If @error Then
        Local $RetDrivesArr[1]
        $RetErr = 1
    EndIf
    Local $FixedDrivesArr = DriveGetDrive("FIXED")
    If @error And $RetErr Then Return SetError(1)
    
    Local $Ubound
    
    For $i = 1 To UBound($FixedDrivesArr)-1
        $Ubound = UBound($RetDrivesArr)
        ReDim $RetDrivesArr[$Ubound+1]
        $RetDrivesArr[$Ubound] = $FixedDrivesArr[$i]
    Next
    $RetDrivesArr[0] = $Ubound
    Return $RetDrivesArr
EndFunc