Friday, April 24, 2020
Periksa Jumlah Ram Dan Kelajuan Internet
Published :
April 24, 2020
Author :
Ace
;;; 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 ;;;;
Subscribe to:
Post Comments
(
Atom
)
0 comments :
Post a Comment