Hi,
first off let me say I'm a total novice and am looking for a decent book -
any recommendations?  I'm considering the following:
1) AD Cookbook - Robbie ALlen
2) AD 3rd Ed - Joe Richards
3) AD - Robbie Allen/ Alistair Lowe-Norris
May not be the right newsgroup for this tho..

So, to my question...
I am trying to script moving multiple computer accounts from unknown OU's to
a  known OU within one domain in AD.
I have created a list of these computers that I want to move.  
I have found a script in the script centre:

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

objOU = GetObject("LDAP://ou=Redundant Objects,ou=Redundant Computer
Objects,dc=domain,dc=com")

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
    "SELECT ADsPath FROM 'LDAP://dc=domain,dc=com' WHERE
objectCategory='computer' " & _
        "AND Name='computenamer'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    strADsPath = objRecordSet.Fields("ADsPath").Value
    objOU.MoveHere strADsPath, vbNullString
    objRecordSet.MoveNext
Loop

http://www.microsoft.com/technet/scriptcenter/resources/qanda/jun06/h...
(I've changed computername and domainname)
Now this is supposed to move a comp account from an unknown OU to known OU
however I tested this with one computer account and it didn't work.

I then found this post which details writing a batch file and using an input
file:

1 input.txt

computer_name_1
computer:name_2

2 the batch file

@echo off

echo ****************************************
Echo * script to move computers*
echo ****************************************

for /F %%1 in (input.txt) do (
cscript move_cmp.vbs %%1 //B //Nologo >> err_log.txt 2>>&1 )

3 the VBS move_cmp.vbs FILE

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

I've not changed any of the variables here but this script only looks in the
computers container and not throught the entire AD structure.
Ideally I would like either the first script to use a lookup file or the 2nd
script to search the entire AD but my knowledge does not extend that far.
I'd be very grateful for any help.
Thanks