使用vb脚本让电脑自动加入域源码

大佬教程收集整理的这篇文章主要介绍了使用vb脚本让电脑自动加入域源码，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

在企业用户中，一大部分用户都加入了域，用于公司的安全管理。加入域对于管理比较方便。但是新增的设备或者用户如何快速的加入已知的域呢？很简单，看代码：

set objSHell=wscript.createObject("wscript.sHell")
strComputer = "."
Dim WshNetwork
Dim strComputer
Set WshNetwork = WScript.CreateObject("WScript.Network")
strDomain = WshNetwork.UserDomain
if strDomain = "HUPU" then
	Msgbox "此客户端已经在指定的域中!",64,"加入域工具"
	Wscript.Quit
end if

Msgbox "确定加入域，整个过程大概要1分钟左右","加入域工具"
objSHell.Run "cmd.exe /c netsh interface ip set dns ""本地连接"" static 10.10.2.116 priMary",true
objSHell.Run "cmd.exe /c netsh interface ip add dns ""本地连接"" 114.114.114.114",true

objSHell.Run "cmd.exe /c sc config LmHosts start= AUTO",true
objSHell.Run "cmd.exe /c net start lmhosts",true


Function X86orX64()
    On Error Resume Next
    strComputer = "."
    Set objWMI@R_772_9260@ce = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMI@R_772_9260@ce.ExeCQuery("SELEct * from Win32_ComputerSystem",48)
    
    For Each objItem in colItems
        If @R_197_8566@(objItem.SystemType,"86") <> 0 Then
            X86orX64 = "86"
        ElseIf @R_197_8566@(objItem.SystemType,"64") <> 0 Then
            X86orX64 = "64"
        Else
            X86orX64 = objItem.SystemType
        End If
    Next
    
End Function

Set FSO = CreateObject("ScripTing.FileSystemObject") 
WD = FSO.GetSpecialFolder(0)
SS = FSO.GetParentFolderName(WD)
SS = SS & "windows\system32\"
test = createobject("ScripTing.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

if FSO.FileExists(test & "\netdom64.exe") then

elseif FSO.FileExists(test & "\netdom32.exe") then

else
	Msgbox "生成域程序缺少文件，请联系管理员!",48,"域程序" 
	Wscript.Quit
end if

if X86orX64 = "64" then 
	if FSO.FileExists(SS & "netdom64.exe") then
		objSHell.Run "cmd.exe /c netdom64 join %COMPUTERNAME% /domain:hupu.com /UserD:administrator /passwordD:hpQAZ!@# /reboot:30",true
		Msgbox "加入域成功,30秒后重启系统,cmd输入shutdown -a取消!","加入域工具"
	else
		FSO.copyfile test & "\netdom64.exe",SS '拷贝域程序
	end if
	
	if FSO.FileExists(SS & "netdom64.exe") then
		objSHell.Run "cmd.exe /c netdom64 join %COMPUTERNAME% /domain:hupu.com /UserD:administrator /passwordD:hpQAZ!@# /reboot:30","加入域工具"
	else 
        	Msgbox "域程序生成失败，请联系管理员!","域程序" 
		Wscript.Quit
	end if

elseif X86orX64 = "86" then
	if FSO.FileExists(SS & "netdom32.exe") then
		objSHell.Run "cmd.exe /c netdom64 join %COMPUTERNAME% /domain:hupu.com /UserD:administrator /passwordD:hpQAZ!@# /reboot:30","加入域工具"
	else 
		FSO.copyfile test & "\netdom32.exe",SS '拷贝域程序
	end if
	if FSO.FileExists(SS & "netdom32.exe") then
		objSHell.Run "cmd.exe /c netdom32 join %COMPUTERNAME% /domain:hupu.com /UserD:administrator /passwordD:hpQAZ!@# /reboot:30","域程序" 
		Wscript.Quit
	end if
	
end if

看看效果：

win7，xp全支持。

如有疑问，请加qq群：135430763 共同学习！

大佬总结

以上是大佬教程为你收集整理的使用vb脚本让电脑自动加入域源码全部内容，希望文章能够帮你解决使用vb脚本让电脑自动加入域源码所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。