Register

If this is your first visit, please click the Sign Up now button to begin the process of creating your account so you can begin posting on our forums! The Sign Up process will only take up about a minute of two of your time.

Page 1 of 2 1 2 LastLast
Results 1 to 10 of 11
Like Tree1Likes

Thread: Is my computer lying to me?

  1. #1
    Member Overlord's Avatar
    Join Date
    May 2011
    Location
    Prijedor
    Posts
    86
    Member #
    27819
    Liked
    2 times
    When I first bought this computer,I believe it had 1GB of RAM..but now when I click my computer->properties it says it has 3GB of RAM.....is my comp. lying to me or it really has 3GB..
    Owner of Visual Studio

  2.  

  3. #2
    Senior Member Webzarus's Avatar
    Join Date
    May 2011
    Location
    South Carolina Coast
    Posts
    3,322
    Member #
    27709
    Liked
    770 times
    Is it saying 3 gb of physical ram ? Ot total ? Perhaps you have 2gb of virtual ram ( swap disk ) that it's reporting. If it says 3 gb of physical, then that's what it has. No way to trick it into thinking it has more than it does. If it says total, then it might be adding virtual to physical for that number.

  4. #3
    WDF Staff m3n0tu18's Avatar
    Join Date
    Jul 2011
    Location
    Devon, UK
    Posts
    1,466
    Member #
    28473
    Liked
    264 times
    Give this a shot. create a text file and rename from .txt to .vbs and insert the code. All you gotta know is the name of your pc / laptop. It will tell you the exact ram size in an excel spreadsheet.

    Code:
    On Error Resume Next
    
    Dim arrTemp(5)
    
    strExcelFile = "c:\temp\excel.xls"
    strOutputFile = "c:\temp\results.txt"
    
    strInputFile = InputBox("Where is the file containing the computer names?",vbOkOnly+vbInformation,"C:\temp\computers.txt")
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    set objInputFile = objFSO.OpenTextFile(strInputFile)
    Set objOutputFile = objFSO.CreateTextFile(strOutputFile)
    allComputers = objInputFile.ReadAll()
    arrComputers = split(allComputers, vbCrLf)
    
    For Each strComputer in arrComputers
       arrTemp(0) = strComputer
       Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    
       Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
       For Each objItem in colItems
           arrTemp(1) = objItem.SerialNumber
       Next
    
       set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
       For Each objItem2 in colItems2
           arrTemp(2) = objItem2.UserName
           arrTemp(3) = objItem2.Model
       Next
    
       Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
       For Each objItem In colItems
          arrTemp(4) = FormatNumber(objItem.TotalVisibleMemorySize / 1024 / 1024, 2) & "GB"
       Next
    
       Set colLoggedEvents = objWMIService.ExecQuery("SELECT * FROM Win32_NTLogEvent WHERE LogFile = 'System' AND EventCode = 6005 AND TimeWritten >= '" & strDateFrom & "'", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
       strTimeNow = CDate(Year(Now) & "/" & Pad_String(Month(Now), 2, "Left", "0") & "/" & Pad_String(Day(Now), 2, "Left", "0") & " " & Pad_String(Hour(Now), 2, "Left", "0") & ":" & Pad_String(Minute(Now), 2, "Left", "0") & ":" & Pad_String(Second(Now), 2, "Left", "0"))
       strLastBootTime = GetBootUpTime(strComputer)
       strLastBootTime = CDate(Left(strLastBootTime, 4) & "/" & Mid(strLastBootTime, 5, 2) & "/" & Mid(strLastBootTime, 7, 2) & " " & Mid(strLastBootTime, 9, 2) & ":" &  Mid(strLastBootTime, 11, 2) & ":" & Mid(strLastBootTime, 13, 2))
       strUpTime = DateDiff("s", strLastBootTime, strTimeNow)
       strUpTime = FromSecondsTo_HH_MM_SS(CDate(strLastBootTime), CDate(strTimeNow))
       arrTemp(5) = strUpTime
    
       objOutputFile.WriteLine Join(arrTemp, ",")
    Next
    
    objOutputFile.Close
    Call CreateExcelFromTextFile(strOutputFile, strExcelFile)
    
    msgBox "Script finished. Results can be found at C:\results.txt",vbOkOnly+vbInformation,"Finished"
      
    Function GetBootUpTime(strComputer)
        Dim objItem
        Dim objWMIService, colItems
        Dim strBootUpTime
    
          Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
          Set colItems = objWMIService.ExecQuery("Select LastBootUpTime from Win32_OperatingSystem",,48)
          On Error Resume Next
          For Each objItem in colItems
                If Err Then
                      strBootUpTime = "ERROR"
                Else
                      strBootUpTime =  Left(objItem.LastBootUpTime, InStr(objItem.LastBootUpTime, ".") -1)
                End If
          Next
          On Error GoTo 0
    
          GetBootUpTime = strBootUpTime
    End Function
    
    Function Pad_String(strOriginalString, intTotalLengthRequired, strDirection, strCharacterToPadWith)
          'Declare variants used in this function.
          Dim intPadCount, strPadding
    
          'Convert imput direction to lower case.
          strDirection = LCase(strDirection)
    
          'Trim input string if larger than pad length
          If (Len(strOriginalString) > intTotalLengthRequired) Then
                strOriginalString = Left(strOriginalString, intTotalLengthRequired)
          End If
    
          'Take first character if input pad character is more than a single character.
          If (Len(strCharacterToPadWith) > 1) Then
                strCharacterToPadWith = Left(strCharacterToPadWith, 1)
          End If
    
          'Generate padding string
          For intPadCount = 1 to intTotalLengthRequired - Len(strOriginalString)
                strPadding = strCharacterToPadWith & strPadding
          Next
    
          If strDirection <> "left" And strDirection <> "right" Then
                strDirection = "right"
          End If
    
          'Return padded string based on direction.
          Select Case strDirection
                Case "left"
                      Pad_String = strPadding & strOriginalString
                Case "right"
                      Pad_String = strOriginalString & strPadding
          End Select
    End Function
    
    Function FromSecondsTo_HH_MM_SS(dt1, dt2)
          Dim seconds, hours, minutes
        If (isDate(dt1) And IsDate(dt2)) = false Then
            FromSecondsTo_HH_MM_SS = "00:00:00"
            Exit Function
        End If
    
        seconds = Abs(DateDiff("S", dt1, dt2))
        minutes = seconds \ 60
        hours = minutes \ 60
        minutes = minutes mod 60
        seconds = seconds mod 60
    
        if len(hours) = 1 then hours = "0" & hours
    
        FromSecondsTo_HH_MM_SS = hours & ":" & _
            RIGHT("00" & minutes, 2) & ":" & _
            RIGHT("00" & seconds, 2)
    End Function
    
    Function CreateExcelFromTextFile(strTextFile, strExcelFile)
    Const xlWindows = 2
    Const xlDelimited = 1
    Const xlTextQualifierDoubleQuote = 1
    Const xlNormal = -4143
    
    Dim objExcel
    Set objExcel = CreateObject("Excel.Application")
    
    objExcel.Visible = False
    objExcel.Workbooks.OpenTextstrTextFile, xlWindows, 1, _
    xlDelimited, xlTextQualifierDoubleQuote, False, _
    False, False, True, _
    False, False, , _
    , , , , True
    objExcel.DisplayAlerts = False
    objExcel.ActiveWorkbook.SaveAs strExcelFile, xlNormal, "", "", False, False
    objExcel.DisplayAlerts = True
    objExcel.ActiveWorkbook.Close False
    objExcel.Quit
    End Function
    If you like my comments to your thread please click the LIKE button

    Check out my portfolio: Here!
    View my company Facebook Page
    View my company Website

    <<Plrease ignoer my typo's I have isdexlyia>>

  5. #4
    Senior Member Webzarus's Avatar
    Join Date
    May 2011
    Location
    South Carolina Coast
    Posts
    3,322
    Member #
    27709
    Liked
    770 times
    Or just look at the suystem info applet. It breaks down memory by types.

  6. #5
    WDF Staff Wired's Avatar
    Join Date
    Apr 2003
    Posts
    7,656
    Member #
    1234
    Liked
    137 times
    You have 3 GB of memory. You can always download CPU-Z and look at the memory there (IGNORE THE SPD TAB).
    The Rules
    Was another WDF member's post helpful? Click the like button below the post.

    Admin at houseofhelp.com

  7. #6
    WDF Staff George Dolidze's Avatar
    Join Date
    Apr 2011
    Location
    Irvine, CA
    Posts
    2,487
    Member #
    27540
    Liked
    416 times
    Or.. you can open up the compy and look at its innards.
    My freelancer website: DolidzeDesign



    You only need a parachute if you plan on skydiving twice.

  8. #7
    Senior Member chrisHPZ's Avatar
    Join Date
    Aug 2011
    Location
    Ohio
    Posts
    133
    Member #
    28760
    Liked
    31 times
    If you have Flash CS.whatever and it loads within a few seconds, you have some serious RAM. My laptop takes over 10 seconds to load Flash CS5 or AfterEffects CS5. But my HP Z computer does it in about 3 seconds. Ain't that sumthin' special.

  9. #8
    Member Overlord's Avatar
    Join Date
    May 2011
    Location
    Prijedor
    Posts
    86
    Member #
    27819
    Liked
    2 times
    It takes like 3 seconds to open Flash or Photoshop...but when I opet Sony Vegas,it takes more than a minute to open it...
    Owner of Visual Studio

  10. #9
    Junior Member
    Join Date
    Sep 2011
    Posts
    5
    Member #
    29444
    Liked
    1 times
    Yes, your computer is lying to you. It is telling you that you have 3GB of RAM when in fact you have only 1GB so you'll waste money buying software you can't run, tear your hear out, think you are going crazy, and either throw your computer out the window or run away and join an ashram.

    (No, it probably is the hard/virtual thing.)
    AlphaMare likes this.

  11. #10
    Junior Member
    Join Date
    Feb 2014
    Location
    United Arab Emirates
    Posts
    25
    Member #
    38444
    Liked
    2 times
    So what.? This is a good news for you enjoy :P


Page 1 of 2 1 2 LastLast

Remove Ads

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
All times are GMT -6. The time now is 11:58 PM.
Powered by vBulletin® Version 4.2.3
Copyright © 2019 vBulletin Solutions, Inc. All rights reserved.
vBulletin Skin By: PurevB.com