System Info mIRC

By dronez4 on Mar 03, 2014

right click > System > System info

(22:38:59) <~dronez4> Please wait as your system info loads...

(22:39:25) <~dronez4> Host Name: DRONEZ4
(22:39:25) <~dronez4> OS Name: Microsoft© Windows VistaT Home Premium
(22:39:25) <~dronez4> OS Version: 6.0.6002 Service Pack 2 Build 6002
(22:39:25) <~dronez4> OS Manufacturer: Microsoft Corporation
(22:39:25) <~dronez4> Registered Owner: Zara
(22:39:25) <~dronez4> System Type: X86-based PC
(22:39:25) <~dronez4> Processor(s): 1 Processor(s) Installed.
(22:39:25) <~dronez4> [01]: x64 Family 6 Model 15 Stepping 13 GenuineIntel ~2200 Mhz
(22:39:25) <~dronez4> Time Zone: (GMT) Greenwich Mean Time : Dublin, Edinburgh, Lisbon, London
(22:39:25) <~dronez4> Registered Organization: Hewlett-Packard Company
(22:39:25) <~dronez4> Total Physical Memory: 3,070 MB

let me know what u think :)

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
    }
  }
}

Comments

Sign in to comment.
cnrshn   -  Mar 17, 2014

not working...

*** /remove: Dosya yok 'C:\Users\caner\Documents\Türkçe mIRC\systeminfo.txt'

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.