I have the script below stored in a file called IISScripts.vbs.
I have this in my wxs file:
<Binary Id="IISScripts" src="IISScripts.vbs"/>
<CustomAction Id="SetIISLog" BinaryKey="IISScripts"
VBScriptCall="SetIISLog" Return="check" />
<InstallExecuteSequence>
<InstallExecute Sequence='6500'>NOT Installed</InstallExecute>
<Custom Action="SetIISLog" After="InstallFiles" >
</Custom>
</InstallExecuteSequence>
I get these error messages:
((ERROR)) Line 133
GetObject("winmgmts:{authenticationLevel-pktPrivacy}\\.\root\microsoftiisv2)
((ERROR)) line 135 Set colItems ... (see source code below)
Hmmm... I was getting an error indicating that objWMIService was undefined. I
cannot figure out what changed to cause these different error messages.
Well, anyway: here is the kicker: this script works fine when I call it from
CMD.EXE with the cscript.exe command. Why do these calls only fail when I call
them from the installer?
Thanks,
Siegfried
16 Option Explicit
17
18 Const FAILED = 3
19 Const SUCCEEDED = 0
20 Dim notInWMI
21 notInWMI = False
22
23
'------------------------------------------------------------------------------
24 ' Logs information to calling MSI
25
'------------------------------------------------------------------------------
26 Sub LogInfo(msg)
27 If notInWMI Then
28 WScript.Echo msg
29 Else
30 Dim rec
31 Set rec = Session.Installer.CreateRecord(1)
32 rec.StringData(0) = "((INFO)) " & msg
33 Session.Message &H04000000, rec
34 End If
35 End Sub
36
51 Function ChkError(msg)
52 if Err and Err.number <> 0 then
53 LogError msg & " {" & Err.number & ": " & Err.Description
& "}"
54 ChkError = FAILED
55 Exit Function
56 end if
57 ChkError = SUCCEEDED
58 End Function
59
60
116
'------------------------------------------------------------------------------
117 ' Sets the the IIS log file
118
'------------------------------------------------------------------------------
119 Function SetIISLog()
120 On Error Resume Next
121 dim objWMIService
122 dim colItems
123 dim strComputer
124 LogInfo "line 124 Beginning SetIISLog"
125 SetIISLog = FAILED
126 'Instance = Session.Properties("SITEURL")
127 Instance = "Default Web Site"
128 ' Verify we can connect to IIS on specified Server
129 LogInfo "Line 129 "
130 strComputer = "."
131 LogInfo "Line 131"
132 Set objWMIService =
GetObject("winmgmts:{authenticationLevel=pktPrivacy}\\" & strComputer &
"\root\microsoftiisv2")
133 ChkError("Line 133
GetObject(""winmgmts:{authenticationLevel=pktPrivacy}\\" & strComputer &
"\root\microsoftiisv2"")")
134 Set colItems = objWMIService.ExecQuery ("Select * from
IIsWebServiceSetting")
135 ChkError("line 135 Set colItems = objWMIService.ExecQuery
(""Select * from IIsWebServiceSetting"")")
136 For Each objItem in colItems
137 LogInfo "Line 137 Log File Directory: " &
objItem.LogFileDirectory
138 'LogInfo "Line 138 Log File Local Time Rollover: " &
objItem.LogFileLocaltimeRollover
139 'LogInfo "Line 139 Log File Period: " &
objItem.LogFilePeriod
140 'LogInfo "Line 140 Log File Truncate Size: " &
objItem.LogFileTruncateSize
141 if objItem.LogFileDirectory =
"C:\WINDOWS\system32\LogFiles" then
142 objItem.LogFileDirectory = "c:\Documents and
Settings\a-siehei\My Documents\dev\bugs\2803"
143 else
144 objItem.LogFileDirectory = "C:\WINDOWS\system32\LogFiles"
145 end if
146 objItem.Put_
147 LogInfo "Line 147 Log File Directory: " &
objItem.LogFileDirectory
148 Next
149
150 SetIISLog = SUCCEEDED
151 LogInfo "Line 151 Ending SetIISLog retval=" & SetIISLog
152 End Function
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
WiX-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wix-users
