'WOSL##################################################
Log ("In SQLDBCopySMB: Before SMB initialisierung")
'WOSL##################################################
'---------------------------------------------------------------------------
' Init SMB2 share (triggers event SMBClient_Resource)
'---------------------------------------------------------------------------
smbClient.Initialize("SMBClient_Copy", credentials.Domain, credentials.Username, credentials.Password, credentials.Share)
Wait for SMBClient_Copy_Resource (success As Boolean, smbobjres As Object, smbobj As Object, info As String)
If smbobjres <> Null And smbobj <> Null And info = "OK" Then
'WOSL##################################################
Log ("In SQLDBCopySMB: After SMBClient_Copy_Resource")
'WOSL##################################################
'---------------------------------------------------------------------------
' Copy SQL data base from SMB share
'---------------------------------------------------------------------------
Dim smbResources As SMBResource = smbobjres
Dim smbFiles As SMBFile = smbobj
'WOSL##################################################
Log ("In SQLDBCopySMB: After Resource allocation")
'WOSL##################################################
nSQLFileTotalSize = smbFiles.length
'WOSL##################################################
Log ("In SQLDBCopySMB: Before smbClient.Copy")
'WOSL##################################################
SQLFileTotalSize = nSQLFileTotalSize
smbClient.Copy (smbResources, File.DirInternal & "/" & cSQLDatabasePath, cSQLDatabaseName)
wait for SMBClient_Copy_CopyResult (success As Boolean, path As String, filename As String)
If success = True Then
MyLog ("SQL Datenbank '" & cSQLDatabaseName & "' vom SMB share erfolgreich nach '" & cSQLDatabasePath & "/" & cSQLDatabaseName & "' kopiert")
iReturn = 0
Else
MyLog ("Fehler: SQL Datenbank '" & cSQLDatabaseName & "' konnte NICHT vom SMB share kopiert werden")
iReturn = 2
End If
'WOSL##################################################
Log ("In SQLDBCopySMB: After SMBClient_Copy_CopyResult")
'WOSL##################################################
Sleep (0)
Else
iReturn = 1
End If