討論區快速選單
知識庫快速選單
傑米的攝影旅遊筆記 討論區最近新進100則主題 身為PM一定要知道的管理知識
[ 回上頁 ] [ 討論區發言規則 ]
VB中如何分辨各種作業系統??
更改我的閱讀文章字型大小
作者 : jingking(左翼鳥)
[ 貼文 3 | 人氣 315 | 評價 0 | 評價/貼文 0 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2004/7/26 下午 03:58:30
各位高手們請問一下:
  如何用VB去識別各種作業系統(如98/ME/2K/XP),我知道可以用Sysinfo這個控制項,也知道OSPlatform屬性可以查9X或NT系列的作業系統,可是接下來呢?如何用OSBuild及OSVersion這兩個屬性細分各種不同的作業系統?如9X系列中又有分95/98/ME,NT系列中又有分NT/2K/XP,這些要怎麼分丫?
  請各位高手們不吝指教,感激不儘。
作者 : super0012(super0012)
[ 貼文 93 | 人氣 920 | 評價 680 | 評價/貼文 7.31 | 送出評價 58 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人jingking註記此篇回應為最佳解答 2004/7/26 下午 05:09:14
VB心得筆記裡有這範例
作者 : yuan66(緣) Visual Basic優秀好手貼文超過200則
[ 貼文 223 | 人氣 3423 | 評價 1070 | 評價/貼文 4.8 | 送出評價 3 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人jingking註記此篇回應為最佳解答 2004/7/26 下午 05:47:26
VB心得筆記
http://www.hosp.ncku.edu.tw/~cww/html/system.html
作者 : luo673(小琳) VB.Net卓越專家Visual Basic優秀好手貼文超過500則
[ 貼文 630 | 人氣 720 | 評價 3940 | 評價/貼文 6.25 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人jingking註記此篇回應為很有道理 2004/7/26 下午 09:30:04
:::在引用項目裡選擇 "Microsoft WMI Scripting V1.1 Library"
程式如下:
    Dim strcomputer As String
    Dim wbemservices As SWbemServices
    Dim wbemobjectset As SWbemObjectSet
    Dim wbemobject As SWbemObject
    
    strcomputer = "."

    Set wbemservices = GetObject("winmgmts:\\" & strcomputer)
    Set wbemobjectset = wbemservices.InstancesOf("Win32_OperatingSystem")

    For Each wbemobject In wbemobjectset
     Print wbemobject.Caption
     Print wbemobject.BuildNumber
     Print wbemobject.version
    Next

若要取得遠端機器的作業系統資訊,可將strcomputer改成其ip位址,例如:
strcomputer="192.168.200.50"
作者 : miragesoftware(Mirage)
[ 貼文 125 | 人氣 22 | 評價 1080 | 評價/貼文 8.64 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人jingking註記此篇回應為很有道理 2004/7/26 下午 10:22:22
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Const VER_PLATFORM_WIN32s = 0
Const VER_PLATFORM_WIN32_WINDOWS = 1
Const VER_PLATFORM_WIN32_NT = 2

Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End Type

'// 使用範例 - 各系統的參數請參考:
'// http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/osversioninfo_str.asp

Public Sub Main()
Dim OSVer As OSVERSIONINFO
  
  OSVer.dwOSVersionInfoSize = Len(OSVer)
  GetVersionEx OSVer
    
  If OSVer.dwPlatformId = VER_PLATFORM_WIN32_NT Then
     If OSVer.dwMajorVersion = 5 Then
     '// Windows 2000
     ElseIf OSVer.dwMajorVersion <= 4 Then
     '// Windows NT
     End If
  Else
     '// Windows 95, 98, Me
  End If
End Sub
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2200 
6 史努比 1940 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2014 程式設計俱樂部 http://www.programmer-club.com.tw/
0.1875