分享
 
 
 

基于PXE启动的WINDOWS 2000/XP的多播克隆(3)

王朝system·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

基于PXE启动的WINDOWS 2000/XP的多播克隆(3)

修改计算机名程序

修改计算机名程序是用Visual Basic 6.0编写的一个小程序,其目的是为了使目标机的计算机名按机房管理员的要求进行设置,而非由系统自动随机产生。其原理是根据每台机器的网络MAC地址固定且不会相同,按机器的MAC地址来设置计算机名称。因此必须先生成一张MAC地址——计算机名映射表,程序根据表中的数据查找和机器MAC地址相同的记录,再用记录中的计算机名修改机器名称。

MAC地址——计算机名映射表是一个纯文本文件,其名为netname.dat,数据格式如下:

计算机名,MAC地址

如: winxp1, 000AEB1D6460

winxp2, 00E04CE43C61

aaaaaa, 00E04CE455E2

bbbbbb, 00E04C44365E

cccccc, 00E04C500555

………, ………………

该文本文件必须和生成的应用程序执行文件setcpn.exe在同一个目录中,执行文件setcpn.exe的运行命令是写在Sysprep.inf文件的[GuiRunOnce]段内的,请参见前述的制作应答文件内容。该程序执行后会自动删除netname.dat文件,以避免重复执行,并重新启动计算机,使修改后的计算机名生效。

该程序也可用于WINDOWS 9X操作系统在多播克隆时修改目标计算机名。但须在参考机的注册表的HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce下新建一个字符串键——SETCPN,键值为“C:\WINDOWS\SETCPN\setcpn.exe”,它的作用是当网络复制完成并重新启动后,系统自动运行setcpn.exe程序。上面假设setcpn.exe程序和netname.dat文件是存放在C:\WINDOWS\SETCPN目录下,如果不是在此目录下,上面的键值应作相应的修改。

该程序调用了NETBIOS的API函数,因此在参考机上一定要安装NETBEUI协议。由于是用VB编写的程序,因此参考机上要有VB的运行时刻库。如果将程序生成安装包,系统会自动加入运行库。

程序中有一段代码是对五笔字型输入法的处理。使用Sysprep处理过系统后,原来安装的输入法(非Windows系统自带的)会从输入法托盘中消失,但输入法程序本身并没有被删除,只需在注册表中修改相关键值即可使输入法重新出现在输入法托盘中。但各种输入法键值不同,需区别对待。本程序中的键值只是两种五笔字形输入法的。

WINDOWS XP可使用“登录使用欢迎屏幕”设置,并将默认登录用户名设为:administrator,登录密码为空,这样每次计算机启动时就不需要输入密码了。由于administrator权限过高,为避免使用者(如学生)乱改系统设置,可在系统中安装一套虚拟还原软件,每次开机自动还原即可。

WINDOWS XP下生成的安装包在WINDOWS 2000下有时不能安装,解决的办法是在WINDOWS 2000下重新生成一个安装包,用于WINDOWS 2000的安装。

附:程序清单

setcpn.vbp-setcomputername.bas

Option Explicit

'安全关机需调用的API函数

Public Const EWX_LOGOFF = 0 '以其它用户名重新登录系统

Public Const EWX_SHUTDOWN = 1 '终止所有进程并关闭计算机

Public Const EWX_REBOOT = 2 '关掉在进程安全描述表中运行的所有进程,重起计算机

Public Const EWX_FORCE = 4 '强迫进程终止

Public Const EWX_POWEROFF = 8 '在NT下终止所有进程并关闭计算机

Declare Function ExitWindowsEx Lib "user32" (ByVal fuOptions As Long, ByVal dwReserved As Long) As Integer '关闭系统函数

'NT下关机需调用的安全机制API函数

Public Const TOKEN_ADJUST_PRIVILEGES = &H20

Public Const TOKEN_QUERY = &H8

Public Const SE_PRIVILEGE_ENABLED = &H2

Public Const ANYSIZE_ARRAY = 1

Type LUID

lowpart As Long

highpart As Long

End Type

Type LUID_AND_ATTRIBUTES

pLuid As LUID

Attributes As Long

End Type

Type TOKEN_PRIVILEGES

PrivilegeCount As Long

Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES

End Type

Declare Function GetCurrentProcess Lib "kernel32" () As Long

Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long

Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long

'注册表相关操作API函数定义

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const HKEY_CURRENT_USER = &H80000001

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const HKEY_USERS = &H80000003

Public Const HKEY_PERFORMANCE_DATA = &H80000004

Public Const HKEY_CURRENT_CONFIG = &H80000005

Public Const HKEY_DYN_DATA = &H80000006

Public Const REG_MULTI_SZ = 7

Public Const ERROR_SUCCESS = 0&

Public Const READ_CONTROL = &H20000

Public Const REG_SZ = 1

Public Const REG_DWORD = 4

Public Const REG_EXPAND_SZ = 2

Public Const REG_BINARY = 3

Public Const REG_DWORD_BIG_ENDIAN = 5

Public Const REG_DWORD_LITTLE_ENDIAN = 4

Public Const REG_NONE = 0

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _

(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _

(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _

lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" _

(ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, _

ByVal cbName As Long) As Long

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _

(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _

(ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _

ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

'获取操作系统版本

Public Declare Function GetVersion Lib "kernel32" () As Long

'获取网卡MAC地址、更改计算机名相关操作API函数定义

Public Const NCBASTAT As Long = &H33

Public Const NCBNAMSZ As Long = 16

Public Const HEAP_ZERO_MEMORY As Long = &H8

Public Const HEAP_GENERATE_EXCEPTIONS As Long = &H4

Public Const NCBRESET As Long = &H32

Public Type NET_CONTROL_BLOCK 'NCB

ncb_command As Byte

ncb_retcode As Byte

ncb_lsn As Byte

ncb_num As Byte

ncb_buffer As Long

ncb_length As Integer

ncb_callname As String * NCBNAMSZ

ncb_name As String * NCBNAMSZ

ncb_rto As Byte

ncb_sto As Byte

ncb_post As Long

ncb_lana_num As Byte

ncb_cmd_cplt As Byte

ncb_reserve(9) As Byte '保留,必须为0

ncb_event As Long

End Type

Public Type ADAPTER_STATUS

adapter_address(5) As Byte

rev_major As Byte

reserved0 As Byte

adapter_type As Byte

rev_minor As Byte

duration As Integer

frmr_recv As Integer

frmr_xmit As Integer

iframe_recv_err As Integer

xmit_aborts As Integer

xmit_success As Long

recv_success As Long

iframe_xmit_err As Integer

recv_buff_unavail As Integer

t1_timeouts As Integer

ti_timeouts As Integer

Reserved1 As Long

free_ncbs As Integer

max_cfg_ncbs As Integer

max_ncbs As Integer

xmit_buf_unavail As Integer

max_dgram_size As Integer

pending_sess As Integer

max_cfg_sess As Integer

max_sess As Integer

max_sess_pkt_size As Integer

name_count As Integer

End Type

Public Type NAME_BUFFER

name As String * NCBNAMSZ

name_num As Integer

name_flags As Integer

End Type

Public Type ASTAT

adapt As ADAPTER_STATUS

NameBuff(30) As NAME_BUFFER

End Type

Public Declare Function Netbios Lib "netapi32.dll" _

(pncb As NET_CONTROL_BLOCK) As Byte

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

(hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

Public Declare Function GetProcessHeap Lib "kernel32" () As Long

Public Declare Function HeapAlloc Lib "kernel32" _

(ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long

Public Declare Function HeapFree Lib "kernel32" _

(ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" _

(ByVal lpComputerName As String) As Long

'NT下调用关机函数前需先调用的安全机制函数子过程

Public Sub AdjustToken()

Dim hdlProcessHandle As Long

Dim hdlTokenHandle As Long

Dim tmpLuid As LUID

Dim tkp As TOKEN_PRIVILEGES

Dim tkpNewButIgnored As TOKEN_PRIVILEGES

Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess()

OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), _

hdlTokenHandle

LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1

tkp.Privileges(0).pLuid = tmpLuid

tkp.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED

AdjustTokenPrivileges hdlTokenHandle, False, tkp, Len(tkpNewButIgnored), _

tkpNewButIgnored, lBufferNeeded

End Sub

Public Function GetMACAddress() As String

'返回一个格式化的网络控制器的MAC地址

Dim tmp As String

Dim pASTAT As Long

Dim NCB As NET_CONTROL_BLOCK

Dim AST As ASTAT

'IBM NetBIOS 3.0在NCBRESET命令中定义了4个基本NetBIOS环境变量,

'Win32则用OS/2动态连接路由器(DLR)环境。这意味着应用程序使用

'的第一个NCB必须是一个NCBRESET命令,这里有一个例外是NCBENUM命令。

'Windows NT与IBM NetBIOS 3.0对NCB_CALLNAME字段的解释是不同的

NCB.ncb_command = NCBRESET

Call Netbios(NCB)

'为获取以太网卡的媒体访问控制(MAC)地址,使用Netbios()、NCBASTAT命令,

'并将NCB.ncb_CallName设置为"* "(16个字符)。

NCB.ncb_callname = "* "

NCB.ncb_command = NCBASTAT

'对于有多个网卡的机器,需要执行枚举LANA数目,并对每个网卡执行NCBASTAT命令

'即是机器中只有一个网卡,首先枚举有效的LANA数目,并在其中一个有效的LANA上执行

'NCBASTAT命令也是非常不错的。在程序中用硬编码的方式设置LANA数目为0是不可取的。

NCB.ncb_lana_num = 0

NCB.ncb_length = Len(AST)

pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS _

Or HEAP_ZERO_MEMORY, NCB.ncb_length)

If pASTAT = 0 Then

Debug.Print "内存分配失败!"

Exit Function

End If

NCB.ncb_buffer = pASTAT

Call Netbios(NCB)

CopyMemory AST, NCB.ncb_buffer, Len(AST)

tmp = ""

For i = 0 To 5

str1 = Hex$(AST.adapt.adapter_address(i))

If Len(str1) < 2 Then

tmp = tmp & "0" & str1

Else

tmp = tmp & str1

End If

Next

HeapFree GetProcessHeap(), 0, pASTAT

GetMACAddress = tmp

End Function

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有