set oShell = CreateObject("WScript.Shell")
oShell.run "cmd.exe"
WScript.Sleep 1000
'
'
'
oShell.SendKeys"telnet 172.16.19.254"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys"admin"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
'
'
'
oShell.SendKeys"password"             'HIER MUESST IHR EUER ADMIN-PASSWORT EINTRAGEN
oShell.SendKeys("{Enter}")
WScript.Sleep 500
oShell.SendKeys"system-view"
oShell.SendKeys("{Enter}")
WScript.Sleep 500
'
'
'
oShell.SendKeys"display acl all"
oShell.SendKeys("{Enter}")
WScript.Sleep 5000


Anzahl_der_VLANs=InputBox ("ACL für wie viele VLANs?","Input","VLAN")*1
'Annahme: Die Server haben 172.16.0.0/24 er Adressen

AdminNetz = 19
'Annahme: Die Admins sitzen in 172.16.19.0/24 er Netz

Set fs = CreateObject("Scripting.FileSystemObject")

for k = 1 to Anzahl_der_VLANs

oShell.SendKeys"acl number " & 3000+k
oShell.SendKeys("{Enter}")
WScript.Sleep 500


    n=0
        for i = 1 to Anzahl_der_VLANs

               if i = k then i=i+1
               if i = AdminNetz then i=i+1

            if i <= Anzahl_der_VLANs Then
                 oShell.SendKeys"rule " & n & " deny ip source any destination 172.16." & i & ".0 0.0.0.255"
                 oShell.SendKeys("{Enter}")
                 WScript.Sleep 500
            end if

            n=n+1
        next

oShell.SendKeys"quit"
oShell.SendKeys("{Enter}")
WScript.Sleep 5000

Next

oShell.SendKeys"display acl all"
oShell.SendKeys("{Enter}")
WScript.Sleep 500