Move Computer Object to a Specified OU

A BAT file that moves a computer from CN=COMPUTERS to ANOTHER that you specify in a VBS file.

Author: Eugenio Talarico
Platform: Windows
Type: VB Script

Description:

A BAT file that moves a computer from CN=COMPUTERS to ANOTHER that you have to specify in the VBS file. You have to specify the list of the computers you want to move in INPUT.TXT:

''***************************************************************************** 
''* INTO STRVARIABL LINE PUT THE PATH WHERE THE object will be moved 
''* (EX: strVariabl = ",OU=Standard Users,OU=DomainNAME,")
''*****************************************************************************
''*****************************************************************************
strVariabl = "OU=Public Desktops,OU=PIPPO,OU=PIPPO"
''*****************************************************************************
''*****************************************************************************
''*****************************************************************************

Download Location:
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=56728&lngWId=1

Scroll down to view the script.


This is the batch file:
@echo off

echo ****************************************
Echo * script per move account computer *
echo ****************************************


for /F %%1 in (input.txt) do (
cscript move_cmp.vbs %%1 //B //Nologo >> err_log.txt 2>>&1 )
By
Eugenio
Script Code: dim nomepc
ParseCommandLine()


Const ADS_PROPERTY_APPEND = 3 
Set objRootDSE = GetObject("LDAP://rootDSE")


''*****************************************************************************
''* INTO STRVARIABL LINE PUT THE PATH WHERE THE object will be moved 
''* (EX: strVariabl = ",OU=Standard Users,OU=DomainNAME,")
''*****************************************************************************
''*****************************************************************************
strVariabl = "OU=Public Desktops,OU=PIPPO,OU=PIPPO"
''*****************************************************************************
''*****************************************************************************
''*****************************************************************************
strFissa =  strVariabl & "," & objRootDSE.Get("defaultNamingContext")
wscript.echo strFissa



Set objNewOU = GetObject("LDAP://"& strFissa)
Set objMoveComputer = objNewOU.MoveHere _
    ("LDAP://CN="& nomepc & ",CN=Computers," & objRootDSE.Get("defaultNamingContext"), "CN=" &nomepc)


Sub ParseCommandLine()
  	Dim vArgs

  	set vArgs = WScript.Arguments
  
  	if vArgs.Count <> 1 then 
      		DisplayUsage()
  	Else
     		nomepc = vArgs(0)
	End if
End Sub


Disclaimer: We hope that the information in these pages is valuable to you. Your use of the information contained in these pages, however, is at your sole risk. All information on these pages is provided "as - is", without any warranty, whether express or implied, of its accuracy, completeness, fitness for a particular purpose, title or non-infringement, and none of the third-party products or information mentioned in the work are authored, recommended, supported or guaranteed by me. I shall not be liable for any damages you may sustain by using this information, whether direct, indirect, special, incidental or consequential, even if it has been advised of the possibility of such damages.





0 Comments (click to add your comment)
Comment and Contribute

 


(Maximum characters: 1200). You have characters left.