how i can get a list of users who are members of a group in Active Directory. A vb.net example would be great. I can list all users in AD, but cannot get just the users in a group.
Also do anybody know of a really easy tutorial on LDAP queries with vb.net examples.
Im just trying to figure out how to write an LDAP query to list all of the PCs in a specific OU.
View 3 RepliesI'm writing an application that will add users to Active Directory. I'm trying to use this code to connect to the "Users" shared folder in AD
[URL]
However it adds the user in with the shared folders, instead of within the "Users" shared folder. Shouldn't CN=Users mean it will add it to the "Users" folder?
Long story short I have a situation where some users have access to two domains that do not trust each other. They log into one domain and their user ID's are identical on the other domain. So when they change their password on the first domain they need to call into tech support to have it reset on the second domain. I'm writing a app that checks if they have access to the first domain but not the second and if this is found to be true it prompts them for the new password to update the second domain.
Here is where I am stuck. The following code works GREAT but I need it to be more flexible:
Code:
Friend Function ResetPassword(ByVal OldPassword As String, ByVal NewPassword As String, ByVal UserName As String) As String
' Resets a users domain password
[Code]....
The issue is the CN is different between domains (one is first name last, other is last name first) so I need to search by UserID which is the same between the two. So I tried searching by sAMAccountName but it says object not found. Also I need to be able to search the entire Super Corp OU. When I get rid of the extra OU's the search also fails
So I need to search LDAP for sAMAccountName anywhere in OU=Super Corp. How can I do this? Every combination I try seems to fail yet if I hard code it like the above example it works great. The idea is to replace CN=John Q. Public with sAMAccountName=" & username & " to pull jsut that user on the fly.
If it matters all clients are XP SP2 or higher, both domains are Server 2003 or higher. VB 2008 SP1. The error message when a different search is done is a "Object not found".
I'm designing a program to search through all users in Active Directory and get the lastLoginTimeStamp attribute. From there I'm having a report(.csv) genererated based on who hasn't logged in 30,60, 0r 90 days. I believe I'm having a problem in my loop somewhere. My code works when I LDAP an OU with users inside but when I try to get it to seach subcontainers I get several exceptions thrown at me. Here is a sample of my loop code:
'Initialize and open report file
ReportFile = My.Computer.FileSystem.OpenTextFileWriter(My.Settings.ReportsPath & "LoginAuditReport.csv", False)
[Code].....
i am trying to get all the users under a tree from AD with the following
[code]...
I keep getting this error:Quote: There is no such object on the server. on the line: For Each account As SearchResult In AccountSearcher.FindAll However, if i modify the DirectoryEntry to this: Dim RootEntry As New DirectoryEntry("LDAP://OU=Mayor,DC=c*******gatn,dc=gov", "myusername", "mypassword") It works but with the wrong returned user data....
I am trying to set up a new internal system for my client currently, they insisted on integrating the login with AD, which makes sense, and i have managed that with no problem. However what i also want to do, after authentication, is to store some user details / attributes as session variables. I have the following code to aithenticate the user:
'this function authenticates against AD - very simple and works nicely.
Function AuthenticateUser(path As String, user As String, pass As String) As Boolean
Dim de As New DirectoryEntry(path, user, pass, AuthenticationTypes.Secure)
[code]....
which works nicely, and once the function returns me a True, i set Session("LoggedIn") as True.what i need to do is (hopefully within the above function) save the user's name, and 2 other custom atributes from within the user's AD profile.How would i access those (hypothetically)
I need to query AD to work out what access a user has to my application.I have 7 AD groups (FTP1 to FTP 7), these groups can have other groups added so I'm using GetMembers(True) which is recursive.The below function works great but it's a little slow, is there any obvious changes I can make to speed it up?[code]
View 6 RepliesI've never scripted anything before,Using Listing 6 from [URL].. I have amended the script for my domain, and the response is correct for the Default Domain Policy. However we have a different password policy for an OU within the domain, so I amended the script as follows:
[Code]...
I hoped this would pick up the maxPwdAge which is set for this OU, but the response I get says the max password age is 0. This is not the case. The max password age is 2 (doing some testing), but it can't see this. Have I done something wrong, or can this script only see the Default Domain Policy, and not the individual OU policies?
Using vb2005 and .Net 2.0. I've been trying for some time to get my query to work. I've posted my issue on several forums but no one been able to asssist me. From code behing I need to query Active Directory and have following issues:
1. I need to select only where "title" is empty and
2. I need to do a LIKE on sAMAccountName
[Code]...
I have some code that retrieves users from our domain:
Dim DirEnt As DirectoryEntry = New DirectoryEntry("LDAP://192.168.1.1:389/OU=Domain,DC=My Domain,DC=local")
Dim searchResults As New DirectorySearcher(DirEnt)
[code].....
Im trying to get a list of users in an AD group. My code is [code] I think the line causing the problem is the filter ("(&(objectClass=person)(memberOf=CN=MyGroup))").Could anyone confirm or advise how to get the list of members please?
View 5 Repliesgot this error while trying to debug on a different computer"Access is denied. Verify you are the administrator or member of the Debugger Users group...." etc.I am an admin on this computer and i think i tried adding myself to that group by right-clicking on the project -> properties -> security etc. but nothing happened Also not getting any clear or relevant answers from anywhere els
View 4 RepliesI'm trying to view the users of a local group on my machine so I can eventually change their read/write permissions... what code can i use to display the users?
View 1 RepliesI use this code to return records in a DataGridView:
[Code]....
I have bunch of users in one of the Active Directory Group. I am adding users from one of my Sql Server table. I want to compare the Active Directory group users with my sql table users and add the users to that group only if they don't exists in that group.
Here is the code I am adding to the AD Group from sql table.
Public Sub adUserToGroup()
Dim sDomainName As String = ("LDAP:servername.fte.fcteg.com")
Dim adUserFolder As DirectoryEntry = New DirectoryEntry("LDAP:Servername.fce.findoe.com/DC=fte,DC=foxeg,DC=com")
[Code] .....
I am trying to develop a tool to add users to the appropriate AD security group for their department (so that they have the right access to their network folders)I have a list of departments (e.g. A1, A2, A3, B4, Sec, DirGen) and there are 3 AD groups per department. One for Managers, one for secretaries and one for normal users. Each group grants different levels of access on the network folders.
So, I'm trying to decide the best method of presenting this data to the user (and, in turn, storing it in my application).At the moment, I have a Combobox for the department (with a fixed list of items) and a combobox for the user type (e.g. Manager, Secretary, User). Once these comboboxes are selected I populate a CheckedListBox with the relevant AD groups names.
[Code]...
i want to implements users control. i have the same informations in a group box in a lot of forms. i would like to insert the same group box in all my forms.how would i do?
View 2 RepliesI am connecting to an Access database and using a parameter query with the LIKE operator to return all rows that match query. The string to search for is taken from a Textbox
sql =
"Select * FROM Allview WHERE Info Like" &
"*" &
CStr(TextBox1.Text) &
"*"
The query does not return any data in vb, but when run from access with same string, there is data returned.The connection to the database is done correctly, as I am able to return data with various other queries.
Partial code :
Dim
con As
New OleDb.OleDbConnection[code]....
I have an object called offer and it has sub object price as decimal and provider_ID as integer. What I need is I have list (of offer) and I need to get cheapest price for each provider. So lets says I have following:
Provide_ID Price
----------------------
1 30
2 40
1 15
2 20
3 5
3 10
How can I make a linq query (from item in offers group by item.provider_id into
max(item.price)) like this.
Because using group by I am not able to get all information of offer object. beside provider_ID and price I have more information. That's why I don't want to have (with {item.price, item.provider_ID}) etc. selecting each one by one.
And results of filtering should have only
provide_ID Price
----------------------
1 15
2 20
3 5
I am having trouble following some of the examples at MSDN for LINQ.Basically I have a List Of MyObject. MyObject has a property called Value which is an integer.I want to group all the MyObjects together that share the same Value and then return that Value where the count of the group is greater than 5.I have tried the following,
dim foak = From o as MyObject in MyObjectList _
Group o By o.Value into Count _
WHERE Count > 5 _
Select o.Value
I'm trying to drag an item between two Groups in the same ListView called 'listTasks'.
Private Sub listTasks_ItemDrag(ByVal sender As Object, ByVal e As ItemDragEventArgs) Handles listTasks.ItemDrag
listTasks.DoDragDrop(listTasks.SelectedItems, DragDropEffects.Move)
End Sub
Private Sub listTasks_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) Handles listTasks.DragEnter
[Code]...
With listTasks.PointToClient(New Point(e.X, e.Y)) you could use listTasks.GetItemAt(p.X, p.Y) to get the ListView item you're over. Is there something like this for Groups? Or perhaps a better way to determine what group is the target of a drag-drop?
I have a table DailyTransaction in MsAccess as under: DTDate, DTTime, CustId, Description, Quantity, Price, Amount, AccountNumber, Name I want to extend following query with a Group By clause:I require to display all records in a Listview Group By CustId.Then I require to display all records in a Listview Group By AccountName.e how I can extend following query with Group By clause to achieve the required results
View 4 RepliesI have the following query that groups parking spaces by their garage, but I can't figure out how to iterate the data in the view.
Public Function FindAllSpaces() Implements ISpaceRepository.FindAllSpaces
Dim query = _
From s In db.spaces _
Order By s.name Ascending _
[code]....
The controller is taking the query object as is and putting it into the viewdata.model and as stated the view is not currently strongly typed as I haven't been able to figure out how to do this. I have run the query successfully in linqpad.
i would like to select from the following table:
PostTable
feed dateinserted count
box1 2011-05-28 11:00 1000[code].....
the total number of records for the previous day where the feed is, 1, 3 and 5 i.e.the feeds I need to retrieve totals for will just be selected based on what I need for instance it could be box4 and box 5...not specifically odd and even...I hope this makes it more clearer..what I have for all records:
select sum(count) as [total] from PostTable where Cast(dateinserted as DATE) =
CAST(getdate()-1 as DATE)
I have a listview in which the View is set to Details. I have a module with a Sub that accepts a Listview and a sql query as arguments:
Public Sub PopulateListView(ByVal lvw As ListView, ByVal filtersql As String)
Dim li As New ListViewItem
Dim lvwColumn As ColumnHeader
Dim counter As Integer
[Code] .....
This is how I call the sub:
PopulateListView(lvwTranHistory, "SELECT AccountID,TransactionDate,TransactionAmt FROM [Transactions] WHERE GameSheetID = " & CurGameSheetID & ";")
I tried some stuff there to group by the accountid but it ain't working. How to get the grouping to work.
I've got 2 levels of users, and I'd like to find a way to open a certain form for each user. I have tried something that I thought would work, but it just opens the same form for all users:
If "MenuType" = "Landscaper" Then
Dim MainPanel As frmOwnerPanel
MainPanel = New frmOwnerPanel
[code]......
I'm simply trying to create a small tool, to create a username / password / OU group, and a few properties on a new user from a form with a few text boxes, and a button.I know how to connect to LDAP, though i'm having a problem getting this done.
View 3 RepliesThe following data is created by joining two sql tables together:I would like to group together distinct rows of DateStamp/UserName/ StudentName/ InstructorName/TableName/PrimaryKey (I'll call this 'group records') and then group under these ColumnName/PreviousValue/NewValue (I'll call this 'subgroup records')The end result would be that I could iterate through the 'group records' - there would be 5. In each 'group record', I could then iterate through the 'subgroup records'. The 5 groups would contain 3, 2, 5, 2 and 1 subgroup records respectively.What would be the syntax to create a query to do this? Ideally this would be in a vb.net linq syntax.
View 1 RepliesHow do I order by and group by in a Linq query?I tried..Dim iPerson = From lqPersons In objPersons Where Len(lqPersons.Person) > 0 Group lqPersons By key = lqPersons.Name Into Group Order By Group descending Select Group, key
For Each i In iPerson
tmp = tmp & vbNewLine & i.key & ", " & i.Group.Count
Next
[code].....