[Iska]

«Настоящий рандом» Вы можете получить исключительно внешним фактором — например, подбрасывая монетку и записывая результат. Для машины это всегда будет ряд псевдослучайных чисел. В любом случае, Вам стоит подумать о WSH/PowerShell — пакетные файлы слабо подходят на указанную роль.

[megaloman]

FeranD,

Вот vbs-скрипт по Вашей постановке

Код:

File1 = "config.txt"
File2 = "config.txt.bak"
ProcName = "xmr.exe"

Wait1_1 = 5         ' время в мин.
Wait1_2 = 15
Wait2_1 = 20
Wait2_2 = 40

NBegin = 10         ' Начиная со строки
NDel1 = 1           ' Удалить случайное число строк в диапазоне
NDel2 = 5

Set FSO = CreateObject("Scripting.FileSystemObject")

Randomize

ScrName = WScript.ScriptFullName
ScrPath = FSO.GetParentFolderName(ScrName)
If Right(ScrPath, 1) <> "\" Then ScrPath = ScrPath + "\"

Do
    On Error Resume Next
    Set NFile = FSO.OpenTextFile(ScrPath + File2, 1, False)                   '  Открываем текстовый файл
    
    If Err.Number <> 0 Then
        MsgBox ScrPath + File2 + vbCrLf + vbCrLf + Err.Description
        Exit Do
    End If

    S = NFile.ReadAll
    NFile.Close
    On Error GoTo 0
    
    Mas = Split(S, vbCrLf)
    NU = UBound(Mas)
    NL = LBound(Mas)
    
    NDel = Int((NDel2 - NDel1 + 1) * Rnd() + NDel1)
    
    On Error Resume Next
    Set NFile = FSO.OpenTextFile(ScrPath + File1, 2, True)                   '  Открываем текстовый файл
    
    If Err.Number <> 0 Then
        MsgBox ScrPath + File1 + vbCrLf + vbCrLf + Err.Description
        Exit Do
    End If

    j = 0
    For i = NL To NU
        If i >= NBegin + NL - 1 And j < NDel Then
            j = j + 1
        Else
            NFile.WriteLine (Mas(i))
        End If
    Next
    NFile.Close
    On Error GoTo 0
    If TermWait(ProcName, Rnd(), Wait1_1, Wait1_2) <> -1 Then Exit Do
  
    On Error Resume Next
    LL = FSO.CopyFile(ScrPath + File2, ScrPath + File1, True)
    
    If Err.Number <> 0 Then
        MsgBox Err.Description
        Exit Do
    End If
    On Error GoTo 0
    If TermWait(ProcName, Rnd(), Wait2_1, Wait2_2) <> -1 Then Exit Do
Loop

Function TermWait(Proc, TRnd, W1, W2)
    LL = -1
    Set WMI = GetObject("winMgmts:")
    SQuery = "Select *From Win32_Process Where Name=" + """" + Proc + """"

    Set Processes = WMI.ExecQuery(SQuery)
    If Processes.Count <> 0 Then
        On Error Resume Next
        For Each Process In Processes
            Process.Terminate
        Next
        On Error GoTo 0
    End If
    
    TWait = Int(((W2 - W1) * 60 + 1) * TRnd + W1 * 60)
    
'    Set WShell = CreateObject("WScript.Shell")
'    LL = WShell.Popup("Ждем " + CStr(Int(TWait)) + " сек" + vbCrLf + vbCrLf + """OK"" - завершить скрипт", TWait, CStr(Time()), 48)

    WScript.Sleep (TWait * 1000)

    TermWait = LL
End Function