Un script pour desactiver les fonctionnalités d'Exchange

Un script pour desactiver les fonctionnalités d'Exchange - Infrastructures serveurs - Systèmes & Réseaux Pro

Marsh Posté le 08-07-2009 à 19:12:46    

Bonjour,
 
J'ai hesité à poster mon message ds le forum VBS. Mais vu qu'en général les adeptes de la prog' sont moins avertis sur les "systemes"...
 
Aujourd'hui, j'ai du effectuer la manip suivante : desactiver les Services Mobiles & Protocoles pour chaque utilisateur.
Vu qu'il y en avait une centaine, ce ne fut pas trop trop long....enfin tout est relatif.
 
Je viens vers vous pour savoir si vous un script vbs serait possible pour eviter d'effectuer cette action à "la mano" ?
 
Merci

Reply

Marsh Posté le 08-07-2009 à 19:12:46   

Reply

Marsh Posté le 08-07-2009 à 20:28:55    

exchange 2007 ?
 
Tu pipes ta liste d'utilisateur en powershell à la commande Set-CASMailbox http://technet.microsoft.com/fr-fr [...] 25264.aspx
 
Pour exchange 2003 va falloir faire mumuse avec l'attribut protocolSettings de l'object.
Tu as ce code de http://www.experts-exchange.com/Pr [...] 15593.html que tu peux utiliser

Code :
  1. '==================
  2. strInputFile = "Users_To_Disable_OWA.txt"
  3. Const intForReading = 1
  4. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  5. Set objNetwork = CreateObject("WScript.Network" )
  7. Const ADS_PROPERTY_CLEAR = 1
  8. Const ADS_PROPERTY_UPDATE = 2
  9. Const ADS_PROPERTY_APPEND = 3
  10. Const ADS_PROPERTY_DELETE = 4
  11. Const conExInetOWAoff = "HTTP§0§1§§§§§§"
  12. Const conExInetOWAon = "HTTP§1§1§§§§§§"
  14. Set objInputFile = objFSO.OpenTextFile(strInputFile, intForReading, False)
  15. While Not objInputFile.AtEndOfStream
  16.       strLogin = objInputFile.ReadLine
  17.       strNTName = objNetwork.UserDomain & "\" & strLogin
  18.       strObjectType = "user" ' Can be "user", "group", or "computer"
  19.       strInputFormat = "NTLoginName" ' Can be "NTLoginName" or "DisplayName"
  20.       strUserDN = Get_DistinguishedName_From_AD(strNTName, strObjectType, strIntputFormat)
  21.    
  22.       If strUserDN <> "ERROR" Then
  23.             'MsgBox "adsPath of " & strNTName & ":" & VbCrLf & "LDAP://" & strUserDN
  24.             Set objUser = GetObject("LDAP://" & strUserDN)
  25.             On Error Resume Next
  26.             arrSettings = objUser.GetEx("protocolSettings" )
  27.             strSettings = ""
  28.             If Err.Number = 0 Then
  29.                   Err.Clear
  30.                   For Each protocolSettings In objSettings
  31.                         If Err.Number <> 0 Then Exit For
  32.                         If Left(protocolSettings, 4) <> "HTTP" Then
  33.                               ' Keep anything other than a HTTP Protocol
  34.                                     If strSettings = "" Then
  35.                                           strSettings = protocolSettings
  36.                                     Else
  37.                                           strSettings = strSettings & ";" & protocolSettings
  38.                                     End If
  39.                         End If
  40.                   Next
  41.                   Err.Clear
  42.                   On Error GoTo 0
  43.             Else
  44.                   Err.Clear
  45.                   On Error GoTo 0
  46.                   'MsgBox "Cannot retrieve protocolSettings"
  47.             End If
  48.             If strSettings = "" Then
  49.                   strSettings = conExInetOWAoff
  50.             Else
  51.                   strSettings = strSettings & ";" & conExInetOWAoff
  52.             End If
  53.                   On Error Resume Next
  54.                   ' Clear the settings before re-applying them
  55.                   objUser.PutEx ADS_PROPERTY_DELETE, "protocolSettings", 0
  56.                   objUser.SetInfo
  57.                   Err.Clear
  58.                   On Error GoTo 0
  59.             objUser.PutEx ADS_PROPERTY_APPEND, "protocolSettings", Split(strSettings, ";" )
  60.             objUser.SetInfo
  61.       Else
  62.             MsgBox "There was an error returning the DistinguishedName attribute of " & strNTName
  63.       End If
  64. Wend
  65. objInputFile.Close
  66. Set objInputFile = Nothing
  68. MsgBox "Done"
  70. Function Get_DistinguishedName_From_AD(strName, strObjectType, strInputFormat)
  71.       ' Source: http://www.rlmueller.net/NameTrans [...] eTranslate
  72.       ' Constants for the NameTranslate object.
  73.       ' INIT Method Parameters
  74.       ' To search a specific domain that is not the local one
  75.       Const ADS_NAME_INITTYPE_DOMAIN = 1 ' Use objTrans.Init ADS_NAME_INITTYPE_DOMAIN, "MyDomain.com"
  76.       ' To search a specific domain controller in the local domain
  77.       Const ADS_NAME_INITTYPE_SERVER = 2 ' Use objTrans.Init ADS_NAME_INITTYPE_SERVER, "MyServer"
  78.       ' To search through local domain - should be mainly used
  79.       Const ADS_NAME_INITTYPE_GC = 3 ' Use objTrans.Init ADS_NAME_INIITTYPE_GC, ""
  80.    
  81.       If LCase(strObjectType) = "computer" Then
  82.             If Right(strName, 1) <> "$" Then strName = strName & "$"
  83.       End If
  84.    
  85.       ' SET and GET Method Parameters
  86.       Const ADS_NAME_TYPE_1779 = 1
  87.       Const ADS_NAME_TYPE_CANONICAL = 2
  88.       Const ADS_NAME_TYPE_NT4 = 3
  89.       Const ADS_NAME_TYPE_DISPLAY = 4
  90.       Const ADS_NAME_TYPE_DOMAIN_SIMPLE = 5
  91.       Const ADS_NAME_TYPE_ENTERPRISE_SIMPLE = 6
  92.       Const ADS_NAME_TYPE_GUID = 7
  93.       Const ADS_NAME_TYPE_UNKNOWN = 8
  94.       Const ADS_NAME_TYPE_USER_PRINCIPAL_NAME = 9
  95.       Const ADS_NAME_TYPE_CANONICAL_EX = 10
  96.       Const ADS_NAME_TYPE_SERVICE_PRINCIPAL_NAME = 11
  97.       Const ADS_NAME_TYPE_SID_OR_SID_HISTORY_NAME = 12
  98.    
  99.       ' Use the NameTranslate object to convert the NT user name to the
  100.       ' Distinguished Name required for the LDAP provider.
  101.       Set objTrans = CreateObject("NameTranslate" )
  102.    
  103.       ' Initialize NameTranslate by locating the Global Catalog.
  104.       objTrans.Init ADS_NAME_INITTYPE_GC, ""
  106.       boolError = False
  107.       If LCase(strInputFormat) = "displayname" Then
  108.             ' Use the Set method to specify the Display Name of the object name.
  109.             On Error Resume Next
  110.             objTrans.Set ADS_NAME_TYPE_DISPLAY, strName
  111.             If Err.Number <> 0 Then boolError = True
  112.             On Error GoTo 0
  113.       Else ' assume it is the NTName
  114.             ' Use the Set method to specify the NT format of the object name.
  115.             On Error Resume Next
  116.             objTrans.Set ADS_NAME_TYPE_NT4, strName
  117.             If Err.Number <> 0 Then boolError = True
  118.             On Error GoTo 0
  119.       End If
  120.    
  121.       If boolError = False Then
  122.             ' Use the Get method to retrieve the RPC 1779 Distinguished Name.
  123.             strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)
  124.       Else
  125.             strUserDN = "ERROR"
  126.       End If
  127.    
  128.       ' Escape any "/" characters with backslash escape character.
  129.       ' All other characters that need to be escaped will be escaped.
  130.       strUserDN = Replace(strUserDN, "/", "\/" )
  131.    
  132.       Get_DistinguishedName_From_AD = strUserDN
  133. End Function
  134. '==================

Reply

Marsh Posté le 08-07-2009 à 21:53:02    

Arfffffff ! Merci Jean.
 
Ben c'est pour du 2003... donc suis mal barré visiblement :-/

Reply

Marsh Posté le 08-07-2009 à 22:01:46    

ouais en 2007 tu fais ça en 1 ligne :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed