LDIFDE GUI Wrapper

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

LDIFDE GUI Wrapper

Logged in as: Guest

arrSession:exec spGetSession 2,16,32881

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> LDIFDE GUI Wrapper
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

LDIFDE GUI Wrapper - 3/30/2006 9:30:42 AM

hopsbarleyman

Posts: 9
Score: 0
Joined: 1/17/2006
Status: offline

I wrote this HTA to add a visual interface to a great utility that has a complex syntax usage. This HTA will allow visual selection of all available switches as well as automatically enumerate DN's from Active Directory to populate the paths along with the associated attributes tied to the enumerated classes. You can launch the utility with the selections you've made or simply use it to generate syntax to use for scripting ldifde elsewhere.

<HTML>

<HEAD>
<TITLE>>> LDIFDE GUI HTA UTILITY</TITLE>
<HTA:APPLICATION
ID = "LDIFDE"
APPLICATIONNAME = "LDIFDE GUI"
BORDER = "thick"
CAPTION = "yes"
SHOWINTASKBAR = "yes"
SINGLEINSTANCE = "yes"
SYSMENU = "yes"
WINDOWSTATE = "maximize"
SCROLL = "yes"
SCROLLFLAT = "yes"
VERSION = "1.0"
INNERBORDER = "no"
SELECTION = "no"
MAXIMIZEBUTTON = "yes"
MINIMIZEBUTTON = "yes"
NAVIGABLE = "yes"
CONTEXTMENU = "yes"
BORDERSTYLE = "normal">
<style>
legend {
font-family: Tahoma;
font-size: 15px;
font-weight: bold;
color: blue;
}
fieldset { 
border-style:double;
border-width:3px;
padding:5px;
}
input {
font-family: Tahoma;
font-size: 10px;
}
select {
font-family: Tahoma;
font-size: 10px;
width: 275px;
}
textarea {
font-family: Tahoma;
font-size: 10px;
width: 275px;
}
td {
font-family: Tahoma;
font-size: 10px;
border-bottom-style: dashed;
border-bottom-width: 1px;
border-bottom-color: #999999;
}
body {
font-family: Tahoma;
font-size: 10px;
}
h1 {
font-family: Tahoma;
font-size: 25px;
color: #666666;
}
buttons {
font-family: Tahoma;
font-size: 12px;
font-weight: bold;
}
</style>

Sub enumAttributes(objclassinputA)
 '- Enum attributes depending upon what schema class is currectly selected.
 Set objClass = GetObject("[link=http://www.visualbasicscript.com/ldap://schema/]LDAP://schema/[/link]" & objclassinputA.Value)
 strHTMLatt = "<select name=""attributeinput"" size=""1"">"
 strHTMLattincl = "<select name=""attributeinclude"" size=""4"" multiple>"
 strHTMLattomit = "<select name=""attributeomit"" size=""4"" multiple>"
 For Each strPropName In objClass.MandatoryProperties
  strHTMLatt = strHTMLatt & "<option value=" & Chr(34) & strPropName & Chr(34) & ">" & _
  strPropName & "</option>" & VbCrLf
  strHTMLattincl = strHTMLattincl & "<option value=" & Chr(34) & strPropName & Chr(34) & ">" & _
  strPropName & "</option>" & VbCrLf
  strHTMLattomit = strHTMLattomit & "<option value=" & Chr(34) & strPropName & Chr(34) & ">" & _
  strPropName & "</option>" & VbCrLf
 Next
 For Each strPropName In objClass.OptionalProperties
  strHTMLatt = strHTMLatt & "<option value=" & Chr(34) & strPropName & Chr(34) & ">" & _
  strPropName & "</option>" & VbCrLf
  strHTMLattincl = strHTMLattincl & "<option value=" & Chr(34) & strPropName & Chr(34) & ">" & _
  strPropName & "</option>" & VbCrLf
  strHTMLattomit = strHTMLattomit & "<option value=" & Chr(34) & strPropName & Chr(34) & ">" & _
  strPropName & "</option>" & VbCrLf
 Next
 strHTMLatt = strHTMLatt & "</select>"
 strHTMLattincl = strHTMLattincl & "</select>"
 strHTMLattomit = strHTMLattomit & "</select>"
 objAttributeList.InnerHTML = strHTMLatt
 listincludeinput.InnerHTML = strHTMLattincl
 listomitinput.InnerHTML = strHTMLattomit
End Sub

Sub LaunchCmd '- Launch the ldifde command with selections.
 Set objName = document.ldifde
 If objName.importmode.Checked Then strImport = objName.importmode.Value
 If objName.filename.Checked Then
  strFilename = objName.filename.Value & " " & """" & objName.path.Value & """"
 End If
 If objName.servername.Checked Then 
  strServername = objName.servername.Value & " " & objName.servernameinput.Value
 End If
 If objName.replacedn.Checked Then
  strreplacedn = objName.replacedn.Value & " " & """" & objName.replacedninput.Value & """"
 End If
 If objName.verbose.Checked Then strverbose = objName.verbose.Value
 If objName.logfile.Checked Then
  strlogfile = objName.logfile.Value & " " & """" & objName.logfileinput.Value & """"
 End If
 If objName.port.Checked Then
  strport = objName.port.Value & " " & objName.portinput.Value
 End If
 If objName.unicode.Checked Then strunicode = objName.unicode.Value
 If objName.timeout.Checked Then
  strtimeout = objName.timeout.Value & " " & objName.timeoutinput.Value
 End If
 If objName.sasl.Checked Then strsasl = objName.sasl.Value
 If objName.rootdn.Checked Then
  strrootdn = objName.rootdn.Value & " " & """" & objName.rootdninput.Value & """"
 End If
 intFilter = 0
 If objName.filter.Checked Then
  strfilter = " " & objName.filter.Value
  intFilter = intFilter+1
 End If
 If objName.objectclass.Checked Then
  objName.filter.Checked = True
  strobjectclass = "(objectClass=" & objName.objclassinput.Value & ")"
  intFilter = intFilter+2
 End If
 If objName.objectcategory.Checked Then
  objName.filter.Checked = True
  strobjectcategory = "(objectCategory=" & objName.objcategoryinput.Value & ")"
  intFilter = intFilter+2
 End If
 If objName.attribute.Checked Then
  objName.filter.Checked = True
  strattribute = "(" & objName.attributeinput.Value & "=" & objName.attributename.Value & ")"
  intFilter = intFilter+2
 End If
 If intFilter > 2 Then
  strFilterVal = strfilter & " " & Chr(34) & " (&" & strobjectclass & strobjectcategory & _
  strattribute & ")" & Chr(34)
 End If
 If intFilter = 1 Then
  strFilterVal =  strfilter & " " & Chr(34) & strobjectclass & strobjectcategory & strattribute & Chr(34)
 End If
 If objName.searchscopechk.Checked Then
 Set objRadio = objName.Elements("searchscope")
 For Each objRadioButton In objRadio
  If objRadioButton.Checked = True Then
   strsearchscope = objName.searchscopechk.Value & " " & objRadioButton.Value
   Exit For
  End If
 Next
 End If
 If objName.listinclude.Checked Then 
 For i = 0 to (objName.attributeinclude.Options.Length - 1)
       If (objName.attributeinclude.Options(i).Selected) Then
           attributeincludeval = attributeincludeval & objName.attributeinclude.Options(i).Value & ","
       End If
   Next
  strlistinclude = objName.listinclude.Value & " " & """" & attributeincludeval & """"
 End If
 If objName.listomit.Checked Then 
 For i = 0 to (objName.attributeomit.Options.Length - 1)
       If (objName.attributeomit.Options(i).Selected) Then
           attributeomitval = attributeomitval & objName.attributeomit.Options(i).Value & ","
       End If
   Next
  strlistomit = objName.listomit.Value & " " & """" & attributeomitval & """"
 End If
 If objName.paged.Checked Then strpaged = objName.paged.Value
 If objName.samlogic.Checked Then strsamlogic = objName.samlogic.Value
 If objName.binaryexport.Checked Then strbinaryexport = objName.binaryexport.Value
 If objName.ignoreerrors.Checked Then strignoreerrors = objName.ignoreerrors.Value
 If objName.lazycommit.Checked Then strlazycommit = objName.lazycommit.Value
 If objName.thread.Checked Then 
  strthread = objName.thread.Value & " " & objName.threadinput.Value
 End If
 If objName.simple.Checked Then 
  strsimple = " " & """" & objName.userdn.Value & """" & " " & objName.userdnpassword.Value
 End If
 If objName.sspi.Checked Then 
  strsspi = " " & """" & objName.username.Value & """" & " " & objName.domain.Value & _
  " " & objName.usernamepass.Value
 End If
 
 strSyntax = strImport & strFilename & strServername & strreplacedn & strverbose & strlogfile & _
       strport & strunicode & strtimeout & strsasl & strrootdn & strFilterVal & strsearchscope & strlistinclude & _
       strlistomit & strpaged & strsamlogic & strbinaryexport & strignoreerrors & strlazycommit & _
       strtrhread & strsimple & strsspi
 RunLdifde strSyntax
End Sub
Sub GenerateSyntax '- Generate ldifde syntax and copy to clipboard.
 Set objName = document.ldifde
 If objName.importmode.Checked Then strImport = objName.importmode.Value
 If objName.filename.Checked Then
  strFilename = objName.filename.Value & " " & """" & objName.path.Value & """"
 End If
 If objName.servername.Checked Then 
  strServername = objName.servername.Value & " " & objName.servernameinput.Value
 End If
 If objName.replacedn.Checked Then
  strreplacedn = objName.replacedn.Value & " " & """" & objName.replacedninput.Value & """"
 End If
 If objName.verbose.Checked Then strverbose = objName.verbose.Value
 If objName.logfile.Checked Then
  strlogfile = objName.logfile.Value & " " & """" & objName.logfileinput.Value & """"
 End If
 If objName.port.Checked Then
  strport = objName.port.Value & " " & objName.portinput.Value
 End If
 If objName.unicode.Checked Then strunicode = objName.unicode.Value
 If objName.timeout.Checked Then
  strtimeout = objName.timeout.Value & " " & objName.timeoutinput.Value
 End If
 If objName.sasl.Checked Then strsasl = objName.sasl.Value
 If objName.rootdn.Checked Then
  strrootdn = objName.rootdn.Value & " " & """" & objName.rootdninput.Value & """"
 End If
 intFilter = 0
 If objName.filter.Checked Then
  strfilter = " " & objName.filter.Value
  intFilter = intFilter+1
 End If
 If objName.objectclass.Checked Then
  objName.filter.Checked = True
  strobjectclass = "(objectClass=" & objName.objclassinput.Value & ")"
  intFilter = intFilter+2
 End If
 If objName.objectcategory.Checked Then
  objName.filter.Checked = True
  strobjectcategory = "(objectCategory=" & objName.objcategoryinput.Value & ")"
  intFilter = intFilter+2
 End If
 If objName.attribute.Checked Then
  objName.filter.Checked = True
  strattribute = "(" & objName.attributeinput.Value & "=" & objName.attributename.Value & ")"
  intFilter = intFilter+2
 End If
 If intFilter > 2 Then
  strFilterVal = strfilter & " " & Chr(34) & " (&" & strobjectclass & strobjectcategory & _
  strattribute & ")" & Chr(34)
 End If
 If intFilter = 1 Then
  strFilterVal =  strfilter & " " & Chr(34) & strobjectclass & strobjectcategory & strattribute & Chr(34)
 End If
 If objName.searchscopechk.Checked Then
 Set objRadio = objName.Elements("searchscope")
 For Each objRadioButton In objRadio
  If objRadioButton.Checked = True Then
   strsearchscope = objName.searchscopechk.Value & " " & objRadioButton.Value
   Exit For
  End If
 Next
 End If
 If objName.listinclude.Checked Then 
 For i = 0 to (objName.attributeinclude.Options.Length - 1)
       If (objName.attributeinclude.Options(i).Selected) Then
           attributeincludeval = attributeincludeval & objName.attributeinclude.Options(i).Value & ","
       End If
   Next
  strlistinclude = objName.listinclude.Value & " " & """" & attributeincludeval & """"
 End If
 If objName.listomit.Checked Then 
 For i = 0 to (objName.attributeomit.Options.Length - 1)
       If (objName.attributeomit.Options(i).Selected) Then
           attributeomitval = attributeomitval & objName.attributeomit.Options(i).Value & ","
       End If
   Next
  strlistomit = objName.listomit.Value & " " & """" & attributeomitval & """"
 End If
 If objName.paged.Checked Then strpaged = objName.paged.Value
 If objName.samlogic.Checked Then strsamlogic = objName.samlogic.Value
 If objName.binaryexport.Checked Then strbinaryexport = objName.binaryexport.Value
 If objName.ignoreerrors.Checked Then strignoreerrors = objName.ignoreerrors.Value
 If objName.lazycommit.Checked Then strlazycommit = objName.lazycommit.Value
 If objName.thread.Checked Then 
  strthread = objName.thread.Value & " " & objName.threadinput.Value
 End If
 If objName.simple.Checked Then 
  strsimple = " " & """" & objName.userdn.Value & """" & " " & objName.userdnpassword.Value
 End If
 If objName.sspi.Checked Then 
  strsspi = " " & """" & objName.username.Value & """" & " " & objName.domain.Value & _
  " " & objName.usernamepass.Value
 End If
 
 strSyntax = strImport & strFilename & strServername & strreplacedn & strverbose & strlogfile & _
       strport & strunicode & strtimeout & strsasl & strrootdn & strFilterVal & strsearchscope & strlistinclude & _
       strlistomit & strpaged & strsamlogic & strbinaryexport & strignoreerrors & strlazycommit & _
       strtrhread & strsimple & strsspi
 objName.CopytoClip.Value = "ldifde " & strSyntax
 strCopy = objName.CopytoClip.Value
   document.parentwindow.clipboardData.SetData "text", strCopy
   strHTMLCopied = "<font style=""font-family: Tahoma; color: red; font-weight: bold; font-size: 12px"">"
   strHTMLCopied = strHTMLCopied & "The generated code has been copied to the clipboard</font>"
   copied.InnerHTML = strHTMLCopied
End Sub

Sub RunLdifde(strSyntaxA) 'Run ldifde in command window with currently selected options.
 strRunCmd = "ldifde " & strSyntaxA
 strMsgBox = MsgBox("Do you want to run the following command? Selecting Cancel will exit" & _
          " the application." & VbCrLf & VbCrLf & strRunCmd, 35, "Run LDIFDE?")
 If strMsgBox = 7 Then
  MsgBox "Action Cancelled..." & VbCrLf & "Refreshing window."
  document.location.reload(True)
 ElseIf strMsgBox = 2 Then
  window.close
 Else
  Set objShell = CreateObject("WScript.Shell")
  objShell.Run "Cmd.exe /k " & strRunCmd, 3, False
 End If
End Sub

Sub CloseApp
 window.close
End Sub
</script>
</HEAD>
<body>
<h1 align="center">.: ldifde gui hta :.</h1>
<form name="ldifde">
<fieldset>
 <legend>General Parameters</legend>
 <table width="100%" border="0">
   <tr> 
     <td colspan="2"><input type="checkbox" name="importmode" value=" -i">
       Turn on Import Mode (The default is Export) </td>
   </tr>
   <tr> 
     <td width="40%"> 
 <input type="checkbox" name="filename" value=" -f">
       Input or Output filename</td>
     <td width="60%"> 
       <input name="path" type="text" size="35"></td>
   </tr>
   <tr> 
     <td><input name="servername" type="checkbox" value=" -s">
       The server to bind to (Default to current logon server)</td>
     <td><input name="servernameinput" type="text" size="20"></td>
   </tr>
   <tr> 
     <td><input name="replacedn" type="checkbox" value=" -c">
       Replace occurences of FromDN to ToDN</td>
     <td><input name="replacedninput" type="text" size="35"></td>
   </tr>
   <tr> 
     <td colspan="2"><input name="verbose" type="checkbox" value=" -v">
       Turn on Verbose Mode</td>
   </tr>
   <tr> 
     <td><input name="logfile" type="checkbox" value=" -j">
       Log File Location</td>
     <td><input name="logfileinput" type="text" size="35"></td>
   </tr>
   <tr> 
     <td><input name="port" type="checkbox" value=" -t">
       Port Number (default = 389)</td>
     <td><input name="portinput" type="text" size="10"></td>
   </tr>
   <tr> 
     <td colspan="2"><input name="unicode" type="checkbox" value=" -u">
       Use Unicode format</td>
   </tr>
   <tr> 
     <td><input name="timeout" type="checkbox" value=" -w">
       Terminate execution if the server takes longer than the specified number of 
       &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;seconds to respond to an operation default = no timeout specified)</td>
     <td><input name="timeoutinput" type="text" size="10"></td>
   </tr>
   <tr> 
     <td colspan="2"><input name="sasl" type="checkbox" value=" -h">
       Enable SASL layer encryption</td>
   </tr>
 </table>
</fieldset><br>
<fieldset>
 <legend>Export Specific</legend>
 <table width="100%" border="0">
   <tr> 
     <td width="40%"> <input name="rootdn" type="checkbox" value=" -d">
       The root of the LDAP search (Default to Naming Context)</td>
     <td width="60%"> <input name="rootdninput" type="text" value="RootDN" size="35"></td>
   </tr>
   <tr> 
     <td colspan="2"><input name="filter" type="checkbox" value=" -r">
       LDAP search filter (Defaults to "(objectClass=*)") Leave unchecked to accept default search filter.</td>
   </tr>
   <tr> 
     <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="objectclass" type="checkbox">
       objectClass</td>
     <td><span id="objClassList">&nbsp;</span></td>
   </tr>
   <tr> 
     <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="objectcategory" type="checkbox">
       objectCategory</td>
     <td><span id="objCategoryList"></span></td>
   </tr>
   <tr> 
     <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="attribute" type="checkbox">
       Attribute Filter</td>
     <td><span id="objAttributeList"></span>
       &nbsp;&nbsp;&nbsp;=&nbsp;&nbsp;&nbsp; <input name="attributename" type="text" size="40">
       </select></td>
   </tr>
   <tr> 
     <td><input name="searchscopechk" type="checkbox" value=" -p">
       Search Scope</td>
     <td><p>
         <label>
         <input type="radio" name="searchscope" value="Base">
         Base</label>&nbsp;&nbsp;
         <label>
         <input type="radio" name="searchscope" value="OneLevel">
         OneLevel</label>&nbsp;&nbsp;
         <label>
         <input type="radio" name="searchscope" value="SubTree">
         Subtree</label>
       </p></td>
   </tr>
   <tr> 
     <td><input name="listinclude" type="checkbox" value=" -l">
       List of attributes (comma separated) to look for in an LDAP search<br>
       <i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(this list is populated by selecting a class from the objectClass list above)</i></td>
     <td><span id="listincludeinput"></span></td>
   </tr>
   <tr> 
     <td><input name="listomit" type="checkbox" value=" -o">
       List of attributes (comma separated) to omit from input.<br>
       <i>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(this list is populated by selecting a class from the objectClass list above)</i></td>
     <td><span id="listomitinput"></span></td>
   </tr>
   <tr> 
     <td colspan="2"><input name="paged" type="checkbox" value=" -g">
       Disable Paged Search</td>
   </tr>
   <tr> 
     <td colspan="2"><input name="samlogic" type="checkbox" value=" -m">
       Enable the SAM logic on export</td>
   </tr>
   <tr> 
     <td colspan="2"><input name="binaryexport" type="checkbox" value=" -n">
       Do not export binary values</td>
   </tr>
 </table>
</fieldset><br>
<fieldset>
<legend>Import Specific</legend>
 <table width="100%" border="0">
   <tr> 
     <td colspan="2"><input name="ignoreerrors" type="checkbox" value=" -k">
       The import will go on ignoring 'Constraint Violation' and 'Object Already Exists' errors</td>
   </tr>
   <tr> 
     <td colspan="2"><input name="lazycommit" type="checkbox" value=" -e">
       The import will not use lazy commit (enabled by default)</td>
   </tr>
   <tr> 
     <td width="40%"> <input name="thread" type="checkbox" value=" -q">
       The import will use the specified number of threads (default is 1)</td>
     <td width="60%"> <input name="threadinput" type="text" size="15"></td>
   </tr>
 </table>
</fieldset><br>
<fieldset>
<legend>Credentials Establishment</legend>
 Note that if no credentials is specified, LDIFDE will bind as the currently logged on user, using SSPI. <br>
 <table width="100%" border="0">
 <tr>
     <td width="40%"><input name="simple" type="checkbox">
    Simple Authentication</td>
     <td width="60%"><span id="objUserDN"></span>&nbsp;&nbsp;Password:&nbsp;&nbsp;
     <input name="userdnpassword" type="password" size="15"></td>
 </tr>
 <tr>
   <td><input name="sspi" type="checkbox">
  SSPI Bind Method</td>
   <td>
<span id="objNetDom"></span>&nbsp;&nbsp;&nbsp;
Password:&nbsp;&nbsp;<input name="usernamepass" type="password" size="15"></td>
 </tr>
</table>
</fieldset>
<fieldset>
<legend>Generated Syntax</legend>
<table width="100%" border="0">
 <tr><td>
 <textarea name="CopytoClip" rows="5" cols="100"></textarea><br>
 <span id="copied"></span>
 </td></tr>
</table>
</fieldset>
</form>
<input type="button" value="Run LDIFDE" onclick="LaunchCmd" style="buttons" title="Run with settings"> 
<input type="button" value="Cancel" onclick="CloseApp" style="buttons" title="Close Application">
<input type="button" value="Gen Syntax" onclick="GenerateSyntax" style="buttons" title="Generates LDIFDE Syntax">
</body>
</html>

Post #: 1

RE: LDIFDE GUI Wrapper - 4/4/2006 8:57:38 PM

ginolard

Posts: 1020
Score: 21
Joined: 8/10/2005
Status: offline

Very nice although there appears to be an error on line 137. It should be Set objDSE = GetObject("LDAP://rootDSE") but there seems be a bit of HTML code mixed up there pointing to this very site!

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to hopsbarleyman)

Post #: 2

RE: LDIFDE GUI Wrapper - 4/5/2006 2:27:05 AM

hopsbarleyman

Posts: 9
Score: 0
Joined: 1/17/2006
Status: offline

Nice catch! I didn't notice that the code changed to that after I posted it. That's kinda cool actually, I've never seen posted code for a GetObject bind to RootDSE do that when the code is posted in a forum.

Thanks for the correction.

(in reply to ginolard)