Листинг 1. TelnetCheck.vbs.

strComputer = «.»

Set objWMIService = GetObject(«winmgmts:{impersonationLevel=Impersonate}!» & _
	strComputer & «
ootcimv2»)

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