DHCP和MAC机器人自动批量绑定(VB+ Win2003 + Access)

下载源文件

由于机房是Windows和Linux(FC4)共存，在计算机名和IP得管理很麻烦。

在考试时利用Serv_U把IP和座位号绑定，每个人的上传文件夹都不一样，Windows 里我倒能 自己编写按Mac自动指定IP和计算机名的程序。但 Linux编程我一点也不知道，只好使用DHCP

网上找了半天也没发现Win2003的DHCP有WMI编程接口。天啊，4个机防200台电脑，在服务上难道要一个一个设Mac和IP保留？

想起了高中物理老师的名言：有条件上，没有条件创造条件上

还好，微软的软件都能不靠鼠标进行配置。键盘输入安排的都很好。用VB模拟键盘输入，当机器人。

VB相关代码

[.bas]

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Const VK_TAB = &H9
Public Const VK_RETURN = &HD
Public Const KEYEVENTF_KEYUP = &H2
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYDOWN = &H0
Public Const VK_SHIFT = &H10
Public Const VK_OEM_PERIOD = &HBE

'发送 制表符
Public Sub Key_SendTab()
      Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYDOWN