Auto-commit: 2025-10-31 08:59:03
This commit is contained in:
David Wuibaille
2
ExportDesDossiersMDT/ExportMDT.ini
Normal file
2
ExportDesDossiersMDT/ExportMDT.ini
Normal file
@@ -0,0 +1,2 @@
|
||||
Text_NomDP=\\DISKSTATION\deploymentshare$
|
||||
Text_NomRepExport=c:\temp
|
||||
212
ExportDesDossiersMDT/ExportMDT.vbs
Normal file
212
ExportDesDossiersMDT/ExportMDT.vbs
Normal file
@@ -0,0 +1,212 @@
|
||||
'Nom des repertoire exportant les drivers
|
||||
Set Fso = CreateObject("Scripting.FileSystemObject")
|
||||
Set Shell = CreateObject("Wscript.Shell")
|
||||
|
||||
Dim S_DP, S_Export
|
||||
Dim ExportTab
|
||||
|
||||
On error resume next
|
||||
|
||||
Set Fso = CreateObject("Scripting.FileSystemObject")
|
||||
If Fso.FileExists(GetPath & "ExportMDT.ini") Then
|
||||
set inf= Fso.OpenTextFile(GetPath & "ExportMDT.ini")
|
||||
While inf.AtEndOfStream <> True
|
||||
Ligne = Inf.Readline
|
||||
If instr(Ligne,"=") <> 0 Then
|
||||
Temp = Split(Ligne,"=")
|
||||
If Instr(UCase(Ligne),"TEXT_NOMDP") <> 0 Then S_DP = Trim(Temp(1))
|
||||
If Instr(UCase(Ligne),"TEXT_NOMREPEXPORT") <> 0 Then S_Export = Trim(Temp(1))
|
||||
End If
|
||||
Wend
|
||||
inf.close
|
||||
End If
|
||||
|
||||
if S_DP = "" Or S_Export = "" Then msgbox "Error INI"
|
||||
'If Fso.FolderExists(S_Export) = True Then CodeRetour = Fso.DeleteFolder(S_Export,True)
|
||||
If Fso.FolderExists(S_Export) = False Then CodeRetour = Fso.CreateFolder(S_Export)
|
||||
|
||||
|
||||
' #################### export Drivers ####################################
|
||||
wscript.echo "##### Drivers #####"
|
||||
redim ExportTab(0)
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\DriverGroups.xml")
|
||||
For Each personneElement In xmlDoc.selectNodes("/groups/group")
|
||||
Name = personneElement.selectSingleNode("Name").text
|
||||
If Name <> "hidden" and Name <> "default" Then
|
||||
If Fso.FolderExists(S_Export & "\" & "Drivers") = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "Drivers")
|
||||
If Fso.FolderExists(S_Export & "\" & "Drivers\" & Name) = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "Drivers\" & Name)
|
||||
Set Member = personneElement.selectNodes("Member")
|
||||
If Member.length > 0 Then
|
||||
For Each MemberElement In Member
|
||||
ExportTab(UBound(ExportTab)) = S_Export & "\" & "Drivers\" & Name & ";" & MemberElement.text
|
||||
Redim Preserve ExportTab(UBound(ExportTab)+1)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Set xmlDoc = Nothing
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\Drivers.xml")
|
||||
For Each guidElement In xmlDoc.selectNodes("/drivers/driver")
|
||||
guid = guidElement.getAttribute("guid")
|
||||
For i = 0 To (Ubound(ExportTab) -1)
|
||||
temp = Split(ExportTab(i),";")
|
||||
If Temp(1) = guid Then
|
||||
Source = guidElement.selectSingleNode("Source").text
|
||||
Source = S_DP & "\" & right(Source,Len(Source)-2)
|
||||
Source = Left(Source, InStrRev(Source, "\")-1)
|
||||
|
||||
wscript.echo Source
|
||||
Temp2 = Split(Source,"\")
|
||||
wscript.Echo Temp(0) & "\" & Temp2(Ubound(Temp2))
|
||||
If Fso.FolderExists(Source) = True Then
|
||||
If Fso.FolderExists(Temp(0) & "\" & Temp2(Ubound(Temp2))) = False Then
|
||||
CodeRetour = Fso.CopyFolder(Source,Temp(0) & "\" & Temp2(Ubound(Temp2)),True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
|
||||
' #################### export Packages ####################################
|
||||
wscript.echo "##### packages #####"
|
||||
redim ExportTab(0)
|
||||
Set xmlDoc = Nothing
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\PackageGroups.xml")
|
||||
For Each personneElement In xmlDoc.selectNodes("/groups/group")
|
||||
Name = personneElement.selectSingleNode("Name").text
|
||||
If Name <> "hidden" and Name <> "default" Then
|
||||
If Fso.FolderExists(S_Export & "\" & "Packages") = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "Packages")
|
||||
If Fso.FolderExists(S_Export & "\" & "Packages\" & Name) = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "Packages\" & Name)
|
||||
Set Member = personneElement.selectNodes("Member")
|
||||
If Member.length > 0 Then
|
||||
For Each MemberElement In Member
|
||||
ExportTab(UBound(ExportTab)) = S_Export & "\" & "Packages\" & Name & ";" & MemberElement.text
|
||||
Redim Preserve ExportTab(UBound(ExportTab)+1)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Set xmlDoc = Nothing
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\Packages.xml")
|
||||
For Each guidElement In xmlDoc.selectNodes("/packages/package")
|
||||
guid = guidElement.getAttribute("guid")
|
||||
For i = 0 To (Ubound(ExportTab) -1)
|
||||
temp = Split(ExportTab(i),";")
|
||||
If Temp(1) = guid Then
|
||||
Source = guidElement.selectSingleNode("Source").text
|
||||
Source = S_DP & "\" & right(Source,Len(Source)-2)
|
||||
Source = Left(Source, InStrRev(Source, "\")-1)
|
||||
wscript.echo Source
|
||||
Temp2 = Split(Source,"\")
|
||||
wscript.Echo Temp(0) & "\" & Temp2(Ubound(Temp2))
|
||||
If Fso.FolderExists(Temp(0) & "\" & Temp2(Ubound(Temp2))) = False Then CodeRetour = Fso.CopyFolder(Source,Temp(0) & "\",True)
|
||||
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
' #################### export Operating system ####################################
|
||||
wscript.echo "##### OS #####"
|
||||
redim ExportTab(0)
|
||||
Set xmlDoc = Nothing
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\OperatingSystemGroups.xml")
|
||||
For Each personneElement In xmlDoc.selectNodes("/groups/group")
|
||||
Name = personneElement.selectSingleNode("Name").text
|
||||
If Name <> "hidden" and Name <> "default" Then
|
||||
If Fso.FolderExists(S_Export & "\" & "OS") = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "OS")
|
||||
If Fso.FolderExists(S_Export & "\" & "OS\" & Name) = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "OS\" & Name)
|
||||
Set Member = personneElement.selectNodes("Member")
|
||||
If Member.length > 0 Then
|
||||
For Each MemberElement In Member
|
||||
ExportTab(UBound(ExportTab)) = S_Export & "\" & "OS\" & Name & ";" & MemberElement.text
|
||||
Redim Preserve ExportTab(UBound(ExportTab)+1)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Set xmlDoc = Nothing
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\OperatingSystems.xml")
|
||||
For Each guidElement In xmlDoc.selectNodes("/oss/os")
|
||||
guid = guidElement.getAttribute("guid")
|
||||
For i = 0 To (Ubound(ExportTab) -1)
|
||||
temp = Split(ExportTab(i),";")
|
||||
If Temp(1) = guid Then
|
||||
|
||||
Source = guidElement.selectSingleNode("Source").text
|
||||
Source = S_DP & "\" & right(Source,Len(Source)-2)
|
||||
wscript.echo Source
|
||||
Temp2 = Split(Source,"\")
|
||||
wscript.Echo Temp(0) & "\" & Temp2(Ubound(Temp2))
|
||||
CodeRetour = Fso.CopyFolder(Source,Temp(0) & "\" & Temp2(Ubound(Temp2)),True)
|
||||
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
' #################### export applications ####################################
|
||||
wscript.echo "##### Applications #####"
|
||||
redim ExportTab(0)
|
||||
Set xmlDoc = Nothing
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\ApplicationGroups.xml")
|
||||
For Each personneElement In xmlDoc.selectNodes("/groups/group")
|
||||
Name = personneElement.selectSingleNode("Name").text
|
||||
If Name <> "hidden" and Name <> "default" Then
|
||||
If Fso.FolderExists(S_Export & "\" & "Applications") = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "Applications")
|
||||
If Fso.FolderExists(S_Export & "\" & "Applications\" & Name) = False Then CodeRetour = Fso.CreateFolder(S_Export & "\" & "Applications\" & Name)
|
||||
Set Member = personneElement.selectNodes("Member")
|
||||
If Member.length > 0 Then
|
||||
For Each MemberElement In Member
|
||||
ExportTab(UBound(ExportTab)) = S_Export & "\" & "Applications\" & Name & ";" & MemberElement.text
|
||||
Redim Preserve ExportTab(UBound(ExportTab)+1)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Set xmlDoc = Nothing
|
||||
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
|
||||
xmlDoc.Async = "false"
|
||||
xmlDoc.Load(S_DP & "\control\Applications.xml")
|
||||
For Each guidElement In xmlDoc.selectNodes("/applications/application")
|
||||
guid = guidElement.getAttribute("guid")
|
||||
For i = 0 To (Ubound(ExportTab) -1)
|
||||
temp = Split(ExportTab(i),";")
|
||||
If Temp(1) = guid Then
|
||||
Source = guidElement.selectSingleNode("Source").text
|
||||
Source = S_DP & "\" & right(Source,Len(Source)-2)
|
||||
wscript.echo Source
|
||||
Temp2 = Split(Source,"\")
|
||||
wscript.Echo Temp(0) & "\" & Temp2(Ubound(Temp2))
|
||||
|
||||
CodeRetour = Fso.CopyFolder(Source,Temp(0) & "\" & Temp2(Ubound(Temp2)),True)
|
||||
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
Set xmlDoc = Nothing
|
||||
|
||||
|
||||
|
||||
|
||||
Function GetPath()
|
||||
Dim path
|
||||
path = WScript.ScriptFullName
|
||||
GetPath = Left(path, InStrRev(path, "\"))
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
18
ExportDesDossiersMDT/readme.md
Normal file
18
ExportDesDossiersMDT/readme.md
Normal file
@@ -0,0 +1,18 @@
|
||||
# MDT — Export Drivers / Packages / OS / Apps (VBScript)
|
||||
|
||||
Exports MDT content by reading *Control* XML and copying source folders to an export path, preserving group structure.
|
||||
|
||||
## Configure
|
||||
Create `ExportMDT.ini` next to the script:
|
||||
```ini
|
||||
TEXT_NOMDP=\\MDTServer\DeploymentShare$ ; MDT root (UNC or local path)
|
||||
TEXT_NOMREPEXPORT=E:\MDT_Export ; Export destination
|
||||
```
|
||||
|
||||
## Run
|
||||
```bat
|
||||
cscript //nologo ExportMDT.vbs
|
||||
```
|
||||
|
||||
**Notes:** ensure read/write permissions and enough free disk space.
|
||||
**Full article:** https://blog.wuibaille.fr/2025/08/mdt-export-drivers-packages-os-apps/
|
||||
Reference in New Issue
Block a user