Detect which version of Windows is running

[GraeagleBill]

Name: WinVersion.jpg  Views: 15  Size: 75.0 KB  ID: 10528" class="thumbnail" style="float:CONFIG" />

The code above bombs on the "Set CN = GetObject("LDAP://" & ADSI.ComputerName)"

What am I missing? OR, is there a simple way to distinguish between XP and Win 7? [I need to shell to an app that's either in Program Files or Program Files (x86)] I know I can just look for the directory, but the question of Windows version holds some added interest.

Thanks,
Bill

[ssanfu]

I have Win XP Pro/ Access 2000

I entered in your code and it doesn't bomb for me. It returns:

"Windows XP Professional
5.1 (2600)"

I added this "& vbCrLf & CN.operatingsystemservicepack" to the OSInfo = line and it returns

"Service Pack 3"


Here is the code I used:

Option Compare Database
Option Explicit

Sub MyVer()
   MsgBox OSInfo
End Sub

Public Function OSInfo() As String
   Dim ADSI As Object, CN As Object

   Set ADSI = CreateObject("ADSystemInfo")
   Set CN = GetObject("LDAP://" & ADSI.computername)
   OSInfo = CN.operatingsystem & vbCrLf & CN.operatingsystemversion & vbCrLf & CN.operatingsystemservicepack

   Set CN = Nothing
   Set ADSI = Nothing

End Function

I removed all of the references I could and it still wouldn't bomb...




EDIT:
Re-read your error message. I am on a domain, but I am a full administrator.

[GraeagleBill]

Thanks Steve, but I still can't get by the offending statement:

Set CN = GetObject("LDAP://" & ADSI.computername)

Bill