Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" _
(ByVal lpComputerName As String) As Long
Private Sub cSetComputerName()
Dim lRetVal As Long
Dim inputstr$
inputstr = InputBox("Введите ваш текст.", "Функции API", "")
If inputstr = "" Then Exit Sub
lRetVal = SetComputerName(inputstr)
MsgBox "Вы присвоили новое имя:" & inputstr & vbNewLine & _
"Чтобы изменения вступили в силу-перезагрузите компьютер", _
vbOKOnly + vbInformation
End Sub |
|
