IIS and vbs

Bonjour,

Avez mis a jour les variables?
Cela marche sur mon server nomme facanyukon pour le premier serveur web.

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\facanyukonrootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = 'W3SVC/1'")

For Each objItem in colItems
objItem.Start
Next


Pour lister les service web:
http://www.microsoft.com/technet/scriptcenter/scripts/iis/iis6/web/i6wevb11.mspx

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\" _
& strComputer & "rootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery("Select * from IIsWebServer")

For Each objItem in colItems
Wscript.Echo "Application Isolated: " & objItem.AppIsolated
Wscript.Echo "Application Package ID: " & objItem.AppPackageID
Wscript.Echo "Application Package Name: " & objItem.AppPackageName
Wscript.Echo "Application Root: " & objItem.AppRoot
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Installation Date: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Server State: " & objItem.ServerState
Wscript.Echo "Status: " & objItem.Status
Next

Merci,
Fabrice

"popeyes44" <popeyes44@discussions.microsoft.com> wrote in message
news:1D071F82-D3BD-43D7-B467-03FE9F4E4D87@microsoft.com...

Bonjour a tous, voilà, j'ai récupèrer le script sur le site technet qui
permet de créer des sites web automatiquement mais celui-ci ne permet pas
de
les démarrer automatiquement !!! ESt-ce que quelqu'un peut m'aider (le
script
de démarrage de site de technet, ne marche que avec l'id du site or, je
n'arrive pas a la récupérer lors de la création)--Code ci-dessous

[CODE CREER UN SITE]
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\" _
& strComputer & "rootmicrosoftiisv2")

Set objWebService = objWMIService.ExecQuery _
("Select * From IISWebService")

arrBindings = Array(0)
Set arrBindings(0) = _
objWMIService.Get("ServerBinding").SpawnInstance_()
arrBindings(0).IP = "192.168.1.1"
arrBindings(0).Port = "8383"
arrBindings(0).Hostname = "atl-ws-01"

For Each objItem in objWebService
objItem.CreateNewSite "Test Site", arrBindings, _
"c:inetpubwwwroot"
Next
[FIN CODE CREER UN SITE]

[CODE DEMARRER UN SITE]
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\" _
& strComputer & "rootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = " & _
"'W3SVC/2142295254'")

For Each objItem in colItems
objItem.Start
Next
[FIN CODE DEMARRER UN SITE]

Ps : je suis sous Windows 2003.

Le probleme n'est pas de lancere le site web via son numéro
("Select * From IIsWebServer Where Name = 'W3SVC/1'")
mais de le lancer grace a sa désignation car lors de la création, je ne vois
pas comment récupèrer le numéro.
Pour le listing des sites, ma demande est de pouvoir connaitre la liste des
sites contenant le terme PRIVEE par exemple.

Nicolas

"Fabrice Canel [MSFT]" wrote:

Bonjour,

Avez mis a jour les variables?
Cela marche sur mon server nomme facanyukon pour le premier serveur web.

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\facanyukonrootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = 'W3SVC/1'")

For Each objItem in colItems
objItem.Start
Next


Pour lister les service web:
http://www.microsoft.com/technet/scriptcenter/scripts/iis/iis6/web/i6wevb11.mspx

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\" _
& strComputer & "rootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery("Select * from IIsWebServer")

For Each objItem in colItems
Wscript.Echo "Application Isolated: " & objItem.AppIsolated
Wscript.Echo "Application Package ID: " & objItem.AppPackageID
Wscript.Echo "Application Package Name: " & objItem.AppPackageName
Wscript.Echo "Application Root: " & objItem.AppRoot
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Installation Date: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Server State: " & objItem.ServerState
Wscript.Echo "Status: " & objItem.Status
Next

Merci,
Fabrice

"popeyes44" <popeyes44@discussions.microsoft.com> wrote in message
news:1D071F82-D3BD-43D7-B467-03FE9F4E4D87@microsoft.com...

Bonjour a tous, voilà, j'ai récupèrer le script sur le site technet qui
permet de créer des sites web automatiquement mais celui-ci ne permet pas
de
les démarrer automatiquement !!! ESt-ce que quelqu'un peut m'aider (le
script
de démarrage de site de technet, ne marche que avec l'id du site or, je
n'arrive pas a la récupérer lors de la création)--Code ci-dessous

[CODE CREER UN SITE]
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\" _
& strComputer & "rootmicrosoftiisv2")

Set objWebService = objWMIService.ExecQuery _
("Select * From IISWebService")

arrBindings = Array(0)
Set arrBindings(0) = _
objWMIService.Get("ServerBinding").SpawnInstance_()
arrBindings(0).IP = "192.168.1.1"
arrBindings(0).Port = "8383"
arrBindings(0).Hostname = "atl-ws-01"

For Each objItem in objWebService
objItem.CreateNewSite "Test Site", arrBindings, _
"c:inetpubwwwroot"
Next
[FIN CODE CREER UN SITE]

[CODE DEMARRER UN SITE]
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\" _
& strComputer & "rootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = " & _
"'W3SVC/2142295254'")

For Each objItem in colItems
objItem.Start
Next
[FIN CODE DEMARRER UN SITE]

Ps : je suis sous Windows 2003.