on *:load:{
  if ($read(systeminfo.bat, w, *) == $null) {
    write systeminfo.bat systeminfo.exe> $+ $mircdir $+ systeminfo.txt
  }
}

menu * {
  System
  .System Info:{
    if ($read(systeminfo.bat, w, *) == $null) {
      write systeminfo.bat systeminfo.exe> $+ $mircdir $+ systeminfo.txt
    }
    msg $active Please wait as your system info loads... 
    set %activeinfo $active
    unset %doneinfo
    remove -b systeminfo.txt
    timer 1 1 run -n systeminfo.bat
    timer 4 60 readinfoo
  }
}

alias readinfoo {
  if ($lines(systeminfo.txt) > 7) {
    if (%doneinfo == true) { halt }
    else {
      msg %activeinfo $read(systeminfo.txt, w, * $+ Host Name: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ OS Name: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ OS Version: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ OS Manufacturer: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Registered Owner: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ System Type: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Processor(s): $+ *)
      if ($read(systeminfo.txt, w, * $+ $chr(123) $+ *)) {
        msg %activeinfo $read(systeminfo.txt, w, * $+ [01]: $+ *)
      }
      msg %activeinfo $read(systeminfo.txt, w, * $+ Time Zone: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Registered Organization: $+ *)
      msg %activeinfo $read(systeminfo.txt, w, * $+ Total Physical Memory: $+ *)
      set %doneinfo true
    }
  }
}