vbscript 使用WinNT提供程序创建本地组

Posted 2021-05-21

On Error Resume Next
ClassName = "group"
RelativeName = "Prowatch"
Set IADsContainer = GetObject("WinNT://.")
Set IADsGroup = IADsContainer.GetObject(ClassName, RelativeName)
if TypeName(IADsGroup) <> "Object" then
	Set IADsGroup = IADsContainer.Create(ClassName, RelativeName)
	IADsGroup.SetInfo
end if
WScript.Quit(Err.Number)

On Error Resume Next
GetObject("WinNT://.").Create("group", "Prowatch").SetInfo
if Err.Number = "-2147023517" then Err.Clear ' group already exists
WScript.Quit(Err.Number)