ADSystemInfo.UserName bstr to string

Question

我需要执行一个登录脚本，我需要检查用户是否属于特定的OU。

我得到了DN：

Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName

然后我使用InStr函数搜索特定的OU，但总是将0作为位置，尽管要比较的字符串存在于DN中。

我认为问题是objSysInfo.UserName检索了BSTR数据，我需要转换为字符串，但我不知道如何。

这是完整的代码：

On Error Resume Next
Dim objSysInfo, objUser

Set objSysInfo = CreateObject("ADSystemInfo")

strUserDN = objSysInfo.UserName
WScript.Echo "DN: " & strUserDN

ouZaragoza="OU=Zaragoza"
ouGeneral="OU=General"
WScript.Echo InStr("OU=Informática",strUserDN)

总是得到O