213 lines
7.7 KiB
Plaintext
213 lines
7.7 KiB
Plaintext
'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
|
|
|
|
|
|
|