Pfad zum "Default User" Profile finden

Hallo,

ich mache mir gerade ein Installationsscript für QuickTime 7.5.5. Dabei muss eine Datei in das Verzeichnis

%SystemDrive%\Documents and Settings\Default User\Application Data\Apple Computer\QuickTime\

kopiert werden. Wobei der Pfad-Teil "Documents and Settings" sprachabhängig ist (d. h. von der installierten XP Basissprache abhängt)

Leider gibt es anscheinend kein Makro für den Default User bzw. dessen Pfade, daher habe ich mir eine Funktion geschrieben:

$test=_CheckDefUserPath ()& "Apple Computer\QuickTime\"
MsgBox(0, "Default User path...", $test)


Func _CheckDefUserPath ()
	$regkey="HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
	$searchstr="PrintHood"


	$DefUser_reg=RegRead($regkey, $searchstr)
	$DefUser_path=StringTrimRight($DefUser_reg, StringLen($searchstr))
	Return $DefUser_path
EndFunc

Ich denke, dass es da sicher noch etwas Optimierungspotenzial gibt... oder einen anderen, geschickteren Weg (der Check auf "PrintHood" gefällt mir persönlich nicht so sehr...)

mfg
Axel

Hallo Tweaky,

das hatte ich zuerst auch gedacht, allerdings verweist das auf das "All Users" Verzeichnis (s. Codebeispiel) ...

$systempathes= "@StartMenuCommonDir: " &@TAB & @StartMenuCommonDir & @CRLF _ 
				& "@AppDataCommonDir: " &@TAB & @AppDataCommonDir & @CRLF _ 
				& "@AppDataDir: " &@TAB&@TAB& @AppDataDir & @CRLF _
				& "@CommonFilesDir: " &@TAB&@TAB& @CommonFilesDir _


MsgBox(0, "Diverse Pfade...", $systempathes)

mfg
Axel

Hallo Oscar

danke, das ist auf jeden Fall eine deutlich kürzere und schnellere Lösung...

mfg
Axel

Hallo,

falls jemand neugierig auf das QuickTime Paket geworden ist, es liegt hier http://www.autoit.de/index.php?page=Thread&postID=58030#post58030

mfg
Axel

Hallo RR04,

danke Dir, allerdings zeigt mir der Parameter @UserProfileDir das Profile des angemeldeten Benutzers, nicht aber das Verzeichnis des Default Users.

Die Lösung von Oscar funktioniert und habe ich inzwischen in mein Skript eingebaut (s. Link im letzten Post)

Kleine Übersicht über die Parameter:

$systempathes= "@StartMenuCommonDir: " &@TAB & @StartMenuCommonDir & @CRLF _
& "@AppDataCommonDir: " &@TAB & @AppDataCommonDir & @CRLF _
& "@AppDataDir: " &@TAB&@TAB& @AppDataDir & @CRLF _
& "@CommonFilesDir: " &@TAB&@TAB& @CommonFilesDir & @CRLF _
& "@UserProfileDir:" &@TAB&@TAB& @UserProfileDir _

MsgBox(0, "Diverse Pfade...", $systempathes)

mfg
Axel

Hallo RR04,

es geht nicht darum, dass ich das Script nicht ausführen kann. Es ging mir einfach darum etwas in das "Default User" Profle zu kopieren. Einstellungen, Dateien, etc. an diesem Profile werden bei der Anmeldung in das Anwenderprofile kopiert!

Jetzt ist es aber sprachabhängig, wo die Profiles gespeichert werden, daher mußte ich den Pfad ermitteln. Da es weder bei MS eine Umgebungsvariable noch bei AutoIt ein Makro dafür gibt, hatte ich mir eine Funktion gebastelt.
Oscar hat das dann auf eine Zeile "reduziert"

mfg
Axel

Hallo Oscar,

habe ich eigentlich das Script an den richtigen Ort kopiert? Ich hatte nur "Installationsskripte" gelesen (den Titel IOM 3 habe ich wohl "ignoriert")... oder kommt es zu "AutoIt - Skripte"...

mfg
Axel

Danke progandy,

ich habe zwar nicht Alles verstanden (die Funktion _WinAPI_DoEnvironmentSubst($sString) ist mir noch ein Rätsel), aber diese Registryeinträge habe ich eigentlich gesucht...

Könnte dies dann nicht auch reichen:

MsgBox(0, "der pfad: ", RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList","ProfilesDirectory") _
& "\" & RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList","DefaultUserProfile"))

mfg
Axel

Hallo progandy,

heißt das dann, dass %SystemDrive% beim Aufruf meiner EXE ggfs. gar nicht aufgelöst wird und damit die EXE nicht gefunden wird?

Mmh, kurze Antwort: Ja, habe es jetzt ausprobiert, bevor ich die Frage abschickte...

Nur wenn ich z. B. einen Aufruf mit Run(@ComSpec & " /c " & 'commandName'... machen würde, könnte ich in den Parametern zum "Command" die OS Umgebungsvariable nutzen.

Also werde ich wohl Deine Funktion verwenden (wenn ich die Funktion verstanden habe) oder bei Oscars Workaround bleiben... denke ich 'mal drüber nach...
(habe gerade die Info erhalten, dass ggfs. meine Pakete auch unter XP 64 Bit laufen sollen, da müßte ich dann wohl noch ein paar checks einfügen, STÖHN...)

Danke.
Axel