"Mohamed Abd El-Raheem" wrote:

> Why the following script not working with Windows server 2003 although it
> run with Windows 2000.
> When I run the script I get the error code"80041010".
> The Script is for enumerating Installed software.
> The script as follows:
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objTextFile = objFSO.CreateTextFile("C:\TEMP\Installed-software.txt",
> True)
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" &
> "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
> Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
> objTextFile.WriteLine  "Caption" & vbtab & "Description" & vbtab &
> "Identifying Number" & vbtab & "Install Date" & vbtab & _
>    "Install Location" & vbtab & "Install State" & vbtab & "Name" & vbtab &
> "Package Cache" & vbtab & _
>    "SKU Number" & vbtab & "Vendor" & vbtab & "Version"
>
> For Each objSoftware in colSoftware
> objTextFile.WriteLine objSoftware.Caption & vbtab & _
>     objSoftware.Description & vbtab & _
>     objSoftware.IdentifyingNumber & vbtab & _
>     objSoftware.InstallDate2 & vbtab & _
>     objSoftware.InstallLocation & vbtab & _
>     objSoftware.InstallState & vbtab & _
>     objSoftware.Name & vbtab & _
>     objSoftware.PackageCache & vbtab & _
>     objSoftware.SKUNumber & vbtab & _
>     objSoftware.Vendor & vbtab & _
>     objSoftware.Version
> Next
> objTextFile.Close
>
> msgbox ("done")
>
>
>

> Why the following script not working with Windows server 2003 although it
> run with Windows 2000.
> When I run the script I get the error code"80041010".
> The Script is for enumerating Installed software.
> The script as follows:
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objTextFile = objFSO.CreateTextFile("C:\TEMP\Installed-software.txt",
> True)
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" &
> "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
> Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
> (snip)
Hi,