VBSCRIPT - Joining computer to a domain

The most important command is to change the domain the computer is logged into. Any Ideas?

Have a look here:

http://www.rallenhome.com/books/adcookbook/code.html

Tac

After reviewing the above link I found a script that will be usefull but I can not get it to work.
+++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++START OF SCRIPT FILE+++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++++++++++++++++
' This VBScript code joins a computer to a domain.

' ---------------------------------------------------------------
' From the book "Active Directory Cookbook" by Robbie Allen
' Publisher: O'Reilly and Associates
' ISBN: 0-596-00466-4
' Book web site: http://rallenhome.com/books/adcookbook/code.html
' ---------------------------------------------------------------

' ------ SCRIPT CONFIGURATION ------
strComputer     = "<ComputerName>"      ' e.g. joe-xp
strDomain       = "<DomainName>"        ' e.g. rallencorp.com
strDomainUser   = "<DomainUserUPN>"     ' e.g. administrator@rallencorp.com
strDomainPasswd = "<DomainUserPasswd>"
strLocalUser    = "<ComputerAdminUser>" ' e.g. administrator
strLocalPasswd  = "<ComputerUserPasswd>"
' ------ END CONFIGURATION ---------

'########################
' Constants
'########################
Const JOIN_DOMAIN             = 1
Const ACCT_CREATE             = 2
Const ACCT_DELETE             = 4
Const WIN9X_UPGRADE           = 16
Const DOMAIN_JOIN_IF_JOINED   = 32
Const JOIN_UNSECURE           = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET        = 256
Const INSTALL_INVOCATION      = 262144

'###########################
' Connect to Computer
'###########################
set objWMILocator = CreateObject("WbemScripting.SWbemLocator")
objWMILocator.Security_.AuthenticationLevel = 6
set objWMIComputer = objWMILocator.ConnectServer(strComputer,  _
                                              "root\cimv2", _
                                                 strLocalUser, _
                                                 strLocalPasswd)
set objWMIComputerSystem = objWMIComputer.Get( _
                               "Win32_ComputerSystem.Name='" & _
                               strComputer & "'")

'###########################
' Join Computer
'###########################
rc = objWMIComputerSystem.JoinDomainOrWorkGroup(strDomain, _
                                                strDomainPasswd, _
                                                strDomainUser, _
                                                vbNullString, _
                                                JOIN_DOMAIN)
if rc <> 0 then
    WScript.Echo "Join failed with error: " & rc
else
    WScript.Echo "Successfully joined " & strComputer & " to " & strDomain
end if
+++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++END OF SCRIPT FILE++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++++++++++++++++

When I run this on the machine I would like to I get an error on line 37,char 1 which i believe is:
set objWMIComputer = objWMILocator.ConnectServer(strComputer,  _
                                              "root\cimv2", _
                                                 strLocalUser, _
                                                 strLocalPasswd)
User credentials cannot be used for local connections
code: 80041064
Source: SWbemLocator

Please help.

Yes, I believe the error has to do with: User credentials cannot be used for local connections, do you know how to remove the credentials? I tried set objWMIComputer = objWMILocator.ConnectServer(strComputer,  _
                                            "root\cimv2") but I get an error: 5