Extraction de ISA 2004/2006

Extraction de ISA 2004/2006 - VB/VBA/VBS - Programmation

Marsh Posté le 27-11-2007 à 15:31:49    

Salut,
 
J'espère qu'il y a qqe bidouilleur de ISA dans le coin.
 
En fait, je me suis fait/adapté un script qui extrait qqe paramètre de ISA2004/2006, Ce script est lancé de manière schedulé toutes les 15 minutes.
 
mais j'aimerais ne réellement faire un extract que si il y a des nouveautés dans les DestinationSet, UsersSets, ...  
 
Vous avez une idée ?
 
Le code, au cas ou ....

Code :
  1. '=========================================================================================
  2. Option Explicit
  4. Dim     DEBUG
  5.     DEBUG = true
  6. Dim    Destination
  7.     'Destination="L:ISA2004-2006"
  8.     Destination="si0vm055Isa2004-2006$"
  10. '=====================================================================================
  13. '###################################################################################
  14. 'MAIN - Hauptprozedur
  15. '-----------------------------------------------------------------------------------
  16.     Dim boolRunAsCScript 
  17.      
  18.     'Checking if code is running on cscript and not wscript...ie we are printing the output to the console
  19.     If (UCase(Right(WScript.FullName, 11)) <> UCase("CScript.exe";)) Then
  20.         WScript.Echo "Must be run under CScript" & "  Example: CScript " & ScriptName & ".vbe"
  21.     WScript.Echo vbTab & "Version " & SCRIPT_VERSION
  22.         boolRunAsCScript = False
  23.        
  24.         Call EndScript
  25.     Else
  26.         Dim StartTime
  27.             StartTime = Now()
  28.         boolRunAsCScript = True
  29.         Call StartScript
  30.         Call GetISAellements()
  31.         Call EndScript
  33.     End If
  34. '###################################################################################
  36. '=========================================================================================
  37. Sub EndScript() 'Alles was beim Ende des Sripted getan werden muß - wird immer aufgerufen
  38. End Sub 'EndScript() 'Alles was beim Ende des Sripted getan werden muß - wird immer aufgerufen
  39. '============================================================================
  44. '============================================================================
  45. Sub StartScript() 'Alles was beim Ende des Sripted getan werden muß - wird immer aufgerufen
  46. End Sub 'StartScript() 'Alles was beim Ende des Sripted getan werden muß - wird immer aufgerufen
  47. '============================================================================
  51. '=========================================================================================
  52. Sub GetISAellements() 'as String
  53.     'This routine will analyse all policies in the ISA Enterprise configuration
  54.     'and list all accounts defined in applies to. Additionally it will resolve all
  55.     'subtree groupmemberships for any group defined to list all user accounts that are
  56.     'affected by a policy
  57.    
  58.     Dim ISAEnterprise ' as FPCDS 'The ISA
  59.     Dim CompuSet, Compu, Urls, ISAUrlSet , Range, entRuleElement , DomNamSets
  60.     Dim USet, Account,dateLastMod,MyDate
  61.     Dim FileToSave ,File
  62.     Dim Count
  63.  
  65.     If (DEBUG)  Then wscript.echo  ("Connecting to the ISA Configuration...";)
  66.     Set ISAEnterprise = CreateObject ("FPC.Root";)
  69.     Set FileToSave = CreateObject ("Scripting.FileSystemObject";)
  71.     If FileToSave.FileExists(Destination &"exported.txt";) then
  72.     If (DEBUG)  Then wscript.echo  ("Last Export is not imported";)
  73.     wscript.Quit
  74.     end if
  75.    
  76.     'ISAEnterprise.ConnectToConfigurationStorageServer "localhost", "User1","ge.test", "cDFGpo25E"
  77.     ISAEnterprise.ConnectToConfigurationStorageServer "fe0bch.com", "q8fe","de", "Fosi0"
  78.  
  79.     dateLastMod = ISAEnterprise.Enterprise.LastModifiedTime
  81.     wscript.echo dateLastMod
  82.     wscript.echo Date()
  83.    
  84.    
  85.     set entRuleElement = ISAEnterprise.Enterprise.RuleElements
  86.  
  87.    
  88.    
  89.    '###############################################################################################
  90.    '# Computer
  91.    '###############################################################################################
  92.     wscript.echo "Computers"
  93.     Set File= FileToSave.OpenTextFile(Destination &"Computers.txt",2, true)
  94.     For Each Compu In entRuleElement.Computers
  95.         If (DEBUG )  Then wscript.echo  "   "&Compu.Name & " " & Compu.IPaddress
  96.         File.WriteLine Compu.Name & ";" & Compu.Description & ";" & Compu.IPaddress
  97.     Next
  98.     File.close
  99.     If (DEBUG )  Then wscript.echo ""
  100.    
  101.    
  102.    '###############################################################################################
  103.    '# Computers Sets
  104.    '###############################################################################################
  105.     wscript.echo "ComputerSet"
  106.     Set File = FileToSave.OpenTextFile(Destination &"ComputersSets.txt",2, true)
  107.     For Each CompuSet In entRuleElement.ComputerSets
  108.         File.WriteLine CompuSet.Name
  109.         File.WriteLine  ("<";)
  110.                
  111.         For Each Compu in CompuSet.Computers
  112.             If (DEBUG)   Then wscript.echo  "   Compu " & Compu.Name & ";" & Compu.IPaddress
  113.             File.WriteLine "Compu"& ";" & Compu.Name  & ";" & Compu.IPaddress
  115.           Next
  116.           For Each Range in CompuSet.AddressRanges
  117.             If (DEBUG)  Then  wscript.echo  "   Range " & range.Name & " "& Range.IP_From & " "& Range.IP_To
  118.             File.WriteLine   "Range" & ";" & range.Name & ";" & Range.IP_From & ";" & Range.IP_To
  119.         Next
  120.         File.WriteLine ">"
  121.         File.WriteLine  ("";)
  122.      Next
  123.      File.close
  124.      If (DEBUG )  Then wscript.echo ""
  127.     '###############################################################################################
  128.     '# URL Sets
  129.     '###############################################################################################
  130.      wscript.echo "URLSets"
  131.      Set File = FileToSave.OpenTextFile(Destination &"URLSets.txt",2, true)
  132.      For Each ISAUrlSet In entRuleElement.UrlSets
  133.          File.WriteLine ISAUrlSet
  134.         File.WriteLine  ("<";)   
  135.         For Count=1 to ISAUrlSet.Count
  136.             If (DEBUG )  Then wscript.echo "   " & ISAUrlSet.Item(Count)
  137.             File.WriteLine  ISAUrlSet.Item(Count)
  138.         Next
  139.         File.WriteLine  (">";)
  140.         File.WriteLine  ("";)
  141.      Next
  142.      File.close
  143.      If (DEBUG )  Then wscript.echo ""
  146.     '###############################################################################################
  147.     '# Domain Name Sets
  148.     '###############################################################################################   
  149.         wscript.echo "Domain Name Set"
  150.      Set File = FileToSave.OpenTextFile(Destination &"DomainNameSets.txt",2, true)
  151.      For Each DomNamSets In entRuleElement.DomainNameSets
  152.         If (DEBUG )  Then  wscript.echo "   DomNamSets: " & DomNamSets
  153.          File.WriteLine DomNamSets
  154.         File.WriteLine  ("<";)   
  155.         For Count=1 to DomNamSets.Count
  156.             If (DEBUG ) Then wscript.echo "     " & DomNamSets.Item(Count)
  157.             File.WriteLine  DomNamSets.Item(Count)
  158.         Next
  159.         File.WriteLine  (">";)
  160.         File.WriteLine  ("";)
  161.      Next
  162.      File.close
  163.      If (DEBUG )  Then wscript.echo ""
  164.    
  165.      '###############################################################################################
  166.      '# Users Sets
  167.      '###############################################################################################
  168.      wscript.echo "User Sets"
  169.      Set File = FileToSave.OpenTextFile(Destination &"UserSets.txt",2, true)
  170.      For Each USet In entRuleElement.UserSets
  171.         If (DEBUG )   Then wscript.echo  "   USets " & USet
  172.         File.WriteLine USet.Name
  173.         File.WriteLine  ("<";)
  174.                    
  175.         For Each Account in USet.Accounts
  176.             If (DEBUG )   Then wscript.echo  "    " & Account.Account
  177.             File.WriteLine Account.Account
  178.           Next
  179.         File.WriteLine ">"
  180.         File.WriteLine  ("";)
  181.      Next
  182.      File.close
  183.      If (DEBUG )  Then wscript.echo ""
  185.      Set File= FileToSave.OpenTextFile(Destination &"exported.txt",2, true) 
  186.      File.WriteLine "<"
  187.      File.WriteLine ">"
  188.      File.close
  191. End Sub 'GetISAellements()


Message édité par Z_cool le 27-11-2007 à 15:32:12

---------------
#mais-chut
Reply

Marsh Posté le 27-11-2007 à 15:31:49   

Reply

Marsh Posté le 28-11-2007 à 10:55:19    

Mouai,... y a pas foule ....


---------------
#mais-chut
Reply

Marsh Posté le 28-11-2007 à 13:50:46    

À mon avis ceux qui connaissent le mieux ISA et ses objets sont plutôt des admins système que des programmeurs.
Essaie peut-être de poster un sujet dans leur catégorie (si pas déjà fait)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed