Hvordan finder operativ system version

MsgBox "Welcome to Microsoft Excel version " & _
    Application.Version & " running on " & _
    Application.OperatingSystem & "!"

Nå det var Word

MsgBox "Welcome to Microsoft Word version " & _
    Application.Version & " running on " & _
  System.OperatingSystem & "!"

Når jeg køre kodet kommer fejlen "object required"
Skal Application ikke erklæres først?

Prøv App.Version

du behøver kun

  a = System.OperatingSystem
  MsgBox a

for at finde Windowsversionen

a= System.operatingSystem  ' Windows NT
    a = Application.Version    ' Word version
det er ellers fint nok...men jeg har lavet noget der kan finde om det windows XP eller Windows 2000 OS ved at gå ind i regedit...
tak ellers....har jeg ellers et andet problem..

Lille VBscript håber det hjælper.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.Caption, objOperatingSystem.Version
Next


eller




strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
'Wscript.Echo "Boot Device: " & objOperatingSystem.BootDevice
'Wscript.Echo "Build Number: " & objOperatingSystem.BuildNumber
'Wscript.Echo "Build Type: " & objOperatingSystem.BuildType
'Wscript.Echo "Caption: " & objOperatingSystem.Caption
'Wscript.Echo "Code Set: " & objOperatingSystem.CodeSet
'Wscript.Echo "Country Code: " & objOperatingSystem.CountryCode
'Wscript.Echo "Debug: " & objOperatingSystem.Debug
'Wscript.Echo "Install Date: " & objOperatingSystem.InstallDate
'Wscript.Echo "Licensed Users: " & _
'objOperatingSystem.NumberOfLicensedUsers
Wscript.Echo "Organization: " & objOperatingSystem.Organization
'Wscript.Echo "OS Language: " & objOperatingSystem.OSLanguage
'Wscript.Echo "OS Product Suite: " & objOperatingSystem.OSProductSuite
'Wscript.Echo "OS Type: " & objOperatingSystem.OSType
'Wscript.Echo "Primary: " & objOperatingSystem.Primary
Wscript.Echo "Registered User: " & objOperatingSystem.RegisteredUser
'Wscript.Echo "Serial Number: " & objOperatingSystem.SerialNumber
'Wscript.Echo "Version: " & objOperatingSystem.Version
Next