man8531, Я слегка запутался, иду по пути наименьшего сопротивления:
Батник:
Код:
@Echo Off
Set "infile=%~dp0other\openvpn\conf\client.ovpn"
Set "infileout=%ProgramFiles%\OpenVPN\config\client.ovpn"
"%~dp0script\openvpn_Ethernet.vbs" "%infile%" "%infileout%"
.vbs
Код:
With WScript.Arguments
If .Count < 2 Then WScript.Quit 1
FileIn = .Item(0)
FileOut = .Item(1)
End With
' MsgBox FileIn + vbCrLf + FileOut
ComputerName = CreateObject("WScript.Network").ComputerName
Dim What(2), Rep(2)
What(0) = "ipaddress"
What(1) = "user.crt"
What(2) = "user.Key"
Rep(0) = "192.168.0.1 1194"
Rep(1) = ComputerName + ".crt"
Rep(2) = ComputerName + ".key"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fIn = FSO.OpenTextFile(FileIn, 1, False) ', -2)
Alls = fIn.ReadAll
fIn.Close
For i = 0 To UBound(What)
Alls = Replace(Alls, What(i), Rep(i))
Next
Set fIn = FSO.CreateTextFile(FileOut, True)
fIn.Write Alls
fIn.Close
WScript.Quit 0
Если не поленюсь, напишу батник скомбинированный с .js, чтобы не иметь отдельный файл со скриптом.
