Solved

AD Script to Move computer from default to a new OU

Posted on 2008-10-31
7
618 Views
Last Modified: 2009-05-05
I found this code that someone provided that will move users or computers from one OU to another OU and it works fine. However I have a client that needs to move computers from the default location (CN=Computers) to a new OU
I have attached the code.
Option Explicit

'On Error Resume Next

Dim aConnection, aCommand, aResult, strResultText, strDN, dtmValue, objComputer, objOU, fso, strLine, objFile, strFilePath, strNewLDAP

strFilePath = "C:\userlist.txt"

Set fso = CreateObject("Scripting.Filesystemobject")

Set objFile = fso.OpenTextFile(strFilePath, 1)

strNewLDAP = InputBox("Enter the LDAP name of target OU:")

 

Set aConnection = CreateObject("ADODB.Connection")

Set aCommand = CreateObject("ADODB.Command")

aConnection.Provider = "ADsDSOObject"

aConnection.Open

aCommand.ActiveConnection = aConnection

Set objOU = GetObject("LDAP://" & strNewLDAP)

 

Do Until objFile.AtEndOfStream

	strLine = objFile.ReadLine

	objOU.MoveHere "LDAP://" & strLine, vbNullString

Loop

 

objFile.Close

Open in new window

0
Comment
Question by:g-techforce
  • 4
  • 3
7 Comments
 

Author Comment

by:g-techforce
Comment Utility
The command i run to get the c:\userlist is:

dsquery computer CN=Computers,dc=domain,dc=com >> C:\userlist.txt

and it creates a file called userlist with the following example inside:

"CN=shanana,CN=Computers,DC=brad,DC=local"
"CN=miley,CN=Computers,DC=brad,DC=local"
0
 
LVL 18

Expert Comment

by:sk_raja_raja
Comment Utility
0
 
LVL 18

Expert Comment

by:sk_raja_raja
Comment Utility
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 

Author Comment

by:g-techforce
Comment Utility
id rather use the code i have and just modify it to work.
Anyone know what I need to change to get it to work?
0
 
LVL 18

Expert Comment

by:sk_raja_raja
Comment Utility
1)Apply following commands to it will MOVE  **ALL**  COMPUTER TO NEW OU.
You need to change OU DN in 2nd statement.

Click Start -> Run -> Cmd.exe

DSQuery Computer -Name * -Limit 0 >Computers.txt

FOR /F "delims=*" %c IN ('Type Computers.txt') DO DSMove  %c -newparent "OU=SALES,DC=TRAINING,DC=COM

2)Try Dsmove.exe. Here's a link for more information:
http://support.microsoft.com/kb/298882

3)http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23454736.html
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_21605648.html
0
 

Author Comment

by:g-techforce
Comment Utility
ok i misunderstood the client.
I need some sort of script that when a user logs into the domain successfully it will check to see if he's in the correct OU.

Is there a login script or something that can move a computer to another OU if the user logs in successsfully?
0
 

Accepted Solution

by:
g-techforce earned 0 total points
Comment Utility
Ok,
here is an update. Apparently I misundertood him again, but this time its simple.

I need a script he can run from a login script that will take that particular computer and move it to the new OU.

for example
Jane's computer is in the default OU. Jane logs into the domain and the script runs and moves only HER computer to the NEW Ou.

sounds simple but i cant find the code to do it.
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

728 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now