[a.fenz]

Guten Morgen leute....

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 ne 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:

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