在Sharepoint Server中，因为用户信息较多，如果手动添加用户至活动目录将非常麻烦。在网络上找到一段vbs脚本可以批量添加用户到AD活动目录，代码：

Option Explicit

On Error Resume Next

'如果脚本运行不正常，请注释这一行，

Const ForReading=1

'设置fso打开文件的参数

Dim adsDomain,adsUser,fso,tsInputFile,strLine,arrInput,fldUserHomedir,wshShell,strUserNames,strDomain,strPC,strInputFile,strShare

MsgBox "本脚本用于从一个csv文件里面读取并创建本地用户，当然，也可以创建AD用户，请你自行修改源代码，用户列表源文件可以使用CSV文件，也可以自己编写，格式如下(用逗号隔开)"+vbCrlf+vbCrlf+"用户名,过期时间,用户描述,显示名称,密码"+vbCrlf+"user5,12/31/03,the 1st,user003,555555“

strDomain=InputBox("请输入域名或者所在的工作组，比如WORKGROUP、MyDomain",,"WORKGROUP")

strPC=InputBox("请输入计算机名，比如Tommy",,"phy-dc1")

strInputFile=InputBox("请输入保存用户列表的文件名：",,"UserList.csv")

strShare=InputBox("请输入保存用户配置文件的网络文件夹，比如\\DC1\Share\，不使用网络文件夹的请输入none，注意！！！路径要以“\”结尾",,"none")

。。。。。。

et adsUser=Nothing

Wend

tsInputFile.Close

WScript.Echo "账号创建成功，它们是: " & vbCrlf & vbCrlf & strUserNames & vbCrlf & "请手动修改网络文件夹中users目录的NTFS属性，去掉EveryOne的FC权利"

WSCript.Quit

但这段代码经多客测试存在一些错误，如下：

批量添加用户时不能读取csv文件的密码，因此密码为空，用户只能用空密码登陆系统。
批量添加用户后用户在AD中不能自动启动，需要手动启动，这也是很大的工作量啊。
批量添加时账户选项默认为“用户下次登陆需修改密码”，这种情况下用户在sharepoint系统中是没有办法登陆的，必须将账户选项更改为“密码永不过期”或者不选择账户选项中的任何一项。这个时候笔者尝试使用一款叫做admodify的软件来批量去掉或者更改账户选项。（该软件在”导出软件”文件夹中）
因为是vbs脚本语言，因此如果批量添加用户的话会导致服务器卡死。
由于代码质量不高（此脚本代码循环有问题）导致添加用户时出现偶数个用户（2、4、6、8……）出现提示“已存在，不能创建”
根据以上问题，重新修改代码：

阅读全文。。。

看了这两天各大媒体对谷歌的狂轰滥炸，再看看这些文章的评论，大家就会知道，xx部也是会找枪手的

你以为你遇到不平了可以到媒体爆料一下？这些“SB”技俩，对付对付你们的县官还有用

绿坝误杀、过滤不净这就是技术问题？拿3000万也可以不负责任？

——新浪你怎么不报道一下啊？

——凭什么谷歌就要负责任？？

只许。。。，不许。。。——这就是事实了

　广东版常识

　　老师,你有没有常识啊?

　　俗话说:长太息以掩涕兮,哀民生之多艰。作为一个考试时代的人族子民，每天去上学让我感到非常无语，我总是哀学生之多灾多难。这种感觉，有时候让人宁愿回到石器时代，那个时代，谁不让我睡觉，我捡一块石头就可以表达我的强烈不满了。每当晚自习放学走出学校，抬头看见天空一轮凄凉的明月，我不禁发出千古一问：老师，你有没有常识啊？难道你不知道是人都要睡觉的吗？竟然不让我在课堂上睡觉。

　　从早上很早就要回到学校了，有多早？7点。作为一个老师，你竟然还很无耻的告诉我们，人家哪间哪间学校，6点多就全部回到教室看书了。我靠，这种语气，和那些白痴女人一整天喜欢说我那个friend,我有个friend的调调完全一样白痴。本来我想举个例子说，人家美国……可惜啊，信息来源实在是太封闭了，只能听见老师说，人家哪间哪间学校，却从来不会听见老师说人家美国。不举美国的例子没关系，老师，我告诉你，中东那边，很生气的人，喜欢玩人肉炸弹的，这是CCAV的新闻连播说的。

　　中东啊，水深火热，我们新一代的祖国花朵多幸福，天天早上7点回到学校。但是，我要睡觉啊。我晚上12点才睡，早上6点多起床。早上7点回到学校，一直到晚上10点多才放学。我肯定不够睡。午休？老师，你有没有常识啊？有些人中午睡那些一个小时，不睡还好，越睡越头晕。没办法，我上课打瞌睡。很累了，打瞌睡，这是正常的生理现象。老师你竟然说，上课要睡觉的同学回家睡，我靠，你以为我不想回家睡。我真的好痛苦，好痛苦。我觉得老师没常识，校长没常识，教育界没常识，现在高考写常识，无疑就是给我机会，表达我对整个中国教育界的强烈的不满，还有深深的鄙视。你们没常识。学生是要睡觉的……学校是我们的，也是你们的，但归根结底，还是你们的……人是要睡觉的……我要睡觉……睡觉……

------------------------------------------------------------------------------
写了一半发现太罗嗦了，还是直接打包传上来吧
仅保留了关键文件——也是修改过的文件，修改了版面和部分文字、确认页有个5秒自动返回，除此之外没有多余的效果
没怎么测试——但是限制修改其他用户还是简单测试过的，包括中英文名的测试

http://cid-351b4284b8e09b4a.skydrive.live.com/self.aspx/.Public/iisadmpwd.rar

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

在MOSS(Microsoft Office SharePoint Server)中部署密码修改部件有很多方法，网上有很多收费的组件，还有网友自己编写的webpart，但效果都不是很好，功能过于繁琐且容易造成数据损坏。

下面是利用IIS自带的iisadmpwd制作webpart的实例，并且解决了安全性问题

——很多用户抛弃iisadmpwd的原因是认为其可以利用穷举法猜测密码。

首先复制%system%\System32\Inetsrv\iisadmpw到网站目录下——网上转载的文章多采用建立虚拟目录的方式，但这非常不利于网站备份、迁移。

iisadmpw目录里aexp2.asp用于有SSL连接的访问；aexp3.asp用于普通链接；aexp4.asp只比aexp3.asp多出一段代码，没看出有什么

此时可以测试一下访问iisadmpwd/aexp3.asp

如果可以正常访问，可以跳过下面两个步骤

1-打开IIS信息服务管理器，进入“web服务扩展”，允许“Active Server Pages”

2-如过还无法访问，可以参照Microsoft帮助和支持：

短信发送提示
[HKEY_LOCAL_MACHINE\Software\Microsoft\Inbox\Settings]
"SMSNoSentMsg"=dword:为0

WM6.5开始菜单图标
[HKEY_LOCAL_MACHINE\Security\Shell\StartInfo\Start]

还原WM　“通知” 样式
[HKEY_LOCAL_MACHINE\Security\Shell\StartInfo\Start]
[HKEY_LOCAL_MACHINE\Services\NOTIFICATIONMANAGER][HKEY_LOCAL_MACHINE\System\Shell\Notification\OEM]

Gmail与Windows Mobile手机与Windows Live联系人三方同步
——先声明这没什么意义，又需要有一定的耐心，无聊的人和有特殊需求的人可以尝试。

Gmail的联系人与Windows Mobile同步是通过Google Sync用ActiveSync同步。

Windows Live的联系人Windows Mobile同步是通过Windows Live for Mobile——不是MSN中国提供的那个阉割版（找不到可以搜Windows Live 10.6.0034.2500）

Windows Live for Mobile一般会在PPC手机的原版系统里集成，除了包含Windows Live Messenger最大的特点就是可以使PPC收发Hotmail，另外还会在 今日 里显示状态。

下面说同步，先假设这两个服务都没使用过——联系人里面都是空的：

根据Google Sync，设置好ActiveSync，这样Gmail联系人里就有了PPC中的联系人；然后安装Windows Live，之后只要在PPC的联系人里将联系人添加到Windows Live里就行了。——之后导入才是重点

先上效果:

研华WebAccess是一款功能非常强大的网际组态软件。由于工业网络控制是一项新兴的技术，所以网上关于WebAccess的资料非常有限，但是研华公司的文档却写得非常烂，很多关键内容不是缺失就是没有全面介绍，严重影响了用户使用。

DAQ点%TLV和%TLS是程序自带的drw文件almdis.drw中用到的点，在用户手册中只在其它点的示例中一带而过，却没说明作用，实际上%TLV和%TLS对用户的界面编写很有帮助。

这两点比较像指针，%TLV（）的功能大概是读取数组中指定元素的值；%TLS（）大概是比较数字。

下面是对这两点的一些测试：

常数点arr1是数组，初始值如下：

arr1(0)=google
arr1(1)=microsoft
arr1(2)=apple
arr1(3)=rim
arr1(4)=nokia

---------------------------
先看%TLV，后面跟着的是得到的值

k==0

%TLV(arr1 0 k) google
%TLV(arr1 1 k) microsoft
%TLV(arr1 2 k) apple

//读取数组arr1中第（数字+k）个元素的值

%TLV(arr1(1) 0 k) microsoft
%TLV(arr1(1) 1 k) microsoft

//当指定arr1(1)时，%TLV失效，没有得到（1+数字+k）
---------------------------
k==1

%TLV(arr1 0 k) microsoft
%TLV(arr1 1 k) apple
%TLV(arr1 2 k) rim

%TLV(arr1(1) 0 k) microsoft
%TLV(arr1(1) 1 k) microsoft
---------------------------
k==2

%TLV(arr1 0 k) apple
%TLV(arr1 1 k) rim
%TLV(arr1 2 k) nokia
---------------------------
%TLV(arr1 0 1) microsoft
%TLV(arr1 0 2) apple

%TLV(arr1(1) 0 2) microsoft
%TLV(arr1(1) 1 3) microsoft

---------------------------
下面是%TLS

arr1(0)==1
//当arr1(0)=1时

k==0
%TLS(arr1 0 k) 0        %TLV(arr1 0 k) 1
%TLS(arr1 1 k) 1 报警 %TLV(arr1 1 k) microsoft
%TLS(arr1 2 k) 2        %TLV(arr1 2 k) apple

//用（数字+k）与arr1（即arr1(0)）比较，相同即报警，后面可以看到%TLV得到的值

k==1
%TLS(arr1 0 k) 1 报警
%TLS(arr1 1 k) 2
%TLS(arr1 2 k) 3

k==2
%TLS(arr1 0 k) 2
%TLS(arr1 1 k) 3
%TLS(arr1 2 k) 4
---------------------------
arr1(1)==2
k==0
%TLS(arr1(1) 0 k) 0         %TLV(arr1 0 k) google
%TLS(arr1(1) 1 k) 1          %TLV(arr1 1 k) 2
%TLS(arr1(1) 2 k) 2 报警 %TLV(arr1 2 k) apple

//如果特别指定与arr1(1)比较，同样有效

k==1
%TLS(arr1(1) 0 k) 1
%TLS(arr1(1) 1 k) 2 报警
%TLS(arr1(1) 2 k) 3
---------------------------
arr1(0)==1
%TLS(arr1 0 1) 1 报警 %TLV(arr1 0 0) 1
%TLS(arr1 1 2) 3         %TLV(arr1 1 0) microsoft
%TLS(arr1 2 2) 4         %TLV(arr1 2 0) apple

arr1(1)==1
%TLS(arr1(1) 0 1) 1 报警 %TLV(arr1 0 0) google
%TLS(arr1(1) 1 2) 3          %TLV(arr1 1 0) 1
%TLS(arr1(1) 2 2) 4          %TLV(arr1 2 0) apple

//当k变成数字时也有效

补充——终极形态。。。

%TLS(1 0 1) 1 报警

WebAccess安装后有一个演示工程，其中有一个风扇旋转的动画，如果你尝试自己制作它，可能会发现，无论用什么算法，风扇的旋转速度总是上不去

问题的关键：

在DrawDAQ中，工具栏第五个：设置图表参数，将“图表更新时间间隔”和“脚本更新时间间隔”都改成1，确定。。。

好了，现在可以享受40fps的狂飙了