Clever Geek Handbook

Ldap vbscript: msExchOmaAdminWirelessEnable is accidentally missing on different accounts

In my script:

Function getDescript (strname, uname) 

    Set MyUser = GetObject ("LDAP://cn=" & uname & ",ou=" & strname & ",DC=tms-1,DC=net")

getDescript = myUser.Get("msExchOmaAdminWirelessEnable")
End Function

uname = "Bob Gardner"
strname = "bgConsultants"

WScript.Echo "wireless enable: " & getDescript(strname, uname)

I noticed that some users in the same OU sometimes do and sometimes do not have the msExchOmaAdminWirelessEnable attribute when I check it in the ACStive Directory Explorer sysinternals. All users are in the same OU and Exchange 2003 has sp2.

Can anyone know why this is so?

Update: I found out that if I disable and re-enable the Outlook Mobile Access setting for each user, the msExchOmaAdminWirelessEnable attribute reappears for those users who are missing this attribute ... weird ..

0


source to share


2 answers


According to Microsoft, "By default, when installing Microsoft Exchange Server 2003, the option to allow all users to use Microsoft Outlook Mobile Access in Active Directory Users and Computers is enabled. So that would leave me to believe that this value is extremely important for the account. where the setting was toggled in. Perhaps you could do some simple ADSI to only return users that don't have this set of options, or are not configured to be enabled here to find a good ADSI link: http: //www.rlmueller. net / ADOSearchTips.htm



0


source


Correct answer: the user attribute is msExchOmaAdminWirelessEnable

empty by default (oma works). When oma is disabled, the value is 7 (4 + 2 + 1), when oma is enabled again, the value is 0. I made some oma scripts, they can be found at:



http://deludi.nl/blog/vbscript/active-directory/outlookmobileaccess/active-directory-vbscript-to-disable-outlook-mobile-access-oma-for-all-users-in-your-company/

0


source






More articles:


All Articles