ADSystemInfo.UserName bstr to string

Asked Sep 30 '16 at 08:55

Active Oct 18 '16 at 11:16

Viewed 407 times

I need to execute a logon script where I need to check if the user belongs to a OU specific.

I get the DN:

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

And then I use the InStr function to search the OU specific but alway get 0 as the position although the string to compare exists in the DN.

I think that the problem is that objSysInfo.UserName retrieves a BSTR data and I need to convert to string but I don't know how.

This is the complete code:

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)

And always get O as result

edited Oct 18 '16 at 11:16

asked Sep 30 '16 at 08:55

kintela

1,283
1
14
32

VBScript only does BStr. It's the COM standard string. – Sep 30 '16 at 09:00
Please show how you do the comparision. Also show sample values. Use `WScript.Echo` to verify that the values are actually what you think they are. – Ansgar Wiechers Sep 30 '16 at 10:20
I have edit the code with the complete sample – kintela Oct 18 '16 at 11:17

ADSystemInfo.UserName bstr to string

0 Answers0