Convert This bit of Vbscript to VB.Net 2005

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Convert This bit of Vbscript to VB.Net 2005

Logged in as: Guest

arrSession:exec spGetSession 2,7,49571

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

Printable Version

All Forums >> [General Forum] >> Other Programming/Scripting Languages >> Convert This bit of Vbscript to VB.Net 2005
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Convert This bit of Vbscript to VB.Net 2005 - 7/16/2007 8:08:04 AM

cjwallace

Posts: 491
Score: 0
Joined: 3/5/2005
From: United Kingdom
Status: offline

Hi guys. I really hope someone can help me. As some of you will remember i created a Active Directory User Creation Script and someone was able to help me put the following code together.

Basically is query's AD for Exchange DL's and displays them in a List box.

Well i am now moving onto .vb.net and really need somehelp in moving this bit of code over. Can someone please help me.

Thanks very much in advance

[font="courier new"][size="2"][/size][/font]Dim strQuery, objConnection, objCommand, objRecordSet, strDomain, strHTML

Dim objRoot

objRoot = GetObject("LDAP://RootDSE")

strDomain = objRoot.Get("DefaultNamingContext")

strQuery = "<LDAP://" & strDomain & ">;(&(&(|(&(objectCategory=person)(objectSid=*)" & _

"(!samAccountType:1.2.840.113556.1.4.804:=3))(&(objectCategory=person)(!objectSid=*))" & _

"(&(objectCategory=group)(groupType:1.2.840.113556.1.4.804:=14)))(& (mailnickname=*)" & _

"(| (objectCategory=group) ))));name,distinguishedname;subtree"

objConnection = CreateObject("ADODB.Connection")

objCommand = CreateObject("ADODB.Command")

objConnection.Open("Provider=ADsDSOObject;")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = strQuery

objCommand.Properties("Sort On") = "Name"

objRecordSet = objCommand.Execute

strHTML = "<select size='10' id='distributionlists' multiple>"

Do Until objRecordSet.EOF

strHTML = strHTML & "<option value='" & objRecordSet.Fields("distinguishedname") & "'>" & _

objRecordSet.Fields("name") & "</option>"

objRecordSet.MoveNext()

Loop

strHTML = strHTML & "</Select>"

objConnection.Close()

window.document.getElementById("DisplayDL").innerHTML = strHTML

< Message edited by cjwallace -- 7/16/2007 8:28:42 AM >

Post #: 1

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [General Forum] >> Other Programming/Scripting Languages >> Convert This bit of Vbscript to VB.Net 2005

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts