【文件属性】:
文件名称:利用Mac地址添加用户授权
文件大小:7.19MB
文件格式:ZIP
更新时间:2017-03-11 08:17:11
Mac 地址 用户授权
利用Mac地址添加用户授权。
begin
eventmemo.Clear;
eventmemo.Lines.LoadFromFile('vpr.wqa');
vp:=strtoint(eventmemo.Lines[0]);
vp:=vp+1;
ARegistry := TRegistry.Create;
with ARegistry do
begin
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('\System\CurrentControlSet\Services\Class\Net\0000',True) then
WriteString('NetworkAddress','090000'+inttostr(vp));
if OpenKey('\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0000',True) then
WriteString('NetworkAddress','090000'+inttostr(vp));
if OpenKey('\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0001',True) then
WriteString(