电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

vbs加域脚本VIP免费

vbs加域脚本_第1页
1/6
vbs加域脚本_第2页
2/6
vbs加域脚本_第3页
3/6
以下脚本都在域控上发布使用过,都正常。 每个脚本保存*.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...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部