' This script was originally published in the Exchange Cookbook,
' (http://www.exchangebookcook.com). Written by Paul Robichaux, 
' Missy Koslosky, and Devin Ganger. Redistributed with permission 
' of the publisher, O'Reilly & Associates.

' This code enables unsupported devices, and OMA into the bargain.

' ------ SCRIPT CONFIGURATION ------
 strOrgName = "cn="<org>" ' e.g. "cn=Robichaux and Associates"	
 strOrgObj= strOrgName & ", cn=microsoft Exchange,cn=services,cn=configuration," &_
    "<domain>" ' e.g. "dc=robichaux, dc=net"
 strOMAObj = "cn=Outlook Mobile Access,cn=global settings," & strOrgObj
 strDC = "<forestDC>" ' e.g. "BATMAN"
' ------ END CONFIGURATION ---------

' get the global settings object 
Set objOrg = GetObject("LDAP://" & strDC & "/" & strOMAObj)

omaFlag = objOrg.Get ("msExchOmaAdminWirelessEnable")
objOrg.Put "msExchOmaAdminWirelessEnable", "0"
objOrg.SetInfo
WScript.Echo "Enabled unsupported devices and OMA"