Files
inno-installers/ShopfloorConnect/ShopfloorConnect_NoBAT.iss
cproudlock 28541cd3ed Initial commit: Inno Setup installer packages
Installer packages for GE manufacturing tools:
- BlueSSOFix: Blue SSO authentication fix
- HIDCardPrinter: HID card printer setup
- HPOfflineInstaller: HP printer offline installer
- MappedDrive: Network drive mapping
- PrinterInstaller: General printer installer
- ShopfloorConnect: Shopfloor connectivity tool
- XeroxOfflineInstaller: Xerox printer offline installer

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
2025-12-30 13:15:54 -05:00

440 lines
18 KiB
Plaintext

; ShopfloorConnect MTC Service Installer - Batch-Free Version
; All batch file logic converted to ISS Pascal and PowerShell
; Version 3.0
[Setup]
AppId={{F8A3B2C1-D4E5-6F7A-8B9C-0D1E2F3A4B5C}
AppName=WJDT ShopfloorConnect MTC Service
AppVersion=3.0
AppPublisher=WJDT
AppPublisherURL=http://tsgwp00524.logon.ds.ge.com
AppSupportURL=http://tsgwp00524.logon.ds.ge.com
AppUpdatesURL=http://tsgwp00524.logon.ds.ge.com
DefaultDirName=C:\ShopFloorConnect
CreateAppDir=yes
ChangesAssociations=no
PrivilegesRequired=admin
OutputDir=.\Output
OutputBaseFilename=ShopfloorConnect_Installer_v3
SolidCompression=yes
WizardStyle=modern
SetupIconFile=gea-logo.ico
WizardImageFile=patrick.bmp
WizardSmallImageFile=patrick-sm.bmp
UninstallDisplayIcon={app}\Java\j2sdk\jre\bin\java.exe
DisableWelcomePage=no
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
[Messages]
WelcomeLabel2=This will install the ShopfloorConnect MTC Service on this machine.%n%nThe installer will:%n 1. Copy all required files%n 2. Set TCFITDIR environment variable%n 3. Run Ant build (creates FIT-MI_Server)%n 4. Register Windows service%n 5. Configure site settings (West Jefferson CA-LR)%n%nAll batch file logic has been integrated into this installer for better reliability.%n%nInstallation log: C:\ShopFloorConnect\install.log
[Files]
; Copy ALL files from ShopFloorConnect folder
Source: "ShopFloorConnect\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
[Dirs]
Name: "{app}\Log"
[Code]
var
InstallLog: String;
ProgressPage: TOutputProgressWizardPage;
// Write to installation log file
procedure LogMessage(Msg: String);
var
LogFile: String;
begin
LogFile := ExpandConstant('{app}\install.log');
SaveStringToFile(LogFile, '[' + GetDateTimeString('yyyy-mm-dd hh:nn:ss', #0, #0) + '] ' + Msg + #13#10, True);
end;
// Execute command with output capture and logging
function ExecWithLog(Command, Params, WorkDir: String; ShowWindow: Integer; Wait: TExecWait; var ResultCode: Integer): Boolean;
var
TempFile: String;
Output: AnsiString;
Success: Boolean;
begin
LogMessage('Executing: ' + Command + ' ' + Params);
// Create temp file for output
TempFile := ExpandConstant('{tmp}\output_' + IntToStr(Random(99999)) + '.txt');
// Execute and capture output to temp file
Success := Exec('cmd.exe', '/c "' + Command + ' ' + Params + ' > "' + TempFile + '" 2>&1"',
WorkDir, ShowWindow, Wait, ResultCode);
// Read output from temp file
if FileExists(TempFile) then
begin
if LoadStringFromFile(TempFile, Output) then
begin
LogMessage('Output:' + #13#10 + String(Output));
end;
DeleteFile(TempFile);
end;
LogMessage('Result Code: ' + IntToStr(ResultCode));
if Success then
LogMessage('Success: True')
else
LogMessage('Success: False');
Result := Success;
end;
procedure InitializeWizard();
begin
ProgressPage := CreateOutputProgressPage('Installing ShopfloorConnect',
'Please wait while the MTC Service is being installed and configured.');
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
end;
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode: Integer;
ErrorMsg: String;
JavaExe: String;
AntCP: String;
AntCommand: String;
ConfigScript: String;
ScriptPath: String;
begin
if CurStep = ssPostInstall then
begin
// Initialize log file
InstallLog := ExpandConstant('{app}\install.log');
SaveStringToFile(InstallLog,
'========================================' + #13#10 +
'ShopfloorConnect MTC Service Installation' + #13#10 +
'Version 3.0 (Batch-Free)' + #13#10 +
'Date: ' + GetDateTimeString('yyyy-mm-dd hh:nn:ss', #0, #0) + #13#10 +
'========================================' + #13#10#13#10, False);
ProgressPage.SetText('Installing ShopfloorConnect MTC Service...', '');
ProgressPage.SetProgress(0, 100);
ProgressPage.Show;
try
// ============================================
// STEP 1: Verify Java Installation
// ============================================
ProgressPage.SetText('Step 1 of 6: Verifying Java installation...', '');
ProgressPage.SetProgress(10, 100);
LogMessage('========== STEP 1: Verify Java ==========');
JavaExe := ExpandConstant('{app}\Java\j2sdk\jre\bin\java.exe');
if not FileExists(JavaExe) then
begin
ErrorMsg := 'Java runtime not found!' + #13#10#13#10 +
'Expected location:' + #13#10 + JavaExe + #13#10#13#10 +
'Installation cannot continue.';
LogMessage('ERROR: ' + ErrorMsg);
MsgBox(ErrorMsg, mbError, MB_OK);
Exit;
end;
// Test Java version
if ExecWithLog(JavaExe, '-version', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
LogMessage('Java verification successful');
end
else
begin
LogMessage('WARNING: Java verification failed');
end;
// ============================================
// STEP 2: Set Environment Variable
// ============================================
ProgressPage.SetText('Step 2 of 6: Setting TCFITDIR environment variable...', '');
ProgressPage.SetProgress(20, 100);
LogMessage('========== STEP 2: Set TCFITDIR ==========');
if not ExecWithLog('setx', '/m TCFITDIR "C:\ShopFloorConnect"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) or (ResultCode <> 0) then
begin
ErrorMsg := 'Failed to set TCFITDIR environment variable!' + #13#10 +
'Error Code: ' + IntToStr(ResultCode) + #13#10#13#10 +
'You must run this installer as Administrator.' + #13#10#13#10 +
'Installation log: ' + InstallLog;
LogMessage('ERROR: ' + ErrorMsg);
MsgBox(ErrorMsg, mbError, MB_OK);
Exit;
end;
LogMessage('TCFITDIR set successfully');
Sleep(1000);
// ============================================
// STEP 3: Run Ant Build Directly
// ============================================
ProgressPage.SetText('Step 3 of 6: Running Ant build to create FIT-MI_Server...',
'This may take 2-3 minutes. Please wait...');
ProgressPage.SetProgress(30, 100);
LogMessage('========== STEP 3: Run Ant Build ==========');
// Build the Ant command exactly as install.bat does (line 90 of install.bat)
AntCP := ExpandConstant('{app}\MachineToolClient_Service\install\ant-launcher.jar');
AntCommand := '-cp "' + AntCP + '" ' +
'-Dj.home="C:\ShopFloorConnect\java\j2sdk" ' +
'-DSERVICENAME="SFCMTCService" ' +
'-DINST_SYS=fit4tc ' +
'-DINST_OS=msw ' +
'-DINST_DIR="C:\ShopFloorConnect\MachineToolClient_Service" ' +
'-DDST_DIR="C:\ShopFloorConnect\FIT-MI_Server" ' +
'-DBASE_DIR="C:\ShopFloorConnect" ' +
'-Dant.home="C:\ShopFloorConnect\MachineToolClient_Service\install" ' +
'org.apache.tools.ant.launch.Launcher ' +
'-buildfile "C:\ShopFloorConnect\MachineToolClient_Service\install\ant_install.xml" ' +
'doinstall';
LogMessage('Ant Command: ' + JavaExe + ' ' + AntCommand);
if not ExecWithLog(JavaExe, AntCommand, 'C:\ShopFloorConnect\MachineToolClient_Service',
SW_SHOW, ewWaitUntilTerminated, ResultCode) then
begin
ErrorMsg := 'Failed to execute Ant build!' + #13#10#13#10 +
'The Java Ant launcher did not run.' + #13#10#13#10 +
'Check the installation log for details:' + #13#10 +
InstallLog;
LogMessage('ERROR: ' + ErrorMsg);
MsgBox(ErrorMsg, mbError, MB_OK);
Exit;
end;
LogMessage('Ant build completed with exit code: ' + IntToStr(ResultCode));
if ResultCode <> 0 then
begin
LogMessage('WARNING: Ant build returned non-zero exit code');
end;
// Give the Ant build time to complete file operations
ProgressPage.SetText('Waiting for Ant build to finalize...', '');
Sleep(5000);
// ============================================
// STEP 3a: Verify FIT-MI_Server Created
// ============================================
ProgressPage.SetText('Step 3a: Verifying FIT-MI_Server folder...', '');
ProgressPage.SetProgress(55, 100);
LogMessage('========== STEP 3a: Verify FIT-MI_Server ==========');
if not DirExists('C:\ShopFloorConnect\FIT-MI_Server') then
begin
ErrorMsg := 'Installation Error: FIT-MI_Server folder not created!' + #13#10#13#10 +
'The Ant build script did not create the expected folder.' + #13#10#13#10 +
'Ant exit code was: ' + IntToStr(ResultCode) + #13#10#13#10 +
'Common causes:' + #13#10 +
' - Ant build failed (check log for Java exceptions)' + #13#10 +
' - TCFITDIR not recognized' + #13#10 +
' - Insufficient permissions' + #13#10 +
' - Missing Server package files' + #13#10#13#10 +
'Installation log: ' + InstallLog;
LogMessage('ERROR: ' + ErrorMsg);
MsgBox(ErrorMsg, mbError, MB_OK);
Exit;
end;
LogMessage('FIT-MI_Server folder verified');
// ============================================
// STEP 3b: Verify Windows Service
// ============================================
ProgressPage.SetText('Step 3b: Verifying Windows service registration...', '');
ProgressPage.SetProgress(70, 100);
LogMessage('========== STEP 3b: Verify Service ==========');
Sleep(2000);
if not Exec('cmd.exe', '/c sc query SFCMTCService', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
ErrorMsg := 'Unable to query Windows service!' + #13#10#13#10 +
'Could not check if SFCMTCService was registered.' + #13#10#13#10 +
'Installation log: ' + InstallLog;
LogMessage('ERROR: Cannot query service');
MsgBox(ErrorMsg, mbError, MB_OK);
Exit;
end;
if ResultCode <> 0 then
begin
ErrorMsg := 'Service Registration Failed!' + #13#10#13#10 +
'The Windows service "SFCMTCService" was not created.' + #13#10 +
'SC Query Error Code: ' + IntToStr(ResultCode) + #13#10#13#10 +
'The Ant build may have failed during service registration.' + #13#10#13#10 +
'Installation log: ' + InstallLog;
LogMessage('ERROR: ' + ErrorMsg);
MsgBox(ErrorMsg, mbError, MB_OK);
Exit;
end;
LogMessage('Windows service SFCMTCService verified');
// ============================================
// STEP 4: Configure Site Settings (PowerShell)
// ============================================
ProgressPage.SetText('Step 4 of 6: Configuring West Jefferson settings...', '');
ProgressPage.SetProgress(80, 100);
LogMessage('========== STEP 4: Configure Site ==========');
// Build PowerShell script to replace the batch file logic
ConfigScript :=
'# ShopfloorConnect INI Configuration Script' + #13#10 +
'$ErrorActionPreference = "Stop"' + #13#10 +
'' + #13#10 +
'$iniFile = "C:\ShopFloorConnect\FIT-MI_Server\webapps\wut\WEB-INF\conf\mi_server.ini"' + #13#10 +
'$tempFile = "$iniFile.tmp"' + #13#10 +
'$fsw_ip = "10.233.113.141"' + #13#10 +
'$fsw_port = "8080/tcdnc/services"' + #13#10 +
'' + #13#10 +
'Write-Host "Getting computer FQDN..."' + #13#10 +
'try {' + #13#10 +
' $fqdn = [System.Net.Dns]::GetHostEntry("localhost").HostName' + #13#10 +
' Write-Host "Computer FQDN: $fqdn"' + #13#10 +
'} catch {' + #13#10 +
' Write-Host "ERROR: Could not determine FQDN: $_"' + #13#10 +
' exit 1' + #13#10 +
'}' + #13#10 +
'' + #13#10 +
'if (-not (Test-Path $iniFile)) {' + #13#10 +
' Write-Host "ERROR: INI file not found: $iniFile"' + #13#10 +
' exit 1' + #13#10 +
'}' + #13#10 +
'' + #13#10 +
'Write-Host "Updating INI file..."' + #13#10 +
'' + #13#10 +
'# Read and update the INI file' + #13#10 +
'$content = Get-Content $iniFile' + #13#10 +
'$updatedContent = @()' + #13#10 +
'' + #13#10 +
'foreach ($line in $content) {' + #13#10 +
' if ($line -match "^\s*local_ip\s*=") {' + #13#10 +
' $updatedContent += "local_ip = $fqdn"' + #13#10 +
' Write-Host " Updated: local_ip = $fqdn"' + #13#10 +
' } elseif ($line -match "^\s*fsw_ip\s*=") {' + #13#10 +
' $updatedContent += "fsw_ip = $fsw_ip"' + #13#10 +
' Write-Host " Updated: fsw_ip = $fsw_ip"' + #13#10 +
' } elseif ($line -match "^\s*fsw_port\s*=") {' + #13#10 +
' $updatedContent += "fsw_port = $fsw_port"' + #13#10 +
' Write-Host " Updated: fsw_port = $fsw_port"' + #13#10 +
' } elseif ($line -match "^\s*RxEndTimeout\s*=") {' + #13#10 +
' $updatedContent += "RxEndTimeout = 6000"' + #13#10 +
' $updatedContent += ""' + #13#10 +
' Write-Host " Updated: RxEndTimeout = 6000"' + #13#10 +
' } else {' + #13#10 +
' $updatedContent += $line' + #13#10 +
' }' + #13#10 +
'}' + #13#10 +
'' + #13#10 +
'# Write to temp file first' + #13#10 +
'try {' + #13#10 +
' $updatedContent | Out-File -FilePath $tempFile -Encoding UTF8 -Force' + #13#10 +
' Write-Host "Temp file created successfully"' + #13#10 +
'} catch {' + #13#10 +
' Write-Host "ERROR: Failed to create temp file: $_"' + #13#10 +
' exit 1' + #13#10 +
'}' + #13#10 +
'' + #13#10 +
'# Replace original with updated file' + #13#10 +
'try {' + #13#10 +
' Move-Item -Path $tempFile -Destination $iniFile -Force' + #13#10 +
' Write-Host "INI file updated successfully"' + #13#10 +
' exit 0' + #13#10 +
'} catch {' + #13#10 +
' Write-Host "ERROR: Failed to replace INI file: $_"' + #13#10 +
' exit 1' + #13#10 +
'}';
// Save PowerShell script to temp file
ScriptPath := ExpandConstant('{tmp}\config_ini.ps1');
SaveStringToFile(ScriptPath, ConfigScript, False);
LogMessage('PowerShell script saved to: ' + ScriptPath);
// Execute PowerShell script
if not ExecWithLog('powershell.exe',
'-NoProfile -ExecutionPolicy Bypass -File "' + ScriptPath + '"',
'', SW_SHOW, ewWaitUntilTerminated, ResultCode) or (ResultCode <> 0) then
begin
ErrorMsg := 'Failed to configure site settings!' + #13#10 +
'PowerShell Exit Code: ' + IntToStr(ResultCode) + #13#10#13#10 +
'The service is installed but configuration failed.' + #13#10#13#10 +
'Installation log: ' + InstallLog;
LogMessage('ERROR: ' + ErrorMsg);
MsgBox(ErrorMsg, mbError, MB_OK);
DeleteFile(ScriptPath);
Exit;
end;
DeleteFile(ScriptPath);
LogMessage('Site configuration completed successfully');
// ============================================
// STEP 4a: Verify Config File
// ============================================
ProgressPage.SetText('Step 4a: Verifying configuration file...', '');
ProgressPage.SetProgress(90, 100);
LogMessage('========== STEP 4a: Verify Config ==========');
if not FileExists('C:\ShopFloorConnect\FIT-MI_Server\webapps\wut\WEB-INF\conf\mi_server.ini') then
begin
ErrorMsg := 'Configuration Error: mi_server.ini not found!' + #13#10#13#10 +
'Expected file:' + #13#10 +
'C:\ShopFloorConnect\FIT-MI_Server\webapps\wut\WEB-INF\conf\mi_server.ini' + #13#10#13#10 +
'Installation log: ' + InstallLog;
LogMessage('ERROR: ' + ErrorMsg);
MsgBox(ErrorMsg, mbError, MB_OK);
Exit;
end;
LogMessage('Configuration file verified');
// ============================================
// STEP 5: Installation Complete
// ============================================
ProgressPage.SetProgress(100, 100);
LogMessage('========== INSTALLATION COMPLETE ==========');
LogMessage('All steps completed successfully');
Sleep(1000);
finally
ProgressPage.Hide;
end;
// Show success message
MsgBox('Installation Complete!' + #13#10#13#10 +
'The ShopfloorConnect MTC Service has been installed and configured.' + #13#10#13#10 +
'Details:' + #13#10 +
' • Windows Service: SFCMTCService (Registered)' + #13#10 +
' • Startup Type: Delayed Automatic' + #13#10 +
' • Site: West Jefferson CA-LR' + #13#10 +
' • Teamcenter Server: 10.233.113.141' + #13#10 +
' • Shop Floor PC FQDN: Auto-detected' + #13#10#13#10 +
'Config file:' + #13#10 +
'C:\ShopFloorConnect\FIT-MI_Server\webapps\wut\WEB-INF\conf\mi_server.ini' + #13#10#13#10 +
'Installation log:' + #13#10 +
InstallLog + #13#10#13#10 +
'To start the service:' + #13#10 +
' 1. Open Services (services.msc)' + #13#10 +
' 2. Find "SFCMTCService"' + #13#10 +
' 3. Right-click → Start' + #13#10#13#10 +
'Or run: sc start SFCMTCService',
mbInformation, MB_OK);
end;
end;
[UninstallDelete]
Type: filesandordirs; Name: "{app}\Log\*"
Type: filesandordirs; Name: "{app}\FIT-MI_Server\webapps\wut\WEB-INF\conf\*.tmp"
Type: files; Name: "{app}\install.log"