Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

[TRUCO DELPHI] WMI - Nombre del Usuario actualmente en sesion.

Comenzado por sir.dev.a.lot , sep 22 2016 12:15

Por favor identifícate para responder

2 respuestas en este tema

#1 sir.dev.a.lot

Advanced Member

Miembros
545 mensajes

Location127.0.0.1

Escrito 22 septiembre 2016 - 12:15

delphi

const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT UserName FROM Win32_ComputerSystem','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  if oEnum.Next(1, FWbemObject, iValue) = 0 then
  begin
    Writeln(Format('Usuario actual logeado %s',[FWbemObject.UserName]));
    FWbemObject:=Unassigned;
  end;
end;