Chap. 12; Error in GetServiceInfo package ... help
Hi, when I try to execute the GetServiceInfo package I received an error. Can anybody help?
I execute the package in the DTS designer (SQLServer Enterprice Manager), and get the following error "ActiveX Scripting encountered a Run Time Error during the execution of the script."
I don't know if my server has "winmgmts" installed - can I check that.
This is my script:
'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************
Option Explicit
Function Main()
Dim strLocalFolderName, strOutputFileName, strComputer
Dim objFSO, objWMIService, objMyFile, colServiceList, objService
strLocalFolderName = "C:\SSIS"
strOutputFileName = strLocalFolderName & "\ServiceAndStartMode.csv"
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonat e} !\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * From win32_Service")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExitsts(strOutputFileName)) then
objFSO.DeleteFile (strOutputFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strOutputFileName, true)
objMyFile.Writeline ("ServiceName, StartMode")
For each objService In colServiceList
objMyFile.Writeline ( objService.DisplayName & ", " & objService.Startmode)
Next
objMyFile.Close
Set objFSO = Nothing
Set objWMIService = Nothing
Set objMyFile = Nothing
Set colServiceList = Nothing
Set objService = Nothing
Main = DTSTaskExecResult_Success
End Function
|