vbs脚本添加域

来源：互联网发布：新破天一剑淘宝编辑：程序博客网时间：2024/05/29 19:53

以下脚本都在域控上发布使用过，都正常。每个脚本保存*.VBS即可。

---------------------------------------------------------------------------------------------------------------------------------

加域脚本

On Error Resume Next

dim domain

set domain =createobject("wscript.shell")

Const JOIN_DOMAIN = 1

Const ACCT_CREATE = 2

Const ACCT_DELETE = 4

Const WIN9X_UPGRADE = 16

Const DOMAIN_JOIN_IF_JOINED = 32

Const JOIN_UNSECURE = 64

Const MACHINE_PASSWORD_PASSED = 128

Const DEFERRED_SPN_SET = 256

Const INSTALL_INVOCATION = 262144

strDomain = "nd.com"

strPassword = "密码"

strUser = "域管理权限的帐户"

Set objNetwork =CreateObject("WScript.Network")

strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"& _

strComputer &"\root\cimv2:Win32_ComputerSystem.Name='" & _

strComputer & "'")

ReturnValue =objComputer.JoinDomainOrWorkGroup(strDomain, _

strPassword, strDomain & "\"& strUser, NULL, _

JOIN_DOMAIN + ACCT_CREATE)

wscript.echo "计算机加入域成功"

---------------------------------------------------------------------------------------------------------------------------------

添加打印机

DIM objShell

setobjShell=wscript.createObject("wscript.shell")

iReturn=objShell.Run("cmd.exe /C netuse \\172.20.10.14\ipc$ ""prt88.com""/user:""print""", 0,true)

Set WshNetwork =CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection"\\172.20.10.14\4200"

WshNetwork.SetDefaultPrinter"\\172.20.10.14\4200"

DIM cg

cg="打印机添加成功"

msgbox(cg)

---------------------------------------------------------------------------------------------------------------------------------

修改DNS

Const STR_NEWDNS1 = "58.22.96.66"

Const STR_NEWDNS2 ="218.104.128.106"

Set fs=CreateObject("Scripting.FileSystemObject")

strWinMgmt="winmgmts:{impersonationLevel=impersonate}"

Set objNICs = GetObject( strWinMgmt).InstancesOf("Win32_NetworkAdapterConfiguration")

For Each objNIC In objNICs

If objNIC.IPEnabled Then

objNIC.SetDNSServerSearchOrderArray(STR_NEWDNS1,STR_NEWDNS2)

---------------------------------------------------------------------------------------------------------------------------------

统计电脑配置信息

On Error Resume Next

temp=0

setwshshell=wscript.createobject("wscript.shell")

Set WshNetwork =WScript.Createobject("WScript.Network")

computername=WshNetwork.ComputerName

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer& "\root\CIMV2")

Set cpu = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")

For Each objItem In cpu

cpu2="CPU(G): " & objItem.name

Version2= "Version: " & objItem.Version

set disk=objwmiservice.execQuery("select * from win32_diskdrive")

for each item in disk

disk2= "HD: " & item.model

size2="Size(GB):"& round(item.size/1000000000)

Set colItems =objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory")

For Each objItem in colItems

a=objitem.capacity/1048576

temp=temp+objitem.capacity

n=n+1

memory=temp/1048576

if n=1 then

memory2= "Memory: " & n &"*" &a&"M"

else

memory2= "Memory: " & n &"*" &a&"M"&"Total:"&memory&"M"

end if

Set colItems =objWMIService.ExecQuery("SELECT * FROM Win32_VideoController")

For Each objItem In colItems

name= "Video: " & objItem.Name

RAM ="Video_memory(MB): " & objItem.AdapterRAM/1048576

SetcolItems = objWMIService.ExecQuery("SELECT * FROMWin32_OperatingSystem")

For Each objItem In colItems

operatingsys="OperatingSystem: " & objItem.Caption

SP ="SP: " &objItem.CSDVersion

Setboard =objwmiservice.execQuery("select * from win32_baseboard")

for each item in board

board2= "Mainboard: " & item.Product

SET fso =createobject("scripting.filesystemobject")

txtpath = "\\共享\"&computername&".txt"

set fs = fso.createtextfile(txtpath,true)

fs.writeline("Computername:"+computername)

fs.writeline(cpu2)

fs.writeline(memory2)

fs.write(disk2+" ")

fs.writeline(size2)

fs.writeline(board2)

fs.write(name)

fs.writeline(ram)

fs.writeline(operatingsys)

fs.writeline(sp)

fs.close

修改本地管理员密码

strComputer="."

strComputer = "."

Set objUser =GetObject("WinNT://" & strComputer & "/Administrator,user")

objUser.SetPassword "密码"

objUser.SetInfo

Set objDomain = GetObject("WinNT://"& strComputer)

objDomain.Filter = Array("User")

For Each objUser in objDomain

strUser = objUser.Name

If strUser <> "Administrator" Then

Set objUser =GetObject("WinNT://" & strComputer & "/guest")

objUser.AccountDisabled = True

objUser.SetInfo

End If

---------------------------------------------------------------------------------------------------------------------------------

修改桌面到D盘

Const HKEY_CLASSES_ROOT = &H80000000

Const HKEY_CURRENT_USER = &H80000001

Const HKEY_LOCAL_MACHINE = &H80000002

Const HKEY_USERS = &H80000003

Const HKEY_CURRENT_CONFIG = &H80000005

strComputer = "."

Set StdOut = WScript.StdOut

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer &"\root\default:StdRegProv")

strKeyPath ="Software\Microsoft\Windows\CurrentVersion\Explorer\User ShellFolders"

strValueName = "Desktop"

strValue = "d:\桌面"

oReg.SetExpandedStringValueHKEY_CURRENT_USER,strKeyPath,strValueName,strValue

---------------------------------------------------------------------------------------------------------------------------------

设置Wins-IP

On Error Resume Next

Const USE_WINS = true

Const USE_LMHOST_FILE = true

strComputer = "."

strWINSPrimaryServer ="192.168.2.11"

strWINSSecondaryServer = ""

Set objWMIService =GetObject("winmgmts:" _

&"{impersonationLevel=impersonate}!\\" & strComputer &"\root\cimv2")

Set objNetworkSettings =objWMIService.Get("Win32_NetworkAdapterConfiguration")

errResult =objNetworkSettings.EnableWINS(USE_WINS, USE_LMHOST_FILE)

Set colNicConfigs = objWMIService.ExecQuery_

("SELECT * FROMWin32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objNicConfig In colNicConfigs

intSetWINSServer = objNicConfig.SetWINSServer(strWINSPrimaryServer, _

strWINSSecondaryServer)

IfintSetWINSServer = 0 Then

WScript.Echo " Successfully set WINS servers."

ElseIf intSetWINSServer = 1 Then

WScript.Echo " Successfully set WINS servers." & _

VbCrLf & " Mustreboot."

Else

WScript.Echo " Unable toset WINS servers."

EndIf

---------------------------------------------------------------------------------------------------------------------------------

启用默认共享

Const HKEY_CLASSES_ROOT = &H80000000

Const HKEY_CURRENT_USER = &H80000001

Const HKEY_LOCAL_MACHINE = &H80000002

Const HKEY_USERS = &H80000003

Const HKEY_CURRENT_CONFIG = &H80000005

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_

strComputer &"\root\default:StdRegProv")

strKeyPath ="SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters"

strValueName ="AutoShareServer"

strValue = "1"

oReg.SetDwordValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strKeyPath ="SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters"

strValueName ="AutoShareWks"

strValue = "1"

oReg.SetDwordValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

---------------------------------------------------------------------------------------------------------------------------------

修改桌面我的文档 Favorites 到D盘

Const HKEY_CLASSES_ROOT = &H80000000

Const HKEY_CURRENT_USER = &H80000001

Const HKEY_LOCAL_MACHINE = &H80000002

Const HKEY_USERS = &H80000003

Const HKEY_CURRENT_CONFIG = &H80000005

strComputer = "."

Set StdOut = WScript.StdOut

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_

strComputer &"\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\UserShell Folders"

strValueName = "Desktop"

strValue = "d:\Documents andSettings\Administrator\桌面"

oReg.SetExpandedStringValueHKEY_CURRENT_USER,strKeyPath,strValueName,strValue

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\UserShell Folders"

strValueName = "Personal"

strValue = "D:\我的文档"

oReg.SetExpandedStringValueHKEY_CURRENT_USER,strKeyPath,strValueName,strValue

strKeyPath ="Software\Microsoft\Windows\CurrentVersion\Explorer\User ShellFolders"

strValueName = "Favorites"

strValue = "D:\Favorites"

oReg.SetExpandedStringValueHKEY_CURRENT_USER,strKeyPath,strValueName,strValue

---------------------------------------------------------------------------------------------------------------------------------

0 0