Функция SetComputerName

Declare Function SetComputerName Lib "kernel32.dll" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

Платформа

Win 95/98, Win NT

SetComputerName устанавливает новое имя компьютера пользователя.Имя помещено в строковую переменную lpComputerName.Чтобы изменения вступили в силу,требуется перезагрузка компьютера.Имя компьтера можно изменить с помощью вкладки Сеть на Панели управления. Функция возвращает 0, если произошла ошибка, и 1 в успешном случае.

Параметры

lpComputerName
Строка, достаточно большая для хранения имени компьютера.

Пример

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

Схожие функции: GetComputerName
Категория:
Системная информация

В начало.

Хоккейные и заказать хоккейные в магазине Москва hockey-profi.ru
hockey-profi.ru
информационные технологии в издательско-полиграфическом
posob.ru