Need help DETECTING OS Harware / IE Version

[Pure Krome]

Hi Folks.

I'm trying to detect OS versions, including Chip type (eg. PIII), etc.

And i'm trying to detect IE Versions (eg. IE version 5.0, 5.5, 6.0, etc.)

Also, can you check if a proxy is being used by IE? and show what the proxy is.

Also, can u you check for COOKIES? and what the security level is? (ie high, medium, etc) ?

What about IP Address(s) of the computer?

This is for a support program for our office and clients, -NOT- some lamezor spam / adware crap *spits*

Thank you kindly to any help in advance.

Regards: Pure Krome.

[INF3RN0666]

Version of windows

Option Explicit
Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetVersion() As String
    Dim Ver As Long
    Dim WinVer As Long
    Ver = GetVersion()
    WinVer = Ver And &HFFFF&
    GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function
 
Private Sub Form_Load()
    MsgBox "Version: " + GetVersion
End Sub

[Hack]

1. Version of Windows

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
 
Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
 
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
 
Private Function LoWord(lngIn As Long) As Integer
   If (lngIn And &HFFFF&) > &H7FFF Then
      LoWord = (lngIn And &HFFFF&) - &H10000
   Else
      LoWord = lngIn And &HFFFF&
   End If
End Function
 
Private Function ShowWinVersion(vLabel As Label)
Dim version As OSVERSIONINFO
Dim strPlatform As String
 
    version.dwOSVersionInfoSize = Len(version)
    GetVersionEx version
 
    If version.dwPlatformId = 1 And version.dwMinorVersion = 10 And LoWord(version.dwBuildNumber) = 1998 Then
        strPlatform = "Microsoft Windows 98 "
    ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 10 And LoWord(version.dwBuildNumber) = 2222 Then
        strPlatform = "Microsoft Windows 98 SE "
    ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 90 And LoWord(version.dwBuildNumber) = 3000 Then
        strPlatform = "Microsoft Windows ME "
    ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 0 And LoWord(version.dwBuildNumber) = 950 Then
        strPlatform = "Microsoft Windows 95 "
    ElseIf version.dwPlatformId = 1 And version.dwMinorVersion = 0 And LoWord(version.dwBuildNumber) = 1111 Then
        strPlatform = "Microsoft Windows 95B "
    End If
            
    If version.dwPlatformId = 2 And version.dwMajorVersion = 3 Then
        strPlatform = "Microsoft Windows NT 3.51 "
    ElseIf version.dwPlatformId = 2 And version.dwMajorVersion = 4 Then
        strPlatform = "Microsoft Windows NT "
    ElseIf version.dwPlatformId = 2 And version.dwMajorVersion = 5 Then
        strPlatform = "Microsoft Windows 2000 "
    End If
    
   strPlatform = strPlatform & "v" & Format(version.dwMajorVersion) & "." & _
                       Format(version.dwMinorVersion) & " (Build " & LoWord(version.dwBuildNumber) & ")"
    
    vLabel.Alignment = 2
    vLabel.BackStyle = 0
    vLabel.Caption = strPlatform
End Function
 
Private Sub Form_Load()
'Developed by amitabh
    ShowWinVersion Label1
End Sub

2. IE Version

Private Declare Function DllGetVersion Lib "Shlwapi.dll" (pdvi As DLLVERSIONINFO) As Long
 
Private Const NOERROR = 0
 
Private Type DLLVERSIONINFO
    cbSize As Long
    dwMajor As Long
    dwMinor As Long
    dwBuildNumber As Long
    dwPlatformID As Long
End Type
 
Private Function GetIEVersion(MajorVer As Long, MinorVer As Long, Optional BuildVer As Long) As String
    
    Dim IEVer As DLLVERSIONINFO
    Dim CallIt As Long
    
    ' Reset version info
    MajorVer = 0
    MinorVer = 0
    BuildVer = 0
    
    ' Set the cbSize of the DLLVERSIONINFO structure as this needs to be filled
    ' before calling the version info function
    IEVer.cbSize = Len(IEVer)
    
    ' Call the function that will return the version info
    CallIt = DllGetVersion(IEVer)
    
    If CallIt = NOERROR Then
        ' Return a string and values. First the values
        With IEVer
            MajorVer = .dwMajor
            MinorVer = .dwMinor
            BuildVer = .dwBuildNumber
        End With
        ' ...and the string
        GetIEVersion = MajorVer & "." & MinorVer & "." & BuildVer
    Else
        ' There was an error.. Might be because IE isn't installed.
        GetIEVersion = "ERROR"
    End If
    
End Function
 
Private Sub Command1_Click()
Dim GetTheVer As String
Dim MyMajorVer As Long
Dim MyMinorVer As Long
Dim MyBuildVer As Long
 
' Call the GetIEVersion Function to get IE Version info
GetTheVer = GetIEVersion(MyMajorVer, MyMinorVer, MyBuildVer)
MsgBox MyMajorVer & " " & MyMinorVer & " " & MyBuildVer
 
End Sub

3. Don't know how to check the proxy information.
4. Don't know how to check the cookies.
5. Add A Winsock control to your program

Private Sub Command1_Click()
Label1.Caption = WinSock1.LocalIP
End Sub

[Pure Krome]

Thanks guys

-> Hack, i've used your code and made my own IE determining thing .. which works great. Thank you.


-> Hack and INF3RN0666: Does it determine XP?


-PK-

[Hack]

Originally posted by Pure Krome
Hack and INF3RN0666: Does it determine XP?

I don't know about XP. Based on questions I've seen posted on this forum about XP, if I can go through the rest of my career and life without ever having to deal with that OS, I will be a happy man. I recently purchased another workstation for my home. It came with XP on it. A half an hour after I booted it for the first time, it was running NT4 workstation.

[Pure Krome]

Hi guys.

wether or not we like / dislike XP, i still need to determine it.


and you traded XP for NT 4.0 ? you must be insane. at least go back to w2k. otherwise, mandrake linux....


anyways .... i still need to determine that OS.

it's a shame MS just don't release a sysinfo.dll ffs.

-PK-