Usernamen aus Windows auslesen und in Reg schreiben ... mit Punkten zwischen Buchstaben

hi,

ich brächte mal wieder hilfe =)

prob ist.
öffnen 2 leute eine office datei auf einem netzlaufwerk wird dieses
beim 2ten versuch als gesperrt angezeigt. zusätzlich sieht man den
namen, der diese datei sperrt. so kann man schnell absprechen wie
lang es noch dauert etc.

nun besteht das problem, dass anscheinend nicht bei allen leuten der
username in den benutzerinformationen gespeichert ist. das muss
geändert werden. natürlich haben wir nicht die versiertesten anwenden
hier, so dass ich über eine einfach lösung (doppelklick auf eine datei) nachdenke.

diese soll den benutzername auslesen und dass in einen registry-zweig
schreiben, wo office sich anschließend den benutzernamen herholt.
wenn man den benutzernamen jedoch normal schreibt (hex in der reg)
bekommt man jedoch nur cryptische zeichen raus.
bin mir nicht sicher obs firmenspezifisch oder von ms so gewünscht
ist, dass hinter jedem buchstaben ein punkt steht. wird es jedoch so
gemacht, wird der name in office richtig, und auch ohne punkte
dargestellt.

nun bleibt die frage, wie frage ich den benutzernamen ab, und sage
autoit, dass es zw. jeden buchstaben einen punkt setzen soll, um
das anschließend in die reg. zu schreiben???

wahlweise könnte ich noch die einfachere methode nehmen, in der ich den usernamen auslesen, word öffne, in die entsprechende option gehe und dort den benutzernamen eingeben lasse. hier würde nur der nutzer nicht weiter arbeiten können, variante 1 würde im hintergrund ablaufen. werde aber beide ausprobieren, da ich nicht weiss, ob ich variante 1 auch schon schaffe =)

hmm ok, doch nicht so einfach wie ich mir alles vorgestellt habe, aber ich werde einfach mal die einfachste methode wählen *g*

aber auch da ein prob ... ich fang an mit:

run("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE")
WinWaitActive("Dokument1 - Microsoft Word")
send("!xo")

dann komm ich in die optionen in denen ich auf die registerkarte "benutzerinformationen" springen muss.

leider gibt es keine controlid o.ä.

einen mausklick mit koordinaten wollte ich vermeiden. wie komme ich nur schnell auf diese registerkarte, mit einem controlklick oder was in der art?

ich konnte auch 6x strg-tab drücken wenn alles reißt, aber geht es auch kürzer?

im grunde ist es nicht so schwer, ausser dass ich damit noch nicht zurecht komme, wie ich einen reg_binary wert an die reg sende. also normal klappen tut es schon, aber ich habe ja erstmal nur den normalen usernamen. den müsste ich jetzt in einen hexadezimalen string wandeln.

PS: ok, hab es geschafft, war doch ganz easy *g*

jetzt wär nur das prob mit den punkten

script sieht so aus:

#include <string.au3>
$String = (@username)
$Hex = _StringToHex($String)
RegWrite("HKCU\Software\Microsoft\Office\11.0\Common\Userinfo", "UserName", "Reg_Binary", $Hex)

also müsste ich jetzt $Hex splitten und dazwischen immer 0x00 setzen, oder?

#include <string.au3>
Dim $user = StringSplit(@UserName, "")
Dim $out = ""

For $i = 1 To $user[0]
$out &= $user[$i] & "."
Next

RegWrite("HKCU\Software\Microsoft\Office\11.0\Common\Userinfo", "Test", "Reg_Binary", $Hex)

also hab das ganze mal von einem der ersten postings übernommen, klappt soweit auch ganz gut, ausser ...

ich bekomme dann zb "p.l.u.t.o.d." raus, was unter word wieder nur salat gibt.
richtig müsste word es erkennen, wenn es "p.l.u.t.o.d..." heißt.

also noch 2 punkte dran.

so schwer wird das nicht sein, oder *g*
ich arbeite grad dran, es will zwar noch net gant, aber ich bin zuversichtlich =)

PS: ok, jetzt versteh ich auch endlich, was du genau mit "." und "0x00" meinst *g*
es wird also punkt angezeigt, ist aber in hex "2e"
aus diesem grund erscheint bei word sicherlich salat.

ich werde deine lösung mal eben testen, evtl. müssen die 2 punkte dann doch nicht angehangen werden.

PS: die 2 punkte, bzw "00" müssen noch dran =)
aber ansonsten geht deine lösung wurderbar. dank dir/euch schonmal, das hat mir echt rießig weitergeholfen. den rest versuch ich dann jetzt mal

du warst einfach zu schnell bernd =)

es klappt einwandfrei. großes danke, das ist auf jeden fall die bessere alternative *g*

da es sich um das selbe script/ thema handelt, schreib ich mal hier weiter und erspare euch einen neuen thread *g*

alles klappt einwandfrei, hab mittlerweile auch noch einen vergleich des schlüssels eingebaut, damit am ende gesagt wird, ob alles richtig, oder etwas falsch verlaufen ist.

jetzt habe ich aber noch das problem, das, wenn jmd nicht office version 11. hat, der pfad in der registry anders ist.
es gibt auch win2k und xp bei uns, wobei ich da gelesen habe, dass der pfad gleich ist.

aber wie kann ich autoit nun anweisen, dass es den richtigen pfad nimmt, je nachdem was vorhanden ist.
entweder
HKCU\Software\Microsoft\Office\11.0\Common\Userinfo
oder
HKCU\Software\Microsoft\Office\10.0\Common\Userinfo
oder
HKCU\Software\Microsoft\Office\9.0\Common\Userinfo

etwa wie HKCU\Software\Microsoft\Office\*\Common\Userinfo =)

Edit bernd670: AutoIt-Tags zwecks besser Darstellung eingefügt!

ohne mich jetzt einschleimen zu wollen, aber ich weiss jetzt schon fast garnichtmehr, wie ich dir danken soll =)

ich hätte sicherlich paar min gebraucht, aber danke für den tip und nochmal danke für die lösung *g*

ich glaube jetzt ist das script perfekt, wird alles beachtet. zu blöd das ich es gestern schon an ein paar leute verschickt habe. aber vllt wird es ja weltweit eingsetzt *lol*

ok, vllt bissel übertrieben, aber evtl brauchen es noch andere abteilungen.

ich bins schon wieder. eine sache ist mir noch eingefallen.
und zwar, sollte das teil evtl internationalen anklang finden, wär es natürlich besser, wenn die msgs auf englisch wären, sofern kein dt. system vorhanden ist.

das steht irgendwo in der systemsteuerung, oder? kann man das easy auslesen?

also wenn in systemsteuerung german, dann msg-dt, ansonsten msg-en?

ah, genau sowas habe ich gesucht, danke =)

nur leider funzt es nicht =/

also z.b.

if @oslang = 0407 (bzw hab alle dt. codes ausprobiert) then
...
else
...
endif

er führt aber immer die befehle nach else aus.

PS: shit, hab den fehler gefunden. trotz dt. funktionen in windows, ist die systemsprache englisch =/
dann kann ich mir das auch schenken

PPS: wer suchet der findet ... @kblayout ist der pfad zum glück *g*

daaaaaaaaaanke =)