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
