'PostInstall
	On Error Goto Fehler
	EnableReportDXDist
    
   Dim InstParam As Object
   Dim sKey As String
   
   Set InstParam = CreateObject("DXInstParam.DXInstParam.1")
   sKey = InstParam.GetInstParamValueAsStr("sKey")
 
   wexec32("cmd.exe"," /c /M setx FW_ACTIVATION_PROXY www-xxxxxxxxxxxxx:8080", SW_NORMAL)
   
   wexec32("C:\Program Files (x86)\Common Files\FotoWare\Application Activation Wizard 1.1\fwappactwiz.exe", "-activate "+sKey+" -silent", SW_NORMAL)
 

'PostInstall
	On Error Goto Fehler
	EnableReportDXDist
    
   Dim InstParam As Object
   Dim saktivierung As String
   Dim sKey As String
   
   Set InstParam = CreateObject("DXInstParam.DXInstParam.1")
   InstParam.Package = "{Package..DN}"
   saktivierung = InstParam.GetInstParamValueAsStr("aktivierung")
   sKey = InstParam.GetInstParamValueAsStr("sKey")
 
   If LCase(aktivierung) = "true" Then
   
   wexec32("cmd.exe"," /c /M setx FW_ACTIVATION_PROXY www-xxxxxxxxxxxxxx.de:8080", SW_NORMAL)
   
   wexec32("C:\Program Files (x86)\Common Files\FotoWare\Application Activation Wizard 1.1\fwappactwiz.exe", "-activate "+sKey+" -silent", SW_NORMAL)
  
   ElseIf LCase(aktivierung) = "false" Then
  
   wexec32 ("dxcopy", "-f -r -v " + Chr$(34) + "{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/config/locationData.xml" + Chr$(34) +" "+ Chr$(34)+"C:\ProgramData\Fotoware\Fotostation\"+Chr$(34),SW_NORMAL)
  
   End if
  
   
	Phase2 = 0