Ayuda con nombre de pc

[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