Bonsoir,
Je bloque sur la fin de mon script !! Help me !!
J'ai developpé un script qui me permet d'obtenir une liste de tous les groupes globaux vide (càd sans membre) mais je n'arrive pas à les supprimer !!
voici mon script.....
*******************************************************************************************************************************************************
'"Create the file..."
'*******************************************************************************************************************************************************
Domaine = inputbox("Entrez le nom du domaine :") 'Get domaine name
Set objShell = Wscript.CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
path = WScript.ScriptFullName
Set objFile = objFSO.CreateTextFile("C:\All_Global_Groups of "& domaine &".txt", 2) 'Create the file
Set objFile2 = objFSO.CreateTextFile("C:\Global Groups VIDE of "& domaine &".txt", 2) 'Create the file
'*******************************************************************************************************************************************************
'"List all global group per Domain..."
'*******************************************************************************************************************************************************
Set objExcel = CreateObject("Excel.Application")
Const ADS_SCOPE_SUBTREE = 2
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "Groupes Globaux"
objExcel.Cells(1, 2).Value = "Nombre de membre"
objExcel.Cells(1, 3).Value = "Etat Membre"
objExcel.Cells(1, 4).Value = "Chemin LDAP"
objExcel.Cells(1, 5).Value = "Domaine"
objExcel.Cells(1, 6).Value = "Code Site"
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"Select ADsPath, name From 'LDAP://ou=OUGroups,ou=CodeSite,dc=" & Domaine & ",dc=MaBoite,dc=com' WHERE objectCategory='group'" & _
"AND groupType = -2147483646"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Set objGroup = GetObject(objRecordSet.Fields("ADsPath").Value)
objRecordCount = 0
objFile.Writeline objRecordSet.Fields("name").Value
If IsArray(objGroup.Member) Then
For Each struser In objGroup.Member
objrecordcount = objrecordcount + 1
Next
Else
If objGroup.Member = Empty Then
objrecordcount = 0
objFile2.Writeline objRecordSet.Fields("name") & " ; " & Date
objExcel.Cells(intRow, 3).Value = "Groupe vide"
'GGEmpty = objgroup.name
Else
objrecordcount = 1
End If
End If
objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("name").Value
objExcel.Cells(intRow, 2).Value = objRecordCount
objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("ADsPath").Value
objRecordSet.MoveNext
intRow = intRow + 1
Loop
objExcel.Range("A1:D1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
Set objRange = objExcel.Range("A1")
objRange.Sort objRange,1,,,,,,1
MsgBox "Le chargement est maintenant terminé ! "
Lartiste38
