Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

AD Script to Move computer from default to a new OU

Posted on 2008-10-31
7
Medium Priority
?
628 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
ID: 22853291
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
ID: 22853541
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:g-techforce
ID: 22854086
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
ID: 22854298
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
ID: 22901899
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
ID: 22927202
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 to Use the Help Bell

Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention.  Check out this how-to article for more information.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
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…
Suggested Courses

782 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