forsyths_au
asked on
Trend Micro Worry Free Security Services GPO deployment
We have recently subscribed to the above and below is the standard group policy computer startup script they give you to deploy to workstations
It does not work and after 2 hours with a trendmicro tech person in a webex session, they have no idea either.
I have found vague references to issues with .vbs scripts and using UNC's in computer startup scripts causing issues.
I have tried placing the actual msi installer in differing locations without success, though I can say the script and installer run individually works fine but with a large number of workstation this is not a solution
Any or all help and advice appreciated.
pathOfWFBSHInstaller="msie xec /qn /i \\domain.name\sysvol\domai n.name\scr ipts\WFBS- SVC\WFBS-S VC_Agent_I nstaller.m si"
strComputer = "."
strOutput = ""
serviceCount = 0
totalServiceCountToCheck = 3
' check if WFBS-SVR is installed by detecting service ntrtscan, tmlisten, svcGenericHost are exist or not
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=imper sonate}!\\ " & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("S elect * from Win32_Service")
For Each objService in colItems
strOutput = strOutput & objService.name & vbCr & vbLf
If objService.name = "ntrtscan" Then
serviceCount = serviceCount + 1
' Wscript.Echo "Service " & objService.Caption & " is " & objService.Started
ElseIf objService.name = "tmlisten" Then
serviceCount = serviceCount + 1
' Wscript.Echo "Service " & objService.Caption & " is " & objService.Started
ElseIf objService.name = "svcGenericHost" Then
serviceCount = serviceCount + 1
' Wscript.Echo "Service " & objService.Caption & " is " & objService.Started
End If
Next
If serviceCount <> totalServiceCountToCheck Then
Dim WshShell
Set WshShell = CreateObject("WScript.Shel l")
WshShell.Run pathOfWFBSHInstaller
End if
It does not work and after 2 hours with a trendmicro tech person in a webex session, they have no idea either.
I have found vague references to issues with .vbs scripts and using UNC's in computer startup scripts causing issues.
I have tried placing the actual msi installer in differing locations without success, though I can say the script and installer run individually works fine but with a large number of workstation this is not a solution
Any or all help and advice appreciated.
pathOfWFBSHInstaller="msie
strComputer = "."
strOutput = ""
serviceCount = 0
totalServiceCountToCheck = 3
' check if WFBS-SVR is installed by detecting service ntrtscan, tmlisten, svcGenericHost are exist or not
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=imper
Set colItems = objWMIService.ExecQuery("S
For Each objService in colItems
strOutput = strOutput & objService.name & vbCr & vbLf
If objService.name = "ntrtscan" Then
serviceCount = serviceCount + 1
' Wscript.Echo "Service " & objService.Caption & " is " & objService.Started
ElseIf objService.name = "tmlisten" Then
serviceCount = serviceCount + 1
' Wscript.Echo "Service " & objService.Caption & " is " & objService.Started
ElseIf objService.name = "svcGenericHost" Then
serviceCount = serviceCount + 1
' Wscript.Echo "Service " & objService.Caption & " is " & objService.Started
End If
Next
If serviceCount <> totalServiceCountToCheck Then
Dim WshShell
Set WshShell = CreateObject("WScript.Shel
WshShell.Run pathOfWFBSHInstaller
End if
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
We have abandoned the product
For this it's imprtant that the WFBS-SVC_Agent_Installer.m
Open in new window