Option Explicit

Dim strSourceFile

Dim objFSO
Dim strContent

Dim strNameValue
Dim strPasswordValue


strSourceFile = "baza.txt"


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
	With objFSO.OpenTextFile(strSourceFile)
		strContent = .ReadAll()
		.Close
	End With
	
	strNameValue     = GetValue(strContent, "Name")
	strPasswordValue = GetValue(strContent, "Pass")
	
	strNameValue     = Trim(InputBox("Enter name:",     "Enter name",     strNameValue))
	strPasswordValue = Trim(InputBox("Enter password:", "Enter password", strPasswordValue))
	
	If Len(strNameValue) > 0 Then
		strContent = SetValue(strContent, "Name", strNameValue)
	End If
	
	If Len(strPasswordValue) > 0 Then
		strContent = SetValue(strContent, "Pass", strPasswordValue)
	End If
	
	With objFSO.CreateTextFile(strSourceFile, True)
		.Write strContent
		.Close
	End With
Else
	WScript.Echo "Can't find source file [" & strSourceFile & "]."
	Set ts = objFSO.CreateTextFile("baza.txt", 2, false)
	ts.WriteLine("Name: ")
	ts.WriteLine("Pass: ")
	WScript.Quit 2
End If

Set objFSO = Nothing

WScript.Quit 0
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
Function GetValue(strContent, strParameter)
	With WScript.CreateObject("VBScript.RegExp")
		.IgnoreCase = True
		.MultiLine  = True
		
		.Pattern = "^\s*" & strParameter & ": (.*?)$"
		
		If .Test(strContent) Then
			GetValue = .Execute(strContent).Item(0).Submatches.Item(0)
		Else
			WScript.Echo "Can't find parameter [" & strParameter & "] in source file [" & strSourceFile & "]."
			GetValue = ""
		End If
	End With
End Function
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
Function SetValue(strContent, strParameter, strValue)
	With WScript.CreateObject("VBScript.RegExp")
		.IgnoreCase = True
		.MultiLine  = True
		
		.Pattern = "^\s*" & strParameter & ": .*?$"
		
		If .Test(strContent) Then
			SetValue = .Replace(strContent, strParameter & ": " & strValue)
		Else
			SetValue = strContent & vbCrLf & strParameter & ": " & strValue
		End If
	End With
End Function
'-----------------------------------------------------------------------------

Option Explicit

Dim strSourceFile

Dim objFSO
Dim strContent

Dim strNameValue
Dim strPasswordValue


strSourceFile = "baza.txt"


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
	With objFSO.OpenTextFile(strSourceFile)
		strContent = .ReadAll()
		.Close
	End With
	
	strNameValue     = GetValue(strContent, "Name")
	strPasswordValue = GetValue(strContent, "Pass")
	
	strNameValue     = Trim(InputBox("Enter name:",     "Enter name",     strNameValue))
	strPasswordValue = Trim(InputBox("Enter password:", "Enter password", strPasswordValue))
	
	If Len(strNameValue) > 0 Then
		strContent = SetValue(strContent, "Name", strNameValue)
	End If
	
	If Len(strPasswordValue) > 0 Then
		strContent = SetValue(strContent, "Pass", strPasswordValue)
	End If
	
	With objFSO.CreateTextFile(strSourceFile, True)
		.Write strContent
		.Close
	End With
Else
	WScript.Echo "Can't find source file [" & strSourceFile & "]."
	WScript.Quit 2
End If

Set objFSO = Nothing

WScript.Quit 0
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
Function GetValue(strContent, strParameter)
	With WScript.CreateObject("VBScript.RegExp")
		.IgnoreCase = True
		.MultiLine  = True
		
		.Pattern = "^\s*" & strParameter & ":(.*?)$"
		
		If .Test(strContent) Then
			GetValue = .Execute(strContent).Item(0).Submatches.Item(0)
		Else
			WScript.Echo "Can't find parameter [" & strParameter & "] in source file [" & strSourceFile & "]."
			GetValue = ""
		End If
	End With
End Function
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
Function SetValue(strContent, strParameter, strValue)
	With WScript.CreateObject("VBScript.RegExp")
		.IgnoreCase = True
		.MultiLine  = True
		
		.Pattern = "^\s*" & strParameter & ":.*?$"
		
		If .Test(strContent) Then
			SetValue = .Replace(strContent, strParameter & ":" & strValue)
		Else
			SetValue = strContent & vbCrLf & strParameter & ":" & strValue
		End If
	End With
End Function
'-----------------------------------------------------------------------------

@echo off
rem Нужны русские слова
SetLocal EnableExtensions EnableDelayedExpansion
rem Chcp 866 >nul
title %~dp0
cd /d "%~dp0"

cls

if not exist Baza.txt (
	echo Не найден файл "Baza.txt"
	echo.
	echo Создание "Baza.txt" с пустым значением
	echo.

	echo Ssid:> Baza.txt
	echo Pass:>> Baza.txt
)

for /f "tokens=1,2" %%a in (Baza.txt) do (
    if /i "%%a"=="Pass:" set pass=%%b
    if /i "%%a"=="Ssid:" set name=%%b
)




:1

echo Прошлое имя: %name%
echo.


set /p newname=Новое имя: 

echo %newname%|>nul findstr /rc:"^[A-Z0-9a-z][A-Z0-9a-z]*$" && (
echo.
) || (
echo.
echo Недопустимый символ
echo.
) && (
goto 1)

:2

echo Прошлый пароль: %pass%
echo.

set /p newpass=Новый пароль: 

echo %newpass%|>nul findstr /rc:"^[A-Z0-9a-z][A-Z0-9a-z]*$" && (
echo.
) || (
echo.
echo Недопустимый символ
echo.
) && (
goto 2)




if not "%newname%"=="" set name=%newname%
if not "%newpass%"=="" set pass=%newpass%
copy /y Baza.txt Baza.txt.bak
echo Ssid: %name%> Baza.txt
echo Pass: %pass%>> Baza.txt

pause
exit /B

Set FSO = CreateObject("Scripting.FileSystemObject")

if FSO.FileExists("1.txt") Then

Set ts = FSO.OpenTextFile("1.txt", 2, false) 'открыть

else

Set ts = FSO.CreateTextFile("1.txt", 2, false) 'создать

end if

'извлечение из файла

'set readname = Split(whole_line, "Name: ")(1)
'set readpass = Split(whole_line, "Pass: ")(1)

'добавляет переменные name1 и pass1
name1 = inputbox ("Name:","База данных",readname)
pass1 = inputbox ("Pass:","База данных",readpass)
'записывание переменных в файл
ts.WriteLine("Name: " &name1)
ts.WriteLine("Pass: " &pass1)

strTemp = objMatches.Item(0)

Set objFile = objFSO.OpenTextFile("File.ini", ForReading)
strText = objFile.ReadAll
objFile.Close
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.IgnoreCase = True
objRegExp.Pattern = "max\s*=\s*-*\d+"
Set objMatches = objRegExp.Execute(strText)
strTemp = objMatches.Item(0)
objRegExp.Pattern = "\d+"
Set objMatches = objRegExp.Execute(strTemp)
strTemp = objMatches.Item(0)
blnRepeat = True
Do
	UserName = Trim(InputBox("Ля-ля-ля",,strTemp))
	If Len(UserName) = 0 Then
		WScript.Quit 0
	Else
		objRegExp.Global = True
		objRegExp.Pattern = "\d"
		If Len(UserName) = objRegExp.Execute(UserName).Count Then blnRepeat = False
	End If
Loop While blnRepeat
objRegExp.Global = False
objRegExp.Pattern = "max\s*=\s*-*\d+"
strNewText = objRegExp.Replace(strText, "max = " & UserName)
Set objFile = objFSO.OpenTextFile("File.ini", ForWriting)
objFile.WriteLine strNewText
objFile.Close

min = 234234
vin   =   34567
kin    =       88
max   = 68865
fax  =  04534

UserName = Trim(InputBox("Ля-ля-ля",, "Сюда вводите"))
 Set objFile = objFSO.OpenTextFile("File.ini", ForReading)
 strText = objFile.ReadAll
 objFile.Close
   objRegExp.Pattern = "max\s*=\s*-*\d+"
   strNewText = objRegExp.Replace(strText, "max = " &UserName)
 Set objFile = objFSO.OpenTextFile("File.ini", ForWriting)
 objFile.WriteLine strNewText
 objFile.Close