Accueil > Forum > > > > Service VB et Utilisateurs
 Service VB et Utilisateurs
mercredi 12 décembre 2007 à 08:35:57 |
Service VB et Utilisateurs
FPatrick
|
Bonjour,
J'ai fait une application qui en tourne en tant que service avec l'ocx ntsvc.
Est-il possible de savoir à partir d'un service si :
* un utilisateur est connecté ou pas.
* un utilisateur ferme une session.
* un utilisateur ouvre une session.
* connaitre le compte qui a ouvert une session.
Sachant que l'application tourne sur le compte système, je ne vois pas comment récupérer cette information.
Merci d'avance pour tous les commentaires et toutes les réponses données.
|
|
mercredi 12 décembre 2007 à 09:18:49 |
Re : Service VB et Utilisateurs
swan94
|
Salut,
essayes avec le WMI
Swan94
=================Si la réponse vous convient, merci de l'accepter=================
|
|
mercredi 12 décembre 2007 à 09:34:44 |
Re : Service VB et Utilisateurs
FPatrick
|
Peux-tu m'aiguiller s'il te plait ? merci
|
|
jeudi 13 décembre 2007 à 02:13:14 |
Re : Service VB et Utilisateurs
PCPT
|
salut, qu'est-ce que tu appelles le "compte système"? compte sauvegarde de dell ? administrateur local? compte avec pouvoir(s)?
Prenez un instant pour répondre à ce sondage svp  |
|
jeudi 13 décembre 2007 à 08:06:40 |
Re : Service VB et Utilisateurs
FPatrick
|
Le compte système est celui utilisé pour lancer la plupart des services dont le planificateur des taches.
Si tu utilises les taches planifiés, tu spécifies un compte spécifique pour l'exécution de ta commande, mais si tu utilises la commande AT, c'est le compte SYSTEM qui est prise en compte.
Tu peux le voire dans le gestionnaire des taches et dans les propriétés du service des taches planifiées.
En ce qui concerne l'interrogation par le WMI, j'ai commencé à chercher mais cela me donne que les informations de la session active, donc le compte système.
Merci d'avance pour les recherches effectuées.
|
|
jeudi 13 décembre 2007 à 11:53:06 |
Re : Service VB et Utilisateurs
PCPT
|
Réponse acceptée !
salut.... avec WMI je liste mes types de comptes : ' [WMI Win32 Helper -
Win32_SystemAccount]
On Local Error Resume Next
Dim sComputerName as String, WMI_Obj as Object, WMI_ObjProps as Object, ObjClsItem as Object
sComputerName = Environ$("COMPUTERNAME")
Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
Set WMI_ObjProps = WMI_Obj.ExecQuery("SELECT * FROM Win32_SystemAccount", , 48)
For Each ObjClsItem in WMI_ObjProps
Debug.Print "Caption : " & ObjClsItem.Caption
Debug.Print "Description :
" & ObjClsItem.Description
Debug.Print "Domain : " & ObjClsItem.Domain
Debug.Print "InstallDate :
" & ObjClsItem.InstallDate
Debug.Print "LocalAccount :
" & ObjClsItem.LocalAccount
Debug.Print "Name : " & ObjClsItem.Name
Debug.Print "SID : " & ObjClsItem.SID
Debug.Print "SIDType : " & ObjClsItem.SIDType
Debug.Print "Status : " & ObjClsItem.Status
Next ObjClsItem
Set ObjClsItem = Nothing
Set WMI_ObjProps = Nothing
Set WMI_Obj = Nothingc'est bien le nom de mon PC (pas mon compte) qui apparaît dans les groupes TACHE, SERVICE et SYSTEM ensuite je liste mes services avec leurs "auteurs" on va dire : ' [WMI Win32 Helper -
Win32_SystemServices]
On Local Error Resume Next
Dim sComputerName as String, WMI_Obj as Object, WMI_ObjProps as Object, ObjClsItem as Object
sComputerName = Environ$("COMPUTERNAME")
Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
Set WMI_ObjProps = WMI_Obj.ExecQuery("SELECT * FROM Win32_SystemServices", , 48)
For Each ObjClsItem in WMI_ObjProps
Debug.Print "GroupComponent :
" & ObjClsItem.GroupComponent
Debug.Print "PartComponent :
" & ObjClsItem.PartComponent
Next ObjClsItem
Set ObjClsItem = Nothing
Set WMI_ObjProps = Nothing
Set WMI_Obj = Nothingle nom correspond (PC) enfin je vérifie tous mes services : ' [WMI Win32 Helper - Win32_Service]
On Local Error Resume Next
Dim sComputerName as String, WMI_Obj as Object, WMI_ObjProps as Object, ObjClsItem as Object
sComputerName = Environ$("COMPUTERNAME")
Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
Set WMI_ObjProps = WMI_Obj.ExecQuery("SELECT * FROM Win32_Service", , 48)
For Each ObjClsItem in WMI_ObjProps
Debug.Print "AcceptPause :
" & ObjClsItem.AcceptPause
Debug.Print "AcceptStop :
" & ObjClsItem.AcceptStop
Debug.Print "Caption : " & ObjClsItem.Caption
Debug.Print "CheckPoint :
" & ObjClsItem.CheckPoint
Debug.Print "CreationClassName :
" & ObjClsItem.CreationClassName
Debug.Print "Description :
" & ObjClsItem.Description
Debug.Print "DesktopInteract :
" & ObjClsItem.DesktopInteract
Debug.Print "DisplayName :
" & ObjClsItem.DisplayName
Debug.Print "ErrorControl :
" & ObjClsItem.ErrorControl
Debug.Print "ExitCode : " & ObjClsItem.ExitCode
Debug.Print "InstallDate :
" & ObjClsItem.InstallDate
Debug.Print "Name : " & ObjClsItem.Name
Debug.Print "PathName : " & ObjClsItem.PathName
Debug.Print "ProcessId : " & ObjClsItem.ProcessId
Debug.Print "ServiceSpecificExitCode :
" & ObjClsItem.ServiceSpecificExitCode
Debug.Print "ServiceType :
" & ObjClsItem.ServiceType
Debug.Print "Started : " & ObjClsItem.Started
Debug.Print "StartMode : " & ObjClsItem.StartMode
Debug.Print "StartName : " & ObjClsItem.StartName
Debug.Print "State : " & ObjClsItem.State
Debug.Print "Status : " & ObjClsItem.Status
Debug.Print "SystemCreationClassName :
" & ObjClsItem.SystemCreationClassName
Debug.Print "SystemName :
" & ObjClsItem.SystemName
Debug.Print "TagId : " & ObjClsItem.TagId
Debug.Print "WaitHint : " & ObjClsItem.WaitHint
Next ObjClsItem
Set ObjClsItem = Nothing
Set WMI_ObjProps = Nothing
Set WMI_Obj = Nothingc'est toujours le nom du PC... bref, çà devrait te servir de piste de départ ;) pour d'infos sur le WMI ici++ PCPT [AFCK]
Prenez un instant pour répondre à ce sondage svp
|
|
jeudi 13 décembre 2007 à 12:01:49 |
Re : Service VB et Utilisateurs
FPatrick
|
Un grand merci d'avance pour les détails donnés.
Je vais me débrouiller avec ca maintenant.
En te remerciant, bonne journée.
|
|
Cette discussion est classée dans : vb, utilisateurs, utilisateur, service, session
 Répondre à ce message
 Sujets en rapport avec ce message
[Demande] Service sous VB.Net devant démarrer une application interactive [ par Caacrino ]
Bonjour, Pour ainsi dire je "découvre" le système de service sous vb.net, et j'avoue que ce n'est malheureusement pas aussi intuitif que de développe
[Catégorie modifiée .Net -> VBS] Problème [super titre !] [ par Filaz13 ]
Bonjour à tous, Je suis étudiant et j'ai besoin de réaliser un script pour une étude de cas. Je vous précise que je suis débutant de chez débutant e
Gestion multi utilisateur [ par tiny23 ]
Salut à tous, je souhaiterais faire un formulaire de gestion multiuser avec 3 utilisateurs donc un administrateur et 2 utilisateurs standards en visua
gestion d utilisateur en vb.net [ par oussamatr ]
bonjour, je veux savoir comment créer 1 application multi session et précisément la gestion d utilisateur et les privilèges d accées et la liaison ave
VB.NET: Comment faire un service (vb.net) ouvrant une application graphique ? [ par Caacrino ]
Bonjour, Je recherche le moyen, à l'ouverture d'une session quelconque, d'ouvrir un programme (avec interface graphique) à partir d'un service window
Recuperation utilisateurs sur serveur [ par Sentynel ]
Bonjour à tous ! Je voudrai juste savoir si il était possible de faire en sorte que l'application identifie un utilisateur l'utilisant, et envoie un c
application web service vb [ par SAS1986 ]
slt, j'ai developpé un web service en utilisant vb .net. consernant cette partie du code qui permet de recuperre des données à partir d'un fichier xml
lecture fichier via vb [ par apprentizakaria ]
salut j'ai créer un fichier ou j'ai stocké des noms d'utilisateur et des mots de pass, le probléme c'est que l'authentification marche avec la premier
Service Web sans IIS en VB.NET [ par hanubis37 ]
Bonjour, Mon équipe et moi même avons lu que l'on pouvait exécuter un service Web sans installer IIS sous VB.NET en tant que Service Windows. Nous es
Changement de session administrateur vers standard ! [ par zuddap ]
Salut a tous, voila j'ai un soucis, et je ne sais même pas si je suis au bonne endroi, mais je cherche un script pour changer la session des utilisate
 Livres en rapport
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|