#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=C:\autoitscripte\scriptomatic.exe
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region                                                          ;**** Directives created by AutoIt3Wrapper_GUI ****
#EndRegion                                                       ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; AutoIt ScriptOMatic
; -------------------
;
; AutoIt's counterpart of Microsoft's Scriptomatic
;
; Author:        SvenP
; Date/version:    2005-04-17
; See also:        http://www.microsoft.com/technet/scriptcenter/tools/scripto2.mspx
; Requires:        AutoIt beta version 3.1.1.8 or higher (COM support!!)
;
; GUI generated by AutoBuilder 0.5 Prototype


; Filter added by Andy @ autoit.de

;************************
;* Global State Variables
;************************
global $g_strCurrentNamespace = "\root\CIMV2"
$g_iCurrentNamespaceIndex = 0
$g_strWMISource = "localhost"
$g_strOutputFormat = "Dialog"
Global $objClassDictionary
;************************
;* Main GUI
;************************

GUICreate("AutoIt Scriptomatic Tool", 684, 561, (@DesktopWidth - 684) / 2, (@DesktopHeight - 561) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$GUI_AST_MainGroup = GUICtrlCreateGroup("", 10, 10, 660, 530)
$GUI_WMI_NamespaceLabel = GUICtrlCreateLabel("WMI Namespace", 20, 30, 150, 20)
$GUI_WMI_Namespace = GUICtrlCreateCombo("WMI_Namespaces", 20, 50, 280, 80)
$GUI_WMI_ClassLabel = GUICtrlCreateLabel("WMI Class", 320, 30, 80, 20)
$GUI_WMI_Classes = GUICtrlCreateCombo("WMI_Classes", 320, 50, 340, 80)
$GUI_WMI_Filter = GUICtrlCreateButton("Filter", 450, 25, 70, 20)

$GUI_AST_ButtonGroup = GUICtrlCreateGroup("", 10, 80, 660, 50)
$GUI_AST_Run = GUICtrlCreateButton("Run", 20, 100, 50, 20)
$GUI_AST_CIMv2 = GUICtrlCreateButton("CIMv2", 80, 100, 50, 20)
$GUI_AST_WMISource = GUICtrlCreateButton("WMISource", 140, 100, 70, 20)
$GUI_AST_Open = GUICtrlCreateButton("Open", 220, 100, 60, 20)
$GUI_AST_Save = GUICtrlCreateButton("Save", 290, 100, 60, 20)
$GUI_AST_Quit = GUICtrlCreateButton("Quit", 360, 100, 60, 20)
$GUI_AST_OptionGroup = GUICtrlCreateGroup("Output", 430, 80, 240, 50)
$GUI_AST_RadioDialog = GUICtrlCreateRadio("Dialog", 440, 100, 50, 20)
$GUI_AST_RadioText = GUICtrlCreateRadio("Text", 510, 100, 50, 20)
$GUI_AST_RadioHTML = GUICtrlCreateRadio("HTML", 570, 100, 50, 20)
$GUI_AST_ScriptCode = GUICtrlCreateEdit("One moment...", 20, 140, 640, 390)

GUISetState()

; Initial GUI Settings
GUICtrlSetState($GUI_AST_Run, $GUI_DISABLE)
GUICtrlSetState($GUI_AST_Save, $GUI_DISABLE)
GUICtrlSetState($GUI_AST_RadioDialog, $GUI_CHECKED)

GUICtrlSetState($GUI_WMI_Filter, $GUI_DISABLE)



; Fill the WMI_Namespaces Combobox
LoadWMINamespaces()

; Fill the WMI_Classes Combobox
HandleNamespaceChange()
GUICtrlSetState($GUI_WMI_Filter, $GUI_ENABLE)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $GUI_AST_Quit
            ExitLoop
        Case $msg = $GUI_WMI_Filter
            Filter()
        Case $msg = $GUI_WMI_Namespace
            HandleNamespaceChange()
        Case $msg = $GUI_WMI_Classes
            ComposeCode()
        Case $msg = $GUI_AST_Run
            RunScript()
        Case $msg = $GUI_AST_Save
            SaveScript()
        Case $msg = $GUI_AST_Open
            OpenScript()
        Case $msg = $GUI_AST_CIMv2
            SetNamespaceToCIMV2()
        Case $msg = $GUI_AST_WMISource
            SetWMIRepository()
        Case $msg = $GUI_AST_RadioDialog Or _
                $msg = $GUI_AST_RadioText Or _
                $msg = $GUI_AST_RadioHTML
            HandleOutputChange()
    EndSelect
WEnd

GUIDelete()

Exit

;********************************************************************
;* LoadWMINamespaces
;********************************************************************
Func LoadWMINamespaces()
    $strCsvListOfNamespaces = ""
    $strNameSpacesCombo = ""

    $strWaitNamespaces = "Please wait, Loading WMI Namespaces"
    GUICtrlSetData($GUI_WMI_Namespace, $strWaitNamespaces, $strWaitNamespaces)

    EnumNamespaces("root", $strCsvListOfNamespaces)

    $arrNamespaces = StringSplit($strCsvListOfNamespaces, ",")

    For $strNamespace In $arrNamespaces
        $strNameSpacesCombo = $strNameSpacesCombo & "|" & $strNamespace
    Next

    GUICtrlSetData($GUI_WMI_Namespace, $strNameSpacesCombo, "ROOT\CIMV2")

EndFunc                                                          ;==>LoadWMINamespaces

;********************************************************************
;* EnumNamespaces
;********************************************************************
Func EnumNamespaces($strNamespace, ByRef $tmpCsvListOfNamespaces)

    If $tmpCsvListOfNamespaces = "" Then
        $tmpCsvListOfNamespaces = $strNamespace
    Else
        $tmpCsvListOfNamespaces = $tmpCsvListOfNamespaces & "," & $strNamespace
    EndIf

    $strComputer = $g_strWMISource
    $objWMIService = ObjGet("winmgmts:\\" & $g_strWMISource & "" & $strNameSpace)

    If Not @error Then

        $colNameSpaces = $objWMIService.InstancesOf("__NAMESPACE")

        For $objNameSpace In $colNameSpaces
            EnumNamespaces($strNameSpace & "" & $objNameSpace.Name, $tmpCsvListOfNamespaces)
        Next
    Else
        $tmpCsvListOfNamespaces = ""
    EndIf

EndFunc                                                          ;==>EnumNamespaces

;********************************************************************
;* HandleNamespaceChange
;********************************************************************
Func HandleNamespaceChange()

    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ; Clear the WMI classes pulldown location.
    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    $strSelectedNamespace = GUICtrlRead($GUI_WMI_Namespace)

    ; Disable the namespace combobox until class load has been completed
    GUICtrlSetState($GUI_WMI_Namespace, $GUI_DISABLE)

    $strWMIWaitMsg = "Please wait, trying to load WMI Classes in namespace " & $strSelectedNamespace
    GUICtrlSetData($GUI_WMI_Classes, $strWMIWaitMsg, $strWMIWaitMsg)
    GUICtrlSetData($GUI_AST_ScriptCode, "One moment...", "")

    LoadWMIClasses()
    $g_strCurrentNamespace = "" & $strSelectedNamespace

    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ; Clear the code textarea and disable run and save.
    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    GUICtrlSetData($GUI_AST_ScriptCode, "", "")

    GUICtrlSetState($GUI_WMI_Namespace, $GUI_ENABLE)
    GUICtrlSetState($GUI_AST_Run, $GUI_DISABLE)
    GUICtrlSetState($GUI_AST_Save, $GUI_DISABLE)

EndFunc                                                          ;==>HandleNamespaceChange

;********************************************************************
;* LoadWMIClasses
;*
;* Fetch all the classes in the currently selected namespace, and
;* populate the keys of a dictionary object with the names of all
;* dynamic (non-association) classes. Then we transfer the keys to
;* an array, sort the array, and finally use the sorted array to
;* populate the WMI classes pulldown.
;********************************************************************
Func LoadWMIClasses()

    Const $SORT_KEYS = 1
    Const $SORT_ITEMS = 2

    $objClassDictionary = ObjCreate("Scripting.Dictionary")
;~     ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $objClassDictionary = ' & $objClassDictionary & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    $objQualifierDictionary = ObjCreate("Scripting.Dictionary")
;~     ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $objQualifierDictionary = ' & $objQualifierDictionary & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

    $strComputer = "."
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & $g_strCurrentNamespace)
;~     ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $objWMIService = ' & $objWMIService & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

    If Not @error Then

        For $objClass In $objWMIService.SubclassesOf()

            For $objQualifier In $objClass.Qualifiers_()         ; Dummy (), because it ends with an underscore !
                $objQualifierDictionary.Add(StringLower($objQualifier.Name), "")
;~                 ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : StringLower($objQualifier.Name) = ' & StringLower($objQualifier.Name) & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
            Next

            If $objQualifierDictionary.Exists("dynamic") Then

                ;$TempVar = $objClass.Path_.Class
                ;$objClassDictionary.Add($TempVar, "")    ; Can't use object in arguments ?!!

                $objClassDictionary.Add($objClass.Path_.Class, "")

            EndIf

            $objQualifierDictionary.RemoveAll

        Next

        $objQualifierDictionary = ""

        ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ; If the current namespace contains dynamic classes...
        ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If $objClassDictionary.Count Then

            ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            ; Sort the dictionary.
            ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            SortDictionary($objClassDictionary, $SORT_KEYS)

            ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            ; Populate the WMI classes pulldown with the sorted dictionary.
            ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

            $strClassesCombo = "|Select a WMI class"

            For $strWMIClass In $objClassDictionary              ;  method .Keys is not an object ??

                $strClassesCombo = $strClassesCombo & "|" & $strWMIClass

            Next

            GUICtrlSetData($GUI_WMI_Classes, $strClassesCombo, "Select a WMI class")

        EndIf
    EndIf

    If @error Or $objClassDictionary.Count = 0 Then
        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ; And if the current namespace doesn't contain dynamic classes.
        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        GUICtrlSetData($GUI_WMI_Classes, "|No dynamic classes found in current namespace.|Select a different namespace", "")

    EndIf

    ;$objClassDictionary = ""

EndFunc                                                          ;==>LoadWMIClasses

;********************************************************************
;* SortDictionary
;*
;* Shell sort based on:
;* http://support.microsoft.com/support/kb/articles/q246/0/67.asp
;********************************************************************
Func SortDictionary(ByRef $objDict, $intSort)

    Const $dictKey = 1
    Const $dictItem = 2

    Dim $strDict[1][3]

    $intCount = $objDict.Count

    If $intCount > 1 Then

        ReDim $strDict[$intCount][3]

        $i = 0
        For $objKey In $objDict

            $strDict[$i][$dictKey] = String($objKey)
            $strDict[$i][$dictItem] = String($objDict($objKey))

            $i = $i + 1
        Next

        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ; Perform a shell sort of the 2D string array
        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        For $i = 0 To ($intCount - 2)
            For $j = $i To ($intCount - 1)
                If $strDict[$i][$intSort] > $strDict[$j][$intSort] Then
                    $strKey = $strDict[$i][$dictKey]
                    $strItem = $strDict[$i][$dictItem]
                    $strDict[$i][$dictKey] = $strDict[$j][$dictKey]
                    $strDict[$i][$dictItem] = $strDict[$j][$dictItem]
                    $strDict[$j][$dictKey] = $strKey
                    $strDict[$j][$dictItem] = $strItem
                EndIf
            Next
        Next

        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ; Erase the contents of the dictionary object
        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        $objDict.RemoveAll

        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ; Repopulate the dictionary with the sorted information
        ;''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        For $i = 0 To ($intCount - 1)
            $objDict.Add($strDict[$i][$dictKey], $strDict[$i][$dictItem])
        Next

    EndIf

EndFunc                                                          ;==>SortDictionary

;********************************************************************
;* ComposeCode
;********************************************************************
Func ComposeCode()

    $objClass = ""

    $strSelectedClass = GUICtrlRead($GUI_WMI_Classes)
    ; Check if a valid class has been selected
    If StringInStr($strSelectedClass, "Select a WMI class") = 0 Then

        $bHasDates = False                                       ; Flag: output has date fields
        $strHeaderStart = Chr(34)
        $strRowStart = Chr(34)
        $strColumnSeparator = ": "
        $strRowEnd = " & @CRLF"


        $strComputerCommand = "$strComputer = " & Chr(34) & $g_strWMISource & Chr(34)
;~         ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $strComputerCommand = ' & $strComputerCommand & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

        $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName &"\"& $g_strCurrentNamespace)
;~ 		ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : @ComputerName = ' & @ComputerName & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
;~         ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $g_strCurrentNamespace = ' & $g_strCurrentNamespace & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
;~         ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : "winmgmts://{impersonationLevel=impersonate}!" & @COMPUTERNAME & $g_strCurrentNamespace = ' & "winmgmts://{impersonationLevel=impersonate}!" & @ComputerName & $g_strCurrentNamespace & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
;~         ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $objWMIService = ' & $objWMIService & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
;~         ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $strSelectedClass = ' & $strSelectedClass & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

        $objClass = $objWMIService.Get($strSelectedClass)

        If IsObj($objClass) Then

            $strScriptCode = ""
            $strScriptCode = $strScriptCode & "; Generated by AutoIt Scriptomatic" & @CRLF & @CRLF
            $strScriptCode = $strScriptCode & "$wbemFlagReturnImmediately = 0x10" & @CRLF
            $strScriptCode = $strScriptCode & "$wbemFlagForwardOnly = 0x20" & @CRLF
            $strScriptCode = $strScriptCode & '$colItems = ""' & @CRLF
            $strScriptCode = $strScriptCode & $strComputerCommand & @CRLF & @CRLF
            $strScriptCode = $strScriptCode & '$Output=""' & @CRLF

            If $g_strOutputFormat = "HTML" Then
                $strScriptCode = $strScriptCode & "$Output = $Output & '<html><head><title>Scriptomatic HTML Output</title></head><body> " & _
                        "<style>table {font-size: 10pt; font-family: arial;} th {background-color: buttonface; font-decoration: bold;} " & _
                        "</style><table BORDER=" & Chr(34) & "1" & Chr(34) & "><tr><th>Property</th><th>Value</th></tr>'" & @CRLF
                $strRowStart = Chr(34) & "<tr><td>"
                $strHeaderStart = "'<tr bgcolor=" & Chr(34) & "yellow" & Chr(34) & "><td>' & " & Chr(34)
                $strColumnSeparator = "</td><td>&nbsp            ;"
                $strRowEnd = " & " & Chr(34) & "</td></tr>" & Chr(34) & " & @CRLF"
            EndIf


            $strScriptCode = $strScriptCode & "$Output = $Output & " & $strHeaderStart & "Computer" & $strColumnSeparator & Chr(34) & " & $strComputer " & $strRowEnd & @CRLF

            If $g_strOutputFormat = "Dialog" Then
                $strScriptCode = $strScriptCode & "$Output = $Output & " & Chr(34) & "==========================================" & Chr(34) & $strRowEnd & @CRLF
            EndIf

            $strScriptCode = $strScriptCode & "$objWMIService = ObjGet(" & Chr(34) & "winmgmts:\\" & Chr(34) & " & $strComputer & " & Chr(34) & $g_strCurrentNamespace & Chr(34) & ")" & @CRLF
            $strScriptCode = $strScriptCode & "$colItems = $objWMIService.ExecQuery(" & Chr(34) & "SELECT * FROM " & $strSelectedClass & Chr(34) & ", " & Chr(34) & "WQL" & Chr(34) & ", _" & @CRLF
            $strScriptCode = $strScriptCode & "                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)" & @CRLF & @CRLF
            $strScriptCode = $strScriptCode & "If IsObj($colItems) then" & @CRLF
            $strScriptCode = $strScriptCode & "   For $objItem In $colItems" & @CRLF

            For $objProperty In $objClass.Properties_()          ; Must use (), because method ends with an underscore

                If $objProperty.IsArray = True Then
                    $strScriptCode = $strScriptCode & "      $str" & $objProperty.Name & " = $objItem." & $objProperty.Name & "(0)" & @CRLF
                    $strScriptCode = $strScriptCode & "      $Output = $Output & " & $strRowStart & $objProperty.Name & $strColumnSeparator & Chr(34) & " & $str" & $objProperty.Name & $strRowEnd & @CRLF
                ElseIf $objProperty.CIMTYPE = 101 Then
                    $bHasDates = True
                    $strScriptCode = $strScriptCode & "      $Output = $Output & " & $strRowStart & $objProperty.Name & $strColumnSeparator & Chr(34) & " & WMIDateStringToDate($objItem." & $objProperty.Name & ")" & $strRowEnd & @CRLF
                Else
                    $strScriptCode = $strScriptCode & "      $Output = $Output & " & $strRowStart & $objProperty.Name & $strColumnSeparator & Chr(34) & " & $objItem." & $objProperty.Name & $strRowEnd & @CRLF
                EndIf
            Next

            If $g_strOutputFormat = "Dialog" Then
                $strScriptCode = $strScriptCode & '      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop' & @CRLF
                $strScriptCode = $strScriptCode & '      $Output=""' & @CRLF
            EndIf
            $strScriptCode = $strScriptCode & "   Next" & @CRLF

            If $g_strOutputFormat = "Text" Then
                $strScriptCode = $strScriptCode & '   ConsoleWrite($Output)' & @CRLF
                $strScriptCode = $strScriptCode & '   FileWrite(@TempDir & "\' & $strSelectedClass & '.TXT", $Output )' & @CRLF
                $strScriptCode = $strScriptCode & '   Run(@Comspec & " /c start " & @TempDir & "\' & $strSelectedClass & '.TXT" )' & @CRLF
            ElseIf $g_strOutputFormat = "HTML" Then
                $strScriptCode = $strScriptCode & '   FileWrite(@TempDir & "\' & $strSelectedClass & '.HTML", $Output )' & @CRLF
                $strScriptCode = $strScriptCode & '   Run(@Comspec & " /c start " & @TempDir & "\' & $strSelectedClass & '.HTML" )' & @CRLF
            EndIf

            $strScriptCode = $strScriptCode & "Else" & @CRLF
            $strScriptCode = $strScriptCode & '   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & ' & Chr(34) & $strSelectedClass & Chr(34) & ' )' & @CRLF

            $strScriptCode = $strScriptCode & "Endif" & @CRLF
            $strScriptCode = $strScriptCode & @CRLF & @CRLF

            If $bHasDates Then
                $strScriptCode = $strScriptCode & "Func WMIDateStringToDate($dtmDate)" & @CRLF
                $strScriptCode = $strScriptCode & @CRLF
                $strScriptCode = $strScriptCode & Chr(9) & "Return (StringMid($dtmDate, 5, 2) & ""/"" & _" & @CRLF
                $strScriptCode = $strScriptCode & Chr(9) & "StringMid($dtmDate, 7, 2) & ""/"" & StringLeft($dtmDate, 4) _" & @CRLF
                $strScriptCode = $strScriptCode & Chr(9) & "& "" "" & StringMid($dtmDate, 9, 2) & "":"" & StringMid($dtmDate, 11, 2) & "":"" & StringMid($dtmDate,13, 2))" & @CRLF
                $strScriptCode = $strScriptCode & "EndFunc"
            EndIf
        Else
            $strScriptCode = "Error: No Class properties found for " & $g_strCurrentNamespace & "" & $strSelectedClass
        EndIf

        GUICtrlSetData($GUI_AST_ScriptCode, $strScriptCode)

        ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ; Once the code is successfully composed and put into the
        ; textarea, ensure that the run and save buttons are enabled.
        ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        GUICtrlSetState($GUI_AST_Run, $GUI_ENABLE)
        GUICtrlSetState($GUI_AST_Save, $GUI_ENABLE)

    Else
        ; Disable Run and Save buttons, because no valid code has been generated
        GUICtrlSetState($GUI_AST_Run, $GUI_DISABLE)
        GUICtrlSetState($GUI_AST_Save, $GUI_DISABLE)
    EndIf

EndFunc                                                          ;==>ComposeCode


;********************************************************************
;* RunScript
;********************************************************************
Func RunScript()

    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ; Create a temporary script file named "temp_script.au3".
    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    $strTmpName = @TempDir & "\temp_script.au3"

    If FileExists($strTmpName) Then FileDelete($strTmpName)

    FileWrite($strTmpName, GUICtrlRead($GUI_AST_ScriptCode))

    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ; Start constructing the command line that will run the script...
    ;'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    $strCmdLine = @AutoItExe & " " & $strTmpName


    RunWait($strCmdLine)

    FileDelete($strTmpName)

EndFunc                                                          ;==>RunScript


;********************************************************************
;* SaveScript
;********************************************************************
Func SaveScript()

    $strTmpName = FileSaveDialog("Save Script", @DesktopDir, "AutoIt3 Scripts (*.au3)", 16, GUICtrlRead($GUI_WMI_Classes))

    If Not @error And $strTmpName <> "" Then
        If StringRight($strTmpName, 4) <> ".AU3" Then $strTmpName = $strTmpName & ".AU3"
        If FileExists($strTmpName) Then FileDelete($strTmpName)
        FileWrite($strTmpName, GUICtrlRead($GUI_AST_ScriptCode))
    EndIf

EndFunc                                                          ;==>SaveScript


;********************************************************************
;* OpenScript
;********************************************************************

Func OpenScript()

    $strTmpName = FileOpenDialog("Open Script", @DesktopDir, "AutoIt3 Scripts (*.au3)")

    If Not @error And $strTmpName <> "" Then
        If FileExists($strTmpName) Then
            GUICtrlSetData($GUI_AST_ScriptCode, FileRead($strTmpName, FileGetSize($strTmpName)))
        EndIf
    EndIf

EndFunc                                                          ;==>OpenScript


;****************************************************************************
;* SetNamespaceToCIMV2
;****************************************************************************
Func SetNamespaceToCIMV2()
    If StringUpper(GUICtrlRead($GUI_WMI_Namespace)) <> "ROOT\CIMV2" Then
        GUICtrlSetData($GUI_WMI_Namespace, "ROOT\CIMV2", "ROOT\CIMV2")
        HandleNamespaceChange()
    EndIf
EndFunc                                                          ;==>SetNamespaceToCIMV2

;****************************************************************************
;* SetWMIRepository
;****************************************************************************
Func SetWMIRepository()

    $strWMISourceName = InputBox("Set WMI Repository Source", _
            "Please enter the computer whose WMI repository you want to read from: ", _
            $g_strWMISource)
    If $strWMISourceName <> "" Then

        $g_strWMISource = StringStripWS($strWMISourceName, 1 + 2)
        ;target_computers.Value = $g_strWMISource
        LoadWMINamespaces()
    EndIf
EndFunc                                                          ;==>SetWMIRepository

;****************************************************************************
;* HandleOutputChange
;****************************************************************************
Func HandleOutputChange()

    $ChosenFormat = $g_strOutputFormat
    If GUICtrlRead($GUI_AST_RadioDialog) = $GUI_CHECKED Then $ChosenFormat = "Dialog"
    If GUICtrlRead($GUI_AST_RadioText) = $GUI_CHECKED Then $ChosenFormat = "Text"
    If GUICtrlRead($GUI_AST_RadioHTML) = $GUI_CHECKED Then $ChosenFormat = "HTML"
    If $ChosenFormat <> $g_strOutputFormat Then
        $g_strOutputFormat = $ChosenFormat
        ComposeCode()
    EndIf
EndFunc                                                          ;==>HandleOutputChange

Func Filter()
    $filter = InputBox("Class Filter", "Filter", "", "", 200, 150)
    If @error Then
        MsgBox(0, "Error in Function Filter", "Filter Error or no Filter selected", 2)
    Else
        $strClassesCombo = "|Select a WMI class filtered with " & $filter
        For $strWMIClass In $objClassDictionary                  ;  method .Keys is not an object ??
            If $filter = "" Or StringInStr($strWMIClass, $filter) Then
                $strClassesCombo = $strClassesCombo & "|" & $strWMIClass
            EndIf
        Next
    EndIf
    If $filter = "" Then
        GUICtrlSetData($GUI_WMI_Classes, $strClassesCombo, "Select a WMI class")
    Else
        GUICtrlSetData($GUI_WMI_Classes, $strClassesCombo, "Select a WMI class filtered with " & $filter)
    EndIf
EndFunc                                                          ;==>Filter