Break On $nul=Setconsole("Hide") $Form = CreateObject("Kixtart.Form") $Form.Caption = "KiXomatic" $Form.ScaleHeight = 520 $Form.ScaleWidth = 650 $Form.Center $PForm = CreateObject("Kixtart.Form") $PForm.Caption = "Loading WMI Classes..." $PForm.Width = 250 $PForm.Height = 60 $PForm.BorderStyle = 3 $PForm.Center $PBar = $PForm.ProgressBar $PBar.Size = 230,15 $PBar.Style = "1" $PBar.Center $Frame = $Form.PictureBox(,,,$Form.ScaleWidth,$Form.ScaleHeight) $Frame.BorderStyle = 2 $lstClass = $Frame.ComboBox(,20,15,450) $lstClass.Additem ("Begin by selecting a class") $lstClass.Sorted = 1 $lstClass.Value = "Begin by selecting a class" $lstClass.OnClick = "ChooseClass()" $nul = EnumClasses() $cmdRun = $Frame.CommandButton("Run", 475,15,35,20) $cmdSave = $Frame.CommandButton("Save",515,15,35,20) $cmdOpen = $Frame.CommandButton("Open",555,15,35,20) $cmdQuit = $Frame.CommandButton("Quit",595,15,35,20) $cmdRun.Onclick = "RunScript()" $cmdSave.Onclick = "SaveScript()" $cmdOpen.Onclick = "OpenScript()" $cmdQuit.Onclick = "$$Form.Hide" $cmdRun.Tooltip = "Run the script" $cmdSave.Tooltip = "Save the script" $cmdOpen.Tooltip = "Open a saved script" $cmdQuit.Tooltip = "Quit KiXomatic" $cmdRun.Enabled = 0 $cmdSave.Enabled = 0 $TextBox = $Frame.TextBox(,20,37,610,460) $TextBox.AcceptsReturn = True $TextBox.MultiLine = True $TextBox.Fontname = "Courier New" $TextBox.Fontsize = "8" $TextBox.Scrollbars = 2 If $Form.Build<34 $TextBox.MousePointer = 3 EndIf $TextBox.Hide $Form.Show While $Form.Visible $nul=Execute($Form.DoEvents) Loop QuitScript() Exit 1 Function EnumClasses() Dim $Max $PForm.Show $objWMIService = GetObject("winmgmts:\\.\root\cimv2") For Each $objClass in $objWMIService.SubclassesOf() $Max = $Max + 1 Next $PBar.Max = $Max For Each $objclass in $objWMIService.SubclassesOf() $PBar.Value = $PBar.Value + 1 $IsQ = 0 If instr($objClass.Path_.Class,"WIN32_") For Each $Qualifier in $objClass.Qualifiers_ If Instr($Qualifier.Name, "ASSOCIATION") $IsQ = 1 Endif Next If $IsQ = 0 $lstClass.Additem ($objClass.Path_.Class) Endif Endif Next $PForm.Hide $objWMIService = 0 EndFunction Function ChooseClass() Dim $Max If $lstClass.Value <> "Begin by selecting a class" $Class = $lstClass.Value $Form.MousePointer = 11 $PForm.Caption = "Customizing Script..." $PBar.Value = 0 $PForm.Center $PForm.Show $Textbox.Show $TextBox.Text = "" $cmdRun.Enabled = 0 $cmdSave.Enabled = 0 $objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") $objClass = $objWMIService.Get($Class) For Each $objProperty in $objClass.properties_ $Max = $Max + 1 Next $PBar.Max = $Max $Script = 'Break On' + @CRLF $Script = $Script + '$$strComputer = "."' + @CRLF $Script = $Script + '$$objWMIService = GetObject("winmgmts:\\" + $$strComputer + "\root\cimv2")' + @CRLF $Script = $Script + '$$colItems = $$objWMIService.ExecQuery("Select * from $Class",,48)' + @CRLF $Script = $Script + 'For each $$objItem in $$colItems' + @CRLF For Each $objProperty in $objClass.properties_ $PBar.Value = $PBar.Value + 1 $Prop = $objProperty.name If instr(WMIQuery($Prop,$Class),"$$value") $Script = $Script + ' For each $$Item in $objItem.' + $Prop + @CRLF $Script = $Script + ' "*' + $Prop + ': " + $$Item ?' + @CRLF $Script = $Script + ' Next' + @CRLF Else $Script = $Script + ' "' + $Prop + ': " + $$objItem.' + $Prop + ' ?' + @CRLF Endif Next $Script = $Script + ' ?' + @CRLF $Script = $Script + 'Next' $TextBox.Text = "$Script" $cmdRun.Enabled = 1 $cmdSave.Enabled = 1 $cmdRun.SetFocus Else $TextBox.Text = "" $cmdRun.Enabled = 0 $cmdSave.Enabled = 0 Endif $PForm.Hide $Form.MousePointer = 0 $objWMIService = 0 EndFunction Function RunScript() $objFSO = CreateObject("Scripting.FileSystemObject") $strTmpName = "temp_script.kix" $objScript = $objFSO.CreateTextFile($strTmpName) $objScript.Write ($TextBox.Text) $objScript.Close $objShell = CreateObject("WScript.Shell") $strCmdLine = "%COMSPEC% /k kix32.exe " $strCmdLine = $strCmdLine + $strTmpName $nul = $objShell.Run($strCmdLine) EndFunction Function SaveScript() $objFSO = CreateObject("Scripting.FileSystemObject") $strTmpName = "temp_script.kix" $objScript = $objFSO.CreateTextFile($strTmpName) $objScript.Write ($TextBox.Text) $objScript.Close $dlgSave = $Form.FileSaveDialog("Save File",@SCRIPTDIR,$Class+".kix","KiX Files|*.kix|All Files|*.*|",2) Copy $strTmpName $dlgSave EndFunction Function OpenScript() $dlgOpen = $Form.FileOpenDialog("Open File",@SCRIPTDIR,,"KiX Files|*.kix|All Files|*.*|",4) $objFSO = CreateObject("Scripting.FileSystemObject") $objFile = $objFSO.OpenTextFile($dlgOpen) $Script = $objFile.ReadAll() $TextBox.Text = $Script $objFile.Close $Textbox.Show $cmdRun.Enabled = 1 $cmdSave.Enabled = 1 EndFunction Function QuitScript() $objFSO = CreateObject("Scripting.FileSystemObject") $objFSO.DeleteFile ("temp_script.kix") $objFSO = 0 $nul=Setconsole("Show") Quit() EndFunction Function WMIQuery($what,$from,optional $computer,optional $where, optional $x) dim $strQuery, $objEnumerator, $value if not $computer $computer="@WKSTA" endif $strQuery = "Select $what From $from" if $where and $x $strQuery = $strQuery + " Where $where = '$x'" endif $SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer") $objEnumerator = $SystemSet.ExecQuery($strQuery) For Each $objInstance in $objEnumerator If @Error = 0 and $objInstance <> "" $=execute("$$value = $$objInstance.$what") $WMIQuery="$value"+"|"+"$WMIQuery" EndIf exit @error Next ;$WMIQuery=left($WMIQuery,len($WMIQuery)-1) exit @error EndFunction
Generated in 0.079 seconds in which 0.024 seconds were spent on a total of 13 queries. Zlib compression enabled.
") !=-1) { tempah=tempah.substring(tempah.indexOf("")+5,tempah.indexOf("")); codes[i].innerHTML="" + dotag(tempah.substring()) + ""; } } //var pres = document.getElementsByTagName("pre"); //for (var i=0, maxi = pres.length; i < maxi; i++) { // var tempah = pres[i].innerHTML; // if (tempah.indexOf("[postprep") !=-1) { // tempah=tempah.substring((tempah.indexOf("]",tempah.indexOf("[postprep"))+1)); // pres[i].innerHTML=dotag(tempah); // } //} function ytag(which_one) { var codes = document.getElementsByClassName("ubbcode-body"); var thisone = codes[which_one].innerHTML; codes[which_one].innerHTML = "" + dotag(thisone.substring(5+thisone.indexOf(""),thisone.indexOf(""))) + ""; var heads = document.getElementsByClassName("ubbcode-header"); heads[which_one].innerHTML = "Code:" + ' '; } function ttag(which_one) { var codes = document.getElementsByClassName("ubbcode-body"); var thisone = ""; if (codes[which_one].innerText != undefined) { thisone += codes[which_one].innerText; } else { thisone += codes[which_one].textContent; } codes[which_one].innerHTML = thisone + ""; var heads = document.getElementsByClassName("ubbcode-header"); heads[which_one].innerHTML = "Code:" + ' '; }
")+5,tempah.indexOf("
" + dotag(tempah.substring()) + "
" + dotag(thisone.substring(5+thisone.indexOf(""),thisone.indexOf(""))) + "
"),thisone.indexOf("
"; if (codes[which_one].innerText != undefined) { thisone += codes[which_one].innerText; } else { thisone += codes[which_one].textContent; } codes[which_one].innerHTML = thisone + "