Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem") Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
试试，我要回去了，好运： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor") Dim Uint32 As String Dim f As Management.PropertyData For Each WmiObj As ManagementObject In Wmi.Get For Each f In WmiObj.Properties Dim v As String If f.Value Is Nothing Then v = "" Else v = f.Value.ToString End If Console.WriteLine(f.Name & ": " & v) Next Next End Sub
得到显示器分辨率 Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width Dim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height MsgBox("您的显示器分辨率是：" & X & " X " & Y)
'通用写法 'Dim SPEC As String = Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX) 'XXXXXXX是特殊文件夹的名字
得到操作系统版本信息 MsgBox(Environment.OSVersion.ToString)
得到当前登录的用户名 MsgBox(Environment.UserName)
得到当前应用程序的路径 MsgBox(Environment.CurrentDirectory)
打开和关闭CD-ROM '先新建模块 Module mciAPIModule Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer End Module
'打开CD-ROM Dim lRet As Long lRet = mciSendString("set cdAudio door open", 0&, 0, 0)
'关闭CD-ROM Dim lRet As Long lRet = mciSendString("set cdAudio door Closed", 0&, 0, 0) '更多请参见 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/mmcmdstr_8eyc.asp
得到计算机IP和计算机全名 Dim MYIP As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName) MsgBox("您的IP地址：" & (MYIP.AddressList.GetValue(0).ToString)) MsgBox("您的计算机全名：" & (MYIP.HostName.ToString))
使用win32_operatingSystem (wmi Class)得到计算机信息 '添加ListBox在Form1_Load事件里，并引用system.Managment Dim opSearch As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem") Dim opInfo As ManagementObject For Each opInfo In opSearch.Get() ListBox1.Items.Add("Name: " & opInfo("name").ToString()) ListBox1.Items.Add("Version: " & opInfo("version").ToString()) ListBox1.Items.Add("Manufacturer: " & opInfo("manufacturer").ToString()) ListBox1.Items.Add("Computer name: " & opInfo("csname").ToString()) ListBox1.Items.Add("Windows Directory: " & opInfo("windowsdirectory").ToString()) Next
列出计算机安装的全部字体，并添加到ListBox '新建Form并添加ListBox和Button Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fntCollection As InstalledFontCollection = New InstalledFontCollection() Dim fntFamily() As FontFamily
