Discussion :

[sofianelaib]

Bonjour a tous

J’ai récupéré un script qui permet de mettre le nom des utilisateurs dans la description de leur machine
Je veux le déployé par GPO sur toutes les machine du domaine.

Voici le script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
'--------------------------------------------------------
' Remplacement de la description de la machine par le nom de user
' -------------------------------------------------------
WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\srvcomment", WSHNetwork.UserName

Le problème c’est que la gpo utilise le compte system le résultat du déploiement du scripte :
Je retrouve le compte system sur toutes les descriptions des machines au lieu des noms des utilisateurs

Je peux pas déployer le script sur « script d’ouverture de session » car l’utilisateur ne son pas administrateur de leur machine.

Merci de m’aidé

[KoYzimus]

Bonjour,

En fait, le but est de trouver le nom de l'utilisateur à ajouter depuis le compte sys. (donc sans l'objet WshNetwork).

La liste des profiles sous forme de SID (cf. http://fr.wikipedia.org/wiki/Security_Identifier) dans le registre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList

Le problème est de connaître l'utilisateur courant du système. Sûrement pas l’un 3 premiers qui sont des « SID bien connus ». Donc le quatrième ? Si l’utilisateur en question est le seul à s’être connecté sur ce système alors oui. Je conseille un petit entretien de tous les postes avec delprof (http://support.microsoft.com/kb/315411/fr).

Donc pour aller au but :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const HKEY_LOCAL_MACHINE = &H80000002
Set objRegistry = GetObject("winmgmts:root\default:StdRegProv")
Set WshShell = WScript.CreateObject("WScript.Shell")
strRegSIDList = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
strRegComment = "HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\srvcomment"
 
'On va chercher la liste des profiles
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strRegSIDList, arrSID
'On prend le 4ème
strRegSID = strRegSIDList & "\" & arrSID(3)
'On récupère son chemin
objRegistry.GetExpandedStringValue HKEY_LOCAL_MACHINE, strRegSID, "ProfileImagePath", strProfilePath
'On en extrait le nom
strProfileName = Mid(strProfilePath, InStrRev(strProfilePath,"\")+1)
'On l’inscrit en commentaire
WSHShell.RegWrite strRegComment, strProfileName

Voilà ce que je propose...

[KoYzimus]

Pour aller un peu plus loin tu peux récupérer le nom complet pour ta description, et plus seulement le nom du profile comme tu voulais le faire avec WSHNetwork.UserName.
En effet, il existe une propriété fullname dans la classe WMI Win32_UserAccount qui retourne un nom dans le style "Dan Wilson" et non "dwilson".

http://msdn2.microsoft.com/en-us/library/aa394507.aspx

[Résolu] ?

[sofianelaib]

Bonjour
j'ai rsolu le problem autrement
j'ai donne le drois d'ecrutire sur le cle de registre elle meme c'est possible avec de gpo

Merci a tous