本站原创本文是一篇计算机论文范文,计算机有关在职毕业论文开题报告,关于全自动修改计算机配置相关大学毕业论文范文。适合计算机及自动修改及参考文献方面的的大学硕士和本科毕业论文以及计算机相关开题报告范文和职称论文写作参考文献资料下载。
摘 要:重新安装计算机机房需要做大量的工作,常见的有修改计算机名,IP地址及相关配置文件等等,所有这些操作将耗费大量时间,精力.利用MAC地址来识别计算机,设计一套软件来自动完成这项工作,将轻松很多.
关 键 词:MAC地址INI配置文件机器名IP
引言
经过多年的高校微机机房管理工作,经常被重新安装机房弄筋疲力尽.因为重新安装机房需要做大量的工作,常见的有修改计算机名,IP地址,还有一些机房管理软件的配置,考试软件的配置等等,所有这些操作需要耗费大量时间.如果有一个软件能自动帮我们完成这项的工作,那是多么美好的事啊.根据本人的经验和研究,利用VB开发平台,开发出一套自动修改IP、计算机名及相关配置的软件.
设计思想:根据计算机网卡上的MAC地址来修改IP、计算机名等配置.之所以选择用MAC地址来作为关键字,是因MAC地址很容易获得.手工获得MAC地址,只要进入命令窗口输入IPCONFIG/ALL,网络上也有很多可以收集局域网MAC地址和计算机名的工具,只要扫描一下,就可以搜索出同一网段的MAC地址和计算机名.
接着就是程序设计的问题了,首先要让程序识别到网卡的MAC地址,程序识别网卡MAC地址的方法很多,最常用的有API函数和调用ipconfig命令.API函数在多网卡或有虚拟网卡的时候会出现认错网卡的问题,处理起来比较复杂,为了简单方便,最后选择了调用ipconfig命令来获得MAC地址.
PublicFunctionstrGetNodeID()AsString
DimWshShell
SetWshShell等于CreateObject("WScript.Shell")
WshShell.Run"cmd/cipconfig/all>c:\NodeID.txt",1,True
SetWshShell等于Nothing
Dimfso,thefile,ln
Setfso等于CreateObject("Scripting.FileSystemObject")
Setthefile等于fso.OpenTextFile("c:\NodeID.txt",1)
DoWhilethefile.atendofstream<>True
ln等于thefile.ReadLine
IfInStr(ln,"PhysicalAddress")<>0Then
ln等于Right(ln,18)
ExitDo
EndIf
Loop
thefile.Close
fso.DeleteFile("c:\NodeID.txt")
Setfso等于Nothing
strGetNodeID等于Replace(ln,"-","")
EndFunction
获得MAC地址之后,再根据数据库中的字段查找到该计算机的机器名、IP地址、及相关配置等相关信息,利用下列函数修改相关的配置.
1修改计算机IP地址、网关、DNS:
PublicFunctionChangeIP(IPAsString,NMAsString,GWAsString,MDNSAsString,SDNSAsString)AsString'返回值说明:返回一个设置的中文说明.
DimstrComputer,objWMIService,colNetAdapters,strIPAddress,strSubMask
DimstrGateway,strGatewaymetric,strDNS,objNetAdapter,errEnable,errGateways,errDNS
strComputer等于"."
SetobjWMIService等于GetObject("winmgmts:\\"&strComputer&"\root\cimv2")
SetcolNetAdapters等于objWMIService.ExecQuery("Select*fromWin32_NetworkAdapterConfigurationwhereIPEnabled等于TRUE")
strIPAddress等于Array(IP)'ip地址
strSubMask等于Array(NM)'子网掩码
strGateway等于Array(GW)'网关
strDNS等于Array(MDNS,SDNS)'主DNS各备DNS
strGatewaymetric等于Array(1)
ForEachobjNetAdapterIncolNetAdapters
errEnable等于objNetAdapter.EnableStatic(strIPAddress,strSubMask)
errGateways等于objNetAdapter.SetGateways(strGateway,strGatewaymetric)
errDNS等于objNetAdapter.SetDNSServerSearchOrder(strDNS)
IferrEnable等于0AnderrGateways等于0AnderrDNS等于0Then
ChangeIP等于"设置成功"
Else
IferrEnable等于0ThenChangeIP等于"IP地址和子网掩码设置成功,"
ElseChangeIP等于"IP地址或子网掩码设置失败,"
EndIf
IferrGateways等于0ThenChangeIP等于ChangeIP&"网关设置成功,"
ElseChangeIP等于ChangeIP&"默认网关设置失败,"
本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文EndIf
IferrDNS等于0ThenChangeIP等于ChangeIP&"DNS设置成功"
ElseChangeIP等于ChangeIP&"DNS设置失败"
EndIf
EndIf
Next
EndFunction
2修改计算机名、工作组
PublicFunctionsetCName_JoinGroup(CNameAsString,JoingroupAsString)AsBoolean
SetobjWMIService等于GetObject("winmgmts:{impersonationLevel等于impersonate}！\\"&"."&"\root\cimv2")
SetcolComputers等于objWMIService.ExecQuery("Select*fromWin32_ComputerSystem")
ForEachobjComputerIncolComputers
Err等于objComputer.Rename(CName)'机器名
ReturnValue等于objComputer.JoinDomainOrWorkGroup(Joingroup)'工作组
Next
EndFunction
3读写ini配置文件,申明API函数
GetPrivateProfileInt、GetPrivateProfileString、WritePrivateProfileString
'指定要写的INI文件名
PrivateIniFileNameAsString,ErrorMsgAsString
PrivateSubClass_Initialize()
IniFileName等于vbNullString
ErrorMsg等于vbNullString
EndSub
PublicSubSpecifyIni(FilePathName)
IniFileName等于Trim(FilePathName)
EndSub
PrivateFunctionNoIniFile()AsBoolean
NoIniFile等于True
IfIniFileName等于vbNullStringThen
ErrorMsg等于"没有指定INI文件":ExitFunction
EndIf
ErrorMsg等于vbNullString
NoIniFile等于False
EndFunction
PublicFunctionWriteString(SectionAsString,keyAsString,valueAsString)AsBoolean
WriteString等于False
IfNoIniFile()ThenExitFunction
IfWritePrivateProfileString(Section,key,value,IniFileName)等于0Then
ErrorMsg等于"写入失败":ExitFunction
EndIf
WriteString等于True
EndFunction
PublicFunctionReadString(SectionAsString,keyAsString,SizeAsLong)AsString
DimReturnStrAsString,ReturnLngAsLong
ReadString等于vbNullString
IfNoIniFile()ThenExitFunction
ReturnStr等于Space(Size)
ReturnLng等于GetPrivateProfileString(Section,key,vbNullString,ReturnStr,Size,IniFileName)
ReadString等于Left(ReturnStr,ReturnLng)
EndFunction
最后:有了这些代码,在主窗口中调用这些函数,就能轻轻松松的设计一套全自动修改计算机配置的小软件了,加入注册表程序,放在启动项runonce里,程序就会实现在计算机安装系统后,第一次启动时加载,进行修改计算机名,IP,及相关的配置文件.
结语
该软件已经成功的运用于我校的计算机机房的系统安装上,节省了大量的人力物力.该软件还可以应用在网吧及其它企业,计算机相对比较多的机房里,进行全自动系统安装.