Giúp: ComputerName() với hàm lấy Username (1 người xem)

[hunglao]

Trong EX 07 em sử dụng hàm computername() để lấy tên máy nhưng giống như bị đóng băng ấy, nó chỉ lấy được tên máy có 1 lần à, sau này mở ở máy khác vẫn tên máy cũ, muốn cập nhật thì phải gõ lại . có cách gì để khi mở ở máy nào nó hiện tên máy đó ko a/c

- Còn Hàm get User name giờ code sao a, chứ em thấy EX không có hàm này

thank a/c

 

[ndu96081631]

Trong EX 07 em sử dụng hàm computername() để lấy tên máy nhưng giống như bị đóng băng ấy, nó chỉ lấy được tên máy có 1 lần à, sau này mở ở máy khác vẫn tên máy cũ, muốn cập nhật thì phải gõ lại . có cách gì để khi mở ở máy nào nó hiện tên máy đó ko a/c

- Còn Hàm get User name giờ code sao a, chứ em thấy EX không có hàm này

thank a/c

Hàm ấy như thế nào? Bạn đưa lên mới biết chứ
Tôi tặng bạn 2 hàm này xem thử nhé:

Function GetComputername() As String
  With CreateObject("WScript.Network")
    GetComputername = .ComputerName
  End With
End Function

Function GetUsername() As String
  With CreateObject("WScript.Network")
    GetUsername = .UserName
  End With
End Function

 

[hunglao]

EM get dc tên , nhưng vẫn gặp lỗi là khi mở trên máy người khác vân hiện ra tên mình, muốn hiển thị lại tên trên máy khác phải nhập lại code mà kô tự REFRESH lại dc

 

[ndu96081631]

EM get dc tên , nhưng vẫn gặp lỗi là khi mở trên máy người khác vân hiện ra tên mình, muốn hiển thị lại tên trên máy khác phải nhập lại code mà kô tự REFRESH lại dc

Đúng là hàm này không tự cập nhật... Bạn sửa lại như sau:

Function GetComputername()
  Application.Volatile
  GetComputername = Environ("COMPUTERNAME")
End Function

Function GetUserName()
  Application.Volatile
  GetUserName = Environ("USERNAME")
End Function

Test thử rồi báo kết quả tôi biết nhé

 

[ndu96081631]

Nói thêm 1 chút về hàm Environ
Hàm này có khả năng lấy rất nhiều thông tin trên hệ thống!
Có thể dùng thí nghiệm sau đây để kiểm chứng:

Sub Test()
  Dim i As Long, Item
  i = 1
  Do
    MsgBox Environ(i)
    i = i + 1
  Loop Until Environ(i) = ""
End Sub

 

[hunglao]

okie ,e lam` dc roai, thank a nhiều