系统环境:windowsR2;
需求内容：在windows环境下快速部署SMB+FTP共享文件服务器
①以工号为账号、密码
②每个人都能读写自己部门的目录；
③所有人都能读写公共盘目录；
④所有人只读software目录；
⑤管理员可以读写所有目录；
⑥后期需要根据需求细化权限管理；
准备内容：
1.office安装包,安装；
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
一些截图：
