API 함수로 사용자 컴퓨터 이름을 가져올수 있답니다.
이것도 퍼온겁니다.
일전에 자유게시판에서 zzzz님이 언급했던 컴퓨터 이름을 이용해서 필요로 하는 제어가 가능할지
찾아다니다 부수적으로 찾아낸 겁니다.
문제는 이 소스를 저는 어떻게 활용하는지 모른다는 것이죠.
ㅠㅠ.........
이런걸 누가 필요로 할지는 모르지만 일단 올려둡니다.
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Function ReturnComputerName() As String
Dim sComputerName As String
Dim iResult As Long
sComputerName = Space(256)
iResult = GetComputerName(sComputerName, 256)
If iResult <> 0 Then
ReturnComputerName = Left(sComputerName, 256)
Else
ReturnComputerName = "모름"
End If
End Function
원글의 출처
http://www.j-walk.com/ss/excel/tips/tip94.htm
원글에는 컴퓨터 사용자의 이름도 가져오도록 코딩되어 있다고 합니다.
일전에 자유게시판에서 zzzz님이 언급했던 컴퓨터 이름을 이용해서 필요로 하는 제어가 가능할지
찾아다니다 부수적으로 찾아낸 겁니다.
문제는 이 소스를 저는 어떻게 활용하는지 모른다는 것이죠.
ㅠㅠ.........
이런걸 누가 필요로 할지는 모르지만 일단 올려둡니다.
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Function ReturnComputerName() As String
Dim sComputerName As String
Dim iResult As Long
sComputerName = Space(256)
iResult = GetComputerName(sComputerName, 256)
If iResult <> 0 Then
ReturnComputerName = Left(sComputerName, 256)
Else
ReturnComputerName = "모름"
End If
End Function
원글의 출처
http://www.j-walk.com/ss/excel/tips/tip94.htm
원글에는 컴퓨터 사용자의 이름도 가져오도록 코딩되어 있다고 합니다.
|
댓글을 작성하시려면 로그인이 필요합니다.
댓글 4개
그렇지만 사용법을 모릅니당 ㅠㅠ
그래도 수고하셨습니당 ㅠㅠ
무플로 방치되지 않게 해 주셔서........
php 소스가 아니라서 죄송하게 생각하며 사용법을 몰라서 더 죄송합니다.
^^
제가 예전에 프로젝트 할때 시스템 정보 빼오냐고 고생 좀 했죠 ^^
저걸돌리려면 클라이언트에서 돌려야할거같은데.. 음..해킹? ^^;
웹을 잘몰라서링 ;;;