Jump to content

Demon72

Members
  • Gesamte Inhalte

    143
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von Demon72

  1. So nun geht es auch mit Unterordnern

     

    Const strDrive="D:\Daten\homedirs\"

    Const strQuelldrive="D:\"

    Const strQuellFolder="SAP"

    Dim strPfad

    Dim Subfolder

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    set objFolder=objFSO.GetFolder(strQuelldrive & strQuellFolder)

    ShowSubfolders objFSO.GetFolder(strDrive)

    Set ObjFolder=Nothing

    Set objFSO=Nothing

    Wscript.Echo "Fertig"

     

    Sub ShowSubFolders(Folder)

    For Each Subfolder in Folder.SubFolders

    If subfolder.name <> strQuellFolder Then

    if not (objFSO.FolderExists(Subfolder.Path & "\" & strQuellFolder)) Then objFSO.CreateFolder(Subfolder.Path & "\" & strQuellFolder)

    objFolder.Copy Subfolder.Path & "\" & strQuellFolder

    End If

    Next

    End Sub

  2. Hier ein vbs Script, welches die Aufgabe erledigt.

     

    Const strQuelldrive="D:\"

    Const strQuellFolder="SAP" 'Quellordner darf keine Unterordner enthalten! (Schleifenbildung!)

    Const strDrive="D:\Daten\homedirs\"

    Dim strPfad

    Dim Subfolder

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    set objFolder=objFSO.GetFolder(strQuelldrive & strQuellFolder)

    ShowSubfolders objFSO.GetFolder(strDrive)

    Set ObjFolder=Nothing

    Set objFSO=Nothing

    Wscript.Echo "Fertig"

     

    Sub ShowSubFolders(Folder)

    For Each Subfolder in Folder.SubFolders

    If subfolder.name <> strQuellFolder Then

    if not (objFSO.FolderExists(Subfolder.Path & "\" & strQuellFolder)) Then objFSO.CreateFolder(Subfolder.Path & "\" & strQuellFolder)

    objFolder.Copy Subfolder.Path & "\" & strQuellFolder

    End If

    ShowSubFolders Subfolder

    Next

    End Sub

  3. Hmm naja aber auf dem Server laufen SQL Datenbanken und so weiter. Die dürfen nicht neugestartet werden, sollen aber die Patches automatisch installieren.

     

    Ohne Neustart sind die Patches eh nicht wirklich installiert. :confused: Brauchst also eh ein Wartungsfenster für so etwas und genau da legste den Zeitplan für die Installation hin. Oder lässt nur automatisch downloaden und machst Install und Boot "manuell".

     

    @grizzly999: ich gelobe Besserung

×
×
  • Neu erstellen...