RE: Internet file formats (file extensions)

From: "Sadanand K. Prabhakar" <sadanand@xxxxxxxxxxxxxxx>
To: "[ExchangeList]" <exchangelist@xxxxxxxxxxxxx>
Date: Mon, 5 Sep 2005 20:05:17 +0530
Hi,

    It didn't work. I got the error message "There is no such object on
the server." 

 

  _____  

From: Michael B. Smith [mailto:michael@xxxxxxxxxx] 
Sent: Friday, September 02, 2005 7:20 PM
To: [ExchangeList]
Subject: [exchangelist] RE: Internet file formats (file extensions)

 

http://www.MSExchange.org/

That was kinda fun. Just change strOrganization for your Exchange
environment.

 

            Const strOrganization = "Blue Ridge Internetworks"

 

            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: Sadanand K. Prabhakar [mailto:sadanand@xxxxxxxxxxxxxxx] 
Sent: Friday, September 02, 2005 12:23 AM
To: [ExchangeList]
Subject: [exchangelist] RE: Internet file formats (file extensions)

 

http://www.MSExchange.org/

from Exchange 2000 "Global Settings" --> "Internet Message Formats"

 

  _____  

From: Michael B. Smith [mailto:michael@xxxxxxxxxx] 
Sent: Friday, September 02, 2005 5:42 AM
To: [ExchangeList]
Subject: [exchangelist] RE: Internet file formats (file extensions)

 

http://www.MSExchange.org/

from what?

 

  _____  

From: Sadanand K. Prabhakar [mailto:sadanand@xxxxxxxxxxxxxxx] 
Sent: Thursday, September 01, 2005 11:21 AM
To: [ExchangeList]
Subject: [exchangelist] Internet file formats (file extensions)

http://www.MSExchange.org/

Hi,

  Could some one help me in getting "MIME content type" and "Associated
Extension" from a VB Script? 

 

Thanks & Regards

  Sadanand

------------------------------------------------------
List Archives: http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Exchange Newsletters: http://www.msexchange.org/pages/newsletter.asp 
------------------------------------------------------
Visit TechGenix.com for more information about our other sites:
http://www.techgenix.com
------------------------------------------------------
You are currently subscribed to this MSEXchange.org Discussion List as:
michael@xxxxxxxxxx
To unsubscribe visit
http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Report abuse to listadmin@xxxxxxxxxxxxxx
------------------------------------------------------
List Archives: http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Exchange Newsletters: http://www.msexchange.org/pages/newsletter.asp 
------------------------------------------------------
Visit TechGenix.com for more information about our other sites:
http://www.techgenix.com
------------------------------------------------------
You are currently subscribed to this MSEXchange.org Discussion List as:
sadanand@xxxxxxxxxxxxxxx
To unsubscribe visit
http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Report abuse to listadmin@xxxxxxxxxxxxxx 

------------------------------------------------------
List Archives: http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Exchange Newsletters: http://www.msexchange.org/pages/newsletter.asp 
------------------------------------------------------
Visit TechGenix.com for more information about our other sites:
http://www.techgenix.com
------------------------------------------------------
You are currently subscribed to this MSEXchange.org Discussion List as:
michael@xxxxxxxxxx
To unsubscribe visit
http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Report abuse to listadmin@xxxxxxxxxxxxxx 

------------------------------------------------------
List Archives: http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Exchange Newsletters: http://www.msexchange.org/pages/newsletter.asp 
------------------------------------------------------
Visit TechGenix.com for more information about our other sites:
http://www.techgenix.com
------------------------------------------------------
You are currently subscribed to this MSEXchange.org Discussion List as:
sadanand@xxxxxxxxxxxxxxx
To unsubscribe visit
http://www.webelists.com/cgi/lyris.pl?enter=exchangelist
Report abuse to listadmin@xxxxxxxxxxxxxx
RE: Internet file formats (file extensions)

Other related posts:
