RE: Internet file formats (file extensions)
- From: "Michael B. Smith" <michael@xxxxxxxxxx>
- To: "[ExchangeList]" <exchangelist@xxxxxxxxxxxxx>
- Date: Mon, 5 Sep 2005 11:32:29 -0400
That is your Exchange SERVER, not your Exchange ORGANIZATION. The string
has to contain your Exchange Organization.
Your organization is found most easily in ESM, left pane, topmost item
that has the little "globe" as it's icon, and is followed by
"(Exchange)".
By default, this is "First Organization".
________________________________
From: Sadanand K. Prabhakar [mailto:sadanand@xxxxxxxxxxxxxxx]
Sent: Monday, September 05, 2005 11:17 AM
To: [ExchangeList]
Subject: [exchangelist] RE: Internet file formats (file extensions)
http://www.MSExchange.org/
Yes, I changed the strOrganization to "exch3test.com" which is my test
exchange server. I ran the script on the same exchange server installed
machine.
I got error at line number 8 (ie: at GetObject() ) .
Here is my script:
------------------------------------------------------------------------
------------------------------------------------------------------------
-----------------------------
Const strOrganization = "exch3test.com"
Set objRootDSE = GetObject ("LDAP://RootDSE";)
strConfigNC = objRootDSE.Get ("configurationNamingContext")
Set objRootDSE = Nothing
strDN = "CN=Internet Message Formats,CN=Global Settings,CN="
& _
strOrganization & ",CN=Microsoft Exchange," & _
"CN=Services," & strconfigNC
Set obj = GetObject ("LDAP://"; & strDN)
str = obj.Get ("msExchMIMETypes")
i = 0
str1 = ""
For k = 1 To Lenb (str)
If 0 = Ascb(Midb(str, k, 1)) Then
If 0 < Len (str1) Then
'wscript.echo str1
wscript.echo "MIMEType
- " & Left (str1, InStr (str1, ";") - 1)
Wscript.echo "Extension
- " & Right (str1, Len (str1) - InStr (str1, ";"))
wscript.echo " "
i = i + 1
End If
str1 = ""
Else
str1 = str1 & chr(Ascb(Midb(str, k,
1)))
End If
Next
If 0 < Len (str1) Then
wscript.echo str1
End If
wscript.echo i & " total mappings present."
Set obj = Nothing
------------------------------------------------------------------------
------------------------------------------------------------------------
-----------------------------
________________________________
From: Michael B. Smith [mailto:michael@xxxxxxxxxx]
Sent: Monday, September 05, 2005 8:20 PM
To: [ExchangeList]
Subject: [exchangelist] RE: Internet file formats (file extensions)
http://www.MSExchange.org/
You got more than that. Did you change the organization name? What line
did the error happen? Did you run it on a member server of the domain
where the Exchange server is installed?
What debugging did YOU do?
Other related posts:
