'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)