Jeremy Phillips

Just in case you need it as well –

strComputer = “.”

Set objWMIService=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & _
strComputer & “\root\cimv2″)
Const ForAppending = 8
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objTextFile = objFSO.OpenTextFile _
(“c:\scripts\wmiProviders.txt”, ForAppending, True)
Set colWin32Providers = objWMIService.InstancesOf(“__Win32Provider”)
For Each objWin32Provider In colWin32Providers
objTextFile.WriteLine(objWin32Provider.Name)
Next
objTextFile.Close