找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 请各位大大看如何获取得操作系统的版本函数？ ...
返回列表 发新帖
查看: 3168|回复: 7

[AU3基础] 请各位大大看如何获取得操作系统的版本函数？

 火 [复制链接]
jonyzhr
发表于 2010-8-3 18:52:57 | 显示全部楼层 |阅读模式
要以：“Windows 7 简体中文 32位” 要是XP加上SP3或SP2
以下是我自己的函数，如有更好的函数，麻烦多谢共享一下
;获取操作系统信息
Func _SYSTEM()
        ;++++++++++++++++++++++++++++++++
        ;本函数返回操作系统类型的详细信息
        ;++++++++++++++++++++++++++++++++
        Local $SysTem = "" ;操作系统的全部名称
        Local $SysTemVersion = "" ;操作系统的版本
        Local $SysTemLanguage = "" ;操作系统的语言
        Local $SysTemArch = "" ;操作系统的位宽
        If @OSType = "WIN32_NT" Then ;判断是否为winNT系统,不是则退出
                $SysTemVersion = StringSplit(@OSVersion, "_") ;取操作系统的版本
                If @error Then Exit ;如果取不到操作系统的版本则退出
                $SysTem = "Windows " & $SysTemVersion[2] & " " & @OSServicePack & " "
                Select ;选取操作系统语言
                        Case StringInStr("0404", @OSLang)
                                $SysTemLanguage = "中国(台湾)"
                        Case StringInStr("0804", @OSLang)
                                $SysTemLanguage = "简体中文"
                        Case StringInStr("0c04", @OSLang)
                                $SysTemLanguage = "繁体中文"
                        Case StringInStr("1004", @OSLang)
                                $SysTemLanguage = "中国(新加坡)"
                        Case StringInStr("1404", @OSLang)
                                $SysTemLanguage = "中国(澳门)"
                        Case StringInStr("0413 0813", @OSLang)
                                $SysTemLanguage = "Holland"
                        Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
                                $SysTemLanguage = "English"
                        Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
                                $SysTemLanguage = "French"
                        Case StringInStr("0407 0807 0c07 1007 1407", @OSLang)
                                $SysTemLanguage = "Germany"
                        Case StringInStr("0410 0810", @OSLang)
                                $SysTemLanguage = "Italy"
                        Case StringInStr("0414 0814", @OSLang)
                                $SysTemLanguage = "Norway"
                        Case StringInStr("0415", @OSLang)
                                $SysTemLanguage = "Poland"
                        Case StringInStr("0416 0816", @OSLang)
                                $SysTemLanguage = "Portugal"
                        Case StringInStr("040a 080a 0c0a 100a 140a 180a 1c0a 200a 240a 280a 2c0a 300a 340a 380a 3c0a 400a 440a 480a 4c0a 500a", @OSLang)
                                $SysTemLanguage = "Spain"
                        Case StringInStr("041d 081d", @OSLang)
                                $SysTemLanguage = "Sweden"
                        Case Else
                                $SysTemLanguage = "其他语言"
                EndSelect
                Select ;选取操作系统位宽
                        Case StringInStr("X86", @OSArch)
                                $SysTemArch = "32位"
                        Case StringInStr("IA64 X64", @OSArch)
                                $SysTemArch = "64位"
                EndSelect
                $SysTem = $SysTem & $SysTemLanguage & " " & $SysTemArch
        Else
                $SysTem = "获取操作系统出错,原因不是winNT系统!"
        EndIf
        Return $SysTem
EndFunc   ;==>_SYSTEM
操作系统, 函数, 获取

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
ivanpg
发表于 2010-8-3 20:56:52 | 显示全部楼层
我绝得你这个已经是很好了，，根据帮助里面的改编过来的吧。。
回复

举报

3mile
发表于 2010-8-3 21:47:59 | 显示全部楼层
wmi获取即可。
__wmi_Win32_OperatingSystem()
Func __wmi_Win32_OperatingSystem()
        Local $wbemFlagReturnImmediately = 0x10
        Local $wbemFlagForwardOnly = 0x20
        Local $colItems = ""
        Local $strComputer = "localhost"

        Local $Output=""
        $Output &= "Computer: " & $strComputer  & @CRLF
        $Output &= "==========================================" & @CRLF
        Local $objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

        If IsObj($colItems) then
           For $objItem In $colItems
              $Output &= "名称: " & $objItem.Caption & @CRLF
              $Output &= "版本: " & $objItem.CSDVersion & @CRLF
              $Output &= "系统安装时间: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
              $Output &= "开机时间: " & WMIDateStringToDate($objItem.LastBootUpTime) & @CRLF
              $Output &= "区码: " & $objItem.Locale & @CRLF
                     Local $strMUILanguages = $objItem.MUILanguages(0)
              $Output &= "语言: " & $strMUILanguages & @CRLF
              $Output &= "操作系统构架: " & $objItem.OSArchitecture & @CRLF
              $Output &= "序列号: " & $objItem.SerialNumber & @CRLF
              $Output &= "系统设备: " & $objItem.SystemDevice & @CRLF
              $Output &= "系统目录: " & $objItem.SystemDirectory & @CRLF
              $Output &= "系统盘符: " & $objItem.SystemDrive & @CRLF
              $Output &= "操作系统版本号: " & $objItem.Version & @CRLF
              if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
              $Output=""
           Next
        Else
           Msgbox(0,"WMI 输出","没有在类 " & "Win32_OperatingSystem" & "中找到WMI对象" )
        Endif
EndFunc


Func WMIDateStringToDate($dtmDate)

        Return (StringMid($dtmDate, 5, 2) & "/" & _
        StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
        & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

回复

举报

wanhua8u8
发表于 2010-8-3 22:07:09 | 显示全部楼层
@OSServicePack 服务包
if @OSServicePack='' then $sp="" 
if @OSServicePack='Service Pack 1' then $sp="SP1" 
if @OSServicePack='Service Pack 2' then $sp="SP2" 
if @OSServicePack='Service Pack 3' then $sp="SP3" 
if @OSServicePack='Service Pack 4' then $sp="SP4"
回复

举报

netegg
发表于 2010-8-3 22:52:44 | 显示全部楼层
#include <winapiex.au3>
_winapi_getversion()
回复

举报

netegg
发表于 2010-8-3 23:16:51 | 显示全部楼层
apiex有函数
回复

举报

jonyzhr
 楼主| 发表于 2010-8-6 09:44:59 | 显示全部楼层
回复 6# netegg


    Netegg大大关于API函数我是一点都不懂，而且这个函数是获得的是结构，不懂如何输出，麻烦您给出一个实际的例子，我还是很喜欢API的，谢谢了。
回复

举报

thesnow
发表于 2010-8-6 10:02:38 | 显示全部楼层
#include <WinApiEx.au3>
Dim $x=_WinAPI_GetVersionEx()
;        http://msdn.microsoft.com/en-us/ ... 3%28v=VS.85%29.aspx
;~ typedef struct _OSVERSIONINFOEX {
;~   DWORD dwOSVersionInfoSize;                ;数据结构大小
;~   DWORD dwMajorVersion;                        ;主版本
;~   DWORD dwMinorVersion;                        ;副版本
;~   DWORD dwBuildNumber;                        ;构建号
;~   DWORD dwPlatformId;                        ;平台ID
;~   TCHAR szCSDVersion[128];                ;CSD版本, such as "Service Pack 3"
;~   WORD  wServicePackMajor;                ;SP主版本
;~   WORD  wServicePackMinor;                ;SP副版本
;~   WORD  wSuiteMask;                                ;产品标识,用来识别集成了某些技术的(如VER_SUITE_BACKOFFICE)
;~   BYTE  wProductType;                        ;产品类型,[[域控制器][服务器][工作站]]
;~   BYTE  wReserved;                                ;保留,不使用
;~ } OSVERSIONINFOEX, *POSVERSIONINFOEX, *LPOSVERSIONINFOEX;
For $i=1 To 10
        MsgBox(32,'',DllStructGetData($x,$i))
Next
$x=0

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-21 22:41 , Processed in 0.075972 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表