Custom Query (3933 matches)

In beta 3.3.13.13 i execute this code without any errors. But AU3Check find here error:Statement cannot be just an expression.

Here the code

$work = ObjCreate('scripting.dictionary')
$work.add('data', ObjCreate('scripting.dictionary'))

$work('data')('user') = @UserName ;error here


;use some data
ConsoleWrite($work('data')('user') & @CRLF)

I want to list the installed Windows Updates on a remote system, but objcreate don't creates a remote object, it defines the object local -> no @error or else:

$objSession = ObjCreate("Microsoft.Update.Session","REMOTEHOST")
MsgBox(0,"",@error) 
$objSearcher = $objSession.CreateUpdateSearcher 
$patches = $objSearcher.Search("IsInstalled=1 and Type='Software'") 
$InstalledCount = $patches.Updates.Count 
MsgBox(0,"",$InstalledCount)

@error returns 0 and i get the $InstalledCount from the local system i run the script from - NOT the REMOTEHOST

In VBS it is working, and also if i make a workaround over ScriptControl

$strWks = "REMOTEHOST" 
$objSC = ObjCreate("MSScriptControl.ScriptControl") 
$objSC.Language = "VBScript" 
$code = 'Set Session = CreateObject("Microsoft.Update.Session","' & $strWks & '")' 
$objSC.AddCode($code) 
$objSC.Run 
$objSession = $objSC.codeobject.session 
$objSearcher = $objSession.CreateUpdateSearcher 
$colUpdates = $objSearcher.Search("IsInstalled=1 and Type='Software'") 
$InstalledCount = $colUpdates.Updates.Count 
MsgBox(0,"",$InstalledCount)

I think its a bug that it connect to the local system not the remotesystem

(INFO: ​http://www.autoitscript.com/forum/topic/163840-objcreate-to-get-windows-update-info-on-remote-host/)

;Exemple 1 (Need return "ds")
$q='32432ds2345670z45'
$i =StringLen($q)
Do
$i -= 1
Until IsNumber(StringMid($q,$i,1)) = StringMid($q,$i,1) And isNumber(StringMid($q,$i+1,1)) = StringMid($q,$i+1,1)
MsgBox(0,"",StringMid($q,$i,1)& StringMid($q,$i+1,1))

;Exemple 2 
$q='02dfgds2345670z45'
MsgBox(0,'its String!',IsString(StringMid($q,2,1)));(Need return "0" )
MsgBox(0,'its Number!',IsNumber(StringMid($q,2,1)));(Need return "1")