请问有没有区分Windows 2000 Server与Windows 2000 Advanced Server的解决办法或源码?
解决方案 »
- 这两天怎么vbgood.com论坛打不开呀。
- vb 读取文件
- 用什么办法可以将AVI的图像和桌面一起抓。
- 如何读取一个图片文件的内容,将其存成ACCESS数据库中的OLE类型对象,然后再将其从ACCESS中读出来恢复成文件,将图片显示出来!分有的是
- 关于命令行参数问题,急急!!!!!在线等待
- 如何实现类似windows搜索文件的功能,主要是针对文件中包含的文字进行模糊查询搜索。
- 关于VSFlexGrid:为什么连接数据库之后,要添加新记录不能马上刷新?
- 这个难题把我气昏了
- 如何得到网卡地址?
- 导入更新并把需要的各列给分别记录
- 关于程序在多台机器上的色彩还原问题
- 一个关于控制 TrueDBGrid v8.0.20031.300 的 DataView 和 ScrollBars 的简单例子!
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Sub Form_Load()
Dim OSInfo As OSVERSIONINFO, PId As String
'[email protected]
'Set the graphical mode to persistent
Me.AutoRedraw = True
'Set the structure size
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
'Get the Windows version
Ret& = GetVersionEx(OSInfo)
'Chack for errors
If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub
'Print the information to the form
Select Case OSInfo.dwPlatformId
Case 0
PId = "Windows 32s "
Case 1
PId = "Windows 95/98"
Case 2
PId = "Windows NT "
End Select
Print "OS: " + PId
Print "Win version:" + str$(OSInfo.dwMajorVersion) + "." + LTrim(str(OSInfo.dwMinorVersion))
Print "Build: " + str(OSInfo.dwBuildNumber)
End Sub
http://www.applevb.com/sourcecode/wmi.rar