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.