[..] Comment connaitre la session active

[fred39]

Bonjour,
relativement à ce sujet:
http://autoitscript.fr/forum/viewtopic.php?f=20&t=5906
J'ai besoin de déterminer la session active à partir d'un script qui s'exécute en tant que service.

En effet dans ce cas @username renvoie la valeur "systeme"

merci

[Jerome]

Coucou,

Il vous faut regarder du coté des class win32.
Je suis actuellement sur mon téléphone portable, donc si personne ne vous a plus renseigner d'ici la, je vous donnerai un lien ou directement le code ce soir.

Edit : on fait tout avec son portable, go voir ici.




Jérôme

[Koumla]

Bonjour,

Pour connaître la session active en cours, voir la ligne :

Code : Tout sélectionner

$Output &= "UserName: " & $objItem.UserName & @CRLF

► Afficher le texte

Code : Tout sélectionner

 $wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$OutputTitle = ""
$Output = ""
$OutputTitle &= "Computer: " & $strComputer  & @CRLF
$OutputTitle &= "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   Local $Object_Flag = 0
   For $objItem In $colItems
      $Object_Flag = 1
      $Output &= "AdminPasswordStatus: " & $objItem.AdminPasswordStatus & @CRLF
      $Output &= "AutomaticResetBootOption: " & $objItem.AutomaticResetBootOption & @CRLF
      $Output &= "AutomaticResetCapability: " & $objItem.AutomaticResetCapability & @CRLF
      $Output &= "BootOptionOnLimit: " & $objItem.BootOptionOnLimit & @CRLF
      $Output &= "BootOptionOnWatchDog: " & $objItem.BootOptionOnWatchDog & @CRLF
      $Output &= "BootROMSupported: " & $objItem.BootROMSupported & @CRLF
      $Output &= "BootupState: " & $objItem.BootupState & @CRLF
      $Output &= "Caption: " & $objItem.Caption & @CRLF
      $Output &= "ChassisBootupState: " & $objItem.ChassisBootupState & @CRLF
      $Output &= "CreationClassName: " & $objItem.CreationClassName & @CRLF
      $Output &= "CurrentTimeZone: " & $objItem.CurrentTimeZone & @CRLF
      $Output &= "DaylightInEffect: " & $objItem.DaylightInEffect & @CRLF
      $Output &= "Description: " & $objItem.Description & @CRLF
      $Output &= "Domain: " & $objItem.Domain & @CRLF
      $Output &= "DomainRole: " & $objItem.DomainRole & @CRLF
      $Output &= "EnableDaylightSavingsTime: " & $objItem.EnableDaylightSavingsTime & @CRLF
      $Output &= "FrontPanelResetStatus: " & $objItem.FrontPanelResetStatus & @CRLF
      $Output &= "InfraredSupported: " & $objItem.InfraredSupported & @CRLF
      $strInitialLoadInfo = $objItem.InitialLoadInfo(0)
      $Output &= "InitialLoadInfo: " & $strInitialLoadInfo & @CRLF
      $Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
      $Output &= "KeyboardPasswordStatus: " & $objItem.KeyboardPasswordStatus & @CRLF
      $Output &= "LastLoadInfo: " & $objItem.LastLoadInfo & @CRLF
      $Output &= "Manufacturer: " & $objItem.Manufacturer & @CRLF
      $Output &= "Model: " & $objItem.Model & @CRLF
      $Output &= "Name: " & $objItem.Name & @CRLF
      $Output &= "NameFormat: " & $objItem.NameFormat & @CRLF
      $Output &= "NetworkServerModeEnabled: " & $objItem.NetworkServerModeEnabled & @CRLF
      $Output &= "NumberOfLogicalProcessors: " & $objItem.NumberOfLogicalProcessors & @CRLF
      $Output &= "NumberOfProcessors: " & $objItem.NumberOfProcessors & @CRLF
      $strOEMLogoBitmap = $objItem.OEMLogoBitmap(0)
      $Output &= "OEMLogoBitmap: " & $strOEMLogoBitmap & @CRLF
      $strOEMStringArray = $objItem.OEMStringArray(0)
      $Output &= "OEMStringArray: " & $strOEMStringArray & @CRLF
      $Output &= "PartOfDomain: " & $objItem.PartOfDomain & @CRLF
      $Output &= "PauseAfterReset: " & $objItem.PauseAfterReset & @CRLF
      $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
      $Output &= "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
      $Output &= "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
      $Output &= "PowerOnPasswordStatus: " & $objItem.PowerOnPasswordStatus & @CRLF
      $Output &= "PowerState: " & $objItem.PowerState & @CRLF
      $Output &= "PowerSupplyState: " & $objItem.PowerSupplyState & @CRLF
      $Output &= "PrimaryOwnerContact: " & $objItem.PrimaryOwnerContact & @CRLF
      $Output &= "PrimaryOwnerName: " & $objItem.PrimaryOwnerName & @CRLF
      $Output &= "ResetCapability: " & $objItem.ResetCapability & @CRLF
      $Output &= "ResetCount: " & $objItem.ResetCount & @CRLF
      $Output &= "ResetLimit: " & $objItem.ResetLimit & @CRLF
      $strRoles = $objItem.Roles(0)
      $Output &= "Roles: " & $strRoles & @CRLF
      $Output &= "Status: " & $objItem.Status & @CRLF
      $strSupportContactDescription = $objItem.SupportContactDescription(0)
      $Output &= "SupportContactDescription: " & $strSupportContactDescription & @CRLF
      $Output &= "SystemStartupDelay: " & $objItem.SystemStartupDelay & @CRLF
      $strSystemStartupOptions = $objItem.SystemStartupOptions(0)
      $Output &= "SystemStartupOptions: " & $strSystemStartupOptions & @CRLF
      $Output &= "SystemStartupSetting: " & $objItem.SystemStartupSetting & @CRLF
      $Output &= "SystemType: " & $objItem.SystemType & @CRLF
      $Output &= "ThermalState: " & $objItem.ThermalState & @CRLF
      $Output &= "TotalPhysicalMemory: " & $objItem.TotalPhysicalMemory & @CRLF
      $Output &= "UserName: " & $objItem.UserName & @CRLF
      $Output &= "WakeUpType: " & $objItem.WakeUpType & @CRLF
      $Output &= "Workgroup: " & $objItem.Workgroup & @CRLF
      if Msgbox(1,"Sortie WMI",$Output) = 2 then ExitLoop
      $Output=""
   Next
  If $Object_Flag = 0 Then Msgbox(1,"Sortie WMI",$OutputTitle)
Else
   Msgbox(0,"Sortie WMI","Aucun objets WMI trouvés pour la Classe :" & "Win32_ComputerSystem" )
Endif
Func WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

Koumla