Create Computer Account in Active Directory and add it to Domain with C#

I was asked to convert this code from my original post to C# by a friend who obviously didn’t want to do it himself. There was one conversion issue along the way I also fixed which is why I suspect he didn’t convert it himself. In other news, my assimilation into Memphis, TN is going well. I am slowly becoming accustomed to the heat and humidity and am trying to fight off the urge to eat everything in sight because the food is just amazing if a tad bit unhealthy. I finally am getting my car fixed and am looking forward to getting out and seeing this town for myself. Let’s hope it will be a lot of fun. Ok back to what you came here for. Here you go…..

DirectoryEntry Entry = new DirectoryEntry(“LDAP://” + ActiveDirectoryTree.SelectedNode.Name, strDomain + “\\” + strUser, strPass, AuthenticationTypes.Secure);
            string ComputerName = null;
            string CompSystem = null;
            int ComputerCount = ComputerList.Items.Count;
            int i = 0;
            for (i = 0; i <= ComputerCount – 1; i++)
            {
                CompSystem = ComputerList.Items(i).Text;
                DirectoryEntry ComputerEntry = Entry.Children.Add(“CN=” + CompSystem + “”, “Computer”);
                ComputerEntry.Properties(“sAMAccountName”).Value = “” + CompSystem + “”;
                ComputerEntry.CommitChanges();
                int exp = Convert.ToInt32(ComputerEntry.Properties(“UserAccountControl”).Value);
                ComputerEntry.Properties(“UserAccountControl”).Value = exp | 0x1;
                ComputerEntry.CommitChanges();
                int val = Convert.ToInt32(ComputerEntry.Properties(“UserAccountControl”).Value);
                ComputerEntry.Properties(“UserAccountControl”).Value = val & ~0x2;
                ComputerEntry.CommitChanges();
                ComputersCreated.Text = ComputersCreated.Text + CompSystem + Environment.NewLine;
                ComputerEntry.Close();
                ComputerEntry.Dispose();
            }
            ComputersCreated.Text = ComputersCreated.Text + “——————————” + Environment.NewLine;
            Entry.Close();
            Entry.Dispose();

and to add to the domain:

string[] args = new string[5];
string[] args2 = new string[3];

// The one difference from the vb.net version. Commented this declaration since looping variables in ‘foreach’

//loops are declared in the ‘foreach’ header in C#:
//            ManagementObject comp = null;

            ManagementObjectCollection comps = null;
            ManagementClass clsComps = new ManagementClass(“Win32_ComputerSystem”);

            comps = clsComps.GetInstances();

            foreach (ManagementObject comp in comps)
            {
               // this == used to join the domain
               args[0] = “DOMAIN to join”;
               args[1] = “Password”;
               args[2] = “User with domain privs”;
               args[3] = “Specify OU Here (ou=test,dc=domain,dc=com)”;
               args[4] = “1”;
                UInt32 retVal = 0;

                retVal = comp.InvokeMethod(“JoinDomainOrWorkgroup”, args);

                retval2 = Convert.ToString(retVal);
                if (retval2 == “0”)
                {
                MessageBox.Show(“Welcome to the domain”);
                    Close();
                }
                else
                {

End If

             }

Join me on Facebook

Outlook Data File Crash

This morning I turned on my computer and opened Outlook 2007 and it reported that my data file for Outlook was damaged. It told me to run scanpst.exe to fix the file. So I did. Well now none of my emails are present. When I click Menu and Folder and try to go to a folder that used to exist there it reports it can’t find the file. This is not good.

 

Maybe I will try a system restore and see if that fixes it. If I lose everything I am going to use gmail exclusively. This is crap.

 

On another note got the majority of my stuff from the old house in Sheboygan moved to my new house in Hartland thanks to the help of my bandmates in Jericho. Feels good to actually live in a house with furniture!

KJM Solutions Web Site Going Down

Well those of you that watched the progress of my site I have sad news. It is going bye bye for the next while. During the process of the move, it was decided to discontinue what I had, let go of my current customers and basically wipe it out. At some point down the road it will be back (probably on a shared server somewhere) but it just is too much work right now to switch over to the new ISP, deal with their new rules and such.

 

Included in this will be the SQL Server 2000 and 2005 Servers as well as the FTP Server. Friends of mine who have been using it, most of you have been told but some I can’t find for one reason or another. Oh well.