Subscript out of range

Hallo liebe Administratoren und Administratorinen

Ich bin kein wirklicher Script Virtuose, möchte aber trotzdem das hier umsetzen: http://psscripts.blogspot.ch/2012/12/automatically-block-rdp-attacks-on ...

Ich habe den Task mit dem passenden Trigger angelegt und auch das Powershell Script ist am richtigen Ort.
Hier das VB Script:

Dim objShell, scriptpath, args, ip, acc  
      
scriptpath = "D:\Scripts\PS\fail2ban.ps1"    
acc = wscript.arguments.item(0)  
ip = wscript.arguments.item(1)  
      
args = chr(34) & acc & chr(34) & " " & chr(34) & ip & chr(34)    
      
Set objShell = CreateObject("WScript.Shell")    
'Run powershell hidden    
objShell.Run ("powershell " & scriptpath & " " & args), 0, true    
Set objShell = Nothing  

Ich erhalte anschliessend den Fehler im Bild welches ich angehängt habe.

Hat jemand einen Tipp für mich? Bi sicher, das ist ein richtiger Anfänger- Fehler

Gruss
Gringo

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 238032

Url: https://administrator.de/contentid/238032

Ausgedruckt am: 25.11.2024 um 14:11 Uhr

3 Kommentare

Neuester Kommentar

Hallo gringouno!

Das Script erwartet die Übergabe zweier Parameter (wird in der verlinkten Vorlage auch abgefragt) ...

Grüße
bastla

Ok. Ich sehe was du meinst. Ich muss es im Powershell script anpassen. Danke schonmal. Siehst du den auch gleich eine Möglichkeit das nicht auf einen einzelnen User zu beschränken? Hier wird mit verschiedensten Usern versucht