Ola pessoal, bom dia.

Alguém saberia me dizer como faço para identificar a máquina que estou em vb6, para poder alocar esta informação em uma variável?

Retornar exatamente o nome da máquina.

 

Desde já agradeço,

 

Marcio.

Marcio, td blz?

 

Caso vc não seja cadastrado por favor cadastra-se é rápido e grátis :)

 

Em relação à sua pergunta é só fazer assim:

Dim sComp as String

 

sComp = Environ("COMPUTERNAME")

 

at+

Obrigado meu amigo. Vou testar.

 

E tenha uma ótima semana.

Meu amigo, eu testei aqui o que vc havia me passado, mas parece não ter dado certo.

Teria alguma outra forma?

 

Obrigado.

Como vc fez exatamente?

Cara ponha um Statusbar no Form

 

ponha o seguinte codigo em General Declarations do form:

 

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

agora ponha no evento Load do Form:

 

Dim nomedoPC As String
    nomedoPC = Space(30)

    GetComputerName nomedoPC, 30
    StatusBar1.Panels(1) = nomedoPC

Assim que o form for aberto irá aparecer o nome do PC na Statusbar.

 

BLZ?...