%USERNAME% u.a.

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Travelguy.

    %USERNAME% u.a.

    Hallo zusammen,

    ich bin Anfänger und versuche gerade, mir ein kleines Skript zu basteln.
    Es soll folgendes machen:

    Prüfe, ob auf einem Server unter einem bestimmten Pfad ein Ordner des aktuell angemeldeten Users liegt (also über die Systemvariable USERNAME). Falls nicht, soll dieser Unterordner mit dem Usernamen erstellt werden und danach von einem Templateverzeichnis der Inhalt kopiert werden in den neu erstellten Ordner kopiert werden.
    Hierzu habe ich bisher folgende Einzelschritte ausgedacht:

    einmal prüfen ob der Userfolder vorhanden ist und wenn nicht erstellen:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim objFSO, filesys
    3. Set objFSO = CreateObject("Scripting.FileSystemObject")
    4. sub createDir(path)
    5. If not objFSO.FolderExists(path) Then
    6. objFSO.CreateFolder(path)
    7. End If
    8. End Sub
    9. createDir("\\SERVERNAME\a\b\c\%USERNAME%\")
    10. WScript.Quit


    und einmal den Inhalt des Templatefolders in den erstellten Ordner kopieren:

    Visual Basic-Quellcode

    1. dim filesys, folder
    2. set filesys = CreateObject ("Scripting.FileSystemObject")
    3. set folder = filesys.GetFolder("("\\SERVERNAME\a\b\c\d\")
    4. folder.Copy("\\SERVERNAME\a\b\c\%USERNAME%\")


    So, mein Problem ist, dass mir nicht klar ist, wie ich das mit der Systemvariable %USERNAME% machen kann und dann am besten alles noch in einem Skript miteinander kombiniere.

    Wie gesagt, ich bin noch Anfänger und habe auch über die Suche nichts gefunden, was mir direkt geholfen hätte.
    Würde mich freuen, wenn hier jemand helfen könnte :)

    Vorab besten Dank und eine schöne Weihnachtszeit!

    LG

    Edit by der_Kurt:
    * Code formatiert *

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ ()

    Visual Basic-Quellcode

    1. set WshShell = WScript.CreateObject("WScript.Shell")
    2. UserName = WshShell.ExpandEnvironmentStrings("%UserName%")
    3. msgbox UserName
    Gruß
    Peterfido

    Keine Unterstützung per PN!