vbs加域脚本VIP免费

以下脚本都在域控上发布使用过，都正常。 每个脚本保存*.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 set objShell=wscript.createObject("wscript.shell") iReturn=objShell.Run("cmd.exe /C net use \\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( s...