AD Security Group Discription update Vbscript

Const ForReading = 1

'On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\scripts\LDConnect.txt", ForReading)

Set objFile2 = objFSO.OpenTextFile("C:\scripts\Update.txt", ForReading)

While not objFile.AtEndOfStream 

While not objFile2.AtEndOfStream 

    

    'WScript.Echo vbCrLf

'WScript.Echo vbCrLf

    

    strGroupDN = objFile.ReadLine

UPDateAdminDesc = objFile2.Readline

    'WScript.Echo strGroupDN '& vbCrLf

    'WScript.Echo UPDateAdminDesc '& vbCrLf

set objUser = GetObject("LDAP://" & strGroupDN)

objUser.Put "adminDescription", UPDateAdminDesc

objUser.SetInfo

Wend

Wend

objFile.Close

objFile2.Close