编写制作模板-新增用户功能编写

系统环境: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

一些截图：