/*
 *
 * - Installation SAP 
 *
 *   - Dokumentation der wichtigsten PC-Werte
 *
 *   - SwSetupI.exe in das WindowsVerzeichnis kopieren
 *   - Eintrag von SwSetupI in Autostart
 *
 *   - Installation von SAP
 *     (alle SAP-Dateien werden im Unterverzeichnis 'installdir\SAP' erwatet)
 *
 *   - der Setup wird nur ausgeführt, wenn Logdatei und Inf-Datei abweichen
 *
 *   letzte Änderung: xx.xx.xxxx / Weckmann
 *
 */


DialogOut 'SwSetup  -  SAP - Netzwerk - Installation'

							
vInstallDirVon  = 'd:\\SwSetup\\Sap'	// Installationsverzeichnis auf dem Netzwerk

vInstallDirSap  = 'c:\\Sapgui'		// in diesem Verzeichnis Sap installieren

vTestRechner = 'test 00'		// Rechner, auf welchen die Sap-Testanwendung läuft

vProdRechner = 'prod 00'		// Rechner, auf welchen die Sap-Produktionsanwendung läuft

vBeginnMSek = GetTime

LogFileName     = '%__WindowsVerzeichnis__%\\SwSetup.log'

TestFileDate __SwSetupFileName__ LogFileName
if __error__ == 1 
	Exit					// keine Verarbeitung, Dateien sind gleich !
endif


fp = fopen LogFileName 'w'							 
if __error__ == 0
	MessageBox 'Logdatei ''%LogFileName%'' kann nicht geöffnet werden'
	Exit
endif


fputs fp '\n'
fputs fp '           Datum/Uhrzeit: \t%__Date__%\n'
fputs fp '            ProgrammName: \t%__ProgrammName__%\n'
fputs fp '         ProgrammVersion: \t%__ProgrammVersion__%\n'
fputs fp '     aktueller Dateiname: \t%__SwSetupFileName__%\n'
fputs fp '                Language: \t%__Language__%\n'
fputs fp '              WinVersion: \t%__WinVersion__%\n'
fputs fp '                WinMinor: \t%__WinMinor__%\n'
fputs fp '               WinSystem: \t%__WinSystem__%\n'
fputs fp '                CpuModel: \t%__CpuModel__%\n'
fputs fp '                 BsBuild: \t%__BsBuild__%\n'
fputs fp '                 CpuType: \t%__CpuType__%\n'
fputs fp '             NetzAdapter: \t%__Netzadapter__%\n'
fputs fp '                Hostname: \t%__Hostname__%\n'
fputs fp '                UserName: \t%__UserName__%\n'
fputs fp '               IpAdresse: \t%__IpAdresse__%\n'
fputs fp '      WindowsVerzeichnis: \t%__WindowsVerzeichnis__%\n'
fputs fp 'WindowsSystemVerzeichnis: \t%__WindowsSystemVerzeichnis__%\n'
fputs fp '                 Desktop: \t%__DesktopVerzeichnis__%\n'
fputs fp '               Startmenü: \t%__StartVerzeichnis__%\n'
fputs fp '               Programme: \t%__ProgrammVerzeichnis__%\n'
fputs fp '               Autostart: \t%__AutostartVerzeichnis__%\n'
fputs fp '                  Memory: \t%__Memory__% MB\n'
vSizeC = GetDiskSize     'c'
vFreeC = GetDiskSizeFree 'c'
vNameC = GetDiskName     'c'
fputs fp '        Laufwerk C: Name: \t%vNameC%\n'
fputs fp '                   Größe: \t%vSizeC%\n'
fputs fp '                    Frei: \t%vFreeC%\n'
fputs fp '\n'


// ************************** Installation SwSetupI **************************** //

						// SwSetupI.exe auf der lokalen Platte
vInstallPrgSwSetupNach = '%__WindowsVerzeichnis__%\\SwSetupI.exe'
						// SwSetupI.exe in das Windowsverzeichnis kopieren
CopyFile '%vInstallDirVon%\\SwSetupI.exe' vInstallPrgSwSetupNach fp
						// SwSetupI in Autostart eintragen
CreateItem '\\PS\\Autostart' 'SwSetup - Autoinstall' vInstallPrgSwSetupNach '%vInstallDirVon% %vInstallDirVon%\\SwSetup.inf' '%__WindowsVerzeichnis__%' vInstallPrgSwSetupNach 0 0 
if __error__ == 0
	fputs fp 'Fehler bei CreateItem "Autostart/SwSetup - Autoinstall"\n'
else
	fputs fp 'OK - CreateItem "Autostart/SwSetup - Autoinstall"\n'
endif

fputs fp '\n'

// **************************** Installation SAP ******************************* //

fputs fp 'mkdir %vInstallDirSap%\n'
mkdir vInstallDirSap 
if __error__ == 0
	fputs vFpLog 'Verzeichnis konnte nicht angelegt werden\n'
	Exit
endif

				// inklusive aller Unterverzeichnisse kopieren, z.B. sapgui\xxl
CopyDirRecursive '%vInstallDirVon%\\sapgui' '%vInstallDirSap%' fp
fputs fp 'Anzahl Dateien kopiert: %__error__%\n'

CreateItem '\\SG\\Sap-Anwendungen' 'Drucker'      '%vInstallDirSap%\\saplpd.exe' ''       '%vInstallDirSap%' '%vInstallDirSap%\\saplpd.exe' 0 1
CreateItem '\\SG\\Sap-Anwendungen' 'Test'         '%vInstallDirSap%\\sapgui.exe' '%vTestRechner%' '%vInstallDirSap%' '%vInstallDirSap%\\sapgui.exe' 0 0
CreateItem '\\SG\\Sap-Anwendungen' 'Produktion'   '%vInstallDirSap%\\sapgui.exe' '%vProdRechner%' '%vInstallDirSap%' '%vInstallDirSap%\\sapgui.exe' 0 0
CreateItem '\\SG\\Sap-Anwendungen' 'OSS-Walldorf' '%vInstallDirSap%\\sapgui.exe' '/H/147.204.64.1/S/sapdp99/H/155.56.5.53/S/sapdp01' '%vInstallDirSap%' '%vInstallDirSap%\\sapgui.exe' 0 0

vEndMSek = GetTime
vSek     = vEndMSek - vBeginnMSek
vSekK    = vSek % 1000	 
vSek     = vSek / 1000

fputs fp '\nLaufzeit: %vSek%,%vSekK% Sekunden.\n'

fclose fp
				// wenn das Datum gleichgesetzt wird, kann am beginn abgefragt
				// werden, ob der setup bereits gelaufen ist !!!
SetFileDate __SwSetupFileName__ LogFileName

				// zur Dokumentation die Logdatei auf den Server kopieren
DeleteFile '%vInstallDirVon%\\%__Hostname__%.txt'
CopyFile LogFileName '%vInstallDirVon%\\%__Hostname__%.txt'