'*********************************************************************************
' UpdateTestsystem.vbs
'*********************************************************************************
' 09.06.2010, DG: Script erstellt
' Installationsanleitung:
' In der ClientSetup.ini auf dem Livesystem beide Connections eintragen (Live- und Testsystem)
' Das Script muss mit genügend Berechtigungen ausgeführt werden, Schreibzugriff auf beide Shares
' Das Script muss auf dem APP Server des Testsystems ausgeführt werden
'
'	Folgendes ist auszufüllen: 
'		LIVESYSTEM
'		1. Connection-String Live DB (PostOffice) anpassen
'		2. UNC Pfad für Zugriff auf die Freigabe
'		3. Lokaler Pfad auf dem SQL Server 1 um das Backup zwischenzuspeichern
'		TESTSYSTEM
'		4. Connection-String Test DB (PostOffice) anpassen
'		5. UNC Pfad für Zugriff auf die Freigabe
'		6. Lokaler Pfad um das Backup zwischenzuspeichern
'		7. Lokaler Pfad auf dem Testsystem wo die mdf's liegen
'		8. Lokaler Pfad auf dem Testsystem wo die ldf's liegen
'		9. Name des APP-Servers (Testsystem)

'Todo: 	ACHTUNG Freigabe von PostOffice (Testsystem) muss momentan noch auf dem 
'				gleichen Rechnern liegen, auf dem ser Service läuft
'*********************************************************************************
Option Explicit


'*********************************************************************************
' 				!!!   L   I   V   E       S   Y   S   T   E   M  !!!
'*********************************************************************************
' 1.)	Hier den Connection String auf die Originale PostOffice Datenbank definieren
Const strLivesystemConnectionstring = "Provider=SQLOLEDB.1;Password=cxsa;Persist Security Info=True;User ID=CodXsa;Initial Catalog=PostOffice;Data Source=Nordbrief-sr-01"

' 2.)	Hier den UNCPfad zur PostOffice Freigabe auf dem Livesystem definieren "\\Server\PostOffice"
Const strLivesystemUNCPath = "\\Nordbrief-sr-01\postoffice"

' 3.) Lokaler Pfad auf dem SQLServer1 (Livesystem), wo die Sicherung der PostOffice Datenbank 
' zwischengespeichert werden kann inkl. "\" am Ende
Const strLivesystemTempPathForDBBackup = "D:\PostOffice_Backup_für_Testsystem\"

'*********************************************************************************
' 				!!!   T   E   S   T       S   Y   S   T   E   M   !!!
'*********************************************************************************

' 4.)	Hier den Connection String auf die PostOffice Datenbank des Testsystems definieren
' 		Falls diese Datenbank nicht besteht, so wird diese angelegt
Const strTestsystemConnectionstring = "Provid-er=SQLOLEDB.1;Password=cxsa;Persist Security Info=True;User ID=CodXsa;Initial Catalog=PostOfficeTestsystem;Data Source=Nordbrief-sr-01"

' 5.)	Hier den UNCPfad zur PostOffice Freigabe auf dem Testsystem  definieren "\\Server\PostOffice"
Const strTestsystemUNCPath = "\\NORDBRIEF-08\postoffice"

' 6.)	Lokaler Pfad auf dem SQL Server des Testsystems, wo die Sicherung der PostOffice Datenbank 
'	zwischengespeichert werden kann inkl. "\" am Ende. Wenn dieser Pfad auch auf dem Live-SQL Server 
'	liegt, dann muss dieser angegeben werden
Const strTestsystemTempPathForDBBackup = "D:\PostOffice_Backup_für_Testsystem\"

' 7.)	Lokaler Pfad auf dem SQL Server des Testsystems, wo die Datendatei ge-speichert wird (mdf)
'	Wenn nur ein Datenfile die restlichen leer lassen	
Const strTestsystemPathForMDF1 = "E:\MSSQL\Data\"
Const strTestsystemPathForMDF2 = "F:\MSSQL\Data\"
Const strTestsystemPathForMDF3 = "G:\MSSQL\Data\"

' 8.)	Lokaler Pfad auf dem SQL Server des Testsystems, wo die Logdatei gespei-chert wird (ldf)
Const strTestsystemPathForLDF = "D:\MSSQL\Log\"

' 9.)	Name des APP Servers des Testsystems
Const strTestsystemAPPServer = "NORDBRIEF-08"

'*********************************************************************************
' ACHTUNG: Code ab hier nicht mehr ändern!
'*********************************************************************************

































If MsgBox("Möchten Sie die Datenbank des Testsystems mit einer aktuellen Datenbank überschreiben?", vbYesNo) = vbYes Then


' Variable für die SQL Abfragen
Dim strSQL

'Name der Originalen PostOffice Datenbank herausfinden
Dim strLiveSystemDBName 
strLiveSystemDBName = Mid( strLivesystemConnectionstring, In-Str(strLivesystemConnectionstring, "Catalog=" )+8, In-StrRev(strLivesystemConnectionstring, ";") - (InStr(strLivesystemConnectionstring, "Cat-alog=" )+8) )
'Wscript.Echo strLiveSystemDBName 

'Name der Test PostOffice Datenbank herausfinden
Dim strTestsystemDBName 
strTestsystemDBName = Mid( strTestsystemConnectionstring, In-Str(strTestsystemConnectionstring, "Catalog=" )+8, In-StrRev(strTestsystemConnectionstring, ";") - (InStr(strTestsystemConnectionstring, "Catalog=" )+8) )
'Wscript.Echo strTestSystemDBName 


'Verbindung auf das LiveSystem herstellen
Dim objDBConLive
Set objDBConLive = CreateObject("ADODB.Connection")
objDBConLive.CommandTimeout = 0
objDBConLive.Open strLivesystemConnectionstring

'Servernamen herausfinden auf dem die Freigabe liegt Livesystem
Dim strLivesystemServerNameShare
strLivesystemServerNameShare = Mid(strLivesystemUNCPath, 3, InStr(3, strLivesys-temUNCPath, "\")-3 )
'Servernamen herausfinden auf dem die Freigabe liegt Testsystem
Dim strTestsystemServerNameShare
strTestsystemServerNameShare = Mid(strTestsystemUNCPath, 3, InStr(3, strT-estsystemUNCPath, "\")-3 )


'Backup der Datenbank durchführen
strSQL = "BACKUP DATABASE [" & strLiveSystemDBName & "] TO  DISK = N'" & strLiveSystemTempPathForDBBackup & "PostOffice.bak' WITH NOFORMAT, INIT,  NAME = N'Vollständige Sicherung der PostOffice Datenbank für das Testsystem', SKIP, NOREWIND, NOUNLOAD,  STATS = 10"
'Wscript.Echo strSQL
objDBConLive.Execute strSQL


Dim strTestsystemServername
strTestsystemServername = Right (strTestsystemConnection-string,Len(strTestsystemConnectionstring)- InstrRev(strTestsystemConnectionstring,"=") )
'Falls eine Instanz des SQL Servers installiert ist, wird diese vom Namen abgeschnitten
If (InStr(strTestsystemServername, "\") <> 0 ) Then
	strTestsystemServername = Left( strTestsystemServername, In-Str(strTestsystemServername, "\")-1 )
End If


Dim strLivesystemServername
strLivesystemServername = Right (strLivesystemConnection-string,Len(strLivesystemConnectionstring)- InstrRev(strLivesystemConnectionstring,"=") )
'Falls eine Instanz des SQL Servers installiert ist, wird diese vom Namen abgeschnitten
If (InStr(strLivesystemServername, "\") <> 0 ) Then
	strLivesystemServername = Left( strLivesystemServername, In-Str(strLivesystemServername, "\")-1 )
End If


'Wenn der Servername des Connectionstring (LiveDB) ungleich des Servernamens des zweiten Connectionstrings (TestDB) ist, dann muss das Backup auf den Testserver ko-piert werden
If strTestsystemServername <> strLivesystemServername Then
	
	'Pfade erstellen
	Dim strTestsystemUNCPathToBackup
	strTestsystemUNCPathToBackup = "\\" & strTestsystemServername & "\" & Replace (strTestsystemTempPathForDBBackup , ":", "$")
		
	Dim strLivesystemUNCPathToBackup
	strLivesystemUNCPathToBackup = "\\" & strLivesystemServername & "\" & Replace (strLivesystemTempPathForDBBackup, ":", "$")
		
	'Backup kopieren
	dim fso, strFrom, strTo
	Set fso = CreateObject("Scripting.FileSystemObject")
	strFrom = strLivesystemUNCPathToBackup & "PostOffice.bak"
	strTo = strTestsystemUNCPathToBackup & "PostOffice.bak"
	fso.CopyFile strFrom, strTo
	set fso = nothing

End If 
'Wscript.Echo strTestsystemDBName

'*********************************************************************************
' Wiederherstellung der DB
'*********************************************************************************

'Verbindung auf das Testsystem herstellen
Dim objDBConTest
Set objDBConTest = CreateObject("ADODB.Connection")
objDBConTest.CommandTimeout = 0
'Initial DB auf master setzen, da die DB noch nicht vorhanden sein könnte
Dim strInitialTestsystemConnectionstring
strInitialTestsystemConnectionstring = strTestsystemConnectionstring
strInitialTestsystemConnectionstring = Replace(strInitialTestsystemConnectionstring, strTestsystemDBName, "master")
objDBConTest.Open strInitialTestsystemConnectionstring


Dim rsRecordsetCx
Set rsRecordsetCx = CreateObject("ADODB.Recordset")
strSQL = "RESTORE FILELISTONLY FROM Disk = N'" & strTestsystemTempPath-ForDBBackup & "PostOffice.bak'"
rsRecordsetCx.Open strSQL, objDBConTest, , 1, 1
strSQL = "RESTORE DATABASE [" & strTestsystemDBName & "] FROM  DISK = N'" & strTestsystemTempPathForDBBackup & "PostOffice.bak' WITH  FILE = 1"

Dim lCount
lCount = 1

While Not rsRecordsetCx.EOF
	If rsRecordsetCx("Type") <> "L" Then
		''Wscript.Echo rsRecordsetCx("LogicalName")	 & " Ist eine Datendatei"
		If lCount = 1 Then
		strSQL = strSQL & ", MOVE N'" & rsRecordsetCx("LogicalName") & "' TO N'" & strTestsystemPathForMDF1 & strTestsystemDBName & ".mdf'"
		End If
		If lCount = 2 Then
		strSQL = strSQL & ", MOVE N'" & rsRecordsetCx("LogicalName") & "' TO N'" & strTestsystemPathForMDF2 & strTestsystemDBName & ".mdf'"
		End If
		If lCount = 3 Then
		strSQL = strSQL & ", MOVE N'" & rsRecordsetCx("LogicalName") & "' TO N'" & strTestsystemPathForMDF3 & strTestsystemDBName & ".mdf'"
		End If
		lCount = lCount + 1
		
	Else
		''Wscript.Echo rsRecordsetCx("LogicalName")	 & " Ist eine Logdatei"
		strSQL = strSQL & ", MOVE N'" & rsRecordsetCx("LogicalName") & "' TO N'" & strTestsystemPathForLDF & strTestsystemDBName & ".ldf'"
	End If 
	rsRecordsetCx.MoveNext
Wend

strSQL = strSQL & ",  NOUNLOAD,  STATS = 10, REPLACE"

'Vor dem Restore alle Verbindungen schliessen
											
objDBConTest.Execute	"IF ((SELECT COUNT(*) FROM sys.databases WHERE name = '" & strTestsystemDBName & "')=1) " & _
											"BEGIN " & _
											"	DECLARE @DatabaseName nvarchar(50) " & _
											" DECLARE @strSQL NVARCHAR(254) " & _
											"	DECLARE @lSPId int " & _
											"" & _
											"	SET @DatabaseName = N'" & strTestsystemDBName & "' " & _
											"" & _
											"	DECLARE my_cursor CURSOR FAST_FORWARD FOR " & _
											"	SELECT SPId FROM MASTER..SysProcesses WHERE DBId = DB_ID(@DatabaseName) AND SPId <> @@SPId " & _
											"" & _
											"	OPEN my_cursor " & _
											"" & _
											"	FETCH NEXT FROM my_cursor INTO @lSPId " & _
											"" & _
											"	WHILE @@FETCH_STATUS = 0"  & _
											"		BEGIN " & _
											"		SET @strSQL = 'KILL ' + CONVERT(NVARCHAR(254),@lSPId) " & _
											"		EXEC sp_executesql @strSQL" & _
											"" & _
											"		FETCH NEXT FROM my_cursor INTO @lSPId " & _
											"		END " & _
											"" & _
											"	CLOSE my_cursor " & _
											"	DEALLOCATE my_cursor " & _
											"	END"

'Wscript.Echo strSQL
objDBConTest.Execute strSQL
'
'Verbindung neu aufbauen auf die PostOffice DB auf dem Testsystem
objDBConTest.Close
objDBConTest.Open strTestsystemConnectionstring

'Berechtigungen setzen
	objDBConTest.Execute	"USE " & strTestsystemDBName 
	objDBConTest.Execute	"EXEC sp_change_users_login 'Update_One', 'PostOf-fice', 'PostOffice' "
	objDBConTest.Execute	"ALTER USER [PostOffice] WITH DEFAULT_SCHEMA=[dbo] " 
	objDBConTest.Execute	"EXEC sp_change_users_login 'Update_One', 'PostOf-ficeReport', 'PostOfficeReport' "
	objDBConTest.Execute	"ALTER USER [PostOfficeReport] WITH DEFAULT_SCHEMA=[dbo] "
	objDBConTest.Execute	"EXEC sp_change_users_login 'Update_One', 'Sorter', 'Sorter' "
	objDBConTest.Execute	"ALTER USER [Sorter] WITH DEFAULT_SCHEMA=[dbo] "
	
'Kopieren der Freigabe vom Livesystem auf das Testsystem beim starten des scripts
	Dim WshShell
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.Run("xcopy " & strLivesystemUNCPath & " " & strTestsystemUNCPath & " /d /e /c /i /h /r /y")
	Set WshShell = Nothing 


'Custfield für Testsystem setzen fIsTestsystem
	objDBConTest.Execute "EXEC sp_AddCustfieldType 1076, 'Testsystem', 'fisTestSystem', 9, 0"
	objDBConTest.Execute "EXEC sp_AddCustFieldValue 1076, 0, 'fisTestSystem', 1"

'LS deaktivieren und suchen/ersetzen
	objDBConTest.Execute 	"UPDATE ClientSetup SET strValue4 = 'd' WHERE strValue2 = 'CodX.PostOffice.LS.Server'"
	objDBConTest.Execute 	"UPDATE LSConfig SET strUNCPath = REPLACE(strUNCPath, '" & strLivesystemUNCPath & "','" & strTestsystemUNCPath & "') WHERE strUNCPath LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute 	"UPDATE LSConfig SET strUNCInPath = REPLACE(strUNCInPath, '" & strLivesystemUNCPath & "','" & strTestsystemUNCPath & "') WHERE strUNCInPath LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute 	"UPDATE LSConfig SET strUNCOutPath = REPLACE(strUNCOutPath, '" & strLivesystemUNCPath & "','" & strTestsystemUNCPath & "') WHERE strUNCOutPath LIKE '%" & strLivesystemUNCPath & "%'"
		
'Ganze Clientsetup Tabelle suchen/ersetzen
	objDBConTest.Execute "UPDATE Clientsetup SET strName = REPLACE(strName, '" & strLivesystemUNCPath & "', '" & strTestsystemUNCPath & "') WHERE strName LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue1 = REPLACE(strValue1, '" & strLivesystemUNCPath & "', '" & strTestsystemUNCPath & "') WHERE strValue1 LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue2 = REPLACE(strValue2, '" & strLivesystemUNCPath & "', '" & strTestsystemUNCPath & "') WHERE strValue2 LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue3 = REPLACE(strValue3, '" & strLivesystemUNCPath & "', '" & strTestsystemUNCPath & "') WHERE strValue3 LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue4 = REPLACE(strValue4, '" & strLivesystemUNCPath & "', '" & strTestsystemUNCPath & "') WHERE strValue4 LIKE '%" & strLivesystemUNCPath & "%'"
	
	objDBConTest.Execute "UPDATE Clientsetup SET strName = REPLACE(strName, '" & strLivesystemServerNameShare & "', '" & strTestsystemServerNameShare & "') WHERE strName LIKE '%" & strLivesystemServerNameShare & "%' AND strProperty != 'DBConnection'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue1 = REPLACE(strValue1, '" & strLivesystemServerNameShare & "', '" & strTestsystemServ-erNameShare & "') WHERE strValue1 LIKE '%" & strLivesystemServerNameShare & "%' AND strProperty != 'DBConnection'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue2 = REPLACE(strValue2, '" & strLivesystemServerNameShare & "', '" & strTestsystemServ-erNameShare & "') WHERE strValue2 LIKE '%" & strLivesystemServerNameShare & "%' AND strProperty != 'DBConnection'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue3 = REPLACE(strValue3, '" & strLivesystemServerNameShare & "', '" & strTestsystemServ-erNameShare & "') WHERE strValue3 LIKE '%" & strLivesystemServerNameShare & "%' AND strProperty != 'DBConnection'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue4 = REPLACE(strValue4, '" & strLivesystemServerNameShare & "', '" & strTestsystemServ-erNameShare & "') WHERE strValue4 LIKE '%" & strLivesystemServerNameShare & "%' AND strProperty != 'DBConnection'"

'DBConnections anpassen
	objDBConTest.Execute "UPDATE ClientSetup SET strValue2 = REPLACE(strValue2,'PostOfficeArchiv','PostOfficeArchivTestsystem') WHERE strProp-erty = 'DBConnection' AND strValue1 = 'PostOfficeArchiv'"
	objDBConTest.Execute "UPDATE ClientSetup SET strValue3 = REPLACE(strValue2,'PostOfficeArchiv','PostOfficeArchivTestsystem') WHERE strProp-erty = 'DBConnection' AND strValue1 = 'PostOfficeArchiv'"
	objDBConTest.Execute "UPDATE ClientSetup SET strValue2 = REPLACE(strValue2,'PostOfficeImage','PostOfficeImageTestsystem') WHERE strProp-erty = 'DBConnection' AND strValue1 = 'PostOfficeImage'"
	objDBConTest.Execute "UPDATE ClientSetup SET strValue3 = REPLACE(strValue2,'PostOfficeImage','PostOfficeImageTestsystem') WHERE strProp-erty = 'DBConnection' AND strValue1 = 'PostOfficeImage'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue2 = REPLACE(strValue2, 'Catalog=" & strLivesystemDBName & "', 'Catalog=" & strT-estsystemDBName & "') WHERE strValue2 LIKE '%" & strLivesystemDBName & "%' AND strProperty = 'DBConnection' AND strValue1 != 'PostOfficeArchiv' AND strValue1 != 'PostOfficeImage'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue3 = REPLACE(strValue3, 'Catalog=" & strLivesystemDBName & "', 'Catalog=" & strT-estsystemDBName & "') WHERE strValue3 LIKE '%" & strLivesystemDBName & "%' AND strProperty = 'DBConnection' AND strValue1 != 'PostOfficeArchiv' AND strValue1 != 'PostOfficeImage'"

'TNT Interface Config Tabelle leeren und TNT Interface deaktivieren
	objDBConTest.Execute "UPDATE ClientSetup SET strValue4 = 'd' WHERE strvalue2 like 'CodX.PostOffice.EuroPostInterface%'"
'	Ftp Server wird nicht mehr entfernt, da das Interface auf dem Testsystem auch ge-nutzt wird	
'	objDBConTest.Execute "UPDATE TNTSystempartner SET strFTPServerURL = 'nicht vorhanden'"
	objDBConTest.Execute "UPDATE TNTSystempartner SET strFtpExportPath = '/To_TNT/Test/'"
	objDBConTest.Execute "UPDATE TNTSystempartner SET strFtpImportPath = '/From_TNT/Test/'"

'Custfields durchsuchen suchen/ersetzen
	objDBConTest.Execute "UPDATE Custfield SET strValue = REPLACE(strValue, '" & strLivesystemUNCPath & "', '" & strTestsystemUNCPath & "') WHERE strValue LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute "UPDATE Custfield SET strValue = REPLACE(strValue, '" & strLivesystemServerNameShare & "', '" & strTestsystemServerNameShare & "') WHERE strValue LIKE '%" & strLivesystemServerNameShare & "%'"
	objDBConTest.Execute "UPDATE Custfield SET strName = REPLACE(strName, '" & strLivesystemUNCPath & "', '" & strTestsystemUNCPath & "') WHERE strName LIKE '%" & strLivesystemUNCPath & "%'"
	objDBConTest.Execute "UPDATE Custfield SET strName = REPLACE(strName, '" & strLivesystemServerNameShare & "', '" & strTestsystemServerNameShare & "') WHERE strName LIKE '%" & strLivesystemServerNameShare & "%'"


'KO Kodef löschen und KOServer deaktivieren
	objDBConTest.Execute "UPDATE kodef SET strINFTPServer = 'Nicht vorhanden'"
	objDBConTest.Execute "UPDATE kodef SET strOUTFTPServer = 'Nicht vor-handen'"
	objDBConTest.Execute "UPDATE Clientsetup SET strValue4 = 'd' WHERE strValue2 = 'CodX.PostOffice.KOServer'"

'Bei allen Importen/Exporten die Prescripts deaktivieren
	'BVImport
		objDBConTest.Execute 	"IF ( (SELECT COUNT(*) FROM Custfield WHERE lTableID = 1040 AND strName = 'strStdBezirkImportFilePath' AND strValue LIKE '%" & strLivesystemServerNameShare & "%') < 1 ) " & _
													"BEGIN " & _
													"UPDATE Custfield SET strValue = '' WHERE lTableID = 1040 AND strName = 'strStdBezirkImportFilePath' " & _
													"END "
													
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1040 AND strName = 'strStdBezirkImportPreScript'"
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1040 AND strName = 'strStdBezirkImportPostScript'"
		
	'Mitarbeiterimport
		objDBConTest.Execute 	"IF ( (SELECT COUNT(*) FROM Custfield WHERE lTableID = 1058 AND strName = 'strMitarbeiterImportFilePath' AND strValue LIKE '%" & strLivesystemServerNameShare & "%') < 1) " & _
													"	BEGIN " & _
													"	UPDATE Custfield SET strValue = '' WHERE lTableID = 1058 AND strName = 'strMitarbeiterImportFilePath' " & _
													"	END "
	
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1058 AND strName = 'strMitarbeiterImportScriptBefore'"
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1058 AND strName = 'strMitarbeiterImportScriptAfter'"
		
	'MitarbeiterBezirk
		objDBConTest.Execute 	"IF ( (SELECT COUNT(*) FROM Custfield WHERE lTableID = 1059 AND strName = 'strMitarbeiterBezirkImportFilePath' AND strValue LIKE '%" & strLivesystemServerNameShare & "%') < 1 ) " & _
													"BEGIN " & _
													"UPDATE Custfield SET strValue = '' WHERE lTableID = 1059 AND strName = 'strMitarbeiterBezirkImportFilePath' " & _
													"END"
													
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1059 AND strName = 'strMitarbeiterBezirkImportFilePath'"
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1059 AND strName = 'strMitarbeiterBezirkImportScriptBefore'"
		
	'Kundenimport
		objDBConTest.Execute 	"IF ( (SELECT COUNT(*) FROM Custfield WHERE lTableID = 1056 AND strName = 'strStdKundenImportFilePath' AND strValue LIKE '%" & strLivesystemServerNameShare & "%') < 1 ) " & _
													"BEGIN " & _
													"UPDATE Custfield SET strValue = '' WHERE lTableID = 1056 AND strValue = 'strStdKundenImportFilePath' "	 & _
													"END "
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1056 AND strName = 'strStdKundenImportScriptBefore'"
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1056 AND strName = 'strStdKundenImportScriptAfter'"
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1056 AND strName = 'strStdKundenUpdateScriptBefore'"
		objDBConTest.Execute "UPDATE Custfield SET strValue = '' WHERE lTa-bleID = 1056 AND strName = 'strStdKundenUpdateScriptAfter'"
	
'FIBU-Export
	objDBConTest.Execute "UPDATE Custfield SET strValue = '\\nordbrief-sr-01\PostOffice\Exporte\Test' WHERE lTableID = 1033 AND strName = 'FIBUEx-portPfad'"
	objDBConTest.Execute "UPDATE Custfield SET strValue = '\\nordbrief-sr-01\PostOffice\Exporte\Test' WHERE lTableID = 2023 AND strName = 'FIBUKGEx-portPfad'"
	
'	Todo: Watchdog

'	Todo: DBMaintenace

'Transaktionsprotokoll auf Simple setzen
objDBConTest.Execute "ALTER DATABASE [" & strTestsystemDBName & "] SET RECOVERY SIMPLE"
objDBConTest.Execute "ALTER DATABASE [" & strTestsystemDBName & "] SET RECOVERY SIMPLE WITH NO_WAIT"

'Kundenspezifische Einstellungen
	
	'0038 Nordbrief Lettershop wieder aktivieren
	objDBConTest.Execute "UPDATE ClientSetup SET strValue4 = ' ' WHERE strValue2 = 'CodX.PostOffice.LS.Server'"
	objDBConTest.Execute "DELETE Clientsetup WHERE strValue1 LIKE 'ACHTUNG: Sie starten PostOffice am Backup-System%'"
	
	'FEScanner
	objDBConTest.Execute "UPDATE FEScanner SET strImagePath = 'C:\DiesenPfadGibtEsNicht'"
	objDBConTest.Execute "UPDATE FEScanner SET strImagePath = 'C:\PostOfficeSource\Importe\FEScans\Zustelllisten'        WHERE lFEScannerID = 1"
	objDBConTest.Execute "UPDATE FEScanner SET strImagePath = 'C:\PostOfficeSource\Importe\FEScans\Postzustellauftraege' WHERE lFEScannerID = 468336841"
	objDBConTest.Execute "UPDATE FEScanner SET strImagePath = 'C:\PostOfficeSource\Importe\FEScans\Rueckscheine'         WHERE lFEScannerID = 496986865"

Wscript.Echo "Datenbank wurde wiederhergestellt"

Else
	Wscript.Echo "Wiederherstellung wurde durch den Benutzer abgebrochen"
End If