//'***********************************************************************
//'     DISPLAYED WITH PERMISSION OF ROY SCOTT ENTERPRISES
//'     AND THE AUTHOR AS AN ARCHIVING FUNCTION
//'                  http://www.scottserver.net/forum/index.php
//'     ALL RIGHTS RESERVED
//'************************************************************************
//'     MINOR EDITING PERFORMED BY UPLA STAFF
//'************************************************************************

//docmann
//Microdeveloper


//Here is some older code that I posted elsewhere that probably should be re-tested on other win 
//versions other than XP: 

//Code: 

// // *** Variable Declarations **** 
Declare $NumProc$,$Proc_ID$,$OS$,$Uname$. 
Declare $HmPath$,$SysPath$,$SysExec$. 

// Build the parent window, set caption and style 
  ?WINDOW Main,20,20,650,200 
  {Main>$Caption$}="My System Info:". 
  {Main>%Style%} = '4'. 

// Define, position and display descriptive labels 
  ?LABEL Main>ProcCount,10,10,100,20 
  ?LABEL Main>ProcID,10,30,100,20 
  ?LABEL Main>OSID,10,50,100,20 
  ?LABEL Main>UserName,10,70,100,20 
  ?LABEL Main>HomePath,10,90,100,20 
  ?LABEL Main>SysPath,10,110,100,20 
  ?LABEL Main>SysExe,10,130,100,20 

// Define and set positions for sysinfo labels 
  ?LABEL Main>ProcCountDetails,115,10,100,20 
  ?LABEL Main>ProcIDDetails,115,30,250,20 
  ?LABEL Main>OSIDDetails,115,50,250,20 
  ?LABEL Main>UserNameDetails,115,70,250,20 
  ?LABEL Main>HomePathDetails,115,90,250,20 
  ?LABEL Main>SysPathDetails,115,110,550,20 
  ?LABEL Main>SysExeDetails,115,130,350,20 

// Set Descriptive Label Captions 
  {Main>ProcCount>$Caption$} ="System Processors:". 
  {Main>ProcID>$Caption$} ="Processor Info:". 
  {Main>OSID>$Caption$} ="Operating System:". 
  {Main>UserName>$Caption$} ="Current User:". 
  {Main>HomePath>$Caption$} ="Home Path:". 
  {Main>SysPath>$Caption$} ="System Path:". 
  {Main>SysExe>$Caption$} ="System Executables:". 

// Retrieve our system environment variables 
  $Env $NumProc$ = "NUMBER_OF_PROCESSORS". 
  $Env $Proc_ID$ = "PROCESSOR_IDENTIFIER". 
  $Env $OS$ = "OS". 
  $Env $Uname$ = "USERNAME". 
  $Env $HmPath$ = "HOMEPATH". 
  $Env $SysPath$ = "PATH". 
  $Env $SysExec$ = "PATHEXT". 

// Display system environment variables in previously defined labels 
  {Main>ProcCountDetails>$Caption$} =$NumProc$. 
  {Main>ProcIDDetails>$Caption$} =$Proc_ID$. 
  {Main>OSIDDetails>$Caption$} =$OS$. 
  {Main>UserNameDetails>$Caption$} =$Uname$. 
  {Main>HomePathDetails>$Caption$} =$HmPath$. 
  {Main>SysPathDetails>$Caption$} =$SysPath$. 
  {Main>SysExeDetails>$Caption$} =$SysExec$. 


@ShowWindow {Main}. 
 @WaitEvent. 
End.