Listing 1: TelnetCheck.vbs

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
			strComputer & "\root\cimv2")

Set colServices = objWMIService.ExecQuery("SELECT * FROM Win32_Service " & _
				"WHERE Name='tlntsvr'")

If colServices.Count = 0 Then
	WScript.Echo strComputer & ",Telnet not installed."
Else
	For Each objService In colServices
		WScript.Echo objService.SystemName & "," & _
			objService.StartMode  & "," & _
			objService.State
	Next
End If