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