Windows Perl Scripting Forums

Windows Perl Scripting Forums » Perl

1. csburris
   Member

   I need to access the Win32_LogonSession object from Win32:OLE to see whether a session is running interactively. I cannot figure how the load the object. Has anyone done this? The examples I've seen show how to access OLE programs, not the session itself.
   
   Thanks

   Posted 6 years ago #

2. keydet89
   Member

   Hope this helps...
   
   
   #! c:\perl\bin\perl.exe
   
   use Win32::OLE qw(in);
   
   my $locatorObj = Win32::OLE->new('WbemScripting.SWbemLocator') || die
   "Error creating locator object: ".Win32::OLE->LastError()."\n";
   $locatorObj->{Security_}->{impersonationlevel} = 3;
   my $serverObj = $locatorObj->ConnectServer(Win32::NodeName(),'root\cimv2',"","")
   || die "Error connecting to $config{server}: ".Win32::OLE->LastError()."\n";
   
   
   foreach my $sess (in $serverObj->InstancesOf("Win32_LogonSession")) {
   print "Auth : ".$sess->{AuthenticationPackage}."\n";
   print "ID : ".$sess->{LogonId}."\n";
   print "Type : ".$sess->{LogonType}."\n";
   print "\n";
   }

   Posted 6 years ago #

3. csburris
   Member

   Well, your script works, but I wanted one that only showed my session. I've fiddled around and this one works for the current session only (the intent is to see whether the program is being run by the scheduler or interactively, and so to decide whether to use the gui or a log file for messages.
   
   Here's the program:
   
   #! c:\perl\bin\perl.exe
   
   # Print out values of the WMI Class "Win32_LogonSession"
   
   use Win32::OLE qw(in);
   $Win32::OLE::Warn = 3;
   use constant vbTab => "\x09";
   
   $strComputer = '.';
   
   # ------ Properties of Win32_LoginSession ----------------
   # string AuthenticationPackage;
   # string Caption;
   # string Description;
   # datetime InstallDate;
   # string LogonId;
   # uint32 LogonType;
   # string Name;
   # datetime StartTime;
   # string Status;
   
   
   my $datetime = Win32::OLE->new("WbemScripting.SWbemDateTime") or die;
   
   $objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
   $colOS = $objWMI->InstancesOf('Win32_LogonSession');
   foreach my $objOS (in $colOS) {
   print 'AuthenticationPackage: ' . $objOS->AuthenticationPackage, "\n";
   print 'Caption: ' . $objOS->Caption, "\n";
   print 'Description: ' . $objOS->Description, "\n";
   print 'InstallDate: ' . $objOS->InstallDate, "\n";
   print 'LogonId: ' . $objOS->LogonId, "\n";
   print 'LogonType: ' . $objOS->LogonType, "\n";
   print 'Name: ' . $objOS->Name, "\n";
   $datetime->{Value} = $objOS->StartTime;
   printf( "StartTime: %02d-%02d-%04d at %02d:%02d:%02d\n", $datetime->{Month},
   $datetime->{Day}, $datetime->{Year}, $datetime->{Hours}, $datetime->{Minutes},
   $datetime->{Seconds} );
   print 'Status: ' . $objOS->Status, "\n";
   }

   Posted 6 years ago #

RSS feed for this topic

Reply

You must log in to post.