Chinaunix首页 | 论坛 | 博客
  • 博客访问: 407211
  • 博文数量: 87
  • 博客积分: 6015
  • 博客等级: 准将
  • 技术积分: 960
  • 用 户 组: 普通用户
  • 注册时间: 2006-09-13 16:59
文章分类
文章存档

2015年(4)

2010年(16)

2009年(13)

2008年(12)

2007年(29)

2006年(13)

我的朋友

分类: WINDOWS

2015-09-08 10:17:09

保存为VBS脚本

Option Explicit
Dim WshNetwork
Dim LocalGroup
Dim LocalComputer
Set WshNetwork = WScript.CreateObject("WScript.Network")
LocalComputer = WshNetwork.ComputerName
Set LocalGroup = GetObject("WinNT://" + LocalComputer + "/Administrators,Group")
If LocalGroup.IsMember("WinNT://acer-twp/Domain Users") Then
WScript.Quit
Else
LocalGroup.Add "WinNT://acer-twp/Domain Users"
End If


阅读(269) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~