EXCEL+VBA 管理windows用户 文件服务器用户 新增或删除用户
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了EXCEL+VBA 管理windows用户 文件服务器用户 新增或删除用户,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含2016字,纯文字阅读大概需要3分钟。
内容图文
1.调用DOS命令:net user 获取系统用户到txtfile
2.打开txtfile把内容处理(空格全替换为换行;已换行分列)后赋值到A
3.把A列不为空的值且不到特殊用户表的值写到临时表
4.与EXCEL用户表进行对比 使用函数COUNTIF
(1)临时表有,用户表没有——编写删除用户命令: "net user " & Range("a" & i) & " /DELETE"
(2)临时表没有,用户表有——编写新增用户命令:"net user " & Range("a" & i) & " " & Range("B" & i) & " /add /fullname:" & Chr(34) & Range("D" & i) & Chr(34) & " /comment:" & Chr(34) & Range("E" & i) & Range("F" & i) & Chr(34)
写到batfile文件;
5.执行batfile脚本,实现windows用户与EXCEL用户同步;
视频教程制作中:https://edu.51cto.com/lecturer/6969164.html
VBA代码如下:
Option Explicit
Dim a, K%, i%, z%, ii%
Public Const batfile As String = "D:\TOOLS\smbr.BAT"
Public Const txtfile As String = "D:\TOOLS\windowssmb.txt"
Sub UPDATEUSERS()
Shell "cmd.exe /c " & " net user >" & txtfile, vbHide
t = Timer + 0.3
Do Until Timer > t
DoEvents
Loop
Sheets("SMB").Select
Columns("A:A").Select
Selection.ClearContents
Range("A1") = "SMBUSERS"
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
If a(i) <> "" And Application.WorksheetFunction.CountIf(Sheets("SPUSERS").Range("A:A"), a(i)) = 0 And a(i) <> "命令成功完成。" Then
Cells(z, 1) = a(i)
z = z + 1
End If
Next
Sheets("SMB").Select
Open batfile For Append As #1
h = Range("A65535").End(xlUp).Row
For i = 2 To h
If Application.WorksheetFunction.CountIf(Sheets("DATA").Range("A:A"), Range("A" & i)) = 0 Then
Print #1, "net user " & Range("a" & i) & " /DELETE"
End If
Next
Sheets("DATA").Select
h = Range("A65535").End(xlUp).Row
For i = 2 To h
If Application.WorksheetFunction.CountIf(Sheets("SMB").Range("A:A"), Range("A" & i)) = 0 Then
Print #1, "net user " & Range("a" & i) & " " & Range("B" & i) & " /add /fullname:" & Chr(34) & Range("D" & i) & Chr(34) & " /comment:" & Chr(34) & Range("E" & i) & Range("F" & i) & Chr(34)
Print #1, "NET LOCALGROUP Users " & Range("a" & i) & " /Delete"
End If
Next
Close #1
End Sub
内容总结
以上是互联网集市为您收集整理的EXCEL+VBA 管理windows用户 文件服务器用户 新增或删除用户全部内容,希望文章能够帮你解决EXCEL+VBA 管理windows用户 文件服务器用户 新增或删除用户所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。