Running Context Menu Handlers Using Script

[NaTaN]

(1st post... in here)

I'm trying to write a script for automated virus scan.

some antiviruses (like ClamAV) aren't supporting scanning a path with a GUI using a command line, only using a Context Menu (right clicking the drive/folder and choosing 'virus scan' from the list).

i'm looking for a way to execute the dll that launches the virus scan from a script.

from the registry i've learned that each context menu has a GUID (winzip's is {E0D79304-84BE-11CE-9641-444553540000})

searching the registry for the GUID, i found it under HKCR\CLSID\{E0D79304-84BE-11CE-9641-444553540000}

with subkey named InProcServer32, where default is C:\PROGRA~1\UTILIT~1\WINZIP\WZSHLSTB.DLL and ThreadingModel is Apartment.

my logics say - there's must a way to execute this DLL...

i guess it can be something like running rundll32 wzshlstb.dll,magicword "c:\"...

if anyone of you have idea. do share this information with me and the rest of the forum...

(i apologize if similiar answer is avaliable in the forum, i haven't find it.)

NaTaN

No One Answered yet... - nice place to backup other script:

expandcollapse popup

#include <Misc.au3>
#include <GUIConstants.au3>
Opt("ColorMode", 1)
$title = "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC
$fontsize = 20
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate($title, 633, 131, 193, 115)
$Input1 = GUICtrlCreateInput("Enter...", 8, 8, 545, 115, $ES_MULTILINE + $ES_WANTRETURN)
GUICtrlSetFont(-1, $fontsize, 400, 0, "Arial")
$Slider1 = GUICtrlCreateSlider(560, 8, 33, 113, BitOR($TBS_VERT, $TBS_AUTOTICKS), $WS_EX_STATICEDGE)
$Button1 = GUICtrlCreateButton("FG", 600, 8, 25, 55, 0)
$Button2 = GUICtrlCreateButton("BG", 600, 65, 25, 55, 0)
GUICtrlSetLimit($Slider1, 72, 20)
GUICtrlSetData($Slider1, $fontsize)
GUISetState(@SW_SHOW)
$txt = GUICtrlRead($Input1)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Slider1
            GUICtrlSetFont($Input1, GUICtrlRead($Slider1))
            _UpdateTitle()
        Case $Button1
            $color = _ChooseColor()
            GUICtrlSetColor($Input1, $color)
            _UpdateTitle()
        Case $Button2
            $color = _ChooseColor()
            GUICtrlSetBkColor($Input1, $color)
            _UpdateTitle()
        Case Else
            If $txt <> GUICtrlRead($Input1) Then
                _UpdateTitle()
            EndIf
            $txt = GUICtrlRead($Input1)
    EndSwitch
WEnd
Func _UpdateTitle()
    If $title <> "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC Then
        WinSetTitle($title, "", "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC)
        $title = "Last Updated: " & @HOUR & ":" & @MIN & ":" & @SEC
    EndIf
EndFunc   ;==>_UpdateTitle

Edited September 19, 2006 by NaTaN