vb 取得计算机名及目录

Public gCompName

'取得计算机名及Windows目录

Dim i%

Dim c$

Dim cSql As String

Dim cProduct As String

c = Space(256)

i = GetComputerName(c, 256)

gCompName = Trim(c)

gCompName = Left(gCompName, Len(gCompName) - 1)

'读取MAC地址

Dim NetCarts As SWbemObjectSet

Dim NetCart As SWbemObject

Set NetCarts = GetObject("winmgmts:{impersonationLevel=impersonate}") _

.InstancesOf("Win32_NetworkAdapter")

gNetMac = ""

For Each NetCart In NetCarts

If NetCart.MACAddress <> "" And InStr(1, NetCart.Name, "WAN") = 0 Then

gNetMac = gNetMac & NetCart.MACAddress & " "

End If

Next

gNetMac = Trim(gNetMac)

i = GetWindowsDirectory(c, 256)

gWindowsDir = Left(c, i)