Hallo,

wie bekomme ich es hin das mein Active Setup immer beim Anmelden eines Users überprüft ob der Regschlüssel gesetzt ist und dann die Dateien aus dem Softwarepaket in das User Profil kopiert.

Function Phase3
 
	'Registrierungsschlüssel für Active Setup setzen
	On Error Goto Fehler
	EnableReportDXDist
 
	ReportDXDist (1, "Registrierungsschlüssel für Actice Setup setzen")
 
	WriteRegString(HKLM, "Software\Microsoft\Active Setup\Installed Components\cyPHONE_neu", "Version", "1,0,0,5")
	
	ReportDXDist (1, "Einstellungsdateien auf den Client kopieren")
 
	'Kopiere Registrierungsdateien auf den Client
	Dim oDXCopyObj As Object
	Set oDXCopyObj = CreateObject("DxftClient.DxftClient.1")
 
	Dim RegFileDir As String
	RegFileDir = """%APPDATA%\Cycos\"
	MakeDir32("-q", RegFileDir)
	oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/conf/Win7/Cycos""" + " " + RegFileDir + "CyPhone""")
	Set oDXCopyObj = Nothing
 
	ReportDXDist (1, "Einstellungsdateien auf den Client kopieren abgeschlossen")
 
	ReportDXDist (1, "Active Setup Konfiguration abgeschlossen")
 
	Phase3 = 0
 
	Goto EndeOK:
 

Hallo kmuenke,
Dein Active Setup sieht noch ein wenig unvollständig aus. Du musst in die Registry noch eintragen, was genau im Active Setup unter dem Useraccount passieren soll.
Etwa so:
.
.
WriteRegString(HKLM, "Software\Microsoft\Active Setup\Installed Components\cyPHONE_neu", "Version", "1,0,0,5")
WriteRegString(HKLM, "Software\Microsoft\Active Setup\Installed Components\cyPHONE_neu", "StubPath","C:\irgendwo\mach_was.cmd")
.
.
Du kannst einzelne Befehle mit Parametern aufrufen:
WriteRegString(HKLM, "Software\Microsoft\Active Setup\Installed Components\cyPHONE_neu", "StubPath", "regedit /s C:\irgendwo\cyPhone.reg")
Oder mehrere Kommandos in bat und cmd zusammen fassen. Innerhalb der Batch/CMD-Dateien klappt es dann auch mit den %Umgebungsvariablen%.

Oder Du rufst DX-Union Basic Scripte auf, hier verwendest Du dann besser DX-Union-Variablen:
WriteRegString(HKLM,"Software\Microsoft\Active Setup\Installed Components\cyPHONE_neu","StubPath","dxscript.exe -r "+Chr(34)+"{ENVIRONMENT..APPDATA}\CyPhone\ConfigCyPhone.bas"+Chr(34))
VB-Scripte gehen natürlich auch.

Wenn Du wirklich bei JEDEM Login das Active Setup ausführen willst, ist das ohnehin der bessere Weg, da Du mit dem Basicscript als allerletzte Aktion den passenden Schlüssel für das Active Setup unter HKCU löschen kannst:
RegDeleteKey(HKCU,"Software\Microsoft\Active Setup\Installed Components\cyPHONE_neu")
Damit "vergisst" Windows, dass das Active Setup schon mal ausgeführt wurde und wiederholt das Ganze beim nächsten Login.

Wenn ich Dein Script richtig verstehe, sollen Dateien während des Active Setup vom Depotserver geholt werden. Das heißt, der Zugriff erfolgt meines Erachtens mit den Priviliegien des Nutzers (der Support darf mich gerne korrigieren). Zumindest bei uns haben die User auf die Depotfreigaben aber keinen direkten Zugriff. Also kopier lieber im Zuge der Installation auf den Client, was Du brauchst und mach alles weitere im Active Setup lokal.

Da ich bestimmt was vergessen hab, hast Du hier eine recht anschauliche Zusammenfassung zum Thema Active Setup:
http://www.sepago.de/d/helge/2010/04/22/...setup-explained

Viel Erfolg

Hallo Matthias,

danke für deine Hilfe und die ausführliche Beschreibung.

"was Du brauchst und mach alles weitere im Active Setup lokal." meinst du damit DX-Union oder Microsoft ? Wenn ich es aber richtig verstehe ist aber so das wenn der Regschlüssel Version", "1,0,0,5" nicht gesetzt ist würde dann z.B die CMD ausgeführt oder ???

Guten Morgen,
Active Setup ist eine Technik von Microsoft, um Nutzerkonfigurationen vornehmen zu können. Ob Du dazu die Mittel von DX-Union nutzt oder Dich auf Windows-Bordmittel (regedit, copy, xcopy etc.) konzentrierst, ist ausschließlich Deine Entscheidung. Ich für meinen Teil bin in dem Punkt inkonsequent, ich nutze was für den jeweiligen Fall am einfachsten geht, egal ob Batch/CMD-File, DXU-Script oder einzelne Exe-Files.
Während bzw. im Anschluss an die eigentliche Installation kopiere ich alles, was für ich für das Active Setup brauche auf den Client, so dass beim Ablauf desselben ausschließlich lokale Aktivitäten nötig sind. Das ist erstens schneller als Zugriffe übers Netz, zweitens unabhängig von Berechtigungen auf irgendwelchen Freigaben und drittens ist es dann fürs Active Setup egal, ob das Netz überhaupt verfügbar ist.

Mal probieren, ob ich Deine zweite Frage richtig verstanden hab:
Active Setup prüft, ob unter die HKLM\Software\Microsoft\Active Setup\Installed Components\ vorhandenen Schlüssel im korrespondierenden Zweig das sich anmeldenden Nutzer HKCU\Software\Microsoft\Active Setup\Installed Components\.. vorhanden sind. Dabei spielt der Wert unter Version die tragende Rolle. Ist exakt derselbe Schlüssel nicht da, wird die unter StubPath definierte Aktion ausgeführt, ganz egal ob VBScript, CMD/Bat, dxscript oder Aufruf einer beliebigen exe-Datei - natürlich im Rahmen de Rechte des Nutzers. Im Anschluss erzeugt der Windowsprozess den Key (nur mit Versionsnummer, ohne StubPath) unter HKCU\.. - quasi als Erfolgsmeldung. Beim nächsten Login prüft Windows erneut die Keys unter HKLM\.. und findet die dann aber schon unter HKCU. Diesmal passiert nichts, da dass Active Setup ja schon erfolgreich ausgeführt wurde.

Änderst Du die Version unter HKLM\.. oder erzeugst einen komplett neuen Key, fängt der ganze Spaß von vorne an, da dieser Eintrag im HKCU-Zweig ja noch fehlt. Denselben Effekt gibt's aber eben auch, wenn der Key unter HKCU\.. wieder gelöscht wird. Die Windows-Erfolgmeldung ist dann nicht da und das Active Setup wird wieder ausgeführt.

Genau richtig verstanden SUPER DANKE

Ich noch einmal,

jetzt habe ich das Script fertig aber dieser Regschlüssel wird nicht geschrieben Hilfe kann einer noch mal schauen.

'Registrierungsschlüssel für Active Setup setzen
	On Error Goto Fehler
	EnableReportDXDist
 
	ReportDXDist (1, "Registrierungsschlüssel für Actice Setup setzen")
 
	WriteRegString(HKLM,"Software\Microsoft\Active Setup\Installed Components\{package..name}", "Version", "1,0,0,5")
	WriteRegString(HKLM,"Software\Microsoft\Active Setup\Installed Components\{package..name}", "StubPath","cmd /c "+Chr(34)+"{ENVIRONMENT..APPDATA}\Cycos\CyPhone\ActiveX\Script\ConfigCyPhone.bat"+Chr(34))
	
	ReportDXDist (1, "Einstellungsdateien auf den Client kopieren")
 
	'Kopiere Registrierungsdateien auf den Client
	Dim oDXCopyObj As Object
	Set oDXCopyObj = CreateObject("DxftClient.DxftClient.1")
 
	Dim RegFileDir As String
	RegFileDir = """C:\Program Files (x86)\Cycos\CyPhone\"
	MakeDir32("-q", RegFileDir)
	oDXCopyObj.DxCopy("-v -f -r ""{dynamic..depotrechner}:{dynamic..verzeichnis}/pkg/conf/Win7/Cycos""" + " " + RegFileDir + "ActiveX""")
	Set oDXCopyObj = Nothing
 
	ReportDXDist (1, "Einstellungsdateien auf den Client kopieren abgeschlossen")
 
	ReportDXDist (1, "Active Setup Konfiguration abgeschlossen")
 
	Phase3 = 0
 
	Goto EndeOK:
 

Der Key für das Active Setup unter HKLM wird mit beiden Werten korrekt erzeugt ?
Alle nötigen Dateien für das AC findest Du nach der Anmeldung auch auf der HDD ? Ich frage, weil ich für meinen Teil es nicht schaffe, unter Win7 (egal ob x86 oder x64) direkt von der Depotfreigabe in eines der Programmverzeichnisse reinzukopieren. Lokal mit copy oder xcopy hab ich keine Zugriffsprobleme. Vielleicht hat der Support aber dazu eine Idee.
Ich nehme mal an, die Batchdatei machte einen Aufruf der Art "regedit /s C:\Pfad\Import.reg" ? Der Pfad im Batchfile führt auch direkt zur importierenden reg-Datei ?

Hallo,

ich habe es hin bekommen.
Wie Herr Schlade schon erwähnt hat (was aber man nicht erwartet weil der Pfad des eintrages ein anderer ist) werden bei Win 7 64bit die Einträge in "HKLM\Software\Wow6432Node\Microsoft\Active Setup\Installed Components\{package..name}" erstellt dort habe ich natürlich nicht schaut. Das Script läuft also jetzt bei jedem User der diesen Eintrag nicht in seiner Registry hat (HKEY_CURRENT_USER) aber auch dort unter Wow6432Node

Danke für die Unterstützung.

Noch mal eine frage zum aufruf mit dxscript -r

kann es sein das ich den gesamten Pfad zur dxscript Datei angeben muss ?

WriteRegString(HKLM,"Software\Microsoft\Active Setup\Installed Components\cyPHONE_neu","StubPath","dxscript.exe -r "+Chr(34)+"c:\Program Files (x86)\Cycos\CyPhone\ActiveX\CyPhone.bas"+Chr(34))

und der Schlüssel StubPath darf ja nur einmal bei dieser ausführung verwendet werden kann einfach ein StubPath_1 machen um mehrere Sachen auszuführen.

Hallo,

ja habe es hin bekommen. Ich lege jetzt für jede Aktion ein Schlüssel an war nicht schön aber es geht..

Dim sDir As String
Dim sASProfile As String
sDir=GetDXUDir+"\lib"
sASProfile=Chr(34)+GetDXUDir+"\bin\dxscript.exe"+Chr(34)+" -r ""C:\Program Files (x86)\Cycos\CyPhone\ActiveX\Script\Cycos.BAS"
 
'Active Setup
WriteRegString(HKLM,"Software\Microsoft\Active Setup\Installed Components\Cycos_User", "Version", "1,0,0,5")
WriteRegString(HKLM,"Software\Microsoft\Active Setup\Installed Components\Cycos_User", "StubPath",sASProfile)