Add Active Directory Users to a Group on a Workstation

[whoopes]

Found the following on Microsoft's website,
http://support.microsoft.com/kb/306271, but it only seems to work when
creating an account on a workstation. I am new to VB.NET (2005).

TIA!

://Bill

[vbnetdev]

are you asking to do it remotely?
<wh*****@gmail.comwrote in message
news:11**********************@h40g2000cwb.googlegr oups.com...

Found the following on Microsoft's website,
http://support.microsoft.com/kb/306271, but it only seems to work when
creating an account on a workstation. I am new to VB.NET (2005).

TIA!

://Bill

[whoopes]

Examples of both would be great, but locally is what I am looking for.
://Bill

vbnetdev wrote:

are you asking to do it remotely?
<wh*****@gmail.comwrote in message
news:11**********************@h40g2000cwb.googlegr oups.com...

Found the following on Microsoft's website,
http://support.microsoft.com/kb/306271, but it only seems to work when
creating an account on a workstation. I am new to VB.NET (2005).

TIA!

://Bill

[vbnetdev]

Then I don't understand. The MS example should work for you locally.
what happens when you try?

<wh*****@gmail.comwrote in message
news:11**********************@79g2000cws.googlegro ups.com...

Examples of both would be great, but locally is what I am looking for.
://Bill

vbnetdev wrote:

>are you asking to do it remotely?
<wh*****@gmail.comwrote in message
news:11**********************@h40g2000cwb.googleg roups.com...

Found the following on Microsoft's website,
http://support.microsoft.com/kb/306271, but it only seems to work when
creating an account on a workstation. I am new to VB.NET (2005).

TIA!

://Bill

[whoopes]

THe following is my code which doesn't work:

Sub Main()
Dim AD As DirectoryEntry = New DirectoryEntry("WinNT://" +
Environment.MachineName + ",computer")
Dim grp As DirectoryEntry

grp = AD.Children.Find("Administrators", "group")

If grp.Name <"" Then
Console.WriteLine("Going to add to group")
grp.Invoke("Add", New Object() {"<domain>\<user>"})
Else
Console.WriteLine("Group does not exist")
End If
End Sub

Debugging says: System.Reflection.TargetInvocationException was
unhandled

Thanks for working with me!

[whoopes]

Bump...

What am I doing wrong??

[vbnetdev]

What line did the error occured?

what does bump mean?

<wh*****@gmail.comwrote in message
news:11**********************@f1g2000cwa.googlegro ups.com...

Bump...

What am I doing wrong??

[whoopes]

Dump just meant that I am trying to keep the post alive, hoping someone
else may see it.
It's erroring out at grp.Invoke("Add", New Object()
{"<domain>\<user>"})

://Bill

[whoopes]

Figured it out. Should be:

Dim StrUserEntry As String
StrUserEntry = "WinNT://<domain>/<server>/<userid>"

Dim group As DirectoryEntry = New DirectoryEntry("WinNT://" +
Environment.MachineName + "/Administrators,group")

group.Invoke("Add", New Object() {StrUserEntry})
group.CommitChanges()