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"Urobe"
oShell.SendKeys("{Enter}")
WScript.Sleep 500
oShell.SendKeys"system-view"
oShell.SendKeys("{Enter}")
WScript.Sleep 500
'
'
'


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


Set fs = CreateObject("Scripting.FileSystemObject")

for k = 1 to Anzahl_der_VLANs
if k <> AdminNetz then

        oShell.SendKeys"traffic classifier CL" & k
        oShell.SendKeys("{Enter}")
        WScript.Sleep 1000

        oShell.SendKeys"if-match acl " & 3000+k
        oShell.SendKeys("{Enter}")
        WScript.Sleep 1000

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

        oShell.SendKeys"qos policy p" & k
        oShell.SendKeys("{Enter}")
        WScript.Sleep 1000

        oShell.SendKeys"classifier CL" & k & " behavior deny"
        oShell.SendKeys("{Enter}")
        WScript.Sleep 1000

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

        oShell.SendKeys"qos vlan-policy p" & k & " VLAN 1" & k & " inbound"
        oShell.SendKeys("{Enter}")
        oShell.SendKeys("{Enter}")
        oShell.SendKeys("{Enter}")
        oShell.SendKeys("{Enter}")
        WScript.Sleep 5000



end if
Next