begin process at 2012 02 14 07:54:59
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Système

 > 

Exécution

 > 

Service VB et Utilisateurs


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

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

Membre Club
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

Administrateur CodeS-SourceS
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

Administrateur CodeS-SourceS
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 = Nothing



c'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 = Nothing


le 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 = Nothing


c'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


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,522 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales