TJ
this VB script should do the trick - it is not particularly neat, and you
will either have to modify it to do all the services you want or modify it
to accept a parameter but it seems to work. Give it a go & see how you get
on
Regards
Kevin Lawry
-----------------Script Starts
'On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem",,48)
For Each objItem in colItems
strComputerName= objItem.Name
Next
' Destroy objects
Set objWMIService = nothing
Set colItems = nothing
' replace Messenger in the line below with the service name you want to
disable
Set Service = GetObject("WinNT://" + strComputerName + "/Messenger,Service")
WScript.Echo "Service starttype = " & Service.starttype
' Service Start Types are constants
' Disabled = 4
' Automatic = 2
' Manual = 3
Service.starttype=4
Service.SetInfo
WScript.Echo "Service starttype = " & Service.starttype
'destroy objects
Set Service = nothing
-----------------Script ends------------------------
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100006ave/direct;at.asp_061203_01/01
_______________________________________________
unattended-info mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unattended-info
