Get MAC-ID,User Name without WMI

[ananth]

Hi All,
How to get the User Name and Mac-id of a pc using a button click in Visual Basic 2005.This has to be done without using WMI.

[bgirardo]

Hi All,
How to get the User Name and Mac-id of a pc using a button click in Visual Basic 2005.This has to be done without using WMI.

You haven't provided a lot of information here .... so I'm just going to make some guesses:

1. You are running XT
2. You only have one MAC address in the workstation

Note: I've had similar issues - so in the past we wrote a server program that would strip the IP packet apart and return a response containing the MAC address. That being said - the may be an easier way.

A. Shell out and run the ipconfig.exe program (C:\windows\system32\ipconfig.exe /all) redirecting the output to a text file. Parse this file apart looking for the line(s) Physical Address.

User name is a bit easier ... in VBA its UserName = Environ("USERNAME")

Hope this helps.

[diSangro]

For MAC address try this without any parsing, note GetMAC instead of ipconfig /all ( With body is a recorded and adapted Macro) :

'-----------------------------------------------------------------------------
Private Sub CommandButton_Click()
Dim str, f, fs, cmd

str = CurDir & "\" & "tempfile.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(str, True)
f.Close
str = CurDir & "\"
Set sh = CreateObject("WScript.Shell")

sh.CurrentDirectory = str

sh.Exec "%COMSPEC% /k GetMAC > tempfile.txt"

str = str & "tempfile.txt"
MsgBox str

str = "TEXT;" & str
Worksheets("Foglio1").Activate

With ActiveSheet.QueryTables.Add(Connection:=str, Destination:=Range("A1"))
.Name = "tempfile"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 2
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileFixedColumnWidths = Array(20)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

'-------------------------------------------------------------------------------------------------------

I hope you like !