 |
KiXforms
The Forum for the KiXforms Community
|
|
| View previous topic :: View next topic |
| Author |
Message |
apronk
KiXforms Regular
Joined: 28 Jun 2006
Posts: 53
Location: The Netherlands
|
 Posted: Tue Nov 13, 2007 5:41 pm Post subject: ScriptOMatic .Net |
 |
|
After playing around a little bit this project is loosely based on Chris S's KixoMatic. I basically completely rewrote it in KiXforms.net and added support for more info then only Win32 plus adding support to show/run the code in VBS. It's not completely finished yet but everything works 
Without further ado:
| Code: |
Break On
$System = CreateObject("Kixforms.System")
If Not $System
$nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
Quit()
EndIf
$nul = $System.Application.EnableVisualStyles
$Form1 = $System.Form()
$Form1.Left = 0
$Form1.StartPosition = 0 ;FormStartPosition_Manual
$Form1.Size = $System.Size(604,588) ;(Width,Height)
$Form1.Text = "ScriptOMatic .Net"
$Form1.Top = 0
$Form1.TopMost = 0 ;False
$ComboBox1 = $System.ComboBox()
$ComboBox1.Anchor = 13 ;Left,Top,Right
$ComboBox1.IntegralHeight = 0
$ComboBox1.ItemHeight = 25
$ComboBox1.Left = 10
$ComboBox1.Text = "Begin by selecting a class"
$ComboBox1.Top = 10
$ComboBox1.Width = 410
$ComboBox1.Sorted = 1
$ComboBox1.SelectedIndexChanged = "$$=CheckType()"
$nul = $Form1.Controls.Add($ComboBox1)
$Button1 = $System.Button()
$Button1.Anchor = 9 ;Top,Right
$Button1.Left = 430
$Button1.Text = "Run"
$Button1.Top = 10
$Button1.Width = 40
$Button1.Click = "RunScript()"
$nul = $Form1.Controls.Add($Button1)
$Button2 = $System.Button()
$Button2.Anchor = 9 ;Top,Right
$Button2.Left = 470
$Button2.Text = "Save"
$Button2.Top = 10
$Button2.Width = 40
$Button2.Click = "SaveScript()"
$nul = $Form1.Controls.Add($Button2)
$Button3 = $System.Button()
$Button3.Anchor = 9 ;Top,Right
$Button3.Left = 510
$Button3.Text = "Open"
$Button3.Top = 10
$Button3.Width = 40
$Button3.Click = "OpenScript()"
$nul = $Form1.Controls.Add($Button3)
$Button4 = $System.Button()
$Button4.Anchor = 9 ;Top,Right
$Button4.Left = 550
$Button4.Text = "Quit"
$Button4.Top = 10
$Button4.Width = 40
$Button4.Click = "$$Form1.Hide"
$nul = $Form1.Controls.Add($Button4)
$TextBox1 = $System.TextBox()
$TextBox1.Anchor = 15 ;Top,Left,Bottom,Right
$TextBox1.BackColor = $System.Color.FromName("Control")
$TextBox1.Height = 330
$TextBox1.Left = 10
$TextBox1.MultiLine = -1 ;True
$TextBox1.ReadOnly = -1 ;True
$TextBox1.ScrollBars = 3 ;Both
$TextBox1.Text = ""
$TextBox1.Top = 82 ;70
$TextBox1.Width = 580
$TextBox1.Font = $System.Font("Courier New",8.25,0) ;Regular
$nul = $Form1.Controls.Add($TextBox1)
$TextBox2 = $System.TextBox()
$TextBox2.Anchor = 14 ;Left,Bottom,Right
$TextBox2.BackColor = $System.Color.FromName("Control")
$TextBox2.Height = 110
$TextBox2.Left = 10
$TextBox2.MultiLine = -1 ;True
$TextBox2.ReadOnly = -1 ;True
$TextBox2.ScrollBars = 2 ;Vertical
$TextBox2.Text = ""
$TextBox2.Top = 430
$TextBox2.Width = 580
$TextBox2.Font = $System.Font("Courier New",8.25,0) ;Regular
$nul = $Form1.Controls.Add($TextBox2)
$Label1 = $System.Label()
$Label1.Anchor = 14 ;Left,Bottom,Right
$Label1.BorderStyle = 0
$Label1.Height = 20
$Label1.Left = 10
$Label1.Text = "Methods:"
$Label1.Top = 415
$nul = $Form1.Controls.Add($Label1)
$GroupBox1 = $System.GroupBox()
$GroupBox1.Left = 10
$GroupBox1.Text = "Class Types"
$GroupBox1.Top = 32
$GroupBox1.Width = 210
$GroupBox1.Height = 45
$nul = $Form1.Controls.Add($GroupBox1)
$GroupBox2 = $System.GroupBox()
$GroupBox2.Anchor = 1 ;Top
$GroupBox2.Left = 225
$GroupBox2.Text = "Script Type"
$GroupBox2.Top = 32
$GroupBox2.Width = 110
$GroupBox2.Height = 45
$nul = $Form1.Controls.Add($GroupBox2)
$GroupBox3 = $System.GroupBox()
$GroupBox3.Anchor = 9 ;Top,Right
$GroupBox3.Left = 340
$GroupBox3.Text = "VBS Runtime"
$GroupBox3.Top = 32
$GroupBox3.Width = 112
$GroupBox3.Height = 45
$GroupBox3.Hide
$nul = $Form1.Controls.Add($GroupBox3)
$RadioButton1 = $System.RadioButton()
$RadioButton1.Appearance = 1 ;Button
$RadioButton1.Checked = -1 ;True
$RadioButton1.Left = 5
$RadioButton1.Text = "Win32"
$RadioButton1.TextAlign = 32 ;MiddleCenter
$RadioButton1.Top = 15
$RadioButton1.Width = 50
$RadioButton1.Click = "$$=EnumClasses('WIN32_','cimv2')"
$nul = $GroupBox1.Controls.Add($RadioButton1)
$RadioButton2 = $System.RadioButton()
$RadioButton2.Appearance = 1 ;Button
$RadioButton2.Left = 55
$RadioButton2.Text = "CIM"
$RadioButton2.TextAlign = 32 ;MiddleCenter
$RadioButton2.Top = 15
$RadioButton2.Width = 50
$RadioButton2.Click = "$$=EnumClasses('CIM_','cimv2')"
$nul = $GroupBox1.Controls.Add($RadioButton2)
$RadioButton3 = $System.RadioButton()
$RadioButton3.Appearance = 1 ;Button
$RadioButton3.Left = 105
$RadioButton3.Text = "SNMP"
$RadioButton3.TextAlign = 32 ;MiddleCenter
$RadioButton3.Top = 15
$RadioButton3.Width = 50
$RadioButton3.Click = "$$=EnumSNMPClass()"
$nul = $GroupBox1.Controls.Add($RadioButton3)
$RadioButton4 = $System.RadioButton()
$RadioButton4.Appearance = 1 ;Button
$RadioButton4.Left = 155
$RadioButton4.Text = "WMI"
$RadioButton4.TextAlign = 32 ;MiddleCenter
$RadioButton4.Top = 15
$RadioButton4.Width = 50
$RadioButton4.Click = "$$=EnumClasses('','wmi')"
$nul = $GroupBox1.Controls.Add($RadioButton4)
$RadioButton5 = $System.RadioButton()
$RadioButton5.Appearance = 1 ;Button
$RadioButton5.Checked = -1 ;True
$RadioButton5.Left = 5
$RadioButton5.Text = "KIX"
$RadioButton5.TextAlign = 32 ;MiddleCenter
$RadioButton5.Top = 15
$RadioButton5.Width = 50
$RadioButton5.Click = "$$=CheckType()"
$nul = $GroupBox2.Controls.Add($RadioButton5)
$RadioButton6 = $System.RadioButton()
$RadioButton6.Appearance = 1 ;Button
$RadioButton6.Left = 55
$RadioButton6.Text = "VBS"
$RadioButton6.TextAlign = 32 ;MiddleCenter
$RadioButton6.Top = 15
$RadioButton6.Width = 50
$RadioButton6.Click = "$$=CheckType()"
$nul = $GroupBox2.Controls.Add($RadioButton6)
$RadioButton7 = $System.RadioButton()
$RadioButton7.Appearance = 1 ;Button
$RadioButton7.Checked = -1 ;True
$RadioButton7.Left = 5
$RadioButton7.Text = "CScript"
$RadioButton7.TextAlign = 32 ;MiddleCenter
$RadioButton7.Top = 15
$RadioButton7.Width = 50
$nul = $GroupBox3.Controls.Add($RadioButton7)
$RadioButton8 = $System.RadioButton()
$RadioButton8.Appearance = 1 ;Button
$RadioButton8.Left = 55
$RadioButton8.Text = "WScript"
$RadioButton8.TextAlign = 32 ;MiddleCenter
$RadioButton8.Top = 15
$RadioButton8.Width = 52
$nul = $GroupBox3.Controls.Add($RadioButton8)
$OpenFileDialog1 = $System.OpenFileDialog()
$OpenFileDialog1.InitialDirectory = "@SCRIPTDIR"
$OpenFileDialog1.Filter = "KiX files (*.kix)|*.kix|VBS files (*.vbs)|*.vbs|All files (*.*)|*.*"
$OpenFileDialog1.FilterIndex = 1
$OpenFileDialog1.RestoreDirectory = 1 ;True
$SaveFileDialog1 = $System.SaveFileDialog()
$SaveFileDialog1.InitialDirectory = "@SCRIPTDIR"
$SaveFileDialog1.Filter = "KiX files (*.kix)|*.kix|VBS files (*.vbs)|*.vbs|All files (*.*)|*.*"
$SaveFileDialog1.FilterIndex = 1
$SaveFileDialog1.RestoreDirectory = 1 ;True
$Form2 = $System.Form()
$Form2.Text = "Loading Classes..."
$Form2.ControlBox = 0 ;False
$Form2.StartPosition = 1 ;FormStartPosition_CenterScreen
$Form2.Size = $System.Size(250,60) ;(Width,Height)
$PBar = $System.ProgressBar()
$PBar.Width = 242
$PBar.Height = 25
$PBar.Style = "1"
$PBar.Center
$nul = $Form2.Controls.Add($PBar)
$=EnumClasses("WIN32_","cimv2")
$Form1.Center
$Form1.Show ;Displays the Form
While $Form1.Visible
$Nul = Execute($Form1.DoEvents())
Loop
Exit 0
Function CheckType()
Select
Case $RadioButton3.Checked = -1 AND $RadioButton5.Checked = -1
$GroupBox3.Hide
ListSNMPKix
Case $RadioButton3.Checked = -1 AND $RadioButton6.Checked = -1
$GroupBox3.Show
ListSNMPVBS
Case $RadioButton5.Checked = -1
$GroupBox3.Hide
ListClassKIX
Case $RadioButton6.Checked = -1
$GroupBox3.Show
ListClassVBS
EndSelect
EndFunction
Function EnumClasses($Type, $Root)
$Form2.Show
$PBar.Value = 0
$ComboBox1.Items.Clear
$ComboBox1.Enabled = 0
Dim $objWMIService, $objClass, $IsQ
$objWMIService = GetObject("winmgmts:\\.\root\"+$Root)
$PBar.Max = $objWMIService.SubclassesOf().Count
For Each $objClass in $objWMIService.SubclassesOf()
$PBar.Value = $PBar.Value + 1
$IsQ = 0
If Instr($objClass.Path_.Class,$Type)
For Each $Qualifier in $objClass.Qualifiers_
If Instr($Qualifier.Name, "ASSOCIATION")
$IsQ = 1
Endif
Next
If $IsQ = 0
$=$ComboBox1.Items.Add($objClass.Path_.Class)
Endif
Endif
Next
$Form2.Hide
$ComboBox1.Enabled = 1
$objWMIService = ""
EndFunction
Function EnumSNMPClass()
$Form2.Show
$PBar.Value = 0
$ComboBox1.Items.Clear
$ComboBox1.Enabled = 0
Dim $objLocator, $objWMIService, $objClass
$objLocator = CreateObject("WbemScripting.SWbemLocator")
$objWMIService = $objLocator.ConnectServer("", "root/snmp/localhost")
$PBar.Max = $objWMIService.SubclassesOf().Count
For Each $objclass in $objWMIService.SubclassesOf()
$PBar.Value = $PBar.Value + 1
If Instr($objClass.Path_.Class,"SNMP_")
$=$ComboBox1.Items.Add($objClass.Path_.Class)
EndIf
Next
$Form2.Hide
$ComboBox1.Enabled = 1
$objLocator = ""
$objWMIService = ""
EndFunction
Function ListSNMPKiX()
Dim $Class, $Script, $Script2, $objWMIService, $objClass, $objProperty, $objMethod
If $ComboBox1.Text <> "Begin by selecting a class"
$Class = $ComboBox1.Text
$objLocator = CreateObject("WbemScripting.SWbemLocator")
$objWMIService = $objLocator.ConnectServer("", "root/snmp/localhost")
$objClass = $objWMIService.Get($Class)
$Script = 'Break On' + @CRLF
$Script = $Script + '$$strComputer = "."' + @CRLF
$Script = $Script + '$$objLocator = CreateObject("WbemScripting.SWbemLocator")' + @CRLF
$Script = $Script + '$$objWMIService = $$objLocator.ConnectServer($strComputer, "root/snmp/localhost")' + @CRLF
$Script = $Script + '$$objNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")' + @CRLF
$Script = $Script + '$$colItems = $$objWMIService.Instancesof("$Class",,$$objNamedValueSet)' + @CRLF
$Script = $Script + 'For each $$objItem in $$colItems' + @CRLF
For Each $objProperty in $objClass.properties_
$Prop = $objProperty.name
If $objProperty.IsArray
$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'
For Each $objMethod in $objClass.methods_
$Method = $objMethod.name
$Script2 = $Script2 + ' ' + $Method + ': $$objItem.' + $Method + @CRLF
Next
$script = $script + @CRLF + "? 'Press Any Key to Close the Window'" + @CRLF + "Get $"
$TextBox1.Text = $Script
Else
$TextBox1.Text = ""
Endif
$objWMIService = ""
EndFunction
Function ListSNMPVBS()
Dim $Class, $Script, $Script2, $objWMIService, $objClass, $objProperty, $objMethod
If $ComboBox1.Text <> "Begin by selecting a class"
$Class = $ComboBox1.Text
$TextBox1.Text = ""
$TextBox2.Text = ""
$objLocator = CreateObject("WbemScripting.SWbemLocator")
$objWMIService = $objLocator.ConnectServer("", "root/snmp/localhost")
$objClass = $objWMIService.Get($Class)
$Script = 'On Error Resume Next' + @CRLF
$Script = $Script + 'strComputer = "."' + @CRLF
$Script = $Script + 'Set objLocator = CreateObject("WbemScripting.SWbemLocator")' + @CRLF
$Script = $Script + 'Set objWMIService = objLocator.ConnectServer(strComputer, "root/snmp/localhost")' + @CRLF
$Script = $Script + 'Set objNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")' + @CRLF
$Script = $Script + 'Set colItems = objWMIService.Instancesof("$Class",,objNamedValueSet)' + @CRLF
$Script = $Script + 'For Each objItem in colItems' + @CRLF
For Each $objProperty in $objClass.properties_
$Prop = $objProperty.name
If $objProperty.IsArray
$Script = $Script + ' For Each Item in objItem.' + $Prop + @CRLF
$Script = $Script + ' WScript.Echo "*' + $Prop + ': " & Item' + @CRLF
$Script = $Script + ' Next' + @CRLF
Else
$Script = $Script + ' WScript.Echo "' + $Prop + ': " & objItem.' + $Prop + @CRLF
Endif
Next
$Script = $Script + ' WScript.Echo' + @CRLF + 'Next' + @CRLF
If $RadioButton7.Checked = -1
$Script = $Script + @CRLF + 'WScript.Echo "Press Any Key to Close the Window"' + @CRLF + 'Wscript.StdIn.ReadLine'
EndIf
For Each $objMethod in $objClass.methods_
$Method = $objMethod.name
$Script2 = $Script2 + ' ' + $Method + ': objItem.' + $Method + @CRLF
Next
$TextBox1.Text = $Script
$TextBox2.Text = $Script2
Else
$TextBox1.Text = ""
$TextBox2.Text = ""
Endif
$objWMIService = ""
EndFunction
Function ListClassKiX()
Dim $Class, $Script, $Script2, $objWMIService, $objClass, $objProperty, $objMethod
If $ComboBox1.Text <> "Begin by selecting a class"
$Class = $ComboBox1.Text
$TextBox1.Text = ""
$TextBox2.Text = ""
If $RadioButton4.Checked = -1
$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\wmi")
Else
$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
EndIf
$objClass = $objWMIService.Get($Class)
$Script = 'Break On' + @CRLF
$Script = $Script + '$$strComputer = "."' + @CRLF
If $RadioButton4.Checked = -1
$Script = $Script + '$$objWMIService = GetObject("winmgmts:\\" + $$strComputer + "\root\wmi")' + @CRLF
Else
$Script = $Script + '$$objWMIService = GetObject("winmgmts:\\" + $$strComputer + "\root\cimv2")' + @CRLF
EndIf
$Script = $Script + '$$colItems = $$objWMIService.ExecQuery("Select * from $Class",,48)' + @CRLF
$Script = $Script + 'For Each $$objItem in $$colItems' + @CRLF
For Each $objProperty in $objClass.properties_
$Prop = $objProperty.name
If $objProperty.IsArray
$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 + 'Next' + @CRLF
For Each $objMethod in $objClass.methods_
$Method = $objMethod.name
$Script2 = $Script2 + ' ' + $Method + ': $$objItem.' + $Method + @CRLF
Next
$script = $script + @CRLF + "? 'Press Any Key to Close the Window'" + @CRLF + "Get $"
$TextBox1.Text = $Script
$TextBox2.Text = $Script2
Else
$TextBox1.Text = ""
$TextBox2.Text = ""
Endif
$objWMIService = ""
EndFunction
Function ListClassVBS()
Dim $Class, $Script, $Script2, $objWMIService, $objClass, $objProperty, $objMethod
If $ComboBox1.Text <> "Begin by selecting a class"
$Class = $ComboBox1.Text
$TextBox1.Text = ""
$TextBox2.Text = ""
If $RadioButton4.Checked = -1
$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\wmi")
Else
$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
EndIf
$objClass = $objWMIService.Get($Class)
$Script = 'On Error Resume Next' + @CRLF
$Script = $Script + 'strComputer = "."' + @CRLF
If $RadioButton4.Checked = -1
$Script = $Script + 'Set objWMIService = GetObject("winmgmts:\\" + strComputer + "\root\wmi")' + @CRLF
Else
$Script = $Script + 'Set objWMIService = GetObject("winmgmts:\\" + strComputer + "\root\cimv2")' + @CRLF
EndIf
$Script = $Script + 'Set colItems = objWMIService.ExecQuery("Select * from $Class",,48)' + @CRLF
$Script = $Script + 'For Each objItem in colItems' + @CRLF
For Each $objProperty in $objClass.properties_
$Prop = $objProperty.name
If $objProperty.IsArray
$Script = $Script + ' For Each Item in objItem.' + $Prop + @CRLF
$Script = $Script + ' WScript.Echo "*' + $Prop + ': " & Item' + @CRLF
$Script = $Script + ' Next' + @CRLF
Else
$Script = $Script + ' WScript.Echo "' + $Prop + ': " & objItem.' + $Prop + @CRLF
Endif
Next
$Script = $Script + ' WScript.Echo' + @CRLF + 'Next' + @CRLF
If $RadioButton7.Checked = -1
$Script = $Script + @CRLF + 'WScript.Echo "Press Any Key to Close the Window"' + @CRLF + 'Wscript.StdIn.ReadLine'
EndIf
For Each $objMethod in $objClass.methods_
$Method = $objMethod.name
$Script2 = $Script2 + ' ' + $Method + ': objItem.' + $Method + @CRLF
Next
$TextBox1.Text = $Script
$TextBox2.Text = $Script2
Else
$TextBox1.Text = ""
$TextBox2.Text = ""
Endif
$objWMIService = ""
EndFunction
Function RunScript()
Dim $FSO, $strTmpName, $objScript, $objShell, $strComdLine, $nul
$FSO = CreateObject("Scripting.FileSystemObject")
$objShell = CreateObject("WScript.Shell")
If $RadioButton5.Checked = -1
$strTmpName = "temp_script.kix"
$objScript = $FSO.CreateTextFile($strTmpName)
$objScript.Write($TextBox1.Text)
$objScript.Close
If "@SCRIPTEXE"<>"wkix32.exe"
$strCmdLine = "kix32.exe"
Else
$strCmdLine = "wkix32.exe"
EndIf
If @SCRIPTDIR<>@CURDIR and Exist(@SCRIPTDIR + "\" + @SCRIPTEXE)
$strCmdLine = '"' + @SCRIPTDIR + $strCmdLine + '" "' + $strTmpName + '"'
Else
$strCmdLine = '"' + $strCmdLine + ' "' + $strTmpName + '"'
EndIf
$nul = $objShell.Run($strCmdLine)
Else
$strTmpName = "temp_script.vbs"
$objScript = $FSO.CreateTextFile($strTmpName)
$objScript.Write($TextBox1.Text)
$objScript.Close
If $RadioButton7.Checked = -1
$strCmdLine = "cscript.exe"
Else
$strCmdLine = "wscript.exe"
EndIf
If @SCRIPTDIR<>@CURDIR
$strCmdLine = '"' + @SCRIPTDIR + $strCmdLine + '" "' + $strTmpName + '"'
Else
$strCmdLine = '"' + $strCmdLine + ' "' + $strTmpName + '"'
EndIf
$nul = $objShell.Run($strCmdLine)
EndIf
EndFunction
Function SaveScript()
Dim $dlgSave, $FSO, $strTmpName, $objScript
$FSO = CreateObject("Scripting.FileSystemObject")
If $RadioButton5.Checked = -1
$strTmpName = "temp_script.kix"
$SaveFileDialog1.FilterIndex = 1
$SaveFileDialog1.FileName = $ComboBox1.Text
Else
$strTmpName = "temp_script.vbs"
$SaveFileDialog1.FilterIndex = 2
$SaveFileDialog1.FileName = $ComboBox1.Text
EndIf
$objScript = $FSO.CreateTextFile($strTmpName)
$objScript.Write($TextBox1.Text)
$objScript.Close
If $SaveFileDialog1.ShowDialog() = 1
$dlgSave = $SaveFileDialog1.FileName
EndIf
Copy $strTmpName $dlgSave
EndFunction
Function OpenScript()
Dim $dlgOpen, $FSO, $Script, $objFile
If $OpenFileDialog1.ShowDialog() = 1
$dlgOpen = $OpenFileDialog1.Filename
$FSO = CreateObject("Scripting.FileSystemObject")
$objFile = $FSO.OpenTextFile($dlgOpen)
$Script = $objFile.ReadAll()
$TextBox1.Text = $Script
$objFile.Close
$TextBox1.Show
EndIf
EndFunction
|
_________________
Achieve inner peace through outer violence. |
|
| Back to top |
|
 |
Shawn
KiXforms Developer
Joined: 22 Feb 2003
Posts: 1983
Location: Canada
|
| Posted: Thu Nov 15, 2007 3:57 pm Post subject: |
|
|
Nice. Can I make a suggestion. Might want to re-word the text in that drop-down box to like:
"Begin by selecting a class from this drop-down"
or something such. Found that I was just clicking the "Class Types" buttons and nothing was happening (i though those were the classes you wanted me to select) ....
Figured it out finally. Great work. |
|
| Back to top |
|
|
apronk
KiXforms Regular
Joined: 28 Jun 2006
Posts: 53
Location: The Netherlands
|
| Posted: Fri Nov 16, 2007 7:43 am Post subject: |
|
|
Thanks
Yeah, that seems like a god idea, I'll change that. Maybe I should hide or disable the buttons until a class is selected.
_________________
Achieve inner peace through outer violence. |
|
| Back to top |
|
|
Lonkero
KiXforms Devotee
Joined: 13 Mar 2003
Posts: 1022
Location: Espoo, Finland
|
| Posted: Wed Sep 24, 2008 6:27 pm Post subject: |
|
|
just started doing this and then logged on here...
what you mean it's not completely finished?
what's missing?
how old version this is based on?
_________________
Hammer |
|
| Back to top |
|
|
apronk
KiXforms Regular
Joined: 28 Jun 2006
Posts: 53
Location: The Netherlands
|
| Posted: Tue Sep 30, 2008 10:01 am Post subject: |
|
|
It's not finished for these reasons:
1. It misses other Class Types, currently it only supports Root\CIMV2, root\SNMP and root\wmi.
2. SNMP only works when you have installed it and it doesn't contain a check for that.
3. Code needs cleaning up.
In a few minutes I will post ScriptOMatic .Net v2.0
It does contain all Class Types, and it will only show what you have installed.
Still needs some code cleanup though.
_________________
Achieve inner peace through outer violence. |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
