Here is my work in progress, still got a bit to do. Two scripts, 1 to confirm user account migrated, other to confirm computer account migrated. Like to know if I can use @domain to verify a successfull migration... $sDomain and the logfile path need to be configured. Must still consolidate into single script. Have not included the forced loggoff yet.

Find User:

Code:

 
Dim $Con ;(As ADODB.Connection)
Dim $Cmd ;(As ADODB.Command)
Dim $Rs  ;(As ADODB.Command)
Dim $Root
;RootDSE for Domain - cannot be dynamic because you not logged onto AD
Dim $sDomain
;Configure RootDSE
$sDomain = "DC=playtime,DC=playing,DC=com"
Dim $OU
Dim $Domain
Dim $sADsPath
Dim $sFilter
Dim $sAttribsToReturn
Dim $sDepth
Dim $strCount
Dim $UserLog
$UserLog = "\\host\INCOMING\MIGRATIONLOG.TXT"

$strName = @UserID
If $strName = ""
  ? "No username was specified. "
	Exit
Else
   ? "Searching for User Account Name: " + $strName
EndIf

; Create ADO connection object for Active Directory
$Con = CreateObject("ADODB.Connection")
If (@Error <> 0)
     ? "Error Creating Connection Object"
	Exit
Else
     ? "Successfully Created ADO Connection Object"
EndIf

$Con.Provider = "ADsDSOObject"
If (@Error <> 0)
	? "Error Setting Active Directory Provider"
	Exit
Else
	? "Successfully Set Active Directory Provider" 
EndIf

$Con.Open "Active Directory Provider"
If (@Error <> 0)
	? "Error Opening Active Directory Provider"
	Exit
Else
	? "Successfully Opened Active Directory Provider" 
EndIf

; Create ADO command object for the connection.
$Cmd = CreateObject("ADODB.Command")
If (@Error <> 0)
	? "Error Creating ADO Command Object"
	Exit
Else
	? "Successfully Created ADO Command Object"
EndIf

$Cmd.ActiveConnection = $Con
If (@Error <> 0)
	? "Error Assigning Connection"
	Exit
Else
	? "Succesfully Assigned Connection"
EndIf

;$OU = "OU=Tsogo Domain Users,OU=MTC"

$Domain = GetObject("LDAP://" + $sDomain)
If (@Error <> 0)
	? "Error Connecting to Domain: " + $sDomain
	Exit
Else
	? "Succesfully Connected to Domain: " + $sDomain
EndIf

$sADsPath = "<" + $Domain.ADsPath + ">"
If (@Error <> 0)
	? "Error setting ADsPath"
	Exit
Else
	? "Succesfully set ADsPath: " + $sADsPath
EndIf

;(objectCategory=computer)
; Build the filter element of the commandtext
If ($strName = "")
   ? "Error Nothing in Search String"
   Exit
Else
   ;(&(objectCategory=computer)(|(name=leased*)(name=corp*)))
  $sFilter = "(&(objectCategory=person)(objectClass=user)(sAMAccountName=" + $strName + "))"
  ? "Search String: " +  $sFilter
EndIf

; Build the returned attributes element of the commandtext.
$sAttribsToReturn = "sAMAccountName"

; Build the depth element of the commandtext.
$sDepth = "subTree"

; Assemble the commandtext.
$Cmd.CommandText = $sADsPath + ";" + $sFilter + ";" + $sAttribsToReturn + ";" + $sDepth
If (@Error <> 0)
   ? "Error in Query Command Text"
   Exit
Else
   ? "Successfull Query Command Text: " + $Cmd.CommandText
EndIf

; Execute the query.
$Rs = CreateObject("ADODB.Recordset")
If (@Error <> 0)
   ? "Error Creating Recordset Object"
   Exit
Else
   ? "Successfully Created Recordset Object"
   $Rs = $Cmd.Execute
EndIf

$strCount = $rs.RecordCount
If ($strCount > 0)
   ? "Found " + $strCount + " Accounts. User " + $strName + " Account has been migrated "
	Sleep 2
If Open( 3 , $UserLog , 5 )  = 0

   $x = WriteLine( 3 , "UserMigrated " +  " " + @USERID + " " + @DATE + " " + @TIME + @CRLF)

Else

   BEEP

   ? "failed to open file, error code : [" + @ERROR + "]"

EndIf
Else
   ? "Unable to find any username on AD for " + $strName
If Open( 3 , $UserLog , 5 )  = 0

   $x = WriteLine( 3 , "UserNotMigrated " +  " " + @USERID + " " + @DATE + " " + @TIME + @CRLF)

Else

   BEEP

   ? "failed to open file, error code : [" + @ERROR + "]"

EndIf
   Exit
EndIf

Find Computer:

Code:

  

Dim $Con ;(As ADODB.Connection)
Dim $Cmd ;(As ADODB.Command)
Dim $Rs  ;(As ADODB.Command)
Dim $Root
;RootDSE for Domain - cannot be dynamic because you not logged onto AD
Dim $sDomain
;Configure RootDSE
$sDomain = "DC=playtime,DC=playing,DC=com"
Dim $OU
Dim $Domain
Dim $sADsPath
Dim $sFilter
Dim $sAttribsToReturn
Dim $sDepth
Dim $strCount
Dim $ComputerLog
$ComputerLog = "\\host\INCOMING\MIGRATIONLOG.TXT"

$strName = @WKSTA
If $strName = ""
  ? "No computer name was specified. "
	Exit
Else
   ? "Searching for Computer Account Name: " + $strName
EndIf

; Create ADO connection object for Active Directory
$Con = CreateObject("ADODB.Connection")
If (@Error <> 0)
     ? "Error Creating Connection Object"
	Exit
Else
     ? "Successfully Created ADO Connection Object"
EndIf

$Con.Provider = "ADsDSOObject"
If (@Error <> 0)
	? "Error Setting Active Directory Provider"
	Exit
Else
	? "Successfully Set Active Directory Provider"
EndIf

$Con.Open "Active Directory Provider"
If (@Error <> 0)
	? "Error Opening Active Directory Provider"
	Exit
Else
	? "Successfully Opened Active Directory Provider"
EndIf

; Create ADO command object for the connection.
$Cmd = CreateObject("ADODB.Command")
If (@Error <> 0)
	? "Error Creating ADO Command Object"
	Exit
Else
	? "Successfully Created ADO Command Object"
EndIf

$Cmd.ActiveConnection = $Con
If (@Error <> 0)
	? "Error Assigning Connection"
	Exit
Else
	? "Succesfully Assigned Connection"
EndIf

$Domain = GetObject("LDAP://" + $sDomain)
If (@Error <> 0)
	? "Error Connecting to Domain: " + $sDomain
	Exit
Else
	? "Succesfully Connected to Domain: " + $sDomain
EndIf

$sADsPath = "<" + $Domain.ADsPath + ">"
If (@Error <> 0)
	? "Error setting ADsPath"
	Exit
Else
	? "Succesfully set ADsPath: " + $sADsPath
EndIf

;(objectCategory=computer)
; Build the filter element of the commandtext
If ($strName = "")
   ? "Error Nothing in Search String"
   Exit
Else
   ;(&(objectCategory=computer)(|(name=leased*)(name=corp*)))
  $sFilter = "(&(objectCategory=computer)(objectClass=computer)(name=" + $strName + "))"
  ? "Search String: " +  $sFilter
EndIf

; Build the returned attributes element of the commandtext.
$sAttribsToReturn = "name"

; Build the depth element of the commandtext.
$sDepth = "subTree"

; Assemble the commandtext.
$Cmd.CommandText = $sADsPath + ";" + $sFilter + ";" + $sAttribsToReturn + ";" + $sDepth
If (@Error <> 0)
   ? "Error in Query Command Text"
   Exit
Else
   ? "Successfull Query Command Text: " + $Cmd.CommandText
EndIf

; Execute the query.
$Rs = CreateObject("ADODB.Recordset")
If (@Error <> 0)
   ? "Error Creating Recordset Object"
   Exit
Else
   ? "Successfully Created Recordset Object"
   $Rs = $Cmd.Execute
EndIf

$strCount = $rs.RecordCount
If ($strCount > 0)
   ? "Found " + $strCount + " Accounts. Computer " + $strName + " Account has been migrated "
	Sleep 2
If Open( 3 , $ComputerLog , 5 )  = 0

   $x = WriteLine( 3 , "ComputerMigrated " +  " " + @WKSTA + " " + @DATE + " " + @TIME + @CRLF)

Else

   BEEP

   ? "failed to open file, error code : [" + @ERROR + "]"

EndIf
Else
   ? "Unable to find any username on AD for " + $strName
If Open( 3 , $ComputerLog , 5 )  = 0

   $x = WriteLine( 3 , "ComputerNotMigrated " +  " " + @WKSTA + " " + @DATE + " " + @TIME + @CRLF)

Else

   BEEP

   ? "failed to open file, error code : [" + @ERROR + "]"

EndIf
   Exit
EndIf

NETDOM MOVE machine /Domain:domain [/OU:ou path]
[/UserD:user] [/PasswordD:[password | *]]
[/UserO:user] [/PasswordO:[password | *]]
[/UserF:user] [/PasswordF:[password | *]]
[/REBoot[:Time in seconds]]

NETDOM MOVE Moves a workstation or member server to a new domain

machine is the name of the workstation or member server to be moved

/Domain Specifies the domain to which the machine should be moved. You
can specify a particular domain controller by entering
/Domain:domain\dc. If you specify a domain controller, you
must also include the user's domain. For
example: /UserD:domain\user

/UserD User account used to make the connection with the domain
specified by the /Domain argument

/PasswordD Password of the user account specified by /UserD. A * means
to prompt for the password

/UserO User account used to make the connection with the machine to
be moved

/PasswordO Password of the user account specified by /UserO. A * means
to prompt for the password

/UserF User account used to make the connection with the machine's
former domain (with which the machine had been a member before
the move). Needed to disable the old machine account.

/PasswordF Password of the user account specified by /UserF. A * means
to prompt for the password

/OU Organizational unit under which to create the machine account.
This must be a fully qualified RFC 1779 DN for the OU.
If not specified, the account will be created under the default
organization unit for machine objects for that domain.

/REBoot Specifies that the machine should be shutdown and automatically
rebooted after the Move has completed. The number of seconds
before automatic shutdown can also be provided. Default is
30 seconds

When moving a downlevel (Windows NT version 4 or before) machine to a new
domain, the operation is not transacted. Thus, a failure during the operation
could leave the machine in an undetermined state with respect to the domain it
is joined to.

When moving a machine to a new domain, the old computer account in the
former domain is not deleted. If credentials are supplied for the former
domain, the old computer account will be disabled.

The act of moving a machine to a new domain will create an account for the
machine on the domain if it does not already exist.

NETDOM JOIN machine /Domain:domain [/OU:ou path] [/UserD:user]
[/PasswordD:[password | *]]
[UserO:user] [/PasswordO:[password | *]]
[/REBoot[:Time in seconds]]

NETDOM JOIN Joins a workstation or member server to the domain.

machine is the name of the workstation or member server to be joined

/Domain Specifies the domain which the machine should join. You
can specify a particular domain controller by entering
/Domain:domain\dc. If you specify a domain controller, you
must also include the user's domain. For
example: /UserD:domain\user

/UserD User account used to make the connection with the domain
specified by the /Domain argument

/PasswordD Password of the user account specified by /UserD. A * means
to prompt for the password

/UserO User account used to make the connection with the machine to
be joined

/PasswordO Password of the user account specified by /UserO. A * means
to prompt for the password

/OU Organizational unit under which to create the machine account.
This must be a fully qualified RFC 1779 DN for the OU.
If not specified, the account will be created under the default
organization unit for machine objects for that domain.

/REBoot Specifies that the machine should be shutdown and automatically
rebooted after the Join has completed. The number of seconds
before automatic shutdown can also be provided. Default is
30 seconds

Windows Professional machines with the ForceGuest setting enabled (which is the
default for machines not joined to a domain during setup) cannot be remotely
administered. Thus the join operation must be run directly on the machine
when the ForceGuest setting is enabled.

When joining a machine running Windows NT version 4 or before to the domain
the operation is not transacted. Thus, a failure during the operation could
leave the machine in an undetermined state with respect to the domain it is
joined to.

The act of joining a machine to the domain will create an account for the
machine on the domain if it does not already exist.