[VB6] Ottenere il nome del PC

[Cina76]

Ciao a tutti, avrei la necessità di ottenere il nome del pc che fa una determinata operazione.Come si ottiene il nome macchina in visual Basic 6?
Grazie a tutti

[wallrider]

http://forum.html.it/forum/showthrea...20#post9251820

bastava cercare nome computer :rollo:

[icecube_HT]

Originariamente inviato da Cina76
Ciao a tutti, avrei la necessità di ottenere il nome del pc che fa una determinata operazione.Come si ottiene il nome macchina in visual Basic 6?
Grazie a tutti

Basta usare la funzione Environ$("COMPUTERNAME")

[mentos]

Io uso l'API di Windows GetComputerName

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

Private Sub Form_Load()
     if ComputerName="Sconosciuto" then
          'istruzioni
     end if
End Sub

Public Function ComputerName() As String
    'Restituisce il nome della macchina
    Dim SBuffer As String * 255
    
    If GetComputerName(SBuffer, 255&) <> 0 Then
        ComputerName = Left$(SBuffer, InStr(SBuffer, vbNullChar) - 1)
    Else
        ComputerName = "Sconosciuto"
    End If
End Function