1. Aap ye API Declare karain:
Code:
Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
2. phir ye function Define karain:
Code:
Private Function GetComputerName() As String
Dim sResult As String * 255
GetComputerNameA sResult, 255
GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
End Function
3. Ab aap mandraja zail tareeqay se function call kar saktay hain, jo ke aap ko Computer Name return karay ga.
Code:
Dim ComputerName As String
ComputerName = GetComputerName()
Bookmarks