系统环境:windows2008R2;

需求内容：在windows环境下快速部署SMB+FTP共享文件服务器

①以工号为账号、密码

②每个人都能读写自己部门的目录；

③所有人都能读写公共盘目录；

④所有人只读software目录；

⑤管理员可以读写所有目录；

⑥后期需要根据需求细化权限管理；

准备内容：

1.office2010安装包,安装；

2.filezilla服务端安装包，安装；

3.添加windows角色,文件服务；

4.安装安全软件，设置受信目录；

5.EXCEL模板打开并设置宏安全；

6.本地安全设置,密码策略修改;

删除用户篇：

1.删除命令:

net user 用户名 /DELETE

2.for 循环

3.写到文件

batfile   = "D:\TOOLS\smbr.BAT"

Open batfile For Append As #1

Print #1, "1111111"

Close #1

追加:Append

输出:output

VBA调用dos命令：

Shell "cmd.exe /c 你的命令" , vbHide

读取txt把内容写到EXCEL:

Open txtfile For Input As #1

a = Split(Replace(StrConv(InputB(LOF(1), 1), vbUnicode), " ", vbCrLf), vbCrLf)

Close #1

K = UBound(a)

z = 2

For i = 5 To K

Cells(z, 1) = a(i)

z = z + 1

Next

一些截图：