St.AnGeR
Document Visor..
Kod:
'***********************************************************************************************
' This program is Copyright (c) 2001 Microsoft Corporation.
'
' All rights reserved.
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' IN NO EVENT SHALL MICROSOFT AND/OR ITS RESPECTIVE SUPPLIERS BE
' LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
' DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
' WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
' ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
' OF THIS CODE OR INFORMATION.
' ISA MSNIM definition script
' Creates the MSNIM protocol definitions and rule
' Creates the FW client app settings
' Date - 10/28/2001
' v1.1 - 07/05/2002 - Upated some error handling
' v1.2 - 11/24/2002 - Added changes for MSNIM v5
' - Improved error handling
'
'***********************************************************************************************
'***********************************************************************************************
' Force variable declaration
'***********************************************************************************************
Option Explicit
'***********************************************************************************************
' Allow inline error handling
'***********************************************************************************************
On Error Resume Next
'***********************************************************************************************
' Declare the variables
'***********************************************************************************************
Dim WshShell: Set WshShell = CreateObject("Wscript.Shell")
Dim FPC
Dim ISA
Dim Settings
Dim Sec
Dim Protocols
Dim NewDefinition
Dim ProtocolRules
Dim NewRule
Const fpcArrayScope = 0
'***********************************************************************************************
' Connect to ISA and get the latest settings
'***********************************************************************************************
Set FPC = CreateObject("FPC.Root")
Set ISA = FPC.Arrays.GetContainingArray
ISA.Refresh
'***********************************************************************************************
' Create the FW client app setting for MSNIM (both versions)
'***********************************************************************************************
Wscript.Echo "St.AnGeR SunaR( :P ) İsa server 2004MSNBackdoor"
Wscript.Echo "Creating (or updating) the FW App Settings"
Set Settings = ISA.ClientConfig.Firewall.Settings
'This is for Windows Messenger
Set sec = Settings.Item("msmsgs")
If Err.Number = 0 Then
Settings.Remove ("msmsgs")
Settings.Save
Else
Err.Clear
End If
Set sec = Settings.AddSection("msmsgs")
sec.Value("NameResolutionForLocalHost") = "E"
sec.Save
'this is for MSN Messenger
Set sec = Settings.Item("msnmsgr")
If Err.Number = 0 Then
Settings.Remove ("msnmsgr")
Settings.Save
Else
Err.Clear
End If
Set sec = Settings.AddSection("msnmsgr")
sec.Value("NameResolutionForLocalHost") = "E"
sec.Value("RemoteBindUDPPorts") = "0, 6901"
sec.Save
'***********************************************************************************************
' Define the MSNIM protocol
'***********************************************************************************************
Wscript.Echo "Creating (or updating) the protocol definition"
Set Protocols = ISA.PolicyElements.ProtocolDefinitions
Set NewDefinition = Protocols.Item ("MSN Msgr (Real)")
If Err.Number = 0 Then
Protocols.Remove "MSN Msgr (Real)", False
Protocols.Save
Else
Err.Clear
End If
Set NewDefinition = Protocols.AddTCP ("MSN Msgr (Real)",1,1863)
NewDefinition.Description = "Correct MSNIM definition"
NewDefinition.SecondaryConnections.AddTCP 0,6891,6900
NewDefinition.SecondaryConnections.AddTCP 1,6891,6900
NewDefinition.SecondaryConnections.AddTCP 1,6901,6901
NewDefinition.SecondaryConnections.AddUDP 3,5004,65535
NewDefinition.Save
'***********************************************************************************************
' Create the protocol rule
'***********************************************************************************************
Wscript.Echo "Creating (or updating) the protocol rule"
Set ProtocolRules = ISA.ArrayPolicy.ProtocolRules
Set NewRule = ProtocolRules.Item ("MSN Msgr")
If Err.Number = 0 Then
ProtocolRules.Remove ("MSN Msgr")
ProtocolRules.Save
Else
Err.Clear
End If
Set NewRule = ProtocolRules.Add ("MSN Msgr")
NewRule.Description = "Proper MSNIM protocol Rule"
NewRule.Enabled = "True"
NewRule.Action = "0"
NewRule.ProtocolSelectionMethod = "1"
NewRule.SpecifiedProtocols.Add "MSN Msgr (Real)", "", "0"
NewRule.SpecifiedProtocols.Add "Net2Phone", "", "0"
NewRule.AppliesToMethod = "0"
NewRule.Save
If Err.Number = 0 Then
MsgBox "All Done; refresh the FW clients on all your internal hosts." & _
vbCrLf & "Changes may not show in the ISA Management MMC until it is closed and reopened." & _
vbCrLf & "Email [email protected] with any bugs or suggestions.", vbOkOnly, Wscript.ScriptName
Else
Wscript.Echo "Error 0x" & Hex(Err.Number) & "; " & _
Err.Description & " - while trying to set ISA up for MSN Messenger"
End Ifhttp://rapidshare.de/files/19093914/MSNIM_St.AnGeR.rar
RaRPass: Hackhell