 |
|
||||
|
Move Computer Object to a Specified OUNovember 17, 2004
Author: Eugenio Talarico 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:
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.
|
|
Email
Print
Digg This
Add to del.icio.us