Jump to content

ScriptOMatic w/ArraySupport 0.2015.11.28

   (0 reviews)

1 Screenshot

About This File

generates a function that returns all results as an array from the WMI query.

added a StatusBar. ( was not easy to resize in win10 )
fixed COM handler in generated code

added a "nice" COM error handler ( in Autoit v3.2 if there is a COM error it'll tell you and no more run,
  in v3.3 it will let it slide but you don't realize there was one. So I put together a COM error handler
  that will gather all the errors and show'em to you in an array displayed by _ArrayDisplay. It includes
  the line number and the line of code it self. nice. )
added the Scite lexer. ( There are code generated that is over 6000 lines long and that is a bit too much for
  the edit control, so, I decided that since is gonna run in a PC that most likely is to have ScITE, using
  the DLL just makes sense. Everything that is needed is taken from your installation, colors, fonts, etc.
  In case that ScITE is not there, then, the edit control would be used. )

changed the CIMv2 button to switch between CIMv2 and WMI. ( is a more practical use of the button )
added some support for remote connections. ( executes remotely based in the classes discovered in local PC )
added Save to Disk for the filter by right-click the button. ( is anoying having to set it every time )
fix CPU usage was higher than needed in the main loop. ( ..less abuse on the PC )
added the position in the array to the "select properties". ( when an error pops up, the position is there,
 making it easier to find it in the listview )

fixed "Send to ScITE" ( wasn't working well )
added the ability to remove fields/properties from the generated arrays

fixed the combobox not working everywhere.
added setting to, in addition to Dynamic Classes, to include Abstract Classes.
added a filter ( easyer to look for what you need ).

added custom default setting for display array limit.
added custom GoogleIt search ( @SelectedClass is the macro word ).
added cache for the Class too ( since is much faster and there is no
 need to discover every time it runs ).
change cache from an entry in the ini to a file of its own and
 created a subfolder for them when in portable mode ( cleaner that way ).
changed the function generation to not have to pass an integer.
changed function names when longer than 60 characters
 ( Au3Check don't like infinitely long names ).
changed how F5 works. Now F5 runs and ESC stops.
changed code generation from "$Output = $Output &" to $sReturn &=".
added \root\namespace:class to the title bar.
added a class description above the list of methods ( it just makes sense ).
change the default spacing of Array_Join() ( to better identify it was joined ).
added a watcher for "Autoit error", to move it to the current screen ( ANSI version ).
fixed "Send To ScITE" incomplete send ( it was too much at once ).
added to "Send To ScITE" the option to send to a new tab or cursor position.
added to the ini, Editor='@ScriptDir & "\..\..\SciTE\SciTE.exe"' , to use in a portable
 setup, it will normally use ShellExecute(,,,"Edit")
added the settings of the editor to the settings GUI.
added a button to move the settings and cache from @AppDataDir to @ScriptDir
 ( to carry your settings and cache as portable ) and back again, if so you want to.
added a ScITE "installer", to add this app. to the tools menu.

fixed the way it returns a value when it, is an array.
changed the Google it string ( added "example" ).
added for all Properties and Methods with a ValueMap,
 functions to return value ( descriptions ).
added cache of namespaces to the ini file ( it was annoyingly slow ).
added full help. ( well, a list of all class, property and method Qualifiers ),
 to be found at the end of the code.

added refresh after closing the settings GUI to make 
 the changes reflect in the code already in the editbox

added preferred monitor to display _ArrayDisplay on
 the ANSI compile
changed internal works for Topmost and Multi-monitor
 so the code shown in the editbox is always clean
 of extraneous variables to both compiles.

2015.05.09  ( ANSI compile only )
added multi-monitor support to the ANSI compiled,
 just in case it fails, that's why not both compiles,
 so no change in the source code.
 In any case the code it generates is the same.

added option to Edit after save file ( why else would you save it )
added save path of saved file to ini, when ini file exists.
added Send to ScITE ( easier than copy and paste )
changed the default TAB width to 4 ( looks better in ScITE )

added keyboard shortcuts
 Ctrl-F11 to change font size
 Ctrl-T to change tab sizes
 the others are the underscore letter with Ctrl instead of Alt key
 ( but those should work with Alt. by default too )
added settings saving.
 default is @AppDataDir & '\ScriptOMaticForAutoIt3\ScriptOMatic.ini'
 but if one is found in @ScriptDir & '\ScriptOMatic.ini'
 that is the one to be used.
changed in the ANSI version to a more useful _ArrayDisplay version.
added cleanup on exit.
added tab adjustment.
added font choosing.
added font background color choosing.
added User or Admin mode info. to the title bar.
added option to set the string inside the cell (<td 'your string'>)
 for the user to change the default color and style
changed the debug info. to ToolTip, to be better aware of running status.
changed the way it writes TEXT and HTML to be so every 100 records.
added the ability to open the files from failed or prior runs
 by double-clicking the radio button.
changed file creation naming format
 to better identify them.

Better readability for HTML and Text outputs.
Left the state of the source code ready for the current version.
Added a v3.3.12.0 compiled version ( better behavior under Win 8.1 and 10 )
and renamed the ANSI version.

Fix a logic that would say fail when it was a limited listing of Namespaces,
it now tells that the listing is limited.

Added announcement of Admin. rights ( user might not know )
rethought the "_Array2D_toHtml.au3" to be an #include ( as it should have been )
reworked the Namespace combobox loading
went from MsgBox and ToolTip to TrayTip and TrayIconDebug ( less intrusive )
www search now "Google it" ( MSDN change the links format )
Fixed the compiled _ArrayDisplay from displaying off center

Added an array rotator ( at times I'd rather see it rotated )
Added an array to html ( to see the array on the browser ),
that also can be rotated ( it uses the array rotator )

Enable Ctrl-A, C, V, X, Z to use the keyboard
Prettified the output a bit more and corrected some typos.

And added press F5 like in ScITE, ( my finger just goes there ) to the Run button.
Also a "STOP" to the run ( at times I mess up and need to ProcessClose )
And set $MB_TOPMOST to the MsgBox ( so I don't loose them from sight )
And made the output of the array to be a function ( easier to use in a script ) 
And prettified the GUI a bit, not much.

==== EoF ====

In the zip is the source code for the current version and an AutoIt v3.2.12.1 ANSI compiled file that should run on any Windows version.


What's New in Version 0.2015.11.28


added a StatusBar. ( was not easy to resize in win10 )
fixed COM handler in generated code

User Feedback

You may only provide a review once you have downloaded the file.

There are no reviews to display.

  • Similar Content

    • By jguinch
      I did create these few functions several months ago. I post here, if it can interest someone.
      These functions based on WMI queries allow you to manage printers : add / delete printer, driver, port, or obtain configuration, set default printer ... I let you discover it with the code.

      Here is the list of the available functions :
      And some examples :
      #include <Array.au3> #include "PrintMgr.au3" _Example() Func _Example() ; Remove a printer called "My old Lexmark printer" : _PrintMgr_RemovePrinter("My old Lexmark printer") ; Remove the driver called "Lexmark T640" : _PrintMgr_RemovePrinterDriver("Lexmark T640") ; Remove the TCP/IP printer port called "TCP/IP" _PrintMgr_RemoveTCPIPPrinterPort("MyOLDPrinterPort") ; Add a driver, called "Samsung ML-451x 501x Series", and driver inf file is ".\Samsung5010\sse2m.inf" _PrintMgr_AddPrinterDriver("Samsung ML-451x 501x Series", "Windows NT x86", @ScriptDir & "\Samsung5010", @ScriptDir & "\Samsung5010\sse2m.inf") ; Add a TCP/IP printer port, called "MyTCPIPPrinterPort", with IPAddress = and Port = 9100 _PrintMgr_AddTCPIPPrinterPort("MyTCPIPPrinterPort", "", 9100) ; Add a printer, give it the name "My Printer", use the driver called "Samsung ML-451x 501x Series" and the port called "MyTCPIPPrinterPort" _PrintMgr_AddPrinter("My Printer", "Samsung ML-451x 501x Series", "MyTCPIPPrinterPort") ; Set the printer called "My Printer" as default printer _PrintMgr_SetDefaultPrinter("My Printer") ; Connect to the shared printer "\\\HPDeskjetColor") _PrintMgr_AddWindowsPrinterConnection("\\\HPDeskjetColor") ; List all installed printers Local $aPrinterList = _PrintMgr_EnumPrinter() _ArrayDisplay($aPrinterList) ; List all printers configuration Local $aPrinterConfig = _PrintMgr_EnumPrinterConfiguration() _ArrayDisplay($aPrinterConfig) ; List all installed printer drivers Local $aDriverList = _PrintMgr_EnumPrinterDriver() _ArrayDisplay($aDriverList) ; Retrieve the printer configuration for the printer called "Lexmark T640" $aPrinterConfig = _PrintMgr_EnumPrinterConfiguration("Lexmark T640") _ArrayDisplay($aPrinterConfig) ; Add a local printer port (for a file output) _PrintMgr_AddLocalPort("c:\temp\output.pcl") ; Remove the local port _PrintMgr_RemoveLocalPort("c:\temp\output.pcl") ; Enum a print job Local $aJobList = _PrintMgr_EnumPrintJobs() _ArrayDisplay($aJobList) EndFunc ;==>_Example Download link :
    • By hek
      Hey everyone,
      Was wondering how I would be able to implement this on a local computer instead of using connectserver? 
      Any suggestions or help would be appreciated. Thanks. 
    • By DirtyJohny
      Hi everyone.Need rewrite this function how in еxample.
      #RequireAdmin #NoTrayIcon Opt("MustDeclareVars",1) Func _a() Local $sls=ObjGet("winmgmts:{impersonationLevel=impersonate," _ &"authenticationLevel=Pkt}!\\"& _ @ComputerName&'\root\wmi'),$lss=$sls.ExecQuery _ ('SELECT * FROM WmiMonitorID'), _ $lll,$sll,$sss="",$lsl,$lls,$i,$z For $z In $lss $lsl=$z.UserFriendlyName For $i=0 To Ubound($lsl)-1 if ($lsl[$i]) Then $lll&=Chr($lsl[$i]) Next $lls=$z.SerialNumberID For $i=0 To Ubound($lls)-1 if ($lls[$i]) Then $sll&=Chr($lls[$i]) Next $sss&="Model"&@TAB&@TAB&": "&$lll&@CR&"Serial Number"&@TAB&": "&$sll&@CR&@CR $lll="" $sll="" Next MsgBox(262144,'Monitors '&$lss.Count,$sss&" "&@CR) $lss=Null $sls=Null EndFunc _a() Example:
      Func _InfoPC() Local $ObjService = ObjGet('winmgmts:{impersonationLevel = impersonate}!\\' & @ComputerName & '\root\cimv2') Local $ObjMB = $ObjService.ExecQuery('SELECT * FROM Win32_BaseBoard', 'WQL', 0x30) If IsObj($ObjService) Then For $objItemMB In $ObjMB $sInfo &= @TAB & 'Motherboard: ...... ' & $objItemMB.Product & @CRLF I'm beginner in this sphere and need  you all speak easy and simply because i'm Russian.Thanks)
    • By shital
      #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** RunAs(test", @ComputerName, "testinng",2,"wmic product where ""name= '%notepadexamples%'"" call uninstall", @SystemDir & "\wbem", @SW_MAXIMIZE)  it not working 
    • By Colduction
      Hi AutoIt Programmers!

      I've seen a code that gives Name of Group by writing it's group's SID, but this one response very slower than Windows Command-Line WMIC
      Func _GetLocalGroupName($sSID = 'S-1-5-18') $objWMIService = ObjGet ("winmgmts:\\" & @ComputerName & "\root\cimv2") $colItems = $objWMIService.ExecQuery('SELECT Name FROM Win32_Group where SID="' & $sSID & '"') For $GroupNames in $colItems MsgBox (0,"",$GroupNames.Name) ExitLoop Next EndFunc I don't want call and use any third-party programs even CMD, i just want use from Windows API, netapi32.dll or AutoIt Functions (Standalone).
      Do you have any idea to improve speed/performance of this code? I'll happy of your comments
      ====================== SOLOUTION by @Subz ======================
  • Create New...