I'm using this function to set the properties of a new user in AD
Public Shared Sub SetProperty(ByVal de As DirectoryEntry, Byval pName As String, ByVal pValue As String)
If Not pValue is Nothing Then
[code].....
I'm writing code to connect to my Active Directory server using LDAP. I can connect usingLDAP://celtestdomdc1.celtestdom.localbut I can't connect usingLDAP://celtestdomdc1.celtestdom.local/CN=Users;DC=celtestd
View 1 RepliesI'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'm working on a web based "Forgot Password" to reset AD passwords, using LDAP. Well, I can unlock the user, but not change the password.
Here is my function :
Private Function ChangeLocalUserPassword(ByVal User As String, ByVal Pass As String) As Boolean
Dim pinger As New Net.NetworkInformation.Ping
Dim usr As DirectoryEntry
_de = GetDirectoryEntry()
If _de Is Nothing Then
[Code] .....
How I can get around hard coding the Admin user on the page? Would creating an IUSR with a few Admin privileges work?
1> take a request... ie. First name, Last name, or login ID and Search AD Path can be hard coded so entire forest is not searched.
2> List all entries found
3>once the correct user is selected I need to pull First, last, middle name and , Email , Phone number , @ and GUID for that user.
I have a WinForms app with SQL05 backend. It has a standard Login window where users are required to supply a username/password. This is validated using my own code and sprocs. Now one of my big clients has scared the bejezus out of me by saying, "Hey Chris, I want you to change your app in line with all our other IT systems so that users can use their common username and passwords with authentication against LDAP". :confused: Having had a moment to reflect, I have some questions (some very noob in nature!)
1. Is this requirement a big deal? :) Or straightforward to implement?
2. Does this mean that when user's double-click my app icon on the desktop, the authentication automagically happens without the need for a Login screen?
3. How on earth can I test this. My dev environment does not use AD, but I do have SBS2003
4. Can anyone point me to good resources about this on the web?
I'm trying to obtain the Terminal Services Profile Path for a user using VB.Net and the System.DirectoryServices.DirectorySearcher. I am able to get the user object's first name, last name, city, state, zip, etc. However, there is one property that eludes me. I cannot manage to find a way to get the terminalservicesprofilepath property.This is how I did it in VB6 and it worked perfect:
visual basic code:
Dim TSPath as string
Dim FirstName as string
[code].....
i found this code to update a property on an active directory entry:
If user.Properties.Contains("title") Then
user.Properties("title")(0) = employeeTitle.SelectedItem.Text
Else
user.Properties("title").Add(employeeTitle.SelectedItem.Text)
End If
I understand it except for the ("title)(0). why is this a double index array. what does the (0) do?
Im working on a small program that is suppost to make my life easier but im running into a little problem:I want to search active directory using the Description field as the search field but somehow my code below doesnt return anything.[code]
View 2 RepliesBackground: I have a webForm app that registers a user in the database based on the information provided with a web service, auto-generates a random password and username, and e-mails the user a link to take an application based on the marketing company selected.
Question: How do I populate the MarketerName_TextBox field with the currently logged in users name (Is it User.Identity.Name and do I add that line on aspx.vb end or the aspx end?)
[Code]...
I'm a developer for a College we have an active directory.I need to query Active Directory with the Pc name and return it's path in the Active Directory tree.
View 3 RepliesI'm trying to query LDAP using a field that contain's 's in VBScript, but I can't get it to work. Here is my code (basically). What am I doing wrong?objCommand.CommandText = _
"SELECT cn FROM 'LDAP://" & x & "' WHERE extensionAttribute1 = '1500 0FFEA14C439' "This string will never match any record even if use wild cards or copy in the exact data from the AD record.
i am very new to VB.net. Can i use the USING Statement for calling the Directory Entry and Searcher like the below.
Using entry As DirectoryEntry = New DirectoryEntry(String.Format("LDAP://xxx.com.my"))
entry.AuthenticationType = AuthenticationTypes.Delegation
entry.Username = username[code].....
I am trying to create a new user and set their password in AD LDS using asp.net vb. I'm binding to an instance of a directory entry, which is working fine. And I can add a user without a problem. The problem is that I can't seem to set the password when I add the user.Is this the right way to set the password
View 3 RepliesIs it possible (I'm sure it is) to validate a user's credentials against Active Directory without using Directory Services?I'm building a Browser-Based WPF application which requires users to login to and get validated via Active Directory. Since .Net 4.0 (or maybe 3.5) accessing Directory Services from an Application requires the application to be fully trusted. Since IE won't provide full trust to an application if it doesn't have the signing certificate in it's cert store, the application is refused startup permission.
If I don't use Directory Services, then I can leave the application as Partial Trust and validate my user's credentials without having to install a certificate on each user's machine.
I have a DataGridView control with two columns:
colName
colAnnounceURL
I also have a ComboBox that I need to bind to the colAnnounceURL in the DataGridView.So everytime I add new rows to the DataGridView, the ComboBox will be updated with the items in colAnnounceURL.I have tried the following to no avail:
cboAnnounceURL.DataSource = dgvTrackers
cboAnnounceURL.DisplayMember = "colName"
cboAnnounceURL.ValueMember = "colAnnounceURL"
The code does not cause a crash but does nothing.Both controls are visible to the user. The idea is to have DataGridView act as AnnounceURLs .manager and ComboBox to set the active AnnounceURL.
In the code below, I open excel file, when I try to enter some values into excel cells, and close it afterwards. For some reasons excel process is still active in task manager. I am releasing objects, quiting application like for other excel files in my program, but in this specific example can't do this. The code below is written in Visual Studio 2010, windows 7.
Imports Microsoft.Office.Interop
Public Class Form1
Public MainPath As String = System.IO.Directory.GetCurrentDirectory()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[Code] .....
I want to make an application that allows the manager of the company whether the employees are truly active: screenshot and a "timer" to measure the time of the activity of the employee Can be controlled using the mouse or keyboard while the application is not active, but in execution.Is it possible in vb.net to know if the user of the machine is using the mouse or keyboard? My idea is to set a "Timer" which triggers automatically after the connection of the employee and every 10 seconds the application checks whether the mouse position has changed or a letter is entered on the keyboard except the"Timer" Will Be stopped until have a new mouse position or activity on the keyboard. But the problem is: is the application able to know the position of the mouse or to capture all keyboard input even if the application n 'is not active(not in the foreground)?
View 2 Replies[Code]...
Code above is working on windows XP, but using this code in some windows 7 OS, returns an error. Is there a way of force edit this in windows 7?
I am building a company intranet site and one of the requirements is having a list of all of the direct reports. That list is being populated to a gridview which will include phone number, location, etc. Eventually I will create an edit button that will allow managers access to updating some of the employees information. I am having problems setting a filter that will find the manager. Here is what I have so far...
Protected Sub DirectReports_Click(ByVal sender As Object, ByVal e As EventArgs) Handles DirectReports.Click
Dim userNameString As String
[Code].......
How can I get a list of computers and their properties from Active Directory using VB.Net and Visual Studio 2008?
View 3 RepliesI having a program built in VB.Net and would like to take in the users windows name and then compatre that with a security group in AD, if they are in a certain group then redirect them to the next page otherwise block them.I have tried many ways using many different snippets of code from different forums, but cannot find a code piece of code that works?
View 6 RepliesI would like to have all properties on a user from active directory. I find some property name as :
distinguishedName, SAMAccountName, sn, givenName, TelephoneNumber, mail
If you have a list of property? As each user has an ID in AD ?
I'm having a weird problem with active directory and the display name attribute. I can create an AD account with no problems, the account shows up, I can log on as the account, everything appears to be working as intended. The problem is, our company requires that the display name be in the form of "Lastname, Firstname". Thats all fine and dandy when you create an AD account use the MMC snap-in, you type in the users name as "Lastname, Firstname" in the display name field and when the account is created, the display name shows as "Lastname, Firstname" as you would expect.
The problem I am having is this, whenever I create an AD account programmatically, I can't for the life of me get the display name to show up as "Lastname, Firstname". The displayname property is set as such, checking the AD account using the MMC snap-in shows the display name is set correctly, but when looking at the list of user accounts, the account is always displayed as the users username. The account name I am using is "Test User", see pic below.
if you try to rename the account, the field it tells you it is editing is called Full Name? I can't find a property in AD even called Full Name so I am completely confused, here is a picture of me trying to rename the programmatically created account, as you can see, the display name field is set correctly even though it doesn't display that way. And of course, after renaming the account as seen below, the display name shows up correctly as "Lastname, Firstname"Here is the code I use to create the account, just for reference.
Public Sub CreateActiveDirectoryAccount(ByVal sUserName As String, ByVal sFirstName As String, _
ByVal sLastName As String, ByVal sUserPrincipalName As String, ByVal sPassword As String, _
ByVal sHomeDrive As String, ByVal sHomeDirLocation As String, _
[code]....
i would like to be able to login on a webpage using a valid active directory username and password.user name and password are entered in textboxes. if they are correct then i would like to redirect to another page.how can this be coded.in a second task after some code is performed, log in as an administrator using code and unlock the account.i have heard that this is called impersonation. how can i perform the above?i'm using visual web developer 2008 and vb.net
View 1 RepliesIm trying to connect to AD and carry out some basic tasks for a .Net application written in VB .Net. I would like to create the application so when it loads, it automatically binds to the default AD domain that the user is logged onto. This has led me to writing the code
Dim domain As DirectoryEntry = New DirectoryEntry("LDAP://DC=domain,DC=com", Nothing, Nothing, AuthenticationTypes.Secure)
domain.RefreshCache()
But this doesnt work.
i am trying to get a list of all users in the active directory on a domain. The following code is being used but doesnt seem to work:
Public Function GetAllUsers(ByVal ldapServerName As String) As Hashtable
'To retrieve list of all LDAP users
'This function returns HashTable
[Code]....
Then i get the "find people" box pop up. So i know i have the correct LDAP but not sure why the other information is preventing it from working..
I am having some issues with the following script for adding an object to AD - The object being a user and then modifying the properties on it.
Error
Line 350:
Line 351: Dim adUsers As DirectoryEntries = dirEntry.Children
Line 352: Dim newUser As DirectoryEntry = adUsers.Add("CN=" & sUserName, "user")
Line 353:
Line 354: newUser.Properties("givenname").Add(sFirstName)
Description:
An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details:
System.Runtime.InteropServices.COMException: Unknown error (0x80005000)
End of Error
Partial class Add
Me.CreateAdAccount(uname.Text, pword.Text, fname.Text, sname.Text, Nothing)
Public Sub CreateAdAccount(ByVal sUserName As String, _
ByVal sPassword As String, _
ByVal sFirstName As String, ByVal sLastName As String, _
[Code] .....
I am trying to create a new user and set their password in AD LDS using asp.net vb. I'm binding to an instance of a directory entry, which is working fine. And I can add a user without a problem. The problem is that I can't seem to set the password when I add the user. Is this the right way to set the password?
Dim objADAM As DirectoryEntry = BindToInstance()
Dim objUser As DirectoryEntry = objADAM.Children.Add("CN=Jimmy", "User")
objUser.Properties("sn").Value = "lloyd"
objUser.Properties("givenName").Value = "Jimmy Smith"
objUser.Properties("userpassword").Value = "THEPASSWORD"
objUser.CommitChanges()
This is the error that I get :
System.DirectoryServices.DirectoryServicesCOMException (0x80072020): An operations error occurred. (Exception from HRESULT: 0x80072020) at System.DirectoryServices.DirectoryEntry.CommitChanges
I have a list of computers from the AD which also have IP addresses in one of the fields. The IP address does not seem to be accurate. It looks like the AD updates are not as frequent as the DHCP server.
MYCOMPUTER1 1.1.1.1
MYCOMPUTER2 2.2.2.2
MYCOMPUTER3 3.3.3.3
Is there anyway to get the IP address from VB soon after I retrieve the record from AD? Querying the DNS/DHCP server via code?