Exécute un script en tant qu’administrateur sur une session utilisateur

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:

---

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é

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:

---

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:

---

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...

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] ?

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