/*
 * - Installation Hardcopy
 *
 *   - Dokumentation der wichtigsten PC-Werte
 *
 *   - SwSetupI.exe in das WindowsVerzeichnis kopieren
 *   - Eintrag von SwSetupI in Autostart
 *
 *   - Installation von Hardcopy im Windows-Verzeichnis
 *     Eintrag von Hardcopy in 'SwSetup - Autostart'
 *
 * - der Setup wird nur ausgeführt, wenn Logdatei und Inf-Datei abweichen
 *
 * letzte Änderung: xx.xx.xxxx / Weckmann
 *
 */

					// Installationsverzeichnis auf dem Netzwerk							
vInstallDirVon  = 'd:\\SwSetup\\Hardcopy'
					// s. Bemerkung in LIESMICH.WRI								
vSwSetupStartup = 'SwSetup - Autostart'

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


DialogOut 'SwSetup  -  Hardcopy - Netzwerk - Installation'

vBeginnMSek = GetTime

TestFileDate __SwSetupFileName__ vLogFileName
if __error__ == 1 
	ExecGroup vSwSetupStartup			// alle Programme dieser Gruppe starten !
	Exit						// keine Verarbeitung, Dateien sind gleich !
endif


fp = fopen vLogFileName 'w'							 
if __error__ == 0
	MessageBox 'Logdatei ''%vLogFileName%'' 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 Hardcopy **************************** //
if __WinSystem__ == 'NT'
					// HcpNTdll.dll vom Netzwerk kopieren
   CopyFile '%vInstallDirVon%\\files\\HcpNTdll.dll' '%__WindowsVerzeichnis__%\\HcpNTdll.Dll' fp
					// Hardcopy.exe vom Netzwerk kopieren
   CopyFile '%vInstallDirVon%\\files\\HrdCpy32.exr' '%__WindowsVerzeichnis__%\\Hardcopy.exe' fp
else		// windows 95 oder windows 3.n		
					// HcpDll.dll vom Netzwerk kopieren
   CopyFile '%vInstallDirVon%\\files\\HcpDll.dll' '%__WindowsVerzeichnis__%\\HcpDll.Dll' fp
					// Hardcopy.exe vom Netzwerk kopieren
   CopyFile '%vInstallDirVon%\\files\\Hardcopy.exe' '%__WindowsVerzeichnis__%\\Hardcopy.exe' fp

endif

				// in SwSetup - Autostart-Gruppe eintragen und beim Start minimierem
CreateItem '\\XS\\%vSwSetupStartup%' 'Hardcopy' '%__WindowsVerzeichnis__%\\Hardcopy.exe' '' '%__WindowsVerzeichnis__%' '%__WindowsVerzeichnis__%\\Hardcopy.exe' 0 1
if __error__ == 0
	fputs fp 'Fehler bei CreateItem "%vSwSetupStartup%/Hardcopy"\n'
else
	fputs fp 'OK - CreateItem "%vSwSetupStartup%/Hardcopy"\n'
endif

fputs fp '\n'

// ************************ Ende Installation Hardcopy ************************** //



ExecGroup vSwSetupStartup	// alle Programme dieser Gruppe starten !


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__ vLogFileName

				// zur Dokumentation die Logdatei auf den Server kopieren
				// durch den DeleteFile ist es möglich dem NetzwerkVerzeichnis
				// nur die Rechte 'Schreiben' zu geben,
				// daß Lesen ist dann unberechtigten Benutzern verboten
				// (Sie sollten ein extra UnterVerzeichnis Verwenden)
DeleteFile '%vInstallDirVon%\\%__Hostname__%.txt'
CopyFile vLogFileName '%vInstallDirVon%\\%__Hostname__%.txt'