Cuba
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Приветик всем 
Уважаемые комрады, помогите малость... была такая цель у нас, это возможность удалённого запуска скрипта на иса сервере, с целью открытия инета на определенный комп. Дак вот даже скрипт люди нам написали, вроде всё хорошо.. но... скрипт по не понятным причинам то выполняется на сервере то нет. Как быть?  Столько денег выкинули человеку, а он написал что-то и смотался
Это файл rulez.vbs
Запускается таким макаром: rulez.vbs compname Allow(Deny) City(World)
Код:
const fpcActionAllow=0
const fpcRuleActionPermit=0
const fpcAppliesToClientSets=2
const fpcSpecifiedProtocols=1
const fpcAllIpTraffic=0
const fpcArrayScope=0
const fpcSpecifiedDestinationSet=3
Set Args=Wscript.Arguments
Set Isa=CreateObject("FPC.Root")
Set Array1=Isa.Arrays.GetContainingArray
Set ProtocolRules=Array1.ArrayPolicy.ProtocolRules
Set ContentRules=Array1.ArrayPolicy.SiteAndContentRules
Set Servers=Array1.Servers
Set Session1=Servers.GetContainingServer.FirewallSessions
CompName=Args(0)
CompAction=Args(1)
CompDest=Args(2)
'Wscript.Echo "Computer:" & CompName & vbCrLf & "Action:" & CompAction & vbCrLf & "Destination:" & CompDest
For Each Rule in ProtocolRules
If Rule.Name=CompName Then
ProtocolRules.Remove(CompName)
ProtocolRules.Save
End If
Next
For Each Ses in Session1
If Ses.ClientComputerName=CompName Then
Ses.AbortSession()
Ses.Refresh
End If
Next
For Each Content in ContentRules
If Content.Name=CompName Then
ContentRules.Remove(CompName)
ContentRules.Save
End If
Next
Set ContentRule=ContentRules("deny_content")
index=1
For Each CR in ContentRule.ClientAddressSetsExcluded
If ContentRule.ClientAddressSetsExcluded.Item(index)=CompName Then
ContentRule.ClientAddressSetsExcluded.Remove(index)
ContentRule.Save
else
index=index+1
End If
Next
If CompAction="Allow" Then
If CompDest="City" Then
Set ProtocolRule=ProtocolRules.Add(CompName)
ProtocolRule.Action=fpcActionAllow
ProtocolRule.AppliesToMethod=fpcAppliesToClientSets
ProtocolRule.Enabled=True
ProtocolRule.ProtocolSelectionMethod=fpcAllIpTraffic
ProtocolRule.ClientAddressSetsUsed.Add (CompName)
ProtocolRule.SetAppliesAlways()
ProtocolRule.Save
Set ContentRule=ContentRules.Add(CompName)
ContentRule.Action=fpcRuleActionPermit
ContentRule.AppliesToMethod=fpcAppliesToClientSets
ContentRule.Enabled=True
ContentRule.SetDestination fpcSpecifiedDestinationSet, CompDest
ContentRule.ClientAddressSetsUsed.Add(CompName)
ContentRule.SetAppliesAlways()
ContentRule.Save
Else
Set ProtocolRule=ProtocolRules.Add(CompName)
ProtocolRule.Action=fpcActionAllow
ProtocolRule.AppliesToMethod=fpcAppliesToClientSets
ProtocolRule.Enabled=True
ProtocolRule.ProtocolSelectionMethod=fpcAllIpTraffic
ProtocolRule.ClientAddressSetsUsed.Add(CompName)
ProtocolRule.SetAppliesAlways()
ProtocolRule.Save
Set ContentRule=ContentRules("deny_content")
ContentRule.ClientAddressSetsExcluded.Add(CompName)
ContentRule.Save
Set ContentRule=ContentRules.Add(CompName)
ContentRule.Action=fpcRuleActionPermit
ContentRule.AppliesToMethod=fpcAppliesToClientSets
ContentRule.Enabled=True
ContentRule.SetDestination fpcSpecifiedDestinationSet, CompDest
ContentRule.ClientAddressSetsUsed.Add(CompName)
ContentRule.SetAppliesAlways()
ContentRule.Save
End If
Else
End If
|
 Предупреждение за умышленный дубль постов. lynx. |
Всего записей: 476 | Зарегистр. 15-07-2002 | Отправлено: 21:54 05-02-2004 | Исправлено: lynx, 13:54 06-02-2004 |
|
