Alterando o nome do seu computador...

Cansou do nome do seu computador e quer mudar ???

Sem problemas ! Com o VB é pra já...

Inicie um novo Projeto no VB, e , no formulário padrão insira um botão de comando e uma caixa de texto
Insira o código abaixo na seção General declarations

Seção General Declarations :

Private Declare Function SetComputerName Lib "Kernel32" Alias "SetComputerNameA" (ByVal lpcomputername As String) As Long

Agora é só por este código no evento click do botão de comando(command1):

Private Sub Command1_Click()
If Text1.Text <> "" Then
SetComputerName Text1.Text
MsgBox " O nome nome do computador é : " & Text1.Text
End If
End Sub

Você vai informar o novo nome na caixa de texto ( text1.text ) e se for informado algo o nome será alterado. ( tenha cuidado com as alterações que você vai fazer...)

Moleza...