OBIEE Get all users from RPD

I had to get all the users from a very large repository because they where implementing a new security model. Wrote a small script to make life easy:

'Read_Users.VBS
'John Minkjan
'http:// http://www.obiee101.blogspot.com/
'Get all the users from a repository
'1: Make an UDML export of the PRD using nqgenudml.exe
'2: Change the filename/location in this script
'3: Run the script from the command line cscript Read_Users.VBS > users.txt
Set objFSO = CreateObject("Scripting.FileSystemObject")

'point this to your UDML EXPORTSet
objFile = objFSO.OpenTextFile("E:\names.txt", ForReading)

Const ForReading = 1
Dim arrFileLines()
dim strRLinedim strTemp1dim strTemp2

i = 0

Do Until objFile.AtEndOfStream
strRline = objFile.ReadLine
if left(strRline,12) = "DECLARE USER" then
Redim Preserve arrFileLines(i)
arrFileLines(i) = strRline
i = i + 1
end if
Loop

objFile.Close
'Then you can iterate it like this
For Each strLine in arrFileLines
strTemp1 = MID(strLine ,15 , 50)
IF instr(strline,"}" ) >0 THEN
strTemp2 = MID(strLine , instr(strline,"{")+ 1, (instr(strline,"}") - (instr(strline,"{")+ 1))) ELSE strTemp2 = ""
END IF
WScript.Echo MID(strTemp1 ,1 , instr(strTemp1, """")-1) &";" & strtemp2
Next

Till Next Time