如何取得当前操作系统版本和当前桌面路径？

Question

如何取得当前操作系统版本和当前桌面路径
如果用到API最好给个例子

Answer 1

For Each objOS in GetObject( _
    "winmgmts:").InstancesOf ("Win32_OperatingSystem")WScript.Echo "Name = " & objOS.Caption _
    & "Version = " & objOS.Version &VBCR _
    & "Registered User = " & objOS.RegisteredUser &VBCR _
    & "Manufacturer = " & objOS.Manufacturer      
Nextif Err <> 0 Then
    WScript.Echo Err.Description
    Err.Clear
End if

Answer 2

http://search.csdn.net/Expert/topic/2217/2217726.xml?temp=.5546076http://search.csdn.net/Expert/topic/966/966513.xml?temp=.1306269

Answer 3

getversionex:读取windows的版本。declear function getversionex lib "kernel32" alias "getversionexa" (lpversioninformation as osversioninfo) as booleanlpversionindormation:用来接受windows所填入的版本消息，其数据结构如下：
type osversioninfo
    dwosversioninfosize as long '此数据结构的大小
    dwmajorversion as long '版本主编号
    dwminorversion as long '版本次编号
    dwbulidnumber as long  '版本建立编号
    dwplatformid as long   '作业平台
    szcsdversion as string*128 '版本进一步说明
end typedwlatformid：ver_platform_win32s(=0) win32s,可在win 3.1下执行32位应用程序的平台。
             ver_platform_win32_windows(=1) windows95或98。
             ver_platform_win32_nt(=2) windows nt例：
dim ver as osversioninfo
ver.dwosversioninfosize=len(ver)
getversionex ver