Функция SetComputerName

Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
SetComputerName устанавливает новое имя компьютера пользователя. Имя помещено в строковую переменную lpComputerName. Чтобы изменения вступили в силу, требуется перезагрузка компьютера. Имя компьтера можно изменить с помощью вкладки Сеть на Панели управления
lpComputerName
Строка, достаточно большая для хранения имени компьютера

Пример

' Устанавливаем новое имя компьютера
Dim sNewName As String  
' Просим пользователя ввести новое имя
sNewName = InputBox("Введите новое имя компьютера") 
SetComputerName sNewName  ' устанавливаем новое имя
' сообщаем имя пользователя и просим перезагрузиться
MsgBox "Новое имя компьютера " & sNewName & vbNewLine _
& "Перезагрузите компьютер"

Смотри также

GetComputerName

Категория

Системная информация