Ayuda con nombre de pc

[hunabku]

Saludos bueno pues me gustaria como poder sacar el nombre de la pc por medio de vb

[luciano]

Sacado del Apiguide:

'example by Donavon Kuhn ([email protected])
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub



Mi web sobre Visual:
http://ar.geocities.com/recursosvb

[hunabku]

Iniciado por luciano

Sacado del Apiguide:

'example by Donavon Kuhn ([email protected])
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub



Mi web sobre Visual:
http://ar.geocities.com/recursosvb

muchas gracias luciano

[vvictoristudio]

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command4_Click()
'Obtener directorio de Windows
Dim Ret As Long
Dim sBuffer As String
Dim nSize As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetWindowsDirectory(sBuffer, nSize)
MsgBox "Directorio de Windows: " & Left$(sBuffer, Len(sBuffer))
End Sub

Private Sub Command1_Click()
'Obtener nombre del PC
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetComputerName(sBuffer, nSize)
MsgBox "Nombre de PC: " & Left$(sBuffer, Len(sBuffer))
End Sub

Private Sub Command2_Click()
'Obtener nombre de usuario
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetUserName(sBuffer, nSize)
MsgBox "Nombre de usuario: " & Left$(sBuffer, Len(sBuffer))
End Sub

Private Sub Command5_Click()
'Obtener directorio de la carpeta del sistema ( System32 )
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetSystemDirectory(sBuffer, nSize)
MsgBox "El directorio del sistema es: " & Left$(sBuffer, Len(sBuffer))
End Sub

[hunabku]

Iniciado por vvictoristudio

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command4_Click()
'Obtener directorio de Windows
Dim Ret As Long
Dim sBuffer As String
Dim nSize As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetWindowsDirectory(sBuffer, nSize)
MsgBox "Directorio de Windows: " & Left$(sBuffer, Len(sBuffer))
End Sub

Private Sub Command1_Click()
'Obtener nombre del PC
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetComputerName(sBuffer, nSize)
MsgBox "Nombre de PC: " & Left$(sBuffer, Len(sBuffer))
End Sub

Private Sub Command2_Click()
'Obtener nombre de usuario
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetUserName(sBuffer, nSize)
MsgBox "Nombre de usuario: " & Left$(sBuffer, Len(sBuffer))
End Sub

Private Sub Command5_Click()
'Obtener directorio de la carpeta del sistema ( System32 )
Dim sBuffer As String
Dim nSize As Long
Dim Ret As Long

sBuffer = Space(255)
nSize = Len(sBuffer)
Ret = GetSystemDirectory(sBuffer, nSize)
MsgBox "El directorio del sistema es: " & Left$(sBuffer, Len(sBuffer))
End Sub

gracias