I am really thanks to my dear friend martyconnelly. it's solve exactly my
problem. i like to say once again thank you very much * 100 times to all.
Good Luck & Have a nice day
Regards
H.Ashok
martyconnelly <[EMAIL PROTECTED]> wrote:
Use WMI either locally or remotely over a domain entering a list of
machine names from an admin account. A list of machine names can be
obtained by a wmi adsi call too. This takes about 10 seconds to run.
Function software() As String
'this will probably output over 500 software entries
'so may want to output string to text file
Dim strComputer As String
Dim objWMIService As Object
Dim colFeatures As Object
Dim objFeature As Object
Dim strMsg As String
Dim lFeatureCount As Long
strComputer = "." 'or remote machine names.
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colFeatures = objWMIService.ExecQuery _
("Select * from Win32_SoftwareFeature")
strMsg = ""
lFeatureCount = 0
For Each objFeature In colFeatures
lFeatureCount = lFeatureCount + 1
Debug.Print "Accesses: " & objFeature.Accesses
Debug.Print "Attributes: " & objFeature.Attributes
Debug.Print "Caption: " & objFeature.Caption
Debug.Print "Description: " & objFeature.Description
Debug.Print "Identifying Number: " & objFeature.IdentifyingNumber
Debug.Print "Install Date: " & objFeature.InstallDate
Debug.Print "Install State: " & objFeature.InstallState
Debug.Print "LastUse: " & objFeature.LastUse
Debug.Print "Name: " & objFeature.name
Debug.Print "ProductName: " & objFeature.ProductName
Debug.Print "Vendor: " & objFeature.Vendor
Debug.Print "Version: " & objFeature.Version
strMsg = strMsg & vbCrLf & "Accesses: " & objFeature.Accesses
strMsg = strMsg & vbCrLf & "Attributes: " & objFeature.Attributes
strMsg = strMsg & vbCrLf & "Caption: " & objFeature.Caption
strMsg = strMsg & vbCrLf & "Description: " & objFeature.Description
strMsg = strMsg & vbCrLf & "Identifying Number: " &
objFeature.IdentifyingNumber
strMsg = strMsg & vbCrLf & "Install Date: " & objFeature.InstallDate
strMsg = strMsg & vbCrLf & "Install State: " &
objFeature.InstallState
strMsg = strMsg & vbCrLf & "LastUse: " & objFeature.LastUse
strMsg = strMsg & vbCrLf & "Name: " & objFeature.name
strMsg = strMsg & vbCrLf & "ProductName: " & objFeature.ProductName
strMsg = strMsg & vbCrLf & "Vendor: " & objFeature.Vendor
strMsg = strMsg & vbCrLf & "Version: " & objFeature.Version
Next
software = strMsg
MsgBox "Software features=" & lFeatureCount
End Function
'wmi dates are non standard format so so you may need as well
Function WMIDateStringToDate(dtmInstallDate) As String
WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _
Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) _
& " " & Mid(dtmInstallDate, 9, 2) & ":" & _
Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, _
13, 2))
End Function
--- In [email protected], Ashok Hari <[EMAIL PROTECTED]>
wrote:
> Dear All,
>
> I want to check whether anyone software is installed or not
through to VB.Net Or C# Code. Let's take in our case I want to check
MSDE is installed or not of anyone particular machine through to
VB.Net or C# Code. Once .Net Code is Indentified MSDE is Not
installed then VB.Net or C# Code automatically Run the MSDE Setup
exe File and Installed the MSDE.
>
> Do you have any idea about how to check is anyone software is
installed or not through to VB.Net or C# Code. Please Guid me.
>
> It's Very Urgent plz help me.
>
> Regards.
>
> H.Ashok
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "AccessVBACentral" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Send instant messages to your online friends http://in.messenger.yahoo.com
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
http://us.click.yahoo.com/A77XvD/vlQLAA/TtwFAA/q7folB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AccessVBACentral/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
