Need Help ! Change local administrator password on list of computers given in a text file

Hi Expert,

This script allow you to  " Change local administrator password on list of computers given in a text file"

Bob McCoy could you help to modify a script like example below

For example: I have a computerlist.txt with text line

PC Name          Password

Citrix1              Password1

Citrix2              Password2

n..                    p..

Script will read computer name and password to run at same time

Help please,

T

---------code below-------------

<#
    .Synopsis
        Change local administrator password on list of computers given in a text file.
       
    .Description
        This script picks up the computer names from given input file and changes the local administrator password.
 
    .Parameter InputFile   
        The full path of the text file name where computer account names are stored. Ex: C:\temp\computers.txt
       
    .Example
        Update-LocalAdministratorPassword.ps1 -InputFile c:\temp\Computers.txt
       
        This prompts you for the password for two times and updates the local administrator password on all computers to that.
      
    .Example
        Update-LocalAdministratorPassword.ps1 -InputFile c:\temp\Computers.txt -Verbose
       
        This tells you what exactly happening at every stage of the script.


#>
[cmdletbinding()]
param (
[parameter(mandatory = $true)]
$InputFile,
$OutputDirectory
)

if(!$outputdirectory) {
    $outputdirectory = (Get-Item $InputFile).directoryname
}   
$failedcomputers    =    Join-Path $outputdirectory "failed-computers.txt"
$stream = [System.IO.StreamWriter] $failedcomputers
$stream.writeline("ComputerName `t IsOnline `t PasswordChangeStatus")
$stream.writeline("____________ `t ________ `t ____________________")

$password = Read-Host "Enter the password" -AsSecureString
$confirmpassword = Read-Host "Confirm the password" -AsSecureString

$pwd1_text = [Runtime.InteropServices.Marshal]::PtrToStringAuto([Runtime.InteropServices.Marshal]::SecureStringToBSTR($password))
$pwd2_text = [Runtime.InteropServices.Marshal]::PtrToStringAuto([Runtime.InteropServices.Marshal]::SecureStringToBSTR($confirmpassword))

if($pwd1_text -ne $pwd2_text) {
    Write-Error "Entered passwords are not same. Script is exiting"
    exit
}

if(!(Test-Path $InputFile)) {
    Write-Error "File ($InputFile) not found. Script is exiting"
    exit
}

$Computers = Get-Content -Path $InputFile

foreach ($Computer in $Computers) {
    $Computer    =    $Computer.toupper()
    $Isonline    =    "OFFLINE"
    $Status        =    "SUCCESS"
    Write-Verbose "Working on $Computer"
    if((Test-Connection -ComputerName $Computer -count 1 -ErrorAction 0)) {
        $Isonline = "ONLINE"
        Write-Verbose "`t$Computer is Online"
    } else { Write-Verbose "`t$Computer is OFFLINE" }

    try {
        $account = [ADSI]("WinNT://$Computer/Administrator,user")
        $account.psbase.invoke("setpassword",$pwd1_text)
        Write-Verbose "`tPassword Change completed successfully"
    }
    catch {
        $status = "FAILED"
        Write-Verbose "`tFailed to Change the administrator password. Error: $_"
    }

    $obj = New-Object -TypeName PSObject -Property @{
         ComputerName = $Computer
         IsOnline = $Isonline
         PasswordChangeStatus = $Status
    }

    $obj | Select ComputerName, IsOnline, PasswordChangeStatus
   
    if($Status -eq "FAILED" -or $Isonline -eq "OFFLINE") {
        $stream.writeline("$Computer `t $isonline `t $status")
    }
           
}
$stream.close()
Write-Host "`n`nFailed computers list is saved to $failedcomputers"