theBody.AppendLine("<p>")

Using SR = New IO.StringReader(description)

While SR.Peek >= 0

Dim l As String = SR.ReadLine()

theBody.AppendLine(l

li = Me.ListView1.Items.Add(ItemRes.Properties("samaccountname")(0).ToString())

If ItemRes.Properties.Contains("department") Then

li.SubItems.Add(ItemRes.Properties("department")(0).ToString())

Else

        
Dim li As ListViewItem

Dim dirEntry As DirectoryEntry = New DirectoryEntry("LDAP://172.16.0.3/OU=Staff,OU=Users,OU=Accounts,OU=Network,DC=X,DC=local")

dirEntry.Username = "x"
dirEntry.Password = "x"

Dim search As

thisDoc.Content.Find.Execute(FindText"<<TITLECOUNT, ReplaceWith:=lblcomputername.Text, Replace:=Word.WdReplace.wdReplaceOne)

 Dim wrdApp As Word.Application
    Dim wrdDoc As Word._Document

 ' Create an instance of Word  and

 Dim imp As New RunAs_Impersonator 
Try
imp.ImpersonateStart(DomainName, UserName, Password) 'creates new context using token for user
 
Add code to run as UserName here 'everything between ImpersonateStart and ImpersonateStop will be run as the impersonated user
 
imp.ImpersonateStop() 
Catch ex As Exception 'make sure