Option Explicit
Dim strGroupDN
Dim strNewName
Dim objGroup
Dim objPOU
Dim objNewGroup

strGroupDN = "CN=testgroup,OU=tstgp,DC=example,DC=lan"
strNewName = "testgp"
Set objGroup = GetObject("LDAP://" & strGroupDN)
Set objPOU = GetObject(objGroup.Parent)

' 設定変更
Set objNewGroup = objPOU.MoveHere(objGroup.ADsPath, "CN=" & strNewName)
objNewGroup.GetInfo
objNewGroup.Put "sAMAccountName", strNewName
objNewGroup.SetInfo
WScript.Echo "END"

IADsContainer インターフェース | IADsGroup インターフェース