Vbscript 为什么函数不能读取？ 是否有任何错误消息..？为什么函数在Sub中？我刚刚发现，如果计算机是RDP'ed，它会抛出错误，因为objItem.UserName为Null。因此，只有在该计算机上没有远程会话时，它才能工作。 Sub strCompute

为什么函数不能读取？

---

是否有任何错误消息..？为什么函数在Sub中？我刚刚发现，如果计算机是RDP'ed，它会抛出错误，因为objItem.UserName为Null。因此，只有在该计算机上没有远程会话时，它才能工作。

Sub
    strComputer = "asdcom1"
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")

    For Each objItem in colItems
        arrName = Split(objItem.UserName, "\")
    Next

    strUsername = arrName(1) 'strObjUser
    strDomainName = arrName(0) 'strObjDomain
    strCompName = UCase(strComputer)

    Set objLDAPUser = GetObject("LDAP://" & GetUserDN(strUsername,strDomainName))   'Get LDAP details of logged-on user to extract attributes...

    Function GetUserDN(BYVAL UN, BYVAL DN)      '...via this function to quickly get domain details of logged-on user from AD
        Set objTrans = CreateObject("NameTranslate")
        objTrans.init 1, DN
        objTrans.set 3, DN & "\" & UN
        strUserDN = objTrans.Get(1)
        GetUserDN = strUserDN
    End Function
End Sub