获取计算机名称的编程代码如下：
使用VB.NET:
```vbnet
Imports System
Imports System.Net
Public Class Form1
Private Sub Form1_Load（sender As Object, e As EventArgs） Handles MyBase.Load
Label1.Text = GetComputerName（）
End Sub
Private Function GetComputerName（） As String
Dim computerName As String = String.Empty
Dim network As New NetworkInformation（）
For Each networkInterface As NetworkInterface In network.GetNetworkInterfaces（）
If Not String.IsNullOrEmpty（networkInterface.HostName） Then
computerName = networkInterface.HostName
Exit For
End If
Next
Return computerName
End Function
End Class
```
使用C:
```csharp
using System；
using System.Net；
namespace GetComputerNameAndIPAddress
{
public partial class Form1 : Form
{
public Form1（）
{
InitializeComponent（）；
}
private void button1_Click（object sender, EventArgs e）
{
label1.Text = GetComputerName（）；
}
private string GetComputerName（）
{
string computerName = string.Empty；
foreach （var networkInterface in NetworkInterface.GetAllNetworkInterfaces（））
{
if （!string.IsNullOrEmpty（networkInterface.HostName））
{
computerName = networkInterface.HostName；
break；
}
}
return computerName；
}
}
}
```
使用批处理文件:
```batch
@echo off
echo 正在尝试获取计算机名称...
set computerName=%computername%
echo 计算机名称是： %computerName%
pause
```
使用C++:
```cpp
include include include int main（） { WSADATA wsaData； if （WSAStartup（MAKEWORD（2, 2）, &wsaData） != 0） { std::cerr << "WSAStartup failed." << std::endl； return 1； } DWORD bufferSize = MAX_COMPUTERNAME_LENGTH + 1； char computerName[bufferSize]； DWORD returnLength = GetComputerNameA（computerName, &bufferSize）； if （returnLength == 0） { std::cerr << "GetComputerName failed." << std::endl； WSACleanup（）； return 1； } std::cout << "Computer Name: " << computerName << std::endl； WSACleanup（）； return 0； } ``` 这些代码示例分别使用不同的编程语言和库来获取计算机名称。你可以根据自己的需求和编程环境选择合适的代码进行使用。