'Para cambiar el nombre del PC
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long  

'en cualquier parte del programa...
Dim strNewComputerName as string
Dim lngReturn as Long 

strNewComputerName = "My computer"
lngReturn = SetComputerName(strNewComputerName)