ToKicoBrothers Posted May 27, 2007 Share Posted May 27, 2007 (edited) Know PCInfo? Here's second version (1.1): expandcollapse popup;~ Name: PCInfo 1.1 ;~ Author: ToKicoBrothers ;~ tokico.pt@gmail.com ;~ Description: This script gives you information about your PC. #include <GUIConstants.au3> $totaldrivespace = Round (DriveSpaceTotal ( "C:/" ) / 1024, 2) $freedrivespace = Round (DriveSpaceFree ( "C:/" ) / 1024, 2) $drivespace = $freedrivespace & " GB / " & $totaldrivespace & " GB" $driveserialno = DriveGetSerial ( "C:/" ) $drivefilesys = DriveGetFileSystem ("C:/") $memorystats = MemGetStats () $desktopsize = @DesktopWidth & "x" & @DesktopHeight $ramtotalspace = Round($memorystats[1] / 1024, 1) $ramavaliablespace = Round($memorystats[2] / 1024, 1) $ramspace = $ramavaliablespace & "MB / " & $ramtotalspace & "MB" $pagefiletotalspace = Round($memorystats[3] / 1024, 0) $pagefileavaliablespace = Round($memorystats[4] / 1024, 0) $pagefilespace = $pagefileavaliablespace & "MB / " & $pagefiletotalspace & "MB" $virtualavaliable = Round($memorystats[6] / 1024, 0) $processorspeed = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor", "~MHz") & " MHz" $processorname = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor", "processornamestring") $ieversion = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer", "Version") $processorvendor = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor", "VendorIdentifier") #Region ### START Koda GUI section ### $Form1 = GUICreate("PCInfo 1.1", 482, 346, 276, 134) $disk = GUICtrlCreateGroup("Drive", 8, 8, 465, 65) $Label1 = GUICtrlCreateLabel("Drive Space", 88, 24, 63, 17) $Input1 = GUICtrlCreateInput($drivespace, 64, 40, 121, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label2 = GUICtrlCreateLabel("Drive File System", 208, 24, 85, 17) $Input2 = GUICtrlCreateInput($drivefilesys, 224, 40, 57, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label3 = GUICtrlCreateLabel("Drive Serial Number", 320, 24, 94, 17) $Input3 = GUICtrlCreateInput($driveserialno, 320, 40, 89, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) GUICtrlCreateGroup("", -99, -99, 1, 1) $memory = GUICtrlCreateGroup("Memory", 8, 80, 465, 81) $Progress1 = GUICtrlCreateProgress(18, 103, 117, 16) GUICtrlSetData(-1, 25) $Label4 = GUICtrlCreateLabel("Memory Usage: " & $memorystats[0] & "%", 24, 128, 101, 17) $Label6 = GUICtrlCreateLabel("RAM Space", 181, 104, 105, 17) $Input4 = GUICtrlCreateInput($ramspace, 155, 129, 105, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label5 = GUICtrlCreateLabel("Page File", 301, 104, 48, 17) $Input5 = GUICtrlCreateInput($pagefilespace, 275, 129, 105, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label7 = GUICtrlCreateLabel("Virtual Available", 384, 104, 79, 17) $Input6 = GUICtrlCreateInput($virtualavaliable, 395, 129, 57, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) GUICtrlSetData(-1, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $computer = GUICtrlCreateGroup("Computer", 8, 168, 313, 169) $Label8 = GUICtrlCreateLabel("Desktop Size", 19, 192, 67, 17) $Input7 = GUICtrlCreateInput($desktopsize, 16, 208, 73, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label9 = GUICtrlCreateLabel("Operative System", 115, 192, 87, 17) $Input8 = GUICtrlCreateInput(@OSVersion, 96, 208, 137, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label10 = GUICtrlCreateLabel("Processor Arch.", 240, 192, 79, 17) $Input9 = GUICtrlCreateInput(@ProcessorArch, 260, 208, 33, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label13 = GUICtrlCreateLabel("Processor Speed", 227, 288, 85, 17) $Input12 = GUICtrlCreateInput($processorspeed, 232, 304, 73, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label14 = GUICtrlCreateLabel("Processor Vendor", 27, 288, 88, 17) $Input13 = GUICtrlCreateInput($processorvendor, 16, 304, 113, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Input14 = GUICtrlCreateInput($processorname, 64, 264, 201, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label15 = GUICtrlCreateLabel("Processor Name", 123, 240, 82, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $versions = GUICtrlCreateGroup("Versions", 328, 168, 145, 81) $Label11 = GUICtrlCreateLabel("AutoIt", 336, 192, 32, 17) $Input10 = GUICtrlCreateInput(@AutoItVersion, 392, 189, 65, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $Label12 = GUICtrlCreateLabel("IE", 336, 216, 14, 17) $Input11 = GUICtrlCreateInput($ieversion, 360, 213, 97, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label16 = GUICtrlCreateLabel("PCInfo 1.1", 336, 280, 129, 31) GUICtrlSetFont(-1, 18, 400, 0, "NimbusSanTBla") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 GUICtrlSetData ($Progress1, $memorystats[0]) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd I'm open to comments, suggestions and bugs! PCInfo_1.1.au3 Edited May 27, 2007 by ToKicoBrothers Synapsee 1 My Scripts: SimplePlayer 1.0 - A very simple music player. PCInfo 1.2 - A script that displays PC information. Link to comment Share on other sites More sharing options...
James Posted May 27, 2007 Share Posted May 27, 2007 Why didnt you just update your first post? Anyways, nice and simple. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
star2 Posted May 28, 2007 Share Posted May 28, 2007 I'm open to comments, suggestions and bugs! Processor Serial No is what I realy need :"> [quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u] Link to comment Share on other sites More sharing options...
i542 Posted May 28, 2007 Share Posted May 28, 2007 Why didnt you just update your first post?Post counter means everything, Secure!Processor Serial No is what I realy needLOLi542 I can do signature me. Link to comment Share on other sites More sharing options...
jvanegmond Posted May 28, 2007 Share Posted May 28, 2007 ToKicoBrothers, are you really brothers? That was weird... github.com/jvanegmond Link to comment Share on other sites More sharing options...
ToKicoBrothers Posted May 29, 2007 Author Share Posted May 29, 2007 ToKicoBrothers, are you really brothers?That was weird...Yes, WE are brothers! My Scripts: SimplePlayer 1.0 - A very simple music player. PCInfo 1.2 - A script that displays PC information. Link to comment Share on other sites More sharing options...
ToKicoBrothers Posted May 29, 2007 Author Share Posted May 29, 2007 Processor Serial No is what I realy need :In the next version I'll include Processor Serial No (Unique ID) My Scripts: SimplePlayer 1.0 - A very simple music player. PCInfo 1.2 - A script that displays PC information. Link to comment Share on other sites More sharing options...
PartyPooper Posted May 31, 2007 Share Posted May 31, 2007 Type of graphics card, as well as, LAN card would be nice. Displaying the graphics card and LAN card Unique ID's would be handy too. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now