Page 1 sur 1
[R] copier répertoire dans tous les profils utilisateurs
Posté : dim. 13 avr. 2008 11:18
par 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
Re: copier répertoire dans tous les profils utilisateurs
Posté : dim. 13 avr. 2008 12:04
par 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
Re: copier répertoire dans tous les profils utilisateurs
Posté : dim. 13 avr. 2008 12:18
par 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...
Re: [..] copier répertoire dans tous les profils utilisateurs
Posté : dim. 13 avr. 2008 23:20
par Voodoo
Dans vista tu as le nom de tous les comptes dans
C:\Users\ 
Re: [..] copier répertoire dans tous les profils utilisateurs
Posté : lun. 14 avr. 2008 19:01
par 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 ?
Re: [..] copier répertoire dans tous les profils utilisateurs
Posté : lun. 14 avr. 2008 20:23
par 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
Re: [..] copier répertoire dans tous les profils utilisateurs
Posté : lun. 14 avr. 2008 21:46
par 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")
Re: [..] copier répertoire dans tous les profils utilisateurs
Posté : mar. 15 avr. 2008 19:26
par 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 ?
Re: [..] copier répertoire dans tous les profils utilisateurs
Posté : mar. 15 avr. 2008 19:36
par eln
Re: [R] copier répertoire dans tous les profils utilisateurs
Posté : mar. 15 avr. 2008 22:22
par benzo
Nikel ca marche
merci eln