[R] copier répertoire dans tous les profils utilisateurs

[benzo]

Bonjour,

Je cherche à copier un répertoire (paramétrage d'OoO) dans le profil de tous les utilisateurs existants sur un pc.
L'installation se fait en administrateur et le paramétrage ne fonctionne pas dans "all users".

Existe t-il un moyen de lister tous les profils?


merci d'avance

[tutu]

Si tu parle du fichier OoO qui sert pour le dictionnaire, il suffit de le copier sur la machine dans le repertoire de openoffice/share/dict

[benzo]

merci tutu d'avoir répondu

non en fait je parle du paramétrage qui permet d'éviter le lancement de la boîte de dialogue qui se lance lors de première utilisation d'OoO,
puis du paramétrage pour enregistrer les fichiers par défaut en .doc

tout ca c'est dans C:\Documents and Settings\user\Application Data\openoffice

en fait je souhaiterais utiliser un profil type et- qu'il soit associé à tous les profils présents sur l'ordi...

[Voodoo]

Dans vista tu as le nom de tous les comptes dans C:\Users\

[benzo]

merci VooDoo

mais j'ai oublié de préciser que c'est sous Xp !!

ya pas un moyen de lister tous les comptes présents dans c:\Documents and settings ?

[arrkhan]

peut etre avec un "net user" non, ou en allant interroger les wmi

Code : Tout sélectionner

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
   For $objItem In $colItems
      $Output = $Output & "Caption: " & $objItem.Caption & @CRLF
      $Output = $Output & "Name: " & $objItem.Name & @CRLF
   Next

ca devrait te convenir je pense

[eln]

Ou encore :

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>

$FileList = _FileListToArray(@HomeDrive & "\Documents and Settings")
If @error = 1 Then
    MsgBox(0, "", "No Files\Folders Found.")
    Exit
EndIf
_ArrayDisplay($FileList, "$FileList")

[benzo]

ok merci arrkhan et eln

j'ai retenu la solution du _FileListToArray

Par contre je vais continuer dans les questions idiotes:

Code : Tout sélectionner

$FileList = _FileListToArray(@HomeDrive & "\Documents and Settings")
If @error = 1 Then
    MsgBox(0, "", "No Files\Folders Found.")
    Exit
EndIf
 _ArrayDisplay($FileList, "$FileList")


 Dim $sArrayString = _ArrayToString( $FileList,@TAB, 1,1 )
MsgBox( 4096, "_ArrayToString() Test", $sArrayString )
dircreate("D:" & ' \ '& $sArrayString )
 Dim $sArrayString2=_ArrayToString( $FileList,@TAB, 2,2 )
  msgbox(4096,"",$sArrayString2)
dircreate("D:" & ' \ '& $sArrayString2 )

je voudrais continuer à exécuter la création des répertoires autant qu'il y d'array et sortir quand le nombre maximum est atteint.
Comment faire ?

[eln]

Code : Tout sélectionner

For...To...Step...Next

Code : Tout sélectionner

For $indice = 1 To $FileList[0]
        ....
Next

[benzo]

Nikel ca marche

merci eln