Discussion :

[eric41]

Bonjour,
J'ai trouvé ce script permettant de récupérer les informations sur les sites Web IIS d'un serveur.

IL fonctionne très bien. Toutefois, depuis un serveur particulier (nommé X) (Windows 2008 SP2, IIS 7), il m'affiche une erreur "Syntaxe incorrecte" :



Pourtant, il fonctionne bien sur des serveurs WS2003/IIS6 (nommé Y) et WS2008 SP2/IIS7 (nommé Z). La seule différence trouvée est que X n'a que le site web par défaut, alors que les autres ont plusieurs sites web. Cela pourrait-il en être la cause ? Je précise que j'ai la même erreur si je lance le script depuis un PC XP qui n'a pas IIS.

Pour donner plus d'informations, si je spécifie le serveur X dans le ServerName du script, j'ai cette erreur :



Voici le script en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
' This script will Check most parameters upon your W3SVC application '
' For more scripts go to www.iisfaq.com
'
' Herve Bour Schmitt Bour 12/02/2002
option Explicit
 
Dim ExportFilename, ArgComputerName, IISObjectPath, IISObject, FSO, TextFile, IIS4, Obj
Dim BindingPath, IISObjectIP, ValueList, ValueString, ValueIndex, Value, Values, IP
Dim TCP, HostHeader, Line, IISOBJRoot, separator
Dim ServerName
 
ServerName = "xxxx" '<-------------------- nom du serveur dont on veut lister les sites IIS
 
Function IsAppIsolatedABoolean
    Dim IIsSchemaPath, IIsSchemaObject
    ' Get the Schema of the property and determine if it's multivalued
    IIsSchemaPath = "IIS://" & ServerName & "/Schema/AppIsolated"
    Set IIsSchemaObject = GetObject(IIsSchemaPath) ' <----------------------------- erreur sur cette ligne
    IsAppIsolatedABoolean = (UCase(IIsSchemaObject.Syntax) = "BOOLEAN")
    Set IIsSchemaObject = nothing
end function
 
' This function will return the site details or "" if it does not meed the application protection requirements 
function ReturnSiteProtectionIIS5(Site) 
	Dim Protection, SiteRoot
	ReturnSiteProtectionIIS5 = ""
	Set SiteRoot = getObject("IIS://" & ServerName & "/W3svc/" & Site.Name & "/Root") 
 
		if (Siteroot.AppIsolated = 1) then
			Protection = "High"
		elseif (Siteroot.AppIsolated = 2) then
			Protection = "Medium"
		else
			Protection = "Low"
		end if
 
	ReturnSiteProtectionIIS5 = Protection
	Set SiteRoot = nothing
end function
 
' This function will return the site details or "" if it does not meed the application protection requirements 
function ReturnSiteProtectionIIS4(Site) 
	Dim Protection, SiteRoot
	ReturnSiteProtectionIIS4 = ""
	Set SiteRoot = getObject("IIS://" & ServerName & "/W3svc/" & Site.Name & "/Root") 
 
		if (Siteroot.AppIsolated = true) then
			Protection = "High"
		else    
			Protection = "Low"
		end if
 
	ReturnSiteProtectionIIS4 = Protection
	Set SiteRoot = nothing
end function
 
Function ReturnSiteProtectionIIS(Site)
  if (IIS4 = true) then
    ReturnSiteProtectionIIS = ReturnSiteProtectionIIS4(Site)
  else
    ReturnSiteProtectionIIS = ReturnSiteProtectionIIS5(Site)
  end if
end function
 
' Initialize some variables to determine what to show
IIS4 = IsAppIsolatedABoolean()
 
 
Function ReturnServerStatus(StatusValue)
   select case StatusValue
      case 1 
          ReturnServerStatus = "starting"
      case 2
          ReturnServerStatus="started"
      case 3
          ReturnServerStatus="stopping"
      case 4
          ReturnServerStatus="stopped"
      case 5
          ReturnServerStatus="pausing"
      case 6
          ReturnServerStatus="paused"
      case 7
         ReturnServerStatus="continuing"
     case else
         ReturnServerStatus = "Unknown status : " & StatusValue
  end select
end Function
 
Function ReturnPath(WebSitePath)
    Set IISOBJRoot = getObject(WebSitePath & "/Root")
    ReturnPath = IISOBJRoot.Path
    set IISOBJRoot = Nothing
end function
 
Function Returnlog(WebSitePath)
    Dim statut
    Set IISOBJRoot = getObject(webSitePath)
    Returnlog = IISOBJRoot.LogFileDirectory
    set IISOBJRoot = Nothing
end Function
 
Sub DisplayUsage()
 WScript.Echo "XportDb.VBS  [--computer|-c COMPUTER]"
 WScript.Echo "             [--file|-f ExportFileName]"
 WScript.Echo "             [TAB or COMMA]"
 WScript.Echo "             [--help|-?]"
 WScript.Echo ""
 WScript.Echo ""
 WScript.Echo "You can optionally specify the computer to get the interrogate"
 WScript.Echo "You can optionally specify the separator between the data either TAB or COMMA"
 WScript.Echo "You can optionally specify the export filename - if none specified then the"
 WScript.Echo "log is written to XportDb.TXT in the current directory"
 WScript.Echo ""
 WScript.Echo "Example 1   XportDB.VBS"
 WScript.Echo "Example 2   XportDB.VBS -c LocalHost TAB -f c:\logfiles\xportdb.vbs"
 WScript.Quit
End Sub
 
function CheckCommandLine
Dim oArgs, ArgNum
Set oArgs = WScript.Arguments
ArgNum = 0
While ArgNum < oArgs.Count
 Select Case LCase(oArgs(ArgNum))
  Case "--computer","-c":
   ArgNum = ArgNum + 1
   If (ArgNum >= oArgs.Count) Then
    Call DisplayUsage
   End If 
   ArgComputer = oArgs(ArgNum)
  Case "--file","-f":
   ArgNum = ArgNum + 1
   If (ArgNum >= oArgs.Count) Then
    Call DisplayUsage
   End If 
   ExportFilename = oArgs(ArgNum)
  case "tab" 
      separator = vbTab
  case "comma"
   separator = ","
  Case "diese"
   separator = "#"
  Case "--helpseparator-?"
   Call DisplayUsage
   CheckCommandLine = false
   exit function
  Case Else:
   Call DisplayUsage
   CheckCommandLine = false
   exit function
 End Select 
 ArgNum = ArgNum + 1
Wend
CheckCommandLine = true
end function
 
Exportfilename = "xportdb.txt"
'ArgComputerName = "localhost"
ArgComputerName = ServerName
IIsObjectPath = "IIS://" & ArgComputerName & "/w3svc"
separator = vbTab
if (CheckCommandLine = true) then
 Set IIsObject = GetObject(IIsObjectPath)
 Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
 Set TextFile = fso.CreateTextFile(ExportFileName, true) ' overwrite if exists
 
 for each obj in IISObject
	if (Obj.Class = "IIsWebServer") then
	   BindingPath = IIsObjectPath & "/" & Obj.Name
	   Set IIsObjectIP = GetObject(BindingPath)
	   ValueList = IISObjectIP.Get("ServerBindings")
	   ValueString = ""
	   For ValueIndex = lbound(ValueList) To UBound(ValueList)
		 value = ValueList(ValueIndex)
		 Values = split(value, ":")
		 IP = values(0)
		 if (IP = "") then
			IP = "(All Unassigned)"
		 end if  
 
		 TCP = values(1)
		 if (TCP = "") then
			TCP = "80"
		 end if  
 
		 HostHeader = values(2)
		 Line = ""
		 Line = Line & Obj.Name & separator &IISObjectIP.ServerComment & separator & IP & separator
		 if (HostHeader <> "") then
			Line = Line & HostHeader & separator
		 else
			Line = Line & TCP & separator 
		 end if
 
		 Line = line & ReturnSiteProtectionIIS(IIsObjectIP) & separator & ReturnServerStatus(IISObjectIP.Status)
		 Line = Line & separator & Returnpath(IISObjectIP.ADSPath) & separator & Returnlog(IISObjectIP.ADSPath) 
		 Line = Line & separator & IISObjectIP.LogType
		 Textfile.Writeline Line
	  Next
	  set IISObjectIP = Nothing
	end if
	next
 set IISObject = Nothing
 textfile.Close
 Set textFile =Nothing
 Set FSO = Nothing
 WScript.echo "Web site details have been exported to : " & ExportFilename
end if

Le script doit-être exécuté depuis un PC XP sur lequel sera installé IIS, et je crains d'avoir le même souci. Si vous avez une piste éventuelle pour résoudre ce souci....