大家来帮我看一段脚本呀，谢谢啦

Question

'On Error Resume NextSet objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")strUserPath = "LDAP://"&objSysInfo.UserName 
msgbox(struserpath)
Set objUser = GetObject(strUserPath)
For Each strGroup in objUser.memberOf
    strGroupPath = "LDAP://" & strGroup
    Set objGroup = GetObject(strGroupPath)
    strGroupName = objGroup.CN
msgbox(strGroupName)  //is null.
    Select Case strGroupName
    Case "testuser"
         objNetwork.MapNetworkDrive "t:", "\\testaccu7\users\"&objNetwork.UserName
End Select
Next
For Each strGroup in objUser.memberOf总报错，帮我看看什么错，谢谢!

Answer 1

For Each strGroup in objUser.memberOf  这句 Object not a collection