Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 339,903 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 2,565 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Get Windows Experience Index base score for Vista

Get a string representation of Vista's Windows Experience Index base score.

Submitted By: RodgerB

Actions:

Rating:

Views: 2,732

Language: VB.NET

Last Modified: January 1, 1970

Instructions: 1) Copy and paste this function into the Form's class. 2) Read how to call the function.

Snippet

''' <summary>
''' Gets the base score of a computer running Windows Vista or higher.
''' </summary>
''' <returns>The String Representation of Score, or False.</returns>
''' <remarks></remarks>
Public Function GetBaseScore() As String
' Check if the computer has a \WinSAT dir.
If System.IO.Directory.Exists("C:\Windows\Performance\WinSAT\DataStore") Then
' Our method to get the most recently updated score.
' Because the program makes a new XML file on every update of the score,
' we need to calculate the most recent, just incase the owner has upgraded.
Dim Dir As New IO.DirectoryInfo("C:\Windows\Performance\WinSAT\DataStore")
Dim fileDir() As IO.FileInfo
Dim fileMostRecent As IO.FileInfo
Dim LastAccessTime As Date
Dim LastAccessPath As String = ""
fileDir = Dir.GetFiles
' Loop through the files in the \WinSAT dir to find the newest one.
For Each fileMostRecent In fileDir
If fileMostRecent.LastAccessTime >= LastAccessTime Then
LastAccessTime = fileMostRecent.LastAccessTime
LastAccessPath = fileMostRecent.FullName
End If
Next
' Create an XmlTextReader instance.
Dim xmlReadScore As New System.Xml.XmlTextReader(LastAccessPath)
' Disable whitespace handling so we don't read over them
xmlReadScore.WhitespaceHandling = System.Xml.WhitespaceHandling.None
' We need to get to the 25th tag, "WinSPR".
For I As Integer = 0 To 26
xmlReadScore.Read()
Next
' Create a string variable, so we can clean up without any mishaps.
Dim SystemScore As String = xmlReadScore.ReadElementString("SystemScore")
' Clean up.
xmlReadScore.Close()
Return SystemScore ' Return the String representation of the Base Score.
End If
' Unsuccessful.
Return False
End Function
' How to call this function.
' (copy and paste this information into a subroutine).
Dim BaseScore As String = GetBaseScore()
MsgBox(BaseScore)

Copy & Paste

''' <summary>
''' Gets the base score of a computer running Windows Vista or higher.
''' </summary>
''' <returns>The String Representation of Score, or False.</returns>
''' <remarks></remarks>

Public Function GetBaseScore() As String

' Check if the computer has a \WinSAT dir.
    If System.IO.Directory.Exists("C:\Windows\Performance\WinSAT\DataStore") Then

' Our method to get the most recently updated score.
        ' Because the program makes a new XML file on every update of the score,
        ' we need to calculate the most recent, just incase the owner has upgraded.

Dim Dir As New IO.DirectoryInfo("C:\Windows\Performance\WinSAT\DataStore")
        Dim fileDir() As IO.FileInfo
        Dim fileMostRecent As IO.FileInfo
        Dim LastAccessTime As Date
        Dim LastAccessPath As String = ""
        fileDir = Dir.GetFiles

' Loop through the files in the \WinSAT dir to find the newest one.

For Each fileMostRecent In fileDir
            If fileMostRecent.LastAccessTime >= LastAccessTime Then
                LastAccessTime = fileMostRecent.LastAccessTime
                LastAccessPath = fileMostRecent.FullName
            End If
        Next

' Create an XmlTextReader instance.
        Dim xmlReadScore As New System.Xml.XmlTextReader(LastAccessPath)
 
        ' Disable whitespace handling so we don't read over them
        xmlReadScore.WhitespaceHandling = System.Xml.WhitespaceHandling.None

' We need to get to the 25th tag, "WinSPR".
        For I As Integer = 0 To 26
            xmlReadScore.Read()
        Next

' Create a string variable, so we can clean up without any mishaps.
        Dim SystemScore As String = xmlReadScore.ReadElementString("SystemScore")
        ' Clean up.
        xmlReadScore.Close()

Return SystemScore ' Return the String representation of the Base Score.
    End If
   
    ' Unsuccessful.
    Return False
End Function

' How to call this function.
' (copy and paste this information into a subroutine).
Dim BaseScore As String = GetBaseScore()
MsgBox(BaseScore)