Author
Language
Operating Systems
Private Declare Function SetComputerName Lib "kernel32.dll" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
Public Function SetComputerName(Name as String) as Boolean Dim res As Long res=SetComputerName(Name) SetComputerName=(res<>0) End Function