Функция 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
Категория
Системная информация