Friday, April 24, 2020

Periksa Jumlah Ram Dan Kelajuan Internet






;;; Copy Paste Inside Your Remote Section
alias wmi.memory {
  var %TMemory $wmi(Win32_OperatingSystem).TotalVisibleMemorySize
  var %FMemory $wmi(Win32_OperatingSystem).FreePhysicalMemory
  var %TotalMemory $bytes($calc(%TMemory *1024),3).suf
  return Free Memory: $ceil($calc(100-(%FMemory * 100) / %TMemory)) $+ % $chr(91) $+ $bytes($calc(%FMemory *1024),3).suf / %TotalMemory $+ $chr(93)
  ;; //say $wmi.memory
}
alias wmi.bandwidth {
  var %BytesReceived $wmi(Win32_PerfRawData_Tcpip_NetworkInterface).BytesReceivedPersec
  var %BytesReceived $bytes($calc(%BytesReceived + $wmi(Win32_PerfRawData_Tcpip_NetworkInterface,2).BytesReceivedPerSec)).suf
  var %BytesSent $wmi(Win32_PerfRawData_Tcpip_NetworkInterface).BytesSentPerSec)
  %BytesSent = $bytes($calc(%BytesSent + $wmi(Win32_PerfRawData_Tcpip_NetworkInterface,2).BytesSentPerSec)).suf
  var %BytesTotal $wmi(Win32_PerfRawData_Tcpip_NetworkInterface).BytesTotalPerSec
  %BytesTotal = $bytes($calc(%BytesTotal + $wmi(Win32_PerfRawData_Tcpip_NetworkInterface,2).BytesTotalPerSec)).suf
  var %Bandwidth $wmi(Win32_PerfRawData_Tcpip_NetworkInterface).CurrentBandwidth
  %Bandwidth = $calc(%Bandwidth + $wmi(Win32_PerfRawData_Tcpip_NetworkInterface,2).CurrentBandwidth /100000)
  return Send: %BytesSent $+ , Received: %BytesReceived $+ , Total: %BytesTotal [Bandwidth: $+(%Bandwidth,KBps) $+ ]
  ;; //say $wmi.bandwidth
}
alias F6 me $wmi.memory
alias F5 me $wmi.bandwidth

;;;; Credit to Unclean ;;;;

0 comments :

Post a Comment


Klik Skin Kiri Untuk Besarkan Ruangan Chat