Break ON
dim $path, $servicesFile, $newLine, $tempFile, $backUp

$newLine = "SapmsPRD 3601/tcp"
$path = "%windir%" + "\system32\drivers\etc\" 
$servicesFile = $path + "services"
$tempFile = $path + "temp.txt"
$backUp = $servicesFile + ".bak"

if open(1, $servicesFile) = 0
   if exist($tempFile)
      del $tempFile
   endif

   if open(2, $tempFile, 5) = 0
      $curLine = readline(1)
      while $curLine <> "sapdp00 3200/tcp" and @error = 0
         $ = writeline(2, $curLine + @crlf)
         $curLine = readline(1)
      loop

      if $curLine = "sapdp00 3200/tcp" 
         $ = writeline(2, $newLine + @crlf)
      endif

      while @error = 0
         $ = writeline(2, $curLine + @crlf)
         $curLine = readline(1)
      loop

      $ = close(1)
      $ = close(2)

      copy $servicesFile $backUp
      copy $tempFile $servicesFile
      del $tempFile
   else
      $ = close(1)
   endif
endif

exit

Quote:

---

Every user has local admin rights,

---

Quote:

---

if you can send me the code you used that would be great

---

break on
$File = 'C:\WINDOWS\system32\drivers\etc\services'
$NewFile = 'C:\WINDOWS\system32\drivers\etc\services.new'
$NewFileHandle = freefilehandle()
$LineToFind = 'hostname          101/tcp    hostnames              #NIC Host Name Server'
$LineToAdd = 'newline           100/tcp    newline              #test'
$Array = ReadFile($File,,)
$LineNum = AScan($Array,$LineToFind)
'Line Number = ' +$LineNum ?
$index = 0
If Open($NewFileHandle,$NewFile,5) = 0
  For Each $Element in $Array
    If $index = $LineNum
      $ = WriteLine($NewFileHandle,$LineToAdd + @CRLF)
    EndIf
    $ = WriteLine($NewFileHandle,$Element + @CRLF)
    $index = $index + 1
  Next
EndIf