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:
Hoffe Ihr könnt mir weiter helfen... LG a.fenz
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
- Option Explicit
- Dim strNumericalKeyID
- Dim strManageBDE,strManageBDE2
- Dim oShell
- Dim StrPath
- Dim StdOut, strCommand
- Dim Result, TPM, strLine
- Dim Flag, NumericalKeyID
- Set oShell = CreateObject("WSCript.Shell")
- strManageBDE = "Manage-BDE.exe -protectors -get c:"
- Flag = False
- Set Result = oShell.Exec(strManageBDE)
- Set TPM = Result.StdOut
- While Not TPM.AtEndOfStream
- strLine = TPM.ReadLine
- If InStr(strLine, "Numerical Password:") Then
- Flag = True
- End If
- If Flag = True Then
- If InStr(strLine, "ID:") Then
- NumericalKeyID = Trim(strLine)
- NumericalKeyID = Right(NumericalKeyID, Len(NumericalKeyID)-4)
- Flag = False
- End If
- End If
- Wend
- strManageBDE2 = "Manage-BDE.exe -protectors -adbackup C: -ID " & NumericalKeyID
- oShell.Run strManageBDE2, 0, True
Hoffe Ihr könnt mir weiter helfen... LG a.fenz