UserName avec VBScript lancé par SYSTEM
yann
-
TFC37 Messages postés 215 Date d'inscription Statut Membre Dernière intervention -
TFC37 Messages postés 215 Date d'inscription Statut Membre Dernière intervention -
bonjour,
J'utilise WScript pour éxecuter un script .vbe par l'utilisateur SYSTEM.
Je voudrais recupérer le UserName (nom de l'utilisateur actuellement en session) dans mon script.
Si j'appelle:
Set WshNetwork.CreateObject("Wscript.Network")
UserName = WshNetwork.Username
alors Wscript me retourne UserName = SYSTEM
Mais moi je voudrais le nom de l'utilisateur qui qui a ouvert la session.
Je travaille sous NT4 donc je ne peux pas identifier le propriétaire des processus, explorer.exe par exemple.
Si vous avez une idée ...
J'utilise WScript pour éxecuter un script .vbe par l'utilisateur SYSTEM.
Je voudrais recupérer le UserName (nom de l'utilisateur actuellement en session) dans mon script.
Si j'appelle:
Set WshNetwork.CreateObject("Wscript.Network")
UserName = WshNetwork.Username
alors Wscript me retourne UserName = SYSTEM
Mais moi je voudrais le nom de l'utilisateur qui qui a ouvert la session.
Je travaille sous NT4 donc je ne peux pas identifier le propriétaire des processus, explorer.exe par exemple.
Si vous avez une idée ...
A voir également:
- Ppp username and password algérie
- Spybot search and destroy - Télécharger - Antivirus & Antimalwares
- Find and mount - Télécharger - Récupération de données
- Password-reset@iwawakids. com ✓ - Forum Réseaux sociaux
- Proximus public wifi password free - Forum Bbox Bouygues
- Disk boot failure insert system disk and press enter - Guide
8 réponses
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer=(".")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "UserName: " & objItem.UserName
next
'STABILOBOSS
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer=(".")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "UserName: " & objItem.UserName
next
'STABILOBOSS
Le poste est là depuis longtemps mais je tiens a dire merci car ça m'a bien aidé aujourd'hui...
Merci STABILOBOSS
Merci STABILOBOSS
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Moi, ça donne une erreur :
objet requis : '[string: "<mon nom>"]'
code d'erreur 800A01A8
Quelqu'un a une idée ?
objet requis : '[string: "<mon nom>"]'
code d'erreur 800A01A8
Quelqu'un a une idée ?
