网卡的mac地址 //得到网卡 MAC 地址using System; using System.Collections; using System.Management; public class GetOfMACAddr { public GetOfMACAddr() { } /// <summary>得到网卡 MAC 地址</summary> /// <returns>返回地址数组,字符类型</returns> /// 例: /// ArrayList myAddr = ArLi.CommonPrj.GetOfMACAddr.GetIt(); /// for (int i=0; i<myAddr.Count; i++) MessageBox.Show(myAddr[i].ToString()); /// public static ArrayList GetIt() { ManagementClass mc = new ManagementClass("Win32_NetworkAdapterConfiguration"); ManagementObjectCollection moc = mc.GetInstances(); ArrayList strArr = new ArrayList();
//网卡数 foreach(ManagementObject mo in moc) { if((bool)mo["IPEnabled"]) { strArr.Add(mo["MacAddress"].ToString().Replace(":","")); } mo.Dispose(); } return strArr; } }
String uid = new Guid().ToString();
调用Win32API CoCreateGuid 创建GUID吧
cpu的 Imports System.Management Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_processor ") Dim share As ManagementObject For Each share In searcher.Get()Next share Label1.Text = share("processorid") end sub
//得到网卡 MAC 地址using System;
using System.Collections;
using System.Management; public class GetOfMACAddr
{
public GetOfMACAddr()
{
} /// <summary>得到网卡 MAC 地址</summary>
/// <returns>返回地址数组,字符类型</returns>
/// 例:
/// ArrayList myAddr = ArLi.CommonPrj.GetOfMACAddr.GetIt();
/// for (int i=0; i<myAddr.Count; i++) MessageBox.Show(myAddr[i].ToString());
///
public static ArrayList GetIt()
{
ManagementClass mc = new ManagementClass("Win32_NetworkAdapterConfiguration");
ManagementObjectCollection moc = mc.GetInstances();
ArrayList strArr = new ArrayList();
//网卡数
foreach(ManagementObject mo in moc)
{
if((bool)mo["IPEnabled"])
{
strArr.Add(mo["MacAddress"].ToString().Replace(":",""));
}
mo.Dispose();
} return strArr;
}
}
Imports System.Management
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_processor ")
Dim share As ManagementObject
For Each share In searcher.Get()Next share
Label1.Text = share("processorid")
end sub
=================================
新一代论坛 http://www.xlfancy.com
1. 所见即所得的Web文本编辑
2. 程序代码的高亮显示:
Ada、C、C++、C#、Delphi、ILasm、JS.NET、MASM、VB、VB.NET
3. 奇快无比的“引用”“编辑”“回复”。任意的同时多次“引用”
多个不同的发言。
4. 绝妙的帖子中上传附件的下载记数