Jump to content

d.stegemann

Members
  • Gesamte Inhalte

    273
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von d.stegemann

  1. Hi Power-Kiddy,

     

    afaik gibt es sowas nicht.

     

    Du kannst ein Script entweder mit Argumenten starten, oder halt die Inputbox nehmen. Die wolltest du ja nicht, da kein sichtbarer Input da sein soll.

     

    Unter VB könnte ich mir sowas schon eher vorstellen. aber das ist ja nunmal kein Scripting.

     

    Wenn du warten willst nimm bei vbs einfach sleep. Wenn du Tastureingaben simulieren willst, sendkeys...

     

    Gruß

     

    Dirk

     

    PS: Ich lass mich da auch gerne eines besseren belehren. Deine Idee finde ich gut.

  2. Alles was mit Sicherheit zu tun hat...

     

    Welches sind die Hauptziele beim design..

     

    Was gehört zu Physikalischer Sicherheit. VPN, Intranet, Internet. Welche Bedrohungen gibt es. Welche Arten von Attacken gibt es. Wie kann man die identifizieren. Was ist z.B. ein Honeypot, Honeynet, IDS, IPS. Was ist social engineering...

     

     

    Das ist mal ganz grob. Der Stoff ist an sich ziemlich interessant. Da er Herstellerunabhängig ist, kommen auch z.Teil Fragen aus dem Linuxbereich.

     

    Gruß

     

    Dirk

  3. Tach Kiddy,

     

    wenn ich das gerade richtig nachgelesen habe, kann die wsh inputbox das nicht...

     

    --- schnipp ---

     

    prompt

    String expression displayed as the message in the dialog box. The maximum length of prompt is approximately 1024 characters, depending on the width of the characters used. If prompt consists of more than one line, you can separate the lines using a carriage return character (Chr(13)), a linefeed character (Chr(10)), or carriage return–linefeed character combination (Chr(13) & Chr(10)) between each line.

     

    title

    String expression displayed in the title bar of the dialog box. If you omit title, the application name is placed in the title bar.

     

    default

    String expression displayed in the text box as the default response if no other input is provided. If you omit default, the text box is displayed empty.

     

    xpos

    Numeric expression that specifies, in twips, the horizontal distance of the left edge of the dialog box from the left edge of the screen. If xpos is omitted, the dialog box is horizontally centered.

     

    ypos

    Numeric expression that specifies, in twips, the vertical distance of the upper edge of the dialog box from the top of the screen. If ypos is omitted, the dialog box is vertically positioned approximately one-third of the way down the screen.

     

    helpfile

    String expression that identifies the Help file to use to provide context-sensitive Help for the dialog box. If helpfile is provided, context must also be provided.

     

    context

    Numeric expression that identifies the Help context number assigned by the Help author to the appropriate Help topic. If context is provided, helpfile must also be provided.

     

    Remarks

    When both helpfile and context are supplied, a Help button is automatically added to the dialog box.

     

    If the user clicks OK or presses ENTER, the InputBox function returns whatever is in the text box. If the user clicks Cancel, the function returns a zero-length string ("").

     

    The following example uses the InputBox function to display an input box and assign the string to the variable Input:

     

    --- schnapp ---

     

    Die AutoIT Inputbox scheint das zu können...

     

    Funktion InputBox

     

    Hoffe das hilft ein wenig weiter...

     

    Gruß

     

    Dirk

  4. Hallo Björn,

     

    vielleicht kann dir AutoIT bei der Lösung deines Problems behilflich sein.

     

    AutoIt v3 - Automate and Script Windows Tasks - For Free!

     

    Ansonsten gibt es auch ein wsh.senkeys.

     

    Aber dazu gab es schonmal einen oder zwei Threads.

     

     

    Aber mal eine Frge dazu. Willst du mit dem Button ein Makro starten oder wie muss ich mir das genau vorstellen...

     

     

    Gruß

     

    Dirk

  5. Hallo aysyxc,

     

    ich denke Nils meinte ein explizites Konvertieren...

     

    Das macht man in vbs z.B. mit

     

    CStr(wert) für String

    CBool(wert) für Boolean

    CDate(wert) für Datum

    CInt(wert) für Integer

    ...

     

    Also für deinen Fall am besten CStr...

     

    Wäre dann mit Cybquest's Vorschlag kombiniert so was wie...

     

    vorher...
    If itm.Body = ID Then itm.Delete
    
    nacher...
    
    If CStr(trim(itm.Body)) = CStr(trim(ID)) Then itm.Delete
    
    

     

     

    Gruß

     

    Dirk

  6. Hi Surfy,

     

    NTrights wäre afaik eigentlich schon das Mittel der Wahl. Hatte mal ein ähnliches Problem, da hat NTrights geholfen. Ging glub ich um interaktive Anmeldung.

     

    Wenn du etwas ergänzen möchtest, könnte ich mir mir maximal vorstellen, das du erst einen Dump des bestehenden local policy ziehst und dann um deine Dinge ergänzt und das neue File mit secedit reinschießt.

     

    Ein besserer Gedanke ist mir leider nicht gekommen.

     

    Oder du machst halt einen Teil mit NTrights und File/Folderkram mit xcacls...

     

    Gruß

     

    Dirk

  7. Schickes Bild :-)

     

    Ich kann auch nur sagen. Durchaus gelungen. Hat Freude gemacht und die beiden Vorträge waren sehr interessant. Astaro kannte ich bis dato nicht und ESX-I war auch auf jeden Fall die Reise wert. Schade, das ein paar Kernfeatures von ESX nicht vorgeführt werden konnten, da das Equipment nicht vorhanden war.

     

    Wenn ich beim nächsten Termin wieder Zeit finde, schaue ich auf jeden Fall vorbei.

     

    Gruß

     

    Dirk

  8. Hallo user1977,

     

    hier ein kleines Schnippselchen...

     

    o_file1 = "\akt.txt"
    o_file2 = "\erg.txt"
    output = "\output.txt"
    Set oFSO = CreateObject("Scripting.FileSystemObject")
     folder = oFSO.GetFolder(".")
     If oFSO.FileExists(folder & output) Then
           oFSO.DeleteFile(folder & output)
       End If
       ' Da output nicht vorhanden kreieren.
       Set f_mergefile = oFSO.CreateTextFile(folder & output, True) 
     Set reader = oFSO.OpenTextFile(folder & o_file1)
     Set reader1 = oFSO.OpenTextFile(folder & o_file2)
    Do Until reader.AtEndofStream
      str_tmp = reader.ReadLine
      str_akt = trim(mid(str_tmp, instr(str_tmp, ":") +1, len(str_tmp)- instr(str_tmp, ":")-1))
      str_tmp = reader1.ReadLine
      str_erg = trim(mid(str_tmp, instr(str_tmp, ":") +1, len(str_tmp)- instr(str_tmp, ":")-3))
      f_mergefile.WriteLine "" & str_akt &" "& str_erg &""
    Loop
    

     

    Davon ausgehend, das du dieses File als vbs speicherst und in dem Verzeichnis ablegst in dem deine beiden Textdateien sind, sollte das funktionieren.

     

    Ist auch ein kleiner Teil drin in dem das Outputfile gelöscht wird. Solltest du also ohne Probleme auf deine Problematik portieren können.

     

    Gruß

     

    Dirk

  9. Aber du kannst auch nicht allen Ernstes erwarten, das sich da schnell mal einer für ein paar Stunden hinsetzt und dir dein Excel Makro codet. Ein bisschen Eigeninitiative ist da schon angesagt :p

     

    Du hast ja schon von Nils und Frank einige ziemlich gute Hints bekommen. Die sind auf jeden Fall für deinen Bedarf ausbaufähig.

     

    Gruß

     

    Dirk

×
×
  • Neu erstellen...