当一个企业要全面实施AD，对网络管理员来说是一次挑战，当项目实施完以后，并非一劳永逸的事情。
我们还要对网络进行不断的维护，下面讲讲我在实施活动目录后，还要做的一些事情的脚本。
这些资料在网上都是很零碎的，曾经想开一个网站，专于活动目录的实施、维护、管理，后来没有太多的时间，就将网站的事情给搁置了，现在就在cnblogs上发布来一些资料。
一、禁用本地管理员
禁用本地管理员目的是降低客户机的用户在本地的管理，取而代之的是网络管理员来实现统一布置和管理.
1）方法一
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: reset  user of administrators group's randomize password
'
' AUTHOR: Bona Shen
' DATE  : 2006-12-10
'
' COMMENT: 每次启动时随机产生15位密码重置管理员组的用户密码
'
'==========================================================================

'Set objNetwork = CreateObject("Wscript.Network")
strComputer = "."'objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
Randomize
For Each objUser In colAccounts
    'Wscript.Echo objUser.Name 
    For Each objGroup In objUser.groups
        If objGroup.name = "Administrators" Then 
            objUser.SetPassword GeneratePassword()
            objUser.setInfo
            'WSH.Echo GeneratePassword()
        End If 
    Next
    
Next


Function GeneratePassword
 'Dim strPassword
  strPassword =" 123)4(5!6~7890%#$@&*"
  password = ""
 Dim j
  
 

[1] [2] [3] 下一页