KN8, DY->Atez

This commit is contained in:
2024-12-03 13:06:10 +01:00
parent 2a3f4e09d9
commit 51a98197ae
5 changed files with 90 additions and 18 deletions

View File

@@ -4170,6 +4170,8 @@ Public Class cWorker_NCTS
End If
Dim F As New System.IO.FileInfo(filePath)
' FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
'Dim DY_server = "91.93.197.91"
'Dim DY_name = "Verag"
'Dim DY_pwd = "5P1PYOr1"
@@ -4181,14 +4183,23 @@ Public Class cWorker_NCTS
Dim DY_server = "sftp-01.singlewindow.io"
Dim DY_name = "IRU-TEST"
Dim DY_pwd = "T1AF58OP"
Dim DY_name = "VERAG"
Dim DY_pwd = "5P1PYOr1"
'Dim DY_name = "Verag-test"
'Dim DY_pwd = "A1ZDTK99"
Dim DY_port = "22"
Dim DY_PFAD_IN = "/TIR/DE/OUT"
'Dim DY_PFAD_IN = "/TIR/DE/OUT"
Dim DY_PFAD_IN = "/"
Dim DY_PFAD_IN_KD = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
DY_server = "sftp-01.singlewindow.io"
'DY_name = "IRU-TEST"
'DY_pwd = "T1AF58OP"
DY_name = "VERAG-TEST"
DY_pwd = "A1ZDTK99"
End If
'getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
Dim ConnectionInfo As New Renci.SshNet.ConnectionInfo(DY_server, DY_port, DY_name, New Renci.SshNet.PasswordAuthenticationMethod(DY_name, DY_pwd))