You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » COM Scripting » KiXforms - Active Directory Browser Version 2
Register User       Forum List       Calendar       FAQ
Page 1 of 1 1
Topic Options
#144960 - 2005-08-05 11:30 PM KiXforms - Active Directory Browser Version 2
Chris S. Offline
MM club member
*****

Registered: 2002-03-18
Posts: 2368
Loc: Earth
Here is a new Active Directory Browser that utilizes TreeViews and fnLDAPQuery(). As it uses ADO AD to query active directory it is as fast as Active Directory Users and Computers when browsing your AD. In fact, I've often found myself double-clicking on objects and wondering why the object properties didn't come up.

Requires some version of KiXforms, but I'm not sure which. If it doesn't display properly on your system, download the latest development build. Also requires Windows 2000 and higher and Active Directory.

I have plans for this form upcoming, so stay tuned. If you, however, want to use this as a template for your own project feel free. Just give me credit for building the template.

Code:
Break On
 
$=SetOption("Explicit","On")
 
Global $System,$Form,$MessageBox1,$ImageList1
 
;region === KiXforms Region ===============================================
 
$System = CreateObject("Kixtart.System")
 
;region === MessageBox ====================================================
$MessageBox1 = $System.MessageBox()
$MessageBox1.Title = "Information..."
$MessageBox1.Style = 68
;endregion
 
;region === ImageList =====================================================
$ImageList1 = $System.ImageList
$ImageList1.ImageSize = 16,16
$ImageList1.TransparentColor = 255,0,255
$ImageList1.AddStrip($System.Bitmap.FromBase64String(fnBitmapStrip()))
;endregion
 
;region === Main Form =====================================================
$Form = $System.Form()
$Form.DockPadding = 1,1,1,1
 
$Form.Icon = $ImageList1.Images(9)
$Form.FontName = "Tahoma"
$Form.Size = 800,600
$Form.Center()
;endregion
 
;region === Clipboard =====================================================
$Form.Clipboard1 = $Form.Controls.TextBox("",0,0,0,0)
$Form.Clipboard1.Hide
;endregion
 
;region === Menus =========================================================
$Form.Menu = $System.MainMenu()
 
;region === File Menu =====================================================
$Form.FileMenu = $Form.Menu.MenuItems.Add("&File")
 
$Form.FileMenu.ExitApp = $Form.FileMenu.MenuItems.Add("Exit")
$Form.FileMenu.ExitApp.OnClick = "Quit()"
;endregion
 
;region === Edit Menu =====================================================
$Form.EditMenu = $Form.Menu.MenuItems.Add("&Edit")

$Form.EditMenu.CopyADsPath = $Form.EditMenu.MenuItems.Add("Copy ADsPath of Current Container")
$Form.EditMenu.CopyADsPath.OnClick = "fnCopy()"
;endregion
 
;endregion
 
;region === Toolbar =======================================================
$Form.ToolGroupBox = $Form.Controls.GroupBox()
$Form.ToolGroupBox.Height = 30
$Form.ToolGroupBox.Dock = 1
 
$Form.UpButton = $Form.ToolGroupBox.ToolButton("",2,2,26,26)
$Form.UpButton.FlatStyle = 1
$Form.UpButton.Icon = 47
$Form.UpButton.OnClick = "fnOnUp()"
$Form.UpButton.ToolTipText = "Up One Level"
 
$Form.Console = $Form.ToolGroupBox.ToolButton("",$Form.UpButton.Right + 2,2,26,26)
$Form.Console.Style = 1
$Form.Console.FlatStyle = 1
$Form.Console.Pushed = 1
$Form.Console.Icon = $ImageList1.Images(3)
$Form.Console.OnClick = "fnOnShowHide()"
$Form.Console.ToolTipText = "Show/Hide Console Tree"
;endregion
 
;region === Status Bar ====================================================
$Form.StatusGroupBox = $Form.GroupBox()
$Form.StatusGroupBox.Height = 20
$Form.StatusGroupBox.Dock = 2
;endregion
 
;region === TreeView ======================================================
$Form.TreeView1 = $Form.TreeView()
$Form.TreeView1.Dock = 3
$Form.TreeView1.HideSelection = 0
$Form.TreeView1.ImageList = $ImageList1
$Form.TreeView1.OnAfterSelect = "fnOnAfterSelect()"
$Form.TreeView1.OnBeforeExpand = "fnOnBeforeExpand()"
$Form.TreeView1.Width = $Form.ClientWidth / 4
$Form.TreeView1.Tag = $Form.TreeView1.Width
;endregion
 
;region === Splitter ======================================================
$Form.Splitter1 = $Form.Splitter()
$Form.Splitter1.Dock = 3
;endregion
 
$Form.GroupBox1 = $Form.Controls.GroupBox()
$Form.GroupBox1.Dock = 5
 
;region === Listview Label ================================================
$Form.Label1 = $Form.GroupBox1.Label()
$Form.Label1.BorderStyle = 2
$Form.Label1.Dock = 1
$Form.Label1.Height = 20
$Form.Label1.TextAlign = 16
;endregion
 
;region === ListView ======================================================
$Form.ListView1 = $Form.GroupBox1.ListView()
$Form.ListView1.Dock = 5
$Form.ListView1.OnDoubleClick = "fnOnDoubleClick()"
$Form.ListView1.SmallImageList = $ImageList1
 
$ = $Form.ListView1.Columns.Add("Name",0.35*$Form.ListView1.ClientWidth)
$ = $Form.ListView1.Columns.Add("Class",0.25*$Form.ListView1.ClientWidth)
$ = $Form.ListView1.Columns.Add("Description",0.40*$Form.ListView1.ClientWidth)
;endregion
 
fnAddRootItems()
$Form.Show 
;endregion
 
While $Form.Visible 
   $=Execute($Form.DoEvents) 
Loop
 
Exit 1
 
;region === Functions =====================================================
 
Function fnAddRootItems()
   Dim $objDomain,$objContainer,$rootDN,$node,$item,$child,$c
   $objDomain = GetObject("LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext"))
   Global $lockoutThreshold $lockoutThreshold = $objDomain.lockoutThreshold
   $rootDN = Join(Split(Join(Split($objDomain.distinguishedName,"DC="),""),","),".")
   $node = $Form.TreeView1.Nodes.Add($rootDN,6,6)
   $node.Tag = $objDomain.ADsPath
   $Form.Text = $objDomain.ADsPath
 
   For Each $objContainer in $objDomain
      Select
      Case $objContainer.Class = "organizationalUnit" 
         $child = $node.Nodes.Add(Split($objContainer.Name,"=")[1],15,15)
         $Item = $Form.ListView1.Items.Add(Split($objContainer.Name,"=")[1],15)
      Case 1
         $child = $node.Nodes.Add(Split($objContainer.Name,"=")[1],5,5)
         $Item = $Form.ListView1.Items.Add(Split($objContainer.Name,"=")[1],5)
      EndSelect
      $Item.SubItems(1).Text = $objContainer.Class
      $Item.SubItems(2).Text = $objContainer.Description
      $child.Tag = $objContainer.ADsPath
      $c=$child.Nodes.Add("")
   Next
 
   $Form.TreeView1.SelectedNode = $node
   $node.Expand()
EndFunction
 
Function fnCopy()
	$Form.Clipboard1.Text = $Form.Text
	$Form.Clipboard1.SelectionLength = Len($Form.Clipboard1.Text)
	$Form.Clipboard1.Copy
EndFunction	
 
Function fnLDAPQuery($What,Optional $From,$Filter,$OrderBy,$Scope,$User,$Pswd)
   
   Dim $oCon,$oCMD,$oRS,$sQ,$aR,$C,$R
   
   $sQ="<"+IIf($From="","LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext"),
      $From)+">;"+$Filter+";"+IIf(VarType($What)>8192,Join($What,','),$What)+";"+
      IIf($Scope<>"base" And $Scope<>"onelevel","subtree",$Scope)
   
   $oCon=CreateObject("ADODB.Connection")
   $oCon.Provider="ADsDSOObject"
   $oCon.Properties("Encrypt Password").Value=1
   $oCon.Properties("ADSI Flag").Value=1
   If $User And $Pswd
      $oCon.Properties("User ID").Value=$User
      $oCon.Properties("Password").Value=$Pswd
   EndIf
   $oCon.Open("Active Directory Provider")
   
   $oCMD=CreateObject("ADODB.Command")
   $oCMD.ActiveConnection=$oCon
   $oCMD.CommandText=$sQ
   $oCMD.Properties("Page Size").Value=1000
   $oCMD.Properties("Timeout").Value=30
   $oCMD.Properties("Cache Results").Value=0
   
   If InStr($OrderBy,"distinguishedName")
      $oRS=CreateObject("ADODB.Recordset")
      $oRS.CursorLocation=3
      $oRS.Sort=$OrderBy
      $oRS.Open($sQ,$oCon,0,1,1)
   Else
      If $OrderBy
      $oCMD.Properties("Sort On").Value=$OrderBy
      EndIf
      $oRS=$oCMD.Execute
   EndIf
   If @ERROR Exit @ERROR EndIf
   If $oRS.BOF And $oRS.EOF Exit @ERROR EndIf
   
   $aR = $oRS.GetRows()
   Dim $aFR[Ubound($aR,2),Ubound($aR,1)]
   For $R=0 to Ubound($aR,2)
      For $C=0 to Ubound($aR,1)
         $aFR[$R,$C]=$aR[$C,$R]
      Next
   Next
   
   $fnLDAPQuery=$aFR
EndFunction
 
Function fnOnAfterSelect()
   Dim $node,$sWhat,$aResults,$r,$item
   $node = $Form.TreeView1.SelectedNode
   
   $Form.Cursor = $System.CursorStyle.WaitCursor
   $Form.Text = $node.Tag
   $Form.ListView1.BeginUpdate()
   $Form.ListView1.Items.Clear()
   
   $sWhat = "Name","objectClass","description","userAccountControl","badPwdCount","ADsPath"
   $aResults = fnLDAPQuery($sWhat,$node.Tag,,,"OneLevel")
   
   For $r = 0 to Ubound($aResults)
      If VarType($aResults[$r,1]) & 8192
         Select
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "user" And $aResults[$r,3] & 2
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],18)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "user" And $aResults[$r,4] = $lockoutThreshold
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],19)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "user" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],17)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "computer" And $aResults[$r,3] & 2
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],1)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "computer" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],0)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "group" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],22)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "contact" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],4)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "organizationalUnit" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],15)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "domainPolicy" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],7)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "nTFRSSettings" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],14)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "rpcContainer" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],16)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "foreignSecurityPrincipal" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],13)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "volume" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],24)
         Case $aResults[$r,1][Ubound($aResults[$r,1])] = "trustedDomain" 
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],6)
         Case 1
            $Item = $Form.ListView1.Items.Add($aResults[$r,0],5)
         EndSelect
         $Item.SubItems(0).Tag = $aResults[$r,5]
         $Item.SubItems(1).Text = $aResults[$r,1][Ubound($aResults[$r,1])]
         $Item.SubItems(2).Text = IIf(VarType($aResults[$r,2]) & 8192,Join($aResults[$r,2]),$aResults[$r,2])
      EndIf
   Next
   
   $Form.Label1.Text = " " + $node.Text + "    " + $Form.ListView1.Items.Count + " objects"
   
   $Form.ListView1.Tag = $node
   $Form.ListView1.EndUpdate()
   $Form.Cursor = $System.CursorStyle.Default
EndFunction
 
Function fnOnBeforeExpand()
   Dim $sWhat,$sFilter,$aResults,$r,$node,$child
   If $Form.TreeView1.EventNode.Nodes.Count = 1 And $Form.TreeView1.EventNode.Nodes(0).Text = ""
      $Form.Cursor = $System.CursorStyle.WaitCursor
      $Form.TreeView1.EventNode.Nodes.Remove($Form.TreeView1.EventNode.Nodes(0))
      $sWhat = "Name","ADsPath","objectClass"
      $sFilter = "(|(objectCategory=organizationalUnit)(objectCategory=container))"
      $aResults = fnLDAPQuery($sWhat,$Form.TreeView1.EventNode.Tag,$sFilter,,"OneLevel")
      For $r = 0 to Ubound($aResults)
         Select  
         Case AScan($aResults[$r,2],"organizationalUnit")=>0
            $node = $Form.TreeView1.EventNode.Nodes.Add($aResults[$r,0],15,15)
            $node.Tag = $aResults[$r,1]
            $child = $node.Nodes.Add("")
         Case AScan($aResults[$r,2],"container")=>0
            $node = $Form.TreeView1.EventNode.Nodes.Add($aResults[$r,0],5,5)
            $node.Tag = $aResults[$r,1]
            $child = $node.Nodes.Add("")
         EndSelect
      Next
      $Form.Cursor = $System.CursorStyle.Default
   EndIf
   $Form.TreeView1.EventNode.Expand()
EndFunction
 
Function fnOnDoubleclick()
   Dim $item,$node,$i
   $item = $Form.ListView1.SelectedItem
   $node = $Form.TreeView1.SelectedNode
   If $item.SubItems(1).Text = "organizationalUnit" Or $item.SubItems(1).Text = "container"
      $node.Expand()
      For $i = 0 to $node.Nodes.Count - 1
         If $node.Nodes($i).Text = $item.Text
            $Form.TreeView1.SelectedNode = $node.Nodes($i)
         EndIf
      Next
      fnOnBeforeExpand()
   Else
      If $MessageBox1.Show($item.SubItems(0).Tag+@CRLF+@CRLF+"Copy to clipboard?") = 6
         $Form.Clipboard1.Text = $item.SubItems(0).Tag
         $Form.Clipboard1.SelectionLength = Len($Form.Clipboard1.Text)
         $Form.Clipboard1.Copy
      EndIf
   EndIf
EndFunction
 
Function fnOnUp()
   $Form.Cursor = $System.CursorStyle.WaitCursor
   $Form.TreeView1.SelectedNode = $Form.TreeView1.SelectedNode.Parent
   $Form.Cursor = $System.CursorStyle.DefaultCursor
EndFunction
 
Function fnOnShowHide()
   If $Form.TreeView1.Visible
      $Form.TreeView1.Hide
      $Form.Splitter1.Hide
      $Form.GroupBox1.Left = 0
      $Form.GroupBox1.ClientWidth = $Form.ClientWidth
      $Form.Refresh()
   Else
      $Form.TreeView1.Show
      $Form.Splitter1.Show
      $Form.GroupBox1.Dock = 5
      $Form.Refresh()
   EndIf
EndFunction
 
Function fnBitmapStrip()
   $fnBitmapStrip = "
      Qk32DAAAAAAAAHYAAAAoAAAAkAEAABAAAAABAAQAAAAAAIAMAAAAAAAAAAAAAAAAAAAAAAAA
      AAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A
      /wD//wAA////ANAAAAAAAADd0AAAAAD//93QAAAAAAAA3d3d3d3d3d3d3d3d3d3d3d3d3d3d
      3d3d3d3d0AAN3d3d3dAAAA3d3d3d3d3d0A3URN3d3d3QDd3d3d3d3d0A3d3d3dAADd3QDd3d
      3d3QAA3d3d3d3d3d3d3dTd0AAAAAAN3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d///d
      3d3d3QAAAA3d3d3d3dAN3d3d3YAAAAAA1ERERETd3d3d3dAADd3d3d3d3d3d3d3dd3d3d3d3
      dw13d3d3f5mZ/Xd3d3d3AHcN3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d14iHDd3d3df//3
      cN3d3d3d3dAHcE7E3d3d0AeA3d3d3d3d1OwN3QAAC/MAAE5g3d3d3Q//8N3d3d1ERERN3dRE
      13d3d3dw3d3d3d3d3d3d3d3d3d3d3d3URERERN3d3dRERE+Zmf3d1ERDMzMzMN3d1ERETsDd
      3d3de7u7u7BMxESExE3d3QAAC/MAAAAA3d3dAADd3d1/ioiIiIiHcH+KiIj5+Z+ff4qIiITs
      B3DURERERERETQAADQAA0AAA3QAAAAAAAADd3XiIdw3d3d13d3f/Dd3d3d3QB4uE7E3d3dAH
      iHgN3d0AAABOzADdiIiIAAiE5sDQAAAA//D/Dd3d1ETMRETdTU3X+Li4uHDdAAAAAAAAAAAA
      AAAAAAAA3UzERITETd3dTMREifmfn91MxEP7u7sw3d1MxETswE3URER7uwC7sNRIj4dERERN
      iIiIAAiIiIgAAAC/MAAAAH+IiIAAAIdwf4iIgPmY+Z9/iIiATswHcNT///SIiIhNeIh9CIfQ
      iIDXd3d3d3d3cNAAeIh3Dd3d3d1///8N3d3d0AeLuE7E3d3QB4u3B4Dd3XiIhOzIgN3d3QCH
      cE5sjdD//w//8A/w3d3dxEj3RN1N3df7i4uLcNd3d3cAd3dwf/////////Dd1EiPh0Td3d3U
      SI+JmPmf3dRIg/uIizDd3dRITsxE3UzERIe7u7sN3Qf/cERITETd3QCHcA3d3YiIiDMwiIiI
      f///////93B/////+Z+Jn3////Tsz/dw1P//9IiIiE1//4eP+Hj/gNf7i4uLi4tweIh4iHcA
      AN3QAH///w3d3dAHi7M07EgN0AeLt394eA3df/9OzI+A3d0AiId05sjd0P//DwAAAPDd3d3Q
      f4BN3U3d1/i4uLhw1/uLADMLi3B/////////8N3dB/9wTd3d3d0H/3mfiZ/d3Qfz//+7MN3d
      3QTswE3d1EiPh7sHuw3QAPiIgPh0Td0AiId3cA3d3d3d2A3d3d3QAAAAAAAHcNAAAAD5+Z+f
      0AAATswAB3DU8AD0iICITX////////+A1/i4uLi4uHB4iX//dwiHDXiH/MzwAADdd4uzcA/E
      h4B3i7d/uIeHgN1wB4zI/4DdcIiHAH9scA3Q/0QPAAAA8N3d3QAI/w3d3d3X+4uLi3DX+AAz
      iIC4cH9//39//3/w3dAA+IiA3d3d0AD4ifmfn93QAPMzMzMw3dd3eMyIgN3dB/9wewCw3dAA
      D//w9wTdcIiIh3d3cA3d3d3QDd3d3dd3d3d3d3B913d3d3+Zmf3Xd3eMx3dwfdT///SIAIhN
      fyIv8iIiL4DX+4uLi4uLcHiId3cHCYdweIf///CIhw14szdmYH9wcHi3f7iPv3Bw146Ad4//
      gN1/iHjoCAd3cND/SA//8A/w3d3dAAD/8N3QAAf/////cNf7c4i7iAtwf3//f3//f/Dd0AAP
      //Dd3d3QAA//mZn93dAADzsPew3deOh3D//w3dAA+Ih7B7DdAAB//4CIiA1/iIj3d3d3cNAA
      AAAAAADd1/iIiIiIdw3X+IiIiP//DdeOh3iIiHcN1PAA9IAAiE1/////////gNf4uLi4uLhw
      eIh4iHAIh3B4h/zM8AAHcHAAdujmCLeAcAAAD/uI94B/6OgI//+A3X+H/o6Ad3dw0P//8P/w
      /w3d3d0AD//33Xd3d4uLh3d91/h3dwv4CHB/d3d/d3d/8N0AAH//gN3d3QAAf/+A/93dAAB/
      Ow97Ddf+jod//4Dd0AAP//e7Dd0AAP//+A//DX+I/4iHd3dweP//////hw3X+AREREh3Ddf4
      BERESHcNf+jodERIdw3U///0iACITX8iL/IiIi+A1/uLi4uLi3B4iH//dwiHcHiIf///CAdw
      1/d//o4LiHDX93dwCPuIcH7+jgj//4Ddf/fv6OCHd3DQ/0T0D//w3d3d3QAAj0Ddf4uLeLh9
      3d3X+4f4gId7cH//f///f//w3QAA///4Dd3dAAD///gN3d0AAP87AAsN1+/o5///+A0AAH//
      h7sN3QAAf/jID/gNf/+ImYiHd3B4d3d3d3eHcNf4DMzMSHcN1/gMzMxIdw1+/o58zEh3DdTw
      APSIgIhNf////////4DX+Li4uLi4cH//eIiHCIdwf//3d3dwh3Ddf3/o6Hi/gN1/iIdwiPuA
      f+/oCP//gN1/h//+gHCHcND/SP/wAADd3d2dAAAI8N1/uLi3dw3dTdf4uH+ICLhwf/9///9/
      //DdAAB/+MgN3d0AAH/4yA3d3QAAfzu7uw3X/v6Hf/jIDQAA///4cN3dAAAAj3D//4B/iKqI
      h3CHcHiIiIiIiIdw1/gMzMxIdw3X+AzMzEh3DX/v6HzMSHcN1P//9IiIiE1/goKCj///gNf7
      i4uLi4twd3d3d3f/93B3d3Bwf//3cN3X9/+HCId93df4iIcPh33X/vCP//+A3dd/f+gI8Id9
      0P//////8N3d2d0AAABwDX+Li4uHDd3U1/uLh//wi3B//3d3d3//8N0AAACPcN3d3QAAAI9w
      3d3dAAAAgzMzjd1/73AAj3DdAAB/+MgN3d0AAAAP+A+MgNd/iId48Id9eIiIiIiCp3DX+AzM
      zEh3Ddf4DMzMSHcN1/73zMxIdw3U///0iIiITX8oKCgv//+A1////////3B4iIcAd3dwcHiI
      hwB3d3Bw3d1/d3dwfd3d3X+IiHB93d13CP///4Dd3dd3cP//Dd3Q/0T0RE/w3d2d3dAAAAAN
      f7i4uLcN3dTX////iIj/cH////f//3AA3QAAAA/4Dd3dAAAAD/gN3d0AAAAP+A3d3dd3AAAP
      +A0AAACPcN3d3dAAAAAACPcN3dd/eP//Dd1////////3cNf4AAAACHcN1/gAAAAIdw3Xd3AA
      AAh3DdRERERERERNf////////4DXi4uLh3d3fX//93B4iIcAf//3cHiIhwDd3df4+PgN3d3d
      1/+Pjw3d3X////8AAN3d3dd////w3dD/SP////Dd3Z3d3QAADd1/////9w3U1NeLi4uHd3d9
      f3d/9///f33d0AAAAAAN3d3QAAAAAA3d3dAAAAAADd3d3dAAAAAADQAAAA/4Dd3d3QAAAAAA
      /4Dd3dd////w3deIiIiIiIhw1///////dw3X//////93Ddf//////3cN1ERERERERE3Xd3d3
      d3d3fd14uLh93d3deIiIcH//93B4iIhwf//3cN3d3X+Pj4Dd3d3df/j48N3df////4993d3d
      3df///8A0P//////8N2ZmZ3d3d3d3Xi4uHd33URN3Xi4uH3d3d1///////933d3dAAAAAA3d
      3d0AAAAADd3d3QAAAAAN3d3d3QAAAAAN0AAAAAAN3d3d0AAAAAAAAN3d3df///8A3Xd3d3d3
      d33deIiIiIj3Dd14iIiIiPcN3XiIiIiI9w3d3d3d3d3d3d3d3d3d3d3d3dd3d93d3d3Xd3d9
      eIiIcNd3d314iIhw3d3d13f4+A3d3d3Xd4+PDd1/////h93d3d3d3X//d93QAAAAAAAA3dmZ
      3d3d3d3d14uH3d3d1N3d13d33d3d3Xd3d3d3d33d3d3QAAAA3d3d3dAAAADd3d3d0AAAAN3d
      3d3d0AAAAN3dAAAAAA3d3d3d3dAAAAAA3d3d3X//d93d3d3d3d3d3d3Xd3d3d3fd3dd3d3d3
      d93d13d3d3d33d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3Xd3d93d3d3dd3d33d3d3d
      3Xd3fd3d3d3dd3d93Xd3d3d93d3d3d3d13fd3d3d3d3d3d3d3Z3d3d3d3d3dd33d3d3d3d3d
      3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3d3QAAAA3d3d
      3d3d3QAAAA3d3d3d13fd3d3d3d3d3d3d
      "
EndFunction
;endregion

Edited by Chris S. (2005-08-18 11:40 PM)
Top
#144961 - 2005-08-17 02:43 PM Re: KiXforms - Active Directory Browser Version 2
masken Offline
MM club member
*****

Registered: 2000-11-27
Posts: 1222
Loc: Gothenburg, Sweden
Nice indeed
_________________________
The tart is out there

Top
#144962 - 2005-08-18 11:42 PM Re: KiXforms - Active Directory Browser Version 2
Chris S. Offline
MM club member
*****

Registered: 2002-03-18
Posts: 2368
Loc: Earth
Edited the original to include the more supported System.Bitmap.FromBase64String method.

Is that better, Shawn?
Top
#144963 - 2005-08-19 01:03 AM Re: KiXforms - Active Directory Browser Version 2
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
rofl ... "more supported" ... thats one way to put it ja. (chuckle)
Top
#144964 - 2005-12-04 01:09 PM Re: KiXforms - Active Directory Browser Version 2
20thCenturyBoy Offline
Lurker

Registered: 2005-12-04
Posts: 4
Unfortunately I get the following errors when trying to run this script:

Code:
 $objDomain = GetObject("LDAP://" + GetObject("LDAP://rootDSE").Get("defaultNamingContext"))


fails with:

ERROR : invalid method/function call: missing ')'!

and

Code:
$sQ="<"+IIf($From="","LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext"),
      $From)+">;"+$Filter+";"+IIf(VarType($What)>8192,Join($What,','),$What)+";"+
      IIf($Scope<>"base" And $Scope<>"onelevel","subtree",$Scope)


fails with:

ERROR : invalid method/function call: missing comma!

I am using the latest Kixforms (2.3.0 build 45) and Kixtart (Kix2010.451)

I'd love to get this working, any ideas?
Top
#144965 - 2005-12-04 03:59 PM Re: KiXforms - Active Directory Browser Version 2
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
OS?
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#144966 - 2005-12-04 04:14 PM Re: KiXforms - Active Directory Browser Version 2
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Plus, might want to try the latest development build of Kixforms ... here:

Kixforms Development Build
Top
#144967 - 2005-12-05 01:17 AM Re: KiXforms - Active Directory Browser Version 2
20thCenturyBoy Offline
Lurker

Registered: 2005-12-04
Posts: 4
OS is WinXP SP2.

I'll try the latest dev build of Kixforms, but surely the error is a Kixtart error, not a Kixforms one? I don't understand why the first error is complaining of a missing bracket when they are clearly matched.

Have people successfully run this script without modification? If so what versions of Kix/Kiforms are you using?
Top
#144968 - 2005-12-05 01:28 AM Re: KiXforms - Active Directory Browser Version 2
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
just devide the line:
Code:

 $objDomain = GetObject("LDAP://" + GetObject("LDAP://rootDSE").Get("defaultNamingContext"))


to search the error:
Code:

 $rootDSE = GetObject("LDAP://rootDSE")
 @error ?
 $defaultNamingContext = $rootDSE.Get("defaultNamingContext")
 @error ?
 $objDomain = GetObject("LDAP://" + $defaultNamingContext)
 @error ?
_________________________
!

download KiXnet

Top
#144969 - 2005-12-29 11:58 AM Re: KiXforms - Active Directory Browser Version 2
Schuliebug Offline
Hey THIS is FUN
*****

Registered: 2002-01-18
Posts: 379
Loc: Netherlands
Doesn't work with KiXforms 2.46.35, does work with 2.46.33! Shawn has been notified of the problem.
_________________________
Kind regards,

Top
#144970 - 2005-12-29 02:56 PM Re: KiXforms - Active Directory Browser Version 2
Schuliebug Offline
Hey THIS is FUN
*****

Registered: 2002-01-18
Posts: 379
Loc: Netherlands
As of the latest devbuild 2.46.36 it works again.
_________________________
Kind regards,

Top
#144971 - 2006-06-17 11:38 PM Re: KiXforms - Active Directory Browser Version 2
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
just to note.
it does nothing.

just flashes the explorer window really quickly and that's it.
_________________________
!

download KiXnet

Top
#144972 - 2006-06-18 12:21 AM Re: KiXforms - Active Directory Browser Version 2
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
added some debug lines and suddenly, this is what makes kixtart silently quit:
Code:

$ImageList1 = $System.ImageList
$ImageList1.ImageSize = 16,16
$ImageList1.TransparentColor = 255,0,255
$ImageList1.AddStrip($System.Bitmap.FromBase64String(fnBitmapStrip()))


using wkix 4.52 rc-1 and kf build 46 (just downloaded)
_________________________
!

download KiXnet

Top
#144973 - 2006-06-18 12:24 AM Re: KiXforms - Active Directory Browser Version 2
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
yet more checking:
$ImageList1.AddStrip($System.Bitmap.FromBase64String(fnBitmapStrip()))

kills kixtart.
_________________________
!

download KiXnet

Top
#197186 - 2009-12-17 06:41 PM Re: KiXforms - Active Directory Browser Version 2 [Re: Lonkero]
Reno Offline
Fresh Scripter

Registered: 2003-10-19
Posts: 13
Loc: Kansas City
I am hoping someone can help me. I built an app using the code Chris S provided here, and it has worked well, but I am now experiencing what Lonkero reported here, that the line:
$ImageList1.AddStrip($System.Bitmap.FromBase64String(fnBitmapStrip()))
kills kixtart. I have confirmed that it is what is killing my app too. It used to happen on just some machines (which I reimaged to fix), now it is most machines (xp sp3).
Can anyone suggest a possible solution to for this. I am not familar with how to create these strips but it looks like that is what I will need to do. Perhaps someone has a converted strip already I can plug in and reassign app icons?
Thanks for any help you might be able to provide.
Reno
Top
#197187 - 2009-12-17 07:50 PM Re: KiXforms - Active Directory Browser Version 2 [Re: Reno]
Chris S. Offline
MM club member
*****

Registered: 2002-03-18
Posts: 2368
Loc: Earth
The above script is still working for me. What version of KiXforms and KiXtart are you using?
Top
Page 1 of 1 1


Moderator:  Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart 
Hop to:
Shout Box

Who's Online
1 registered (mole) and 405 anonymous users online.
details
Newest Members
Timothy, Jojo67, MaikSimon, kvn317, kixtarts2025
17874 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.046 seconds in which 0.014 seconds were spent on a total of 14 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org