WMI Query to determine if Object is a Computer?

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

WMI Query to determine if Object is a Computer?

Logged in as: Guest

arrSession:exec spGetSession 2,2,2200

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> WMI Query to determine if Object is a Computer?
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

WMI Query to determine if Object is a Computer? - 3/1/2005 2:16:56 AM

aek

Posts: 29
Score: 0
Joined: 2/24/2005
From:
Status: offline

I want to write a WMI query that would
1) Ping the object. (Ping should be silent, not with the command window popping up)
If Ping is successful
2) Check to see if the object is a computer, printer or router?
Based on the results, generates
3)IP Address of object, hostname
4) Finally write in a log file - That I can take care of.

I am new to WMI any help would be great.

Post #: 1

Re: WMI Query to determine if Object is a Computer? - 3/1/2005 2:22:13 AM

Snipah

Posts: 1341
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

I use this (for you to start with)

Function TranslateDomainRole(byVal roleID)
Dim a

Select Case roleID
Case 0
a = "Standalone Workstation"
Case 1
a = "Member Workstation"
Case 2
a = "Standalone Server"
Case 3
a = "Member Server"
Case 4
a = "Backup Domain Controller"
Case 5
a = "Primary Domain Controller"
End Select
TranslateDomainRole = a
End Function

Dim s, System, Item, RemotePC

RemotePC = InputBox("WS**** for desktop computers"&vbcrlf&"LT*** for notebook"&vbcrlf&"S***** for servers","Computer Information by Snipah", "")

Set WshShell = CreateObject("WScript.Shell")

Set System = GetObject("winmgmts:\\" & RemotePC & "\root\cimv2").instancesOf("Win32_ComputerSystem")

For each Item in System
s = "Computer Info" & vbcrlf
s = s & "***********************" & vbcrlf
s = s & "Name: " & item.name & vbcrlf
s = s & "Status: " & item.status & vbcrlf
s = s & "Type: " & item.SystemType & vbcrlf
s = s & "Mfg: " & item.Manufacturer & vbcrlf
s = s & "Model: " & item.Model & vbcrlf
s = s & "RAM: ~" & item.TotalPhysicalMemory\1024000 & " MB" & vbcrlf
s = s & "Role: " & TranslateDomainRole(item.DomainRole) & vbcrlf
s = s & "User: " & item.UserName

If item.status = "OK" then
Item.status = "Enabled"
Else
Item.status = "Disabled"
End If

If item.status = "Disabled" then
WScript.Echo "No connection available"
Else
WScript.Echo s
End If

Set System = Nothing
Set IE = Nothing
Set WshShell = Nothing

(in reply to aek)

Post #: 2

Re: WMI Query to determine if Object is a Computer? - 3/1/2005 3:04:04 AM

aek

Posts: 29
Score: 0
Joined: 2/24/2005
From:
Status: offline

Thanks.

I am assuming that "item.SystemType" will identify the object whether it is a Printer, Computer or Router.

Does "item.Status" only identify if object is on the network or not. Then in that case, will I still need to ping the object to check if it is active on the network or not?

Eg. My machine is on the network but it might be turned off. If I run the query on that object, will it still return enabled..coz it is on the network...even though it is off.

Just want to make sure that would I still need to add ping query or "item.Status" should suffice.

Thanks.

(in reply to aek)

Post #: 3

Re: WMI Query to determine if Object is a Computer? - 3/1/2005 11:50:47 AM

token

Posts: 1917
Score: 0
Joined: 1/14/2005
From:
Status: offline

You do need to ping it (or use any other methods you can think of to determine whether it is active on the network or not).

However, if the remote computer is offline, System object will return empty (or null). So you can use that for your cause as well. Simply add an IF statemenet to determine the object type.

(in reply to aek)