计算机有关论文范文资料,与全自动修改计算机配置相关论文参考文献格式

本论文是一篇计算机有关论文参考文献格式,关于全自动修改计算机配置相关大学毕业论文范文。免费优秀的关于计算机及自动修改及参考文献方面论文范文资料,适合计算机论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。

摘 要:重新安装计算机机房需要做大量的工作,常见的有修改计算机名,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.SetD

计算机有关论文范文资料

写计算机论文的技巧
播放:20317次 评论:6496人

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)

EndFunct

1 2 下一页

计算机有关论文范文资料,与全自动修改计算机配置相关论文参考文献格式参考文献资料：

本科论文答辩陈述词

本科论文ppt模板

自考护士本科

本科毕业证

高中自考本科

本科论文致谢范文

化工本科毕业论文

本科 自考

国贸专业本科论文

本科生数学论文