If WScript.Arguments.Count > 0 Then
   strComputer = WScript.Arguments.Item(0)
Else
   strComputer = «.»
End If

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

Поделитесь материалом с коллегами и друзьями