$bootini = EnvGet("SystemDrive") & "\boot.ini"
$defaultboot = IniRead($bootini, "boot loader", "default", "")
If $defaultboot <> "" Then
    $attr = FileGetAttrib($bootini)
    If StringInStr($attr, "R") Then FileSetAttrib($bootini, "-R")
    
    $bootline = IniRead($bootini, "operating systems", $defaultboot, "")
    If $bootline <> "" Then
        $ok = IniRenameSection($bootini, "operating systems", "operating systems backup", 0)
        If $ok Then
            IniWrite($bootini, "operating systems", $bootline[1][0], $bootline[1][1] & " /safeboot:network")
        Else
            MsgBox(16, "BOOT.INI Error", "There was a problem renaming a section of " & $bootini & @LF & "or the main section has already been backed up.")
        EndIf
    EndIf
Else
    MsgBox(16, "BOOT.INI Error", "There was a problem reading " & $bootini)
EndIf

$bootini = EnvGet("SystemDrive") & "\boot.ini"
IniRenameSection($bootini, "operating systems backup", "operating systems", 1)