Well I don't care to use GOTO and GOSUB myself as I think there are better coding methods.

Here is an example to modify the one registry entry. As for the other entry, without seeing or knowing what it is or should be I don't know how to help you out. Need more information.

Code:
Break On
Dim $SO,$Pause
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
  
Dim $Key,$SubKey,$Value,$sComputer,$sComputers,$TestResults,$UpdateReg,$WL
$Key='HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PerfProc\Performance'
$SubKey='Disable Performance Counters'
$Value=0
$sComputers=ReadFile(@ScriptDir+'\systems.txt')
If @ERROR
  ? 'There was an error reading the systems file. ' + @ERROR
EndIf
  
For Each $sComputer In $sComputers
  If $sComputer
    ?? 'Now Processing Machine: ' + $sComputer
    $UpdateReg=WriteValue('\\'+$sComputer+'\'+$Key,$SubKey,$Value,REG_DWORD)
    If @ERROR = 0
      $TestResults = 'SMS Reg Fix change completed OK'
    Else
      $TestResults = 'SMS Reg Fix change failed ' + @ERROR
    EndIf
    ? 'Completed Current Workstation processing on ' + $sComputer
    If Open(2 , 'C:\Reports\SMSFIX.TXT' , 5 ) = 0
      $WL = WriteLine(2 , $sComputer + ',' + $TestResults + ',' + @DATE + ',' + @TIME + @CRLF )
    Else
      ? 'Failed to open file, error code : [' + @ERROR + ']'
    EndIf
    If Close(2)
      ? 'Failed to close file, error code : [' + @ERROR + ']'
    EndIf
  EndIf
Next
?? 'Target File List Completed.'
  
Function ReadFile($file)
	Dim $lf, $f, $_, $t
	$lf=Chr(10)
	$f=FreeFileHandle
	$_=Open($f,$file)
	If @ERROR   Exit @ERROR   EndIf
	Do $t=$t+$lf+ReadLine($f) Until @ERROR
	$_=Close($f)
	$ReadFile=Split(SubStr($t,2),$lf)
EndFunction