write output to a text file RSS

• • Reply
  

  nivekd

  0 Points

  8 Posts

  write output to a text file

  Oct 20, 2011 07:44 PM|LINK

  If I want the my output to be written to a text file do I just need to add:

  Respone.clear() , Respone.ContentType = "text", Response.OutputStream.Write(bytes, 0, bytes.length) , Respone.flush()

  to the code below?

  ===============================================

  Dim rs,conn

  Set conn = CreateObject("ADODB.Connection")

  conn.Provider = "ADSDSOObject"

  conn.Open "ADs Provider"

  Dim oMembersList

  Set oMembersList = CreateObject("Scripting.Dictionary")

  oMembersList.CompareMode = vbTextCompare

  Dim arrKeys,i,sDLsamAccountName,sGroupDN

  '----------Start Change me------------------

  sDLsamAccountName = "ALL ATTY & OTH TIMEKPRS"

  '-----------End Change me-------------------

  sGroupDN = findDLGroup(sDLsamAccountName)

  enumGroupMembers sGroupDN

  arrKeys = oMembersList.Keys ' Get the keys.

  For i = 0 To oMembersList.Count -1

  WScript.Echo arrKeys(i) & ": " & oMembersList(arrKeys(i))

  Next

  'Clean up

  Set conn = Nothing

  Set oMembersList = Nothing

  '==============================================================

  ' Subroutines

  '==============================================================

  '==============================================================

  ' Locate a distribution list by sAMAccountName

  '

  ' Parameters:

  ' - sAMAccountName: the NT-style name of the DL

  '==============================================================

  Function findDLGroup(sAMAccountName)

  Dim objRootDSE, domainContainer, oGroup,ldapStrExchDL

  Set objRootDSE = GetObject("LDAP://RootDSE")

  domainContainer = objRootDSE.Get("defaultNamingContext")

  ldapStrExchDL = "<LDAP://" & domainContainer & _

  ">;(&(objectCategory=group)(!groupType:1.2.840.113556.1.4.803:=2147483648)(sAMAccountName=" & sAMAccountName & "));adspath;subtree"

  Set rs = conn.Execute(ldapStrExchDL)

  If Not rs.EOF Then

  Set oGroup = GetObject (rs.Fields(0).Value)

  findDLGroup = oGroup.distinguishedName

  Else

  WScript.Echo "Group not found"

  WScript.Quit 0

  End If

  Set objRootDSE = Nothing

  End Function

  '==============================================================

  ' Recursive subroutine to enumerate members of a given group

  '

  ' Parameters:

  ' - sObjDN: group object's DN to enumerate it's members

  '==============================================================

  Sub enumGroupMembers(sObjDN)

  Dim oContainer, obj, sDN

  Set oContainer=GetObject ("LDAP://" & sObjDN)

  For each obj in oContainer.members

  Select Case LCase(obj.Class)

  Case "user" , "contact"

  If Not oMembersList.Exists(obj.sAMAccountName) Then

  oMembersList.Add obj.sAMAccountName, obj.Get("mail")

  End If

  Case "contact"

  If Not oMembersList.Exists(obj.Get("mail")) Then

  oMembersList.Add obj.Get("mail"), obj.Get("mail")

  End If

  Case "group"

  EnumGroupMembers obj.distinguishedName

  End Select

  Next

  End Sub

   

   

  • Edited by nivekd on Oct 20, 2011 07:44 PM
• • Reply
  

  Mamba Dai - ...

  All-Star

  23531 Points

  2683 Posts

  Microsoft

  Re: write output to a text file

  Oct 25, 2011 08:14 AM|LINK

  Hi,

  Please check this sample code about how to output http stream as .txt file:

  string fileName = Server.MapPath("TextFile/Rand.txt");
          System.IO.FileInfo file = new System.IO.FileInfo(fileName);
          Response.Clear();
          Response.Charset = "utf-8";
          //Response.ContentType = "application/ms-word";
          Response.ContentType = "appliation/ms-txt";
          Response.ContentEncoding = System.Text.Encoding.GetEncoding("utf-8");
          //Response.AddHeader("Content-Disposition", "attachement;filename=" + e.CommandName);
          ////
          //Response.AddHeader("Content-Length", fileSize.ToString());
          Response.AddHeader("Content-Disposition", "attachement;filename=mytext.txt");
          //Response.AddHeader("Content-Disposition", "attachement;filename=mytext.doc");
          Response.AddHeader("Content-Length", file.Length.ToString());
          //Response.BinaryWrite(buffer);
          Response.WriteFile(file.FullName, 0, file.Length);
          Response.Flush();
          Response.Close();

  Please mark the replies as answers if they help or unmark if not.
  Feedback to us
  
  Develop and promote your apps in Windows Store
  
  
  • Marked as answer by mamba dai - msft on Oct 27, 2011 08:19 AM