100分求VS2005中VB.NET的获取本地“计算机描述”的语句，即是可以用中文起计算机名字的
100分求VS2005中VB.NET的获取本地“计算机描述”的语句，即是可以用中文起计算机名字的，不是那个必须得是英文的“计算机名”。--------------------编程问答-------------------- 试一下
Imports System
Imports System.Management
Class Sample_ManagementClass
Shared Sub Main()
dim c as new ManagementClass("win32_operatingsystem")
for each o as ManagementObject in c.GetInstances()
Console.WriteLine("description:{0}",o.GetPropertyValue("Description").ToString())
next
End Sub
End Class
你需要引用System.dll和System.Management.dll程序集 --------------------编程问答-------------------- 标记以下。回头好找。 --------------------编程问答-------------------- 该回复被版主删除 --------------------编程问答-------------------- HostName = System.Net.Dns.GetHostName '获得本机的机器名
IPAdress = System.Net.Dns.GetHostEntry(HostName).AddressList.GetValue(0) '获得本机的IP
获取本地“计算机描述”，有类似这样的简单语句吗？
--------------------编程问答-------------------- 标记下。回头好找 --------------------编程问答-------------------- Net.Dns.GetHostName() 即可 --------------------编程问答-------------------- my.Computer --------------------编程问答-------------------- My应该就可以实现吧？ --------------------编程问答-------------------- VB.NET不会帮你顶顶 --------------------编程问答-------------------- 我也正想知道 --------------------编程问答-------------------- 还是读写注册表来得更直接
'http://support.microsoft.com/kb/824386/zh-cn
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'计算机名
Debug.Print("---------------------------以下为计算机名-------------------------------")
'Debug.Print(My.Computer.Name) 也可读取，但不支持写入
'
Debug.Print(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\", "NV Hostname", "nothing"))
'计算机描述
Debug.Print("--------------------------以下为计算机描述--------------------------------")
Debug.Print(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\", "srvcomment", "nothing"))
End Sub
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
'可以用这个DOS命令来修改计算机描述
Shell("net config server /srvcomment:" & "新的计算机描述", AppWinStyle.Hide)
'也可以修改注册表
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\", "srvcomment", "新的计算机描述")
'当然通过修改注册表也可以修改计算机名
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\", "NV Hostname", "新的计算机名")
'修改计算机名之后，不生效。。。。好像是结束桌面进程再打开就可以。。。未测试以下代码
Dim pros = Process.GetProcessesByName("explorer.exe")
For Each pro As Process In pros
pro.Kill()
Next
Process.Start("explorer.exe")
End Sub
'如果计算机描述和工作组都为灰色，启动workstation和server服务即可 --------------------编程问答-------------------- 计算机名=my.computer.name --------------------编程问答-------------------- MARK --------------------编程问答-------------------- my.computer.name '电脑名称
my.computer.info.osfullname '操作系统名称
my.computer.info.osplatform '操作系统平台识别符
my.computer.info.osversion '操作系统版本:
my.computer.info.totalphysicalmemory '实际的内存数量
my.computer.info.totalvirtualmemory '总共的虚拟内存
my.computer.info.availablephysicalmemory '实际的剩余内存
my.computer.info.availablevirtualmemory '剩余的虚拟内存
--------------------编程问答-------------------- MARK --------------------编程问答--------------------
很不错 --------------------编程问答-------------------- 顶下，占座 --------------------编程问答-------------------- 计算机描述还真的没有取过，试试 11楼 的注册表方法吧，简单直接。 --------------------编程问答-------------------- 标记下。回头好找 --------------------编程问答-------------------- 我也标记 --------------------编程问答-------------------- 我也标记 --------------------编程问答-------------------- 很好的东西！记下来先！
补充：.NET技术 , VB.NET
