qiqinghua-青蛙的梦想

根据计算机帐号，将其自动的移动到相应的OU脚本

2008-05-12T08:24:00Z

很多的企业都有这样的要求：希望整理自己的computers容器中的计算机，根据计算机名将其添加到对应的OU中去，但如果由人力来实现的话，工作量非常大，所以，在这次给某个企业实施项目的时候，我随手写了一个脚本，该脚本会自动将计算机加入到对应的OU中去。用户可以自己改写一下脚本，以适应自己的情况，我的脚本里对计算机名截取了2个字符。

dim strADsPath
dim sResultText
Const ADS_SCOPE_SUBTREE = 2
Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")
'Open the connection with the ADSI-OLEDB provider name
con.Provider = "ADsDSOObject"

con.Open

Com.ActiveConnection = con

Com.CommandText = "<LDAP://cn=computers,DC=contoso,DC=com>;" & "(objectClass=computer);name;subTree"
Set rs = Com.Execute()
i=0

Do Until rs.EOF
   sResultText=rs.Fields("name").value
   Select Case left(sResultText,2)
   Case "c1"
       strADsPath="LDAP://cn=" & sResultText & ",cn=computers,dc=contoso,dc=com"
       set objou=getobject("LDAP://ou=ouc1,dc=contoso,dc=com")
       objou.movehere strADsPath,vbNullString
   Case "c2"
       strADsPath="LDAP://cn=" & sResultText & ",cn=computers,dc=contoso,dc=com"
       set objou=getobject("LDAP://ou=ouc2,dc=contoso,dc=com")
       objou.movehere strADsPath,vbNullString
   Case "c3"
      strADsPath="LDAP://cn=" & sResultText & ",cn=computers,dc=contoso,dc=com"
      set objou=getobject("LDAP://ou=ouc3,dc=contoso,dc=com")
       objou.movehere strADsPath,vbNullString
   Case "c4"
      strADsPath="LDAP://cn=" & sResultText & ",cn=computers,dc=contoso,dc=com"
      set objou=getobject("LDAP://ou=测试,dc=contoso,dc=com")
       objou.movehere strADsPath,vbNullString
End Select

rs.MoveNext
Loop

con.close

然后，在控制面板的“定期任务”中，将此脚本指定多少时间执行一次，然后输入执行的用户和密码，即可。

收工，撤！

一种简单的修改所有域内本地管理员密码，及加某个帐号至本地管理员组的方法

2008-03-03T04:26:00Z

在一个实施项目的过程中，客户提出两个要求：

1.自动修改所有的本地管理员密码

2.将某个域用户自动的加入到本地的管理员组中

这两个要求实现起来不难，我用了一个最简单的方法，创建一个bat文件，然后将其放置在组策略的计算机启动策略上，即可完成

但是要注意的是，我是在域级别上设置组策略的，所以，如果不加处理，则域管理员的密码也会发生更改，所以，在组策略上的安全上要设置过滤掉域控制器。

下面是bat文件：

net user administrator Pa$$w0rd1
net localgroup "administrators" contoso\testadmin /add

安装配置RMS服务器步骤

2008-03-03T03:46:00Z

RMS服务器管理配置

一．安装RMS服务的硬件和软件要求：

建议硬件要求：

Dual processors

" 512 MB RAM

" 40 GB free hard disk space

" NIC

软件要求

Windows Server 2003 family

" Message Queuing

" IIS 6.0 or greater

" ASP.NET

" NTFS file system

二．安装RMS服务器

（1）添加RMS服务帐号，注意，该帐号是普通域成员帐号，设置密码永不过期，同时必须有电子邮件地址。

（2）在DNS中创建CLUSTER的CName纪录

指向rms服务器的IP地址：

（3）在RMS服务器上添加IIS，ASP.net，Message Queueing服务

（4）安装RMS服务器

三．初步设置RMS服务器

（1）安装完成后，出现Windows RMS管理控制台

（2）点击进入后，出现global administration界面

在底部，选择provision web on this web site.

然后在出现的界面中，输入数据库的参数，在这里采用本地的数据库

注意，在这里网络的Enroll选择离线，如果你的RMS服务器连接在Internet上，可以直接申请。

在提交以后，RMS开始创建相应的目录和应用程序地址池。

然后，进入enroll界面：

点击enroll button，将证书申请导出成一个xml文件：

打开IE至如下地址：

https://go.microsoft.com/fwlink/?LinkId=25828，然后将前面导出的文件导入。获得一个新的服务器证书文档，再将其导入到RMS服务器中。

导入结束后，选择：RMS SERVICE Connection Point

然后选择register URL，注意这个要求你是企业级管理员。

再次观察证书已经成功导入，并且警告信息消失了。

四．客户端设置

客户端必须安装office 2003

修改IE的本地站点设置

添加本地站点：

安装RMS客户端

五．修改组策略

（1）导入组策略模板

（2）修改组策略

到这里，RMS安装完成。

另，要注意的是，RMS不能安装在中文版windows上面。即使是英文版，加中文语言包都不行。

还要注意的是，如果前次安装失败，一定要上出AD站点和服务中的right managerment server的服务节点，才可以重新