'***On error Resume Next
Dim strComputer, strOutput
Set objGroup= GetObject _
("LDAP://ou=servers, ou=cicero, ou=div, dc=uio,dc=no")

For each objComputer in objGroup
	strComputer = Right(objComputer.Name,Len(objComputer.Name)-3) 
	strOutput=FindTSM(strComputer)
	IF strOutput<>"null" THEN
		Wscript.Echo strOutput
	End If
Next


Function FindTSM(strComputer)
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service")
For Each objService in colRunningServices 
	IF InStr(objService.DisplayName,"TSM") Then
   		 FindTSM= strComputer +": " +objService.DisplayName  & VbTab & objService.State
	End If
Next
End Function

Function FindUser(strComputer)
	Set objWMIService = GetObject("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
	Set colComputer = objWMIService.ExecQuery _
	("Select * from Win32_ComputerSystem")
	For Each objComputer in colComputer
		FindUser= objComputer.UserName
	Next
End Function
WScript.Sleep 2000