強力鎯頭 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 "群組建立完成 !!"