強力鎯頭 VB BLOG

2008-03-24

建立 Windows 群組

建立 Windows 群組

如何建立 Windows 群組

 

Dim objGroup As Object

 

' Environ("COMPUTERNAME") 取得電腦名稱

Set objGroup = GetObject("WinNT://" & Environ("COMPUTERNAME")).Create("GROUP", "群組名稱")

 

objGroup.SetInfo

 

MsgBox "群組建立完成 !!"