[Iska]

Тогда возьмите WSH:

Скрытый текст

Код:

Option Explicit

Const ForWriting = 2

Dim strSourceFile
Dim strContent


strSourceFile = "C:\Мои проекты\33\0001.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile)
			strContent = .ReadAll()
			.Close
		End With
		
		With WScript.CreateObject("VBScript.RegExp")
			.Global     = True
			.IgnoreCase = True
			.Pattern    = "(newacc\.)\d+"
			
			If .Test(strContent) Then
				Randomize Timer
				strContent = .Replace(strContent, "$1" & CStr(Int(250 * Rnd() + 1)))
			Else
				WScript.Echo "Can't find pattern [" & .Pattern & "] in file content."
				WScript.Quit 2
			End If
		End With
		
		With .OpenTextFile(strSourceFile, ForWriting)
			.Write strContent
			.Close
		End With
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

что то тм с политикой безопасности надо выставлять »

Нет. Просто однократно разрешить исполнение локальных неподписанных скриптов. Может быть, даже можно и групповой политикой (не интересовался).