Here's a Perl script that reads user names from a text file and enables them for OCS (Office Communications Server). Click here to view this solution in VBScript.
A couple of notes: I point to an existing user as a template to copy they're OCS meeting Policies (cheating I know), I've hard-coded the distinguished name of the template user and I've also hard-coded the distinguished name of the OCS Pool. You'll have to put the correct DN's for your environment. Also, the options flags I've set are for pc-pc communications with enhanced presence enabled. And lastly, the script assumes that you're not using Enterprise Voice, so the bridge URI and telephone number are not populated.
Let me know if you need help with that. The code is below. Please visit our OCS Scripts Repository.