Trying to convert this VBscript to Autoit

[kpu]

I used VA converter to convert it along with some minor changes I made to correct it, but can't get it to work. This script should monitor regkeytree for changes. See the VBscript below code.

#include <file.au3>
Dim $strComputer,$wmiServices,$wmiSink
$strComputer = @ComputerName
$wmiServices = ObjGet("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\default")

$wmiSink = ObjCreate("WbemScripting.SWbemSink", "SINK_") 
 $wmiServices.ExecNotificationQueryAsync ($wmiSink, _
    "SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' " & _
        "AND KeyPath='SYSTEM\\CurrentControlSet\\Control\\lsa'") 
 
;_FileWriteLog ("log.log","Listening for Registry Change Events..." & @CRLF )
 
While 1 
  Sleep (1000) 
Wend 
 
Func SINK_OnObjectReady($wmiObject, $wmiAsyncContext) 
    _FileWriteLog ("log.log","Received Registry Change Event" & @CRLF & $wmiObject.GetObjectText)
EndFunc

Here's the acctual VBSscript

strComputer = "."
Set wmiServices = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")

Set wmiSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") 
 
wmiServices.ExecNotificationQueryAsync wmiSink, _ 
    "SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' " & _
        "AND KeyPath='SYSTEM\\CurrentControlSet\\Control\\lsa'" 
 
WScript.Echo "Listening for Registry Change Events..." & vbCrLf 
 
While(1) 
    WScript.Sleep 1000 
Wend 
 
Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) 
    WScript.Echo "Received Registry Change Event" & vbCrLf & _ 
        wmiObject.GetObjectText_() 
End Sub

[DaleHohm]

I think that you need to break out your event handler definition into a seperate statement... try this:

$wmiSink = ObjCreate("WbemScripting.SWbemSink") 
$sink = ObjEvent($wmiSink, "SINK_")

Dale

[kpu]

Thanks Dale!

Here's the updated and working code. I had to make some other small changes, but it works good.

#include <file.au3>
Dim $strComputer,$wmiServices,$wmiSink
$strComputer = @ComputerName
$wmiServices = ObjGet("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\default")
    
$wmiSink = ObjCreate("WbemScripting.SWbemSink")
$sink = ObjEvent($wmiSink, "SINK_")
$wmiServices.ExecNotificationQueryAsync ($wmiSink, _
    "SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' " & _
        "AND KeyPath='SYSTEM\\CurrentControlSet\\Control\\lsa'")

_FileWriteLog ("log.log","Listening for Registry Change Events...")
While 1
  Sleep (1000)
Wend

Func SINK_OnObjectReady($wmiObject, $wmiAsyncContext)
    MsgBox(32,"",$wmiObject.GetObjectText_());Received Registry Change Event" & $wmiObject.GetObjectText)
    _FileWriteLog ("log.log","Received Registry Change Event " & $wmiObject.GetObjectText_() & @CRLF)
EndFunc