joell

I apologize Valik. I was preparing my draft and posted it here by mistake. Sorry. (doing too many things in the same time) Regards,

Hi, Just made a test with the example of function _GUICtrlListView_GetGroupInfo with last beta 3.3.1.3 It Gives "Group 1 Text: 0x008CDCD0" instead of "Group 1 Text: Group 1" Seems at least MultiByteToWideChar / WideCharToMultiByte are not behaving the usual way. Regards,

Hi Martin, I found the problem with 3.2.11.12 yesterday and tried with 3.2.11.10 with same effect. I fetched today the rc1 and still found the problem. Regards,

Hi, Just wonder if it's a new way of handling tabs for new release. If you create two (or more) windows with a tab in each window, selecting a tabitem in one window will change to the same tabitem number in the other window (if exists). This was not the case in last release. It this a bug or it there a new way to manage tabs in different windows? Someone have an idea? following script is based on the example found in AutoIt Help. Just added a second window and changed GUIOnEventMode #include <GUIConstantsEx.au3> Opt('MustDeclareVars', 1) Opt("GUIOnEventMode", 1) Global $ex1winh, $ex2winh, $btn, $btn2, $tab, $othertab Example() Win2() Main() Exit Func Main() While 1 Sleep(200) WEnd EndFunc;==>Main Func Example() Local $tab0, $tab0OK, $tab0input Local $tab1, $tab1combo, $tab1OK Local $tab2, $tab2OK, $msg $ex1winh = GUICreate("My GUI Tab",300,200,50,50) GuiSetOnEvent($GUI_EVENT_CLOSE, "evtClose") GUISetBkColor(0x00E0FFFF) GUISetFont(9, 300) $tab = GUICtrlCreateTab(10, 10, 200, 100) $tab0 = GUICtrlCreateTabItem("tab0") GUICtrlCreateLabel("label0", 30, 80, 50, 20) $tab0OK = GUICtrlCreateButton("OK0", 20, 50, 50, 20) GUICtrlSetOnEvent(-1,"fake") $tab0input = GUICtrlCreateInput("default?", 80, 50, 70, 20) $tab1 = GUICtrlCreateTabItem("tab----1") GUICtrlCreateLabel("label1", 30, 80, 50, 20) $tab1combo = GUICtrlCreateCombo("", 20, 50, 60, 120) GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon"); default Jon $tab1OK = GUICtrlCreateButton("OK1", 80, 50, 50, 20) $tab2 = GUICtrlCreateTabItem("tab2") GUICtrlSetState(-1, $GUI_SHOW) ; will be display first GUICtrlCreateLabel("label2", 30, 80, 50, 20) $tab2OK = GUICtrlCreateButton("OK2", 140, 50, 50) GUICtrlCreateTabItem("") ; end tabitem definition GUICtrlCreateLabel("label3", 20, 130, 50, 20) GUISetState() EndFunc ;==>Example Func Win2() Local $tab0, $tab0OK, $tab0input Local $tab1, $tab1combo, $tab1OK Local $tab2, $tab2OK, $msg Local $tab3, $tab3OK ConsoleWrite("call btn" & @LF) $ex2winh = GUICreate("My 2nd GUI Tab",300,200,200,200) GuiSetOnEvent($GUI_EVENT_CLOSE, "evtClose") GUISetBkColor(0x00E0FFFF) GUISetFont(9, 300) $othertab = GUICtrlCreateTab(10, 10, 200, 100) $tab0 = GUICtrlCreateTabItem("otab0") GUICtrlCreateLabel("label0", 30, 80, 50, 20) $tab0OK = GUICtrlCreateButton("OK0", 20, 50, 50, 20) $tab0input = GUICtrlCreateInput("?default", 80, 50, 70, 20) $tab1 = GUICtrlCreateTabItem("otab----1") GUICtrlCreateLabel("label1", 30, 80, 50, 20) $tab1combo = GUICtrlCreateCombo("", 20, 50, 60, 120) GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "CyberSlug"); default Jon $tab1OK = GUICtrlCreateButton("OK1", 80, 50, 50, 20) $tab2 = GUICtrlCreateTabItem("otab2") GUICtrlSetState(-1, $GUI_SHOW) ; will be display first GUICtrlCreateLabel("label2", 30, 80, 50, 20) $tab2OK = GUICtrlCreateButton("OK2", 140, 50, 50) $tab3 = GUICtrlCreateTabItem("otab3") GUICtrlSetState(-1, $GUI_SHOW) ; will be display first GUICtrlCreateLabel("label3", 30, 80, 50, 20) $tab3OK = GUICtrlCreateButton("OK3", 140, 50, 50) GUICtrlCreateTabItem("") ; end tabitem definition GUICtrlCreateLabel("label3", 20, 130, 50, 20) GUISetState() EndFunc ;==>Example2 func fake() ; insert code here EndFunc ;==>fake Func evtClose() GUIDelete(@GUI_WINHANDLE) Exit EndFunc;==>evtClose Regards, Joell

Hi, I also use cdo/redemption scripts and did not notice this strange behavior even for spams using outlook 2k3 / Exchange 2k3sp2, but I'm directly using new redemption sessions for scripts: ObjCreate("Redemption.RDOSession") alongside the regular outlook client. Did you try this solution? What version of Outlook do you have? Are you connected to an Exchange server? Regards,

Try this: Local $crit = "sAmAccountname" ; filter of query. here, an account name Local $value = "joe" ; the account Local $domn = "test" ; your domain name Local $query, $objConnection, $objCommand, $objRecordSet, $disting, $obusr $query = "<LDAP://"& $domn &">;(&(ObjectCategory=User)(" & $crit & "=" & $value & "));DistinguishedName;subtree" $objConnection = ObjCreate("ADODB.Connection") $objCommand = ObjCreate("ADODB.Command") $objConnection.open ("Provider=ADsDSOObject") $objCommand.ActiveConnection = $objConnection $objCommand.CommandText = $query $objRecordSet = $objCommand.Execute $disting = $objRecordSet.Fields("DistinguishedName").value $objconnection.close ;Fermer la requete AD $obusr = ObjGet("LDAP://"& $disting) ; You can now request all information you want MsgBox(64,"User query test","given name=" &$obusr.givenName) Exit Regards Joe

Hi, Maybe it's not relevant, but just in case. I encountered lots of access violation exception in some third parties applications (at least one coded in c#) and Autoit scripts of my own on some of my computers running xp sp2. After a few checks and some googling on the web I found a way to get rid of all these errors. Please take a look at http://support.microsoft.com/kb/918165 Despite it was not listed, removing MS KB908531 fixed all problems for my scripts and other applications. Hope it will at least give you an idea...

Hi, Better try this Local $objItem, $colSystem, $colProduct, $bitOr = BitOR(0x10,0x20) $Serverpath = (@DesktopDir) $AuditFile = FileOpen("c:\temp\" & @ComputerName & ".TXT",2); erase previous file If $AuditFile Then $strComputer = @Computername $SN = "" $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colSystem = $objWMIService.ExecQuery("Select Name, Manufacturer, Model from Win32_ComputerSystem WHERE Name='" & $strComputer & "'", "WQL", $bitOr) For $objItem in $colSystem FileWrite($AuditFile, "ComputerName: " & @ComputerName & @CRLF) FileWrite($AuditFile, "Brand: " & $objItem.Manufacturer & @CRLF) FileWrite($AuditFile, "Model: " & $objItem.Model & @CRLF) Next $colProduct = $objWMIService.ExecQuery("Select Caption, Name, IdentifyingNumber from Win32_ComputerSystemProduct" , "WQL", $bitOr) For $objItem in $colProduct FileWrite($AuditFile, "SN: " & $objItem.IdentifyingNumber) Next MsgBox(0, "End", "Done") Else MsgBox(0, "Error", "Unable to create/open file") EndIf WHERE Name = in first query is optional, but in case you would try it on remote computers... Joe

Hi, You're not alone in the universe, i'm facing the same problem. Still looking. I have some hope as i made something similar (working ) for the NetGetJoinInfo function of netapi32.dll Please not that you must call NetApiBufferFree after a successful call. Below the code of a working netapi32 function: ;######################################################## ; Fonction: netGetJoinInfo() ; status: prod ; require: win2k ; return: state of secure channel & "|" & domain/wrkgrp ; ------ ;######################################################## Func netGetJoinInfo($wkst = @ComputerName,$deb = 0) ; computer, debug mode Local $err, $uname, $domStruct, $lpNameBuffer, $result, $domStruct, $bufferType, $typStruct Local Const $NetSetupUnknownStatus = 0 Local Const $NetSetupUnjoined = 1 Local Const $NetSetupWorkgroupName = 2 Local Const $NetSetupDomainName = 3 Local Const $NETSETUP_JOIN_DOMAIN = 0x00000001 Local Const $NETSETUP_ACCT_CREATE = 0x00000002 Local Const $NETSETUP_ACCT_DELETE = 0x00000003 If StringLen($wkst) = 0 Then $wkst = @Computername $domStruct = DllStructCreate("char[256]") $lpNameBuffer = DllStructGetPtr($domStruct) $typStruct = DllStructCreate("int") $bufferType = DllStructGetPtr($typStruct) $err =DllCall($netapi32, "int" ,"NetGetJoinInformation", _ "int_ptr" ,strToUnicode($wkst) , _ ; LPCWSTR lpserver [in ] Pointer to a constant string that specifies the DNS or NetBIOS name of the computer on which to call the function. If this parameter is NULL, the local computer is used. "ptr" ,$lpNameBuffer , _ ; LPDWORD lpNameBuffer [OUT] Pointer to the buffer that receives the NetBIOS name of the domain or workgroup to which the computer is joined. "ptr" ,$bufferType) ; PNET... BufferType [OUT] Receives the join status of the specified computer ; Error ? If $err[0] Then $lasterr = DllCall ($kernel32, "int", "GetLastError") If $deb Then MsgBox(0,"error NetGetJoinInformation " & FormatMessage($lasterr[0]),FormatMessage($err[0])) ;get rid of the array & cleanup before leaving with error $entriesstruct = 0 $totalstruct = 0 DllCall($netapi32, "int" ,"NetApiBufferFree", _ "ptr" ,$lpNameBuffer) Return -1 EndIf ; $err[0] <> 0 $result = DllStructGetData($typStruct,1) If $deb Then MsgBox(0,"NetGetJoinInformation " & $wkst,$result & " " & $domn) ;get rid of the array & cleanup $entriesstruct = 0 $totalstruct = 0 DllCall($netapi32, "int" ,"NetApiBufferFree", _ "ptr" ,$lpNameBuffer) return $result & "|" & $domn EndFunc

Hello ZenKensei, I'm afraid i did not properly checked the code i send to you. I just cut and paste the .bak. You're right for the combo-box i forget to erase the previous content with a leading pipe "|". Correct code should be: GuiCtrlSetData(Eval("APort" & $i),"|" & $vlanList,$defaultVlan) ; as i thought it could be quite interesting to let someone choose and add new vlans numbers for some ; particular switches - and that these specials vlans should be remove from the "default config" ; -> so the solution in the clear code is: ; "|" ...erase previous list ; & $vlanlist ... revert to good old vlan list ; $defaultvlan ... defaultvlan :) For the logic of ports 1 & 24 i assumed that you wanted the two ports trunked by default ,so vlan should be trunk and disabled until you uncheck "trunking enable" The correct code with the checkbox reflecting the default state when cleared should be (according to this logic) ; clear ports 1; 24 GuiCtrlSetData($APort1, "|TRUNK|" & $vlanList,"TRUNK") GuiCtrlSetState($APort1,$GUI_DISABLE) GuiCtrlSetState($ATrunking1,$GUI_CHECKED) GuiCtrlSetData($APort24, "|TRUNK|" & $vlanList,"TRUNK") GuiCtrlSetState($APort24,$GUI_DISABLE) GuiCtrlSetState($ATrunking24,$GUI_CHECKED) As always its a matter of interpretation. For example i'm not sure that it is wise to clear the vtp domain information, assuming that if you need this kind of gui you should have a lot of Ciscos in the same vtp domain (only 24 ports models? ) Hope i will find some time soon to make a tool to manage my 3550s and 2970s... Regards

Hi ZenKensei, Did you mean something like this ? #include <GUIConstants.au3> Global Const $defaultVlan = "VLAN 40" Global Const $vlanList = "VLAN 1|VLAN 10|VLAN 20|VLAN 30|VLAN 40" ; == GUI generated with Koda == $Form1 = GUICreate("AForm1", 642, 535, 184, 112) $Group1 = GUICtrlCreateGroup("Switch Info", 16, 8, 257, 145) GUICtrlCreateLabel("Switch Name:", 24, 24, 70, 17) GUICtrlSetTip(-1, "Switch Network Name") $ASwitchName = GUICtrlCreateInput("", 96, 24, 105, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlSetTip(-1, "ex. MC002XNS2901") GUICtrlCreateLabel("Switch IP:", 24, 48, 52, 17) GUICtrlSetTip(-1, "Switch IP Address") $ASwitchIP = GUICtrlCreateInput("", 96, 48, 105, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlSetTip(-1, "11.54.333.444") GUICtrlCreateLabel("Switch GWY:", 24, 72, 68, 17) GUICtrlSetTip(-1, "Switch Default Gateway") $ASwitchGWY = GUICtrlCreateInput("", 96, 72, 105, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlSetTip(-1, "ex. 11.54.111.254") GUICtrlCreateLabel("Switch Mask:", 24, 96, 68, 17) GUICtrlSetTip(-1, "Switch Subnet Mask") $ASwitchMask = GUICtrlCreateInput("255.255.254.0", 96, 96, 105, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlSetTip(-1, "ex. 255.255.254.0") GUICtrlCreateLabel("Switch Loc:", 24, 120, 60, 17) GUICtrlSetTip(-1, "Switch Location") $ASwitchLoc = GUICtrlCreateInput("1FL MDF Rack 1 Position 1", 96, 120, 161, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlSetTip(-1, "ex. 1FL - MDF Rack 1") GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "General Switch Info") $Group2 = GUICtrlCreateGroup("Port 1 Configuration", 288, 8, 161, 145) $ATrunking1 = GUICtrlCreateCheckbox("Trunking Enabled", 304, 32, 113, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetTip(-1, " FA0/1 Trunking On") $APortFast1 = GUICtrlCreateCheckbox("PortFast Enabled", 304, 56, 121, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetTip(-1, "FA0/1 PortFast Spanning") $APort1 = GUICtrlCreateCombo("", 304, 120, 113, 21) GUICtrlSetData(-1, "TRUNK|VLAN 1|VLAN 10|VLAN 20|VLAN 30|VLAN 40","TRUNK") GuiCtrlSetState($APort1,$GUI_DISABLE) GUICtrlSetTip(-1, "VLAN Access Mode") $ASpeed1 = GUICtrlCreateCheckbox("100Mb / Full Duplex", 304, 80, 129, 17) GUICtrlSetTip(-1, "Set Speed to 100mb / Full Duplex") GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "FA0/1 Config") $Group3 = GUICtrlCreateGroup("Port 24 Configuration", 464, 8, 161, 145) $ATrunking24 = GUICtrlCreateCheckbox("Trunking Enabled", 480, 32, 113, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetTip(-1, "FA0/24 Trunking On") $APortFast24 = GUICtrlCreateCheckbox("PortFast Enabled", 480, 56, 105, 17) ; GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetTip(-1, "FA0/24 PortFast Spanning") $APort24 = GUICtrlCreateCombo("", 480, 120, 113, 21) GUICtrlSetData(-1, "TRUNK|VLAN 1|VLAN 10|VLAN 20|VLAN 30|VLAN 40","TRUNK") GUICtrlSetTip(-1, "VLAN Access Mode") GuiCtrlSetState($APort24,$GUI_DISABLE) $ASpeed24 = GUICtrlCreateCheckbox("100Mb / Full Duplex", 480, 80, 129, 17) GUICtrlSetTip(-1, "Set Speed to 100mb / Full Duplex") GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "Port 24 Uplink Config") $Group4 = GUICtrlCreateGroup("Standard Port Configuration", 16, 232, 609, 233) GUICtrlCreateLabel("Port FA0/2", 32, 256, 56, 17) GUICtrlSetTip(-1, "FA0/2 VLAN Access") $APort2 = GUICtrlCreateCombo("", 32, 272, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 2 VLAN Access") GUICtrlCreateLabel("Port FA0/3", 32, 304, 56, 17) GUICtrlSetTip(-1, "FA0/3 VLAN Access") $APort3 = GUICtrlCreateCombo("", 32, 320, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 3 VLAN Access") GUICtrlCreateLabel("Port FA0/4", 32, 352, 56, 17) GUICtrlSetTip(-1, "FA0/4 VLAN Access") $APort4 = GUICtrlCreateCombo("", 32, 368, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 4 VLAN Access") GUICtrlCreateLabel("Port FA0/5", 32, 400, 56, 17) GUICtrlSetTip(-1, "FA0/5 VLAN Access") $APort5 = GUICtrlCreateCombo("", 32, 416, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 5 VLAN Access") GUICtrlCreateLabel("Port FA0/6", 128, 256, 56, 17) GUICtrlSetTip(-1, "FA0/6 VLAN Access") $APort6 = GUICtrlCreateCombo("", 128, 272, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 6 VLAN Access") GUICtrlCreateLabel("Port FA0/7", 128, 304, 56, 17) GUICtrlSetTip(-1, "FA0/7 VLAN Access") $APort7 = GUICtrlCreateCombo("", 128, 320, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 7 VLAN Access") GUICtrlCreateLabel("Port FA0/8", 128, 352, 56, 17) GUICtrlSetTip(-1, "FA0/8 VLAN Access") $APort8 = GUICtrlCreateCombo("", 128, 368, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 8 VLAN Access") GUICtrlCreateLabel("Port FA0/9", 128, 400, 56, 17) GUICtrlSetTip(-1, "FA0/9 VLAN Access") $APort9 = GUICtrlCreateCombo("", 128, 416, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 9 VLAN Access") GUICtrlCreateLabel("Port FA0/10", 224, 256, 62, 17) GUICtrlSetTip(-1, "FA0/10 VLAN Access") $APort10 = GUICtrlCreateCombo("", 224, 272, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 10 VLAN Access") GUICtrlCreateLabel("Port FA0/11", 224, 304, 62, 17) GUICtrlSetTip(-1, "FA0/11 VLAN Access") $APort11 = GUICtrlCreateCombo("", 224, 320, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlCreateLabel("Port FA0/12", 224, 352, 62, 17) GUICtrlSetTip(-1, "FA0/12 VLAN Access") $APort12 = GUICtrlCreateCombo("", 224, 368, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlCreateLabel("Port FA0/13", 224, 400, 62, 17) GUICtrlSetTip(-1, "FA0/13 VLAN Access") $APort13 = GUICtrlCreateCombo("", 224, 416, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlCreateLabel("Port FA0/14", 328, 256, 62, 17) GUICtrlSetTip(-1, "FA0/14 VLAN Access") $APort14 = GUICtrlCreateCombo("", 328, 272, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 14 VLAN Access") GUICtrlCreateLabel("Port FA0/15", 328, 304, 62, 17) GUICtrlSetTip(-1, "FA0/15VLAN Access") $APort15 = GUICtrlCreateCombo("", 328, 320, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 15 VLAN Access") GUICtrlCreateLabel("Port FA0/16", 328, 352, 62, 17) GUICtrlSetTip(-1, "FA0/16 VLAN Access") $APort16 = GUICtrlCreateCombo("", 328, 368, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 16 VLAN Access") GUICtrlCreateLabel("Port FA0/17", 328, 400, 62, 17) GUICtrlSetTip(-1, "FA0/17 VLAN Access") $APort17 = GUICtrlCreateCombo("", 328, 416, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 17 VLAN Access") GUICtrlCreateLabel("Port FA0/18", 432, 256, 62, 17) GUICtrlSetTip(-1, "FA0/18 VLAN Access") $APort18 = GUICtrlCreateCombo("", 432, 272, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 18 VLAN Access") GUICtrlCreateLabel("Port FA0/19", 432, 304, 62, 17) GUICtrlSetTip(-1, "FA0/19 VLAN Access") $APort19 = GUICtrlCreateCombo("", 432, 320, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 19 VLAN Access") GUICtrlCreateLabel("Port FA0/20", 432, 352, 62, 17) GUICtrlSetTip(-1, "FA0/20 VLAN Access") $APort20 = GUICtrlCreateCombo("", 432, 368, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 20 VLAN Access") GUICtrlCreateLabel("Port FA0/21", 432, 400, 62, 17) GUICtrlSetTip(-1, "FA0/21 VLAN Access") $APort21 = GUICtrlCreateCombo("", 432, 416, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 21 VLAN Access") GUICtrlCreateLabel("Port FA0/22", 528, 256, 62, 17) GUICtrlSetTip(-1, "FA0/22 VLAN Access") $APort22 = GUICtrlCreateCombo("", 528, 272, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 22 VLAN Access") GUICtrlCreateLabel("Port FA0/23", 528, 304, 62, 17) GUICtrlSetTip(-1, "FA0/23 VLAN Access") $APort23 = GUICtrlCreateCombo("", 528, 320, 73, 21) GUICtrlSetData(-1, $vlanList,$defaultVlan) GUICtrlSetTip(-1, "Port 23 VLAN Access") GUICtrlCreateLabel("", 528, 352, 4, 4) GUICtrlCreateLabel("All ports are auto", 528, 352, 83, 17) GUICtrlCreateLabel("speed and duplex.", 528, 368, 91, 17) GUICtrlCreateLabel("All ports are", 528, 384, 59, 17) GUICtrlCreateLabel("VLAN 40 by", 528, 400, 61, 17) GUICtrlCreateLabel("default.", 528, 416, 39, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "FA0/2 - FA0/23 Configs") $Button1 = GUICtrlCreateButton("Write Config File", 136, 480, 97, 25) GUICtrlSetTip(-1, "Create config file") $Button2 = GUICtrlCreateButton("Clear Form", 272, 480, 97, 25) GUICtrlSetTip(-1, "Clear the form") $Button3 = GUICtrlCreateButton("Exit", 408, 480, 81, 25) GUICtrlSetTip(-1, "Exit Application") $Group5 = GUICtrlCreateGroup("VTP Information", 16, 160, 257, 65) GUICtrlCreateLabel("VTP Domain:", 24, 176, 67, 17) GUICtrlSetTip(-1, "VTP Domain Name") $AVTPDomain = GUICtrlCreateInput("", 104, 176, 105, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlSetTip(-1, "ex. FLO700X") GUICtrlCreateLabel("VTP Password:", 24, 200, 77, 17) GUICtrlSetTip(-1, "VTP Server Password") $AVTPPassword = GUICtrlCreateInput("", 104, 200, 105, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlSetTip(-1, "ex. FLO700X") GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetTip(-1, "VTP Server Info") ; GUISetState(@SW_SHOW) GUISetState() $msg = 0 While $msg <> $GUI_EVENT_Close $msg = GUIGetMsg() Select Case $msg == ($Button1) _WriteConfig(GUICtrlRead($ASwitchName)) Case $msg == ($Button2) _clearForm() Case $msg == $ATrunking1 If GuiCtrlRead($ATrunking1) == $GUI_CHECKED Then GuiCtrlSetData($APort1, "TRUNK|" & $vlanList,"TRUNK") GuiCtrlSetState($APort1,$GUI_DISABLE) Else GuiCtrlSetData($APort1,"TRUNK|" & $vlanList,$defaultVlan) GuiCtrlSetState($APort1,$GUI_ENABLE) EndIf Case $msg == $ATrunking24 If GuiCtrlRead($ATrunking24) == $GUI_CHECKED Then GuiCtrlSetData($APort24, "TRUNK|" & $vlanList,"TRUNK") GuiCtrlSetState($APort24,$GUI_DISABLE) Else GuiCtrlSetData($APort24,"TRUNK|" & $vlanList,$defaultVlan) GuiCtrlSetState($APort24,$GUI_ENABLE) EndIf Case $msg == ($Button3) MsgBox(0, "EXIT", "Exiting Cisco Config", 2) Exit EndSelect WEnd Exit ; clear (at least partially the display) Func _clearForm() ; clear id infos GuiCtrlSetData($ASwitchName ,"") GuiCtrlSetData($ASwitchIP ,"") GuiCtrlSetData($ASwitchGWY ,"") GuiCtrlSetData($ASwitchMask ,"255.255.254.0") GuiCtrlSetData($ASwitchLoc ,"1FL MDF Rack 1 Position 1") ; clear ports 2-23 For $i= 2 To 23 GuiCtrlSetData(Eval("APort" & $i),$vlanList,$defaultVlan) Next ; clear ports 1; 24 GuiCtrlSetData($APort1, "TRUNK|" & $vlanList,"TRUNK") GuiCtrlSetState($APort1,$GUI_DISABLE) GuiCtrlSetData($APort24, "TRUNK|" & $vlanList,"TRUNK") GuiCtrlSetState($APort24,$GUI_DISABLE) ; clear vtp infos GuiCtrlSetData($AVTPDomain ,"") GuiCtrlSetData($AVTPPassword ,"") EndFunc Func _WriteConfig($ASwitchName) $SwitchName = $ASwitchName $IPAddress = (GUICtrlRead($ASwitchIP)) $Gateway = (GUICtrlRead($ASwitchGWY)) $SubnetMask = (GUICtrlRead($ASwitchMask)) $VTPDomain = (GUICtrlRead($AVTPDomain)) $VTPPassword = (GUICtrlRead($AVTPPassword)) $Trunking1 = (GUICtrlRead($ATrunking1)) $PortFast1 = (GUICtrlRead($APortFast1)) $Speed1 = (GUICtrlRead($ASpeed1)) $Port1 = (GUICtrlRead($APort1)) $Trunking24 = (GUICtrlRead($ATrunking24)) $PortFast24 = (GUICtrlRead($APortFast24)) $Speed24 = (GUICtrlRead($ASpeed24)) $Port24 = (GUICtrlRead($APort24)) If $SwitchName <> "" And $IPAddress <> "" And $Gateway <> "" Then $Port1 = (GUICtrlRead($APort1)) If $Port1 = "" Then $Port1 = ("TRUNK") $Trunking1 = (GUICtrlRead($ATrunking1)) $PortFast1 = (GUICtrlRead($APortFast1)) $Speed1 = (GUICtrlRead($ASpeed1)) $Port2 = (GUICtrlRead($APort2)) If $Port2 = "" Then $Port2 = ("VLAN 40") $Port3 = (GUICtrlRead($APort3)) If $Port3 = "" Then $Port3 = ("VLAN 40") $Port4 = (GUICtrlRead($APort4)) If $Port4 = "" Then $Port4 = ("VLAN 40") $Port5 = (GUICtrlRead($APort5)) If $Port5 = "" Then $Port5 = ("VLAN 40") $Port6 = (GUICtrlRead($APort6)) If $Port6 = "" Then $Port6 = ("VLAN 40") $Port7 = (GUICtrlRead($APort7)) If $Port7 = "" Then $Port7 = ("VLAN 40") $Port8 = (GUICtrlRead($APort8)) If $Port8 = "" Then $Port8 = ("VLAN 40") $Port9 = (GUICtrlRead($APort9)) If $Port9 = "" Then $Port9 = ("VLAN 40") $Port10 = (GUICtrlRead($APort10)) If $Port10 = "" Then $Port10 = ("VLAN 40") $Port11 = (GUICtrlRead($APort11)) If $Port11 = "" Then $Port11 = ("VLAN 40") $Port12 = (GUICtrlRead($APort12)) If $Port12 = "" Then $Port12 = ("VLAN 40") $Port13 = (GUICtrlRead($APort13)) If $Port13 = "" Then $Port13 = ("VLAN 40") $Port14 = (GUICtrlRead($APort14)) If $Port14 = "" Then $Port14 = ("VLAN 40") $Port15 = (GUICtrlRead($APort15)) If $Port15 = "" Then $Port15 = ("VLAN 40") $Port16 = (GUICtrlRead($APort16)) If $Port16 = "" Then $Port16 = ("VLAN 40") $Port17 = (GUICtrlRead($APort17)) If $Port17 = "" Then $Port17 = ("VLAN 40") $Port18 = (GUICtrlRead($APort18)) If $Port18 = "" Then $Port18 = ("VLAN 40") $Port19 = (GUICtrlRead($APort19)) If $Port19 = "" Then $Port19 = ("VLAN 40") $Port20 = (GUICtrlRead($APort20)) If $Port20 = "" Then $Port20 = ("VLAN 40") $Port21 = (GUICtrlRead($APort21)) If $Port21 = "" Then $Port21 = ("VLAN 40") $Port22 = (GUICtrlRead($APort22)) If $Port22 = "" Then $Port22 = ("VLAN 40") $Port23 = (GUICtrlRead($APort23)) If $Port23 = "" Then $Port23 = ("VLAN 40") $Port24 = (GUICtrlRead($APort24)) If $Port24 = "" Then $Port24 = ("TRUNK") $Trunking24 = (GUICtrlRead($ATrunking24)) $PortFast24 = (GUICtrlRead($APortFast24)) $Speed24 = (GUICtrlRead($ASpeed24)) MsgBox(4096, "Switch Name", "Switch Network Name is: " & $SwitchName, 2) MsgBox(4096, "IP Address", "Switch Gateway IP Address is: " & $IPAddress, 2) ; MsgBox(4096, "Defualt Gateway", "Switch Gateway IP Address is: " & $Gateway, 2) ; MsgBox(4096, "Subnet Mask", "Switch Subnet Mask is: " & $SubnetMask, 2) ; MsgBox(4096, "VTP Domain", "Switch VTP Domain is: " & $VTPDomain, 2) ; MsgBox(4096, "VTP Password", "Switch VTP Password is: " & $VTPPassword, 2) MsgBox(4096, "Port FA0/1", "Port FA0/1 Trunking is: " & $Trunking1) MsgBox(4096, "Port FA0/1", "Port FA0/1 Spanning is: " & $PortFast1) MsgBox(4096, "Port FA0/1", "Port FA0/1 Speed is: " & $Speed1) MsgBox(4096, "Port FA0/1", "Port FA0/1 VLAN is: " & $Port1) MsgBox(4096, "Port FA0/24", "Port FA0/24 Trunking is: " & $Trunking24) MsgBox(4096, "Port FA0/24", "Port FA0/24 Spanning is: " & $PortFast24) MsgBox(4096, "Port FA0/24", "Port FA0/24 Speed is: " & $Speed24) MsgBox(4096, "Port FA0/24", "Port FA0/24 VLAN is: " & $Port24) If FileExists(@ScriptDir & "\" & $SwitchName & ".txt") Then FileDelete(@ScriptDir & "\" & $SwitchName & ".txt") $SwitchFile = FileOpen(@ScriptDir & "\" & $SwitchName & ".txt", 1) ; Check if file opened for writing OK If $SwitchFile = -1 Then MsgBox(0, "Error", "Unable to open logfile.") Exit EndIf ; The following 4 lines write general switch information to the config file. ; Rem these lines out or do not 'cut' them to be pasted. FileWrite($SwitchFile, "Switch Name: " & $SwitchName & @CRLF) FileWrite($SwitchFile, "IP Address: " & $IPAddress & @CRLF) FileWrite($SwitchFile, "Gateway: " & $Gateway & @CRLF) FileWrite($SwitchFile, "Subnet Mask: " & $SubnetMask & @CRLF) FileWrite($SwitchFile, @CRLF) ; The following section is the 'header section of the switch config. ; This information is always the same for configs created with this application. FileWrite($SwitchFile, "vlan database" & @CRLF) FileWrite($SwitchFile, "vtp mode client" & @CRLF) FileWrite($SwitchFile, "VTP DOMAIN " & $VTPDomain & @CRLF) FileWrite($SwitchFile, "vtp V2-MODE" & @CRLF) FileWrite($SwitchFile, "VTP PASSWORD " & $VTPPassword & @CRLF) FileWrite($SwitchFile, "EXIT" & @CRLF) ; Downlink Port 1 - Default Trunk Port For Switch to Switch Connection ; This port is used for connection to 'lower' switches (i.e. 2900's, 1900's, etc) If $Port1 = ("Trunk") Then FileWrite($SwitchFile, "interface FastEthernet0/1" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT TRUNK ENCAP DOT1Q" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT MODE TRUNK" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) Else FileWrite($SwitchFile, "interface FastEthernet0/1" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port1 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) EndIf If $Speed1 = 1 Then FileWrite($SwitchFile, "speed 100" & @CRLF) FileWrite($SwitchFile, "duplex full" & @CRLF) EndIf ; The following section starts the actual Port config for FA0/2 - FA0/23 FileWrite($SwitchFile, "interface FastEthernet0/2" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port2 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/3" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port3 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/4" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port4 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/5" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port5 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/6" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port6 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/7" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port7 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/8" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port8 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/9" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port9 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/10" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port10 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/11" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port11 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/12" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port12 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/13" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port13 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/14" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port14 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/15" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port15 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/16" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port16 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/17" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port17 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/18" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port18 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/19" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port19 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/20" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port20 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/21" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port21 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/22" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port22 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) FileWrite($SwitchFile, "interface FastEthernet0/23" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port23 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) ; UpLink Port 24 - Default Trunk Port For Switch to Switch Connection ; This port is used for connection to 'higher' switches (i.e. 3560's, etc) If $Port24 = ("Trunk") Then FileWrite($SwitchFile, "interface FastEthernet0/24" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT TRUNK ENCAP DOT1Q" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT MODE TRUNK" & @CRLF) Else FileWrite($SwitchFile, "interface FastEthernet0/24" & @CRLF) FileWrite($SwitchFile, "SWITCHPORT ACCESS " & $Port24 & @CRLF) FileWrite($SwitchFile, "switchport mode access" & @CRLF) FileWrite($SwitchFile, "spanning-tree portfast" & @CRLF) FileWrite($SwitchFile, "cdp enable" & @CRLF) EndIf If $Speed24 = 1 Then FileWrite($SwitchFile, "speed 100" & @CRLF) FileWrite($SwitchFile, "duplex full" & @CRLF) EndIf FileWrite($SwitchFile, "" & @CRLF) FileWrite($SwitchFile, "" & @CRLF) ; The following section completes the switch config file. FileWrite($SwitchFile, "interface Vlan1" & @CRLF) FileWrite($SwitchFile, "no ip address" & @CRLF) FileWrite($SwitchFile, "no ip route-cache" & @CRLF) FileWrite($SwitchFile, "shutdown" & @CRLF) FileWrite($SwitchFile, "!" & @CRLF) FileWrite($SwitchFile, "INTERFACE VLAN 10" & @CRLF) FileWrite($SwitchFile, "ip address " & $IPAddress & " " & $SubnetMask & @CRLF) FileWrite($SwitchFile, "" & @CRLF) FileWrite($SwitchFile, "no ip route-cache" & @CRLF) FileWrite($SwitchFile, "!" & @CRLF) FileWrite($SwitchFile, "IP DEFAULT-GATEWAY " & $Gateway & @CRLF) FileWrite($SwitchFile, "Managed Hostname: " & $SwitchName & @CRLF) FileClose($SwitchFile) ElseIf $SwitchName = "" Or $IPAddress = "" Or $Gateway = "" Then MsgBox(4096, "Missing Information", "You must first enter Switch Name, IP Address & Default Gateway", 5) EndIf EndFunc ;==>_WriteConfig CatOS where are you... Joe

I have the same problem with losts of listview and contextmenu/menuitem in one of my app...but i think this is just an arbitrary choice and not an Autoit limitation (there was a poll some month ago if i remember well). Maybye Jon or Jpm have an answer? It will not help but you're not the only one facing this problem I'm trying a workaround by splitting in more windows and removing menuitems in the gereral design and a more careful attention when deleting items but unfortunatly some items cannot be deleted If there is another poll i vote for 65535 items per gui...

Hi All, I know it's quite unusual but I am interested in reading (not writing ) some REG_RESOURCE_LIST (hex(08) type if i remember well). I'm currently using regdmp but as it's the last thing i'm not able to do directly with AutoIt and as it's not really elegant... Is the extension of RegRead() planned by someone in the house ? Thanks for your comments

Vielen dank Holger,Merci Jp Thanks all... I will try again with treeviews-item Joe

Hi all G(ui)' Men It may be my code but i was unable to create ContextMenu for TreeViewItems or ListViewItems despite it works well for TreeView and ListView objects. I made the same tests with various gui examples in the autoit\test\gui folder. Is this possible ? Using Jp's unstable version 15S. Same question for hiding a menu GuiCtrlSetState works fine with enable or disable but does not seems to work with $HIDE... Whatever, many thanks to all coders for the marvelous work...