Bitlocker Recovery key zum AD hinzufügen

  • VBScript

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Bitlocker Recovery key zum AD hinzufügen

    Guten Morgen.....

    habe am Wochenende ein nettes Script im Netz gefunden, und wollte nun hier mal nachfragen ob Ihr ne Idee habt wie man da ne Art Kontrollmeldung einbaut...

    Sprich wenn es fertig ist soll eine Meldung kommen, "Importvorgang erfolgreich" oder "Importvorgang fehlgeschlagen".

    Habe hierzu leider nichts im Internet gefunden und bin was VBS angeht ein absoluter anfänger..

    Hier das Script:



    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim strNumericalKeyID
    4. Dim strManageBDE,strManageBDE2
    5. Dim oShell
    6. Dim StrPath
    7. Dim StdOut, strCommand
    8. Dim Result, TPM, strLine
    9. Dim Flag, NumericalKeyID
    11. Set oShell = CreateObject("WSCript.Shell")
    13. strManageBDE = "Manage-BDE.exe -protectors -get c:"
    15. Flag = False
    17. Set Result = oShell.Exec(strManageBDE)
    19. Set TPM = Result.StdOut
    21. While Not TPM.AtEndOfStream
    22. strLine = TPM.ReadLine
    23. If InStr(strLine, "Numerical Password:") Then
    24. Flag = True
    25. End If
    26. If Flag = True Then
    27. If InStr(strLine, "ID:") Then
    28. NumericalKeyID = Trim(strLine)
    29. NumericalKeyID = Right(NumericalKeyID, Len(NumericalKeyID)-4)
    30. Flag = False
    31. End If
    32. End If
    33. Wend
    35. strManageBDE2 = "Manage-BDE.exe -protectors -adbackup C: -ID " & NumericalKeyID
    36. oShell.Run strManageBDE2, 0, True




    Hoffe Ihr könnt mir weiter helfen... LG a.fenz

    petaod schrieb:

    Schau dir doch mal die Spezifikation der Wsh.Run-Methode genau an:
    msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.85).aspx

    The Run method returns an integer.
    Das ist der Rückgabewert des aufgerufenen Programms.
    DAnke für die Antwort aber wie gesagt ich habe damit null Erfahrung und weis eig. nicht was ich jz. damit anfangen kann/soll. könntest du mir evtl. ein beispiel machen? habe schon alle möglichen Befehle probiert die auf der von dir bereitgestellten Seite vorzufinden sind. aber leider ohne Erfolg

    so danke habs zwar jz. ein bisschen anders gemacht aber hat wunderbar geklappt....

    vl. noch ne idee wie man das einbauen kann?

    Das man dem Benutzer die Info gibt das die daten ausgelesen werden und in ein paar sec. fertig ist und wenn es zu lange dauert (schleife wegen "while/wend) er mit strg + c abbrechen kann....

    das wäre das itüpfelchen :)

    Du übergibst die Kontrolle an Manage-BDE.
    Du kannst ja einfach diesen Prozess abbrechen.

    Wenn er nicht sichtbar ist, kannst du ihn ja in einer DOS-Box laufen lassen.

    Visual Basic-Quellcode

    1. strManageBDE2 = "cmd.exe /c ""Manage-BDE.exe -protectors -adbackup C: -ID " & NumericalKeyID & """
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende