' Add a User to a Local Group
strComputer = "atl-ws-01"
strGroup = "Administrators"
strUser = "kenmyer"
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")
Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user")
objGroup.Add(objUser.ADsPath)