Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 614
  • Last Modified:

Script that can get to a user's protocolsettings and remove the mapi from it. I want to query every user in a OU and do this one after the other

Hi,

Script that can get to a user's protocolsettings and remove the mapi from it. I want to query every user in a OU and do this one after the other

Record the success or failure into a file.

Exchange 2003 & Windows 2003 Domain

Can anyone help please

regards
Sharath
Capture.JPG
0
bsharath
Asked:
bsharath
  • 2
1 Solution
 
GundogTrainerCommented:
I have edited one of my scripts that I use to remove other properties to provide a starting point.

Hopefully you will get the idea of what its trying to do:
first part is to enumerate all the objects in the specified OU.
 the for each of these objects check if they have a "MAPI" protocol and if so remove it.
if you update line 10 for your DN name \ ldap path to OU it will just display the objects it will be checking.
I would suggest you use it to pick on one and test it by uncommenting line 4 & 5 etc.

Just ensure you test it first !!!!

SySConUN=""
SySConPW=""

'x=getdata("LDAP://Servername/CN=test account,ou=Users,DC=test,dc=local")
'wscript.quit

 Set objAdRootDSE = GetObject("LDAP://RootDSE")
 varDefaultNC = objAdRootDSE.Get("defaultNamingContext")

 SQLSYSTEMS = "SELECT adspath,cn, distinguishedName,displayname FROM 'LDAP://Servername/ou=user accounts," & varDefaultNC & "'"
 Set SySConn = CreateObject("ADODB.Connection")
 Set SysCommand = CreateObject("ADODB.Command")
 SySConn.Provider = "ADSDSOObject"
 Sysconn.Open "Active Directory Provider" ,SySConUN,SySConPW
 set SysCommand.Activeconnection = SysConn
 SysCommand.commandtext = SQLSYSTEMS
 SYSCommand.Properties("Page Size")=100
 'wscript.echo SQLSYSTEMS
 Set SySrs = SysCommand.Execute

  if SySrs.recordcount >0 then

    MailboxesinIT6=SySrs.recordcount
    Do While Not SySrs.EOF Or SySrs.BOF
    ' x=getdata(SySrs.fields("adspath")
    wscript.echo SySrs.fields("adspath") ' diable this line once its working!
    SySrs.MoveNext
    Loop

  end if
 SySConn.close
 Set SySConn=nothing


function getdata(byref userDN)
 Set RefUser= getobject(UserDN)
 x= Refuser.protocolSettings
 newcnt=0
 Userupdate=0
 dim y()

 if isarray(x) then
  for pass= 0 to ubound(x)
    if left(x(pass),4)<>"MAPI" then 
      redim preserve y(newcnt)
      y(newcnt)=x(pass)
      newcnt=newcnt+1
    else
     'MAPI found so we will update the record
     Userupdate=1
    end if
  next
  if Update=1 then 
    Refuser.putex 2,"protocolSettings",y
    refuser.setinfo
    wscript.echo UserDN & chr(9) & "MAPI Removed"
   else
    wscript.echo UserDN & chr(9) & "Ignored"
   end if   
  'for t=0 to ubound(y)
  'wscript.echo y(t)
  'next
  else
  'not an array code here if needed.
 end if
end function

Open in new window

0
 
GundogTrainerCommented:
oh to record it to a file execute it with the command cscript.exe //nologo script.vbs >>log.txt
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now