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