Detect if a service exists on a remote host-00-4116 World Affair Home : Free Article Submission and Reviews

Home | About Us | Contact Us





Forgot Password? New User?

	Advertising
	Credit
	Mobile Phones
	Blogging
	K-12 Education
	Web Design
	Babies
	Games
	Arts & Entertainment
	Cars
	Jewelry
	Relationships
	SEO
	Affiliate Programs
	Crafts

View all Categories

Welcome to World Affair Home : Free Article Submission and Reviews!

Articles » Computers >> View Article

Do you have a Facebook page.
Do you offer your guest things. Well join our Facebook page and starting in 2012,
we will pick one person to put their add here.

Detect if a service exists on a remote host-00-4116

By: Private

This script can be used to detect whether or not a service exist on a remote host.
I originally created it to determine if WDS is installed (ServiceName = WDSServer)

Usage: cscript //nologo DoesServiceExist.vbs /Computer:HOSTNAME /ServiceName:SERVICENAME

Example:
DoesServiceExist.vbs /Computer:CompanyServer01 /ServiceName:WDSServer

* * * * * * * * * * * * * * * * * * * * Start of script DoesServiceExist.vbs * * * * * * * * * * * * * * * * * * * *
Option Explicit

On Error Resume Next

Dim strComputer
Dim strServiceName
Dim objComputer
Dim objService

strComputer = Wscript.Arguments.Named("Computer")
strServiceName = Wscript.Arguments.Named("ServiceName")

If Len(Trim(strComputer)) > 0 And Len(Trim(strServiceName)) > 0 Then
If IsOnline(strComputer) = True Then
Set objComputer = GetObject("WinNT://" & strComputer & ",computer")

If Err.Number = 0 Then
Set objService = objComputer.GetObject("service", strServiceName)

If Err.Number = 0 Then
WScript.Echo strComputer & vbTab & "Services Status" & vbTab & "Exists"
Else
WScript.Echo strComputer & vbTab & "Services Status" & vbTab & "Does not exist"
End If
Else
WScript.Echo strComputer & vbTab & "Services Status" & vbTab & "Unknown"
End If
Else
WScript.Echo strComputer & vbTab & "Services Status" & vbTab & "Offline"
End If
Else
WScript.Echo "Usage: cscript.exe //nologo DoesServiceExist.vbs /Computer:HOSTNAME /ServiceName:SERVICENAME"
End If

Function IsOnline(strComputer)
Dim objPing
Dim objStatus

Set objPing = GetObject("winmgmts:" & Chr(123) & "impersonationLevel=impersonate" & Chr(125) & "").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")

For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode0 Then
'Nothing
Else
IsOnline = True
End If
Next
End Function
* * * * * * * * * * * * * * * * * * * * End of script DoesServiceExist.vbs * * * * * * * * * * * * * * * * * * * *

If you are wondering about the Chrs: Can't natively post these characters

About the Author:

Shaun Vermaak is an IT Consultant specializing in various Microsoft technologies Shaun Vermaak - http://www.ITtelligence.co.zaTo stay informed about http://prenet.co.za visit here.Courtesy of: http://spin2submit.co.za

Total Views : 84 Word Count Appx. : 509

See All articles From Author