VB Code:
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long Dim strNewComputerName as string Dim lngReturn as Long strNewComputerName = "Speedy's system" lngReturn = SetComputerName(strNewComputerName)