admin 管理员组

文章数量: 1087139


2024年4月30日发(作者：个人主页ui)

windows AD域实用VBS

使用说明将以下代码粘贴到记事本中保存然后将后缀改为*.vbs即可.

拷贝服务器上的一个文件覆盖本地文件

on error resume next

Dim Wsh

Set Wsh = Object("")

(31000)'

Set fso = CreateObject("stemObject")

le "

","D:Program

FilesSymantecSymantec Endpoint Protection

"

将domain users账号添加到本地administrators组

on error resume next

dim sFlag

Dim oWshNetwork

Set oWshNetwork = Object("k")

strComputer = erName

sFlag=0

Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In s

Next

strTestString = "/" & strComputer & "/"

Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In s

If InStr(h, strTestString) Then

"Local user: " &

Else


本文标签： 文件 保存 代码 粘贴 作者

版权声明：本文标题：windows AD域实用VBS 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1714448976a680614.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。