By 15 Gennaio 2016 0 Comments

Rilevare tutti gli ID da IIS e inserirli in un database

Potremmo avere la necessità di rilevare, automaticamente, tutti gli ID e gli Hostname dei siti web attivati su IIS per gestirli in un database.
Il seguente script utilizza un database MySql per questa operazione. (Database : associazioniid )

'CONNESSIONE a DB
Dim mm_oradb_string
'mm_oradb_string = "dsn=IIS-ID-DB;"
mm_oradb_string = "Provider=MSDASQL;driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;uid=user;pwd=passwd;database=associazioniid;option=3;"
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3


'CICLO per TUTTI i SITI WEB attivi in IIS
Set IISOBJ = getObject("IIS://LocalHost/W3SVC")
For each Object in IISOBJ
 if (Object.Class = "IIsWebServer") Then
 
 
 'VERIFICO SE PRESENTE
 Set Dbase = CreateObject("ADODB.Recordset")
 Dbase.ActiveConnection = mm_oradb_string 
 Sql = "SELECT * FROM iis where WebSite='"&Object.ServerComment&"'"
 Dbase.Open sql, mm_oradb_string, 1,3
 
  
 If Dbase.eof and Dbase.bof Then 
 
 sql1="INSERT INTO iis (IISid,Website) VALUES ('"& Object.Name &"', '"&Object.ServerComment&"')"
 constring=mm_oradb_string 
 set con=createobject("adodb.connection")
 con.open constring
 con.execute sql1
 con.close
 
 End if
 
 'WScript.Echo "WWW Site: " & Object.Name & " - " & Object.ServerComment
 end if
next

Rilevare tutti gli ID da IIS, Rileva id iis, iis id in database, come rilevare id da iis e metterli in un database, Ricavare ID da IIS

Posted in: IIS 6.0, IIS 7, IIS 7.0, IIS 8.0, Web Server

About the Author:

shared on wplocker.com