[mswindowsxp] Re: unattended
- From: Matt Fowler <mfowler@xxxxxxxxxxxxxxxxx>
- To: mswindowsxp@xxxxxxxxxxxxx
- Date: Mon, 22 Sep 2003 10:28:44 -0500
Thanks for this. Did you do something similar for the local Group Policy
changes you made (if you made any)?
Thanks again,
At 04:23 PM 9/16/2003 -0500, you wrote:
>I just did a post install vbscript... Here are the subroutines I use for
>that very purpose, although I use it after a ghost...
>
>'
>************************************************************************
>**************************
>' Set Service Entries
>Sub SetServices
> ' Disable Application Layer Gateway Service
> ConfigService "ALG", True
> ' Set Application Management to Manual
> ConfigService "AppMgmt", False
> ' Disable Automatic Updates
> ConfigService "AtiHotKeyPoller", False
> ' Disable Automatic Updates
> ConfigService "wuauserv", True
> ' Disable Background Intelligent Transfer Service
> ConfigService "BITS", True
> ' Disable Computer Browser
> ConfigService "Browser", True
> ' Disable Error Reporting Service
> ConfigService "ERSvc", True
> ' Disable Fast User Switching Compatibility
> ConfigService "FastUserSwitchingCompatibility", True
> ' Disable Hummingbird Inetd
> ConfigService "HCLInetd", True
> ' Disable Indexing Service
> ConfigService "cisvc", True
> ' Disable Internet Connection Firewall (ICF) / Internet
>Connection Sharing (ICS)
> ConfigService "SharedAccess", True
> ' Set IPSEC Services to Manual
> ConfigService "PolicyAgent", False
> ' Set Network DDE to Manual
> ConfigService "NetDDE", False
> ' Set Network DDE DSDM to Manual
> ConfigService "NetDDEdsdm", False
> ' Disable NetMeeting Remote Desktop Sharing
> ConfigService "mnmsrvc", True
> ' Set Portable Media Serial Number to Manual
> ConfigService "WmdmPmSp", False
> ' Set QoS RSVP to Manual
> ConfigService "RSVP", False
> ' Set Removable Storage to Manual
> ConfigService "NtmsSvc", False
> ' Disable SSDP Discovery Service
> ConfigService "SSDPSRV", True
> ' Set System Event Notification to Manual
> ConfigService "SENS", False
> ' Set COM+ Event System to Manual
> ConfigService "EventSystem", False
> ' Disable System Restore Service
> ConfigService "srservice", True
> ' Disable Telnet
> ConfigService "TlntSvr", True
> ' Disable Universal Plug and Play Device Host
> ConfigService "upnphost", True
> ' Disable Upload Manager
> ConfigService "uploadmgr", True
> ' Disable Webclient
> ConfigService "WebClient", True
> ' Disable Wireless Zero Configuration
> ConfigService "WZCSVC", True
>End Sub
>
>'
>************************************************************************
>**************************
>' Set Service Settings
>' If bState is true, disable it, otherwise, set to manual
>
>Sub ConfigService (strSVC, bState)
> Dim colServiceList, errReturnCode, oService,
>
> Set colServiceList =3D oWMI.ExecQuery ("Select * from
>Win32_Service where Name=3D'"& strSVC & "'")
> For each oService in colServiceList
> Wscript.echo oService.DisplayName
> If oService.Started Then
> errReturnCode =3D oService.StopService()
> If errReturnCode <> 0 Then
> WScript.Echo "Stopping " &
>oService.DisplayName & " Failed with Error: " & Err.Number & ": " &
>Err.Description
> oLog.WriteLine "Stopping " &
>oService.DisplayName & " Failed with Error: " & Err.Number & ": " &
>Err.Description
> Err.Clear
> Else
> wscript.echo VBTab & "Stopping "
> oLog.WriteLine "Stopping " &
>oService.DisplayName & " Successfull..."
> End if
> End If
> If bState Then
> errReturnCode =3D oService.Change( , , , ,
>"Disabled")
> If errReturnCode <> 0 Then
> WScript.Echo "Setting " &
>oService.Displayname & " to Disabled failed with Error: " & Err.Number
>& ": " & Err.Description
> oLog.WriteLine "Setting " &
>oService.Displayname & " to Disabled failed with Error: " & Err.Number
>& ": " & Err.Description
> Err.Clear
> Else
> wscript.echo VBTab & "Set to Disabled"
> oLog.WriteLine "Setting " &
>oService.DisplayName & " to Disabled"
> End if
> Else
> errReturnCode =3D oService.Change( , , , ,
>"Manual")
> If errReturnCode <> 0 Then
> WScript.Echo "Setting " &
>oService.Displayname & " to Manual failed with Error: " & Err.Number &
>": " & Err.Description
> oLog.WriteLine "Setting " &
>oService.Displayname & " to Manual failed with Error: " & Err.Number &
>": " & Err.Description
> Err.Clear
> Else
> wscript.echo VBTab & "Set to Manual"
> oLog.WriteLine "Setting " &
>oService.DisplayName & " to Manual"
> End If
> End If
> Next
> oLog.WriteLine
> Set colServiceList =3D Nothing
>End Sub=20
>
>-----Original Message-----
>From: Matt Fowler [mailto:mfowler@xxxxxxxxxxxxxxxxx]=20
>Sent: Tuesday, September 16, 2003 2:18 PM
>To: mswindowsxp@xxxxxxxxxxxxx
>Subject: [mswindowsxp] unattended
>
>Has anyone deployed XP either an upgrade or fresh install with an
>unattended setup? If so, did you customize the unattended to include
>automatically setting services or other customized settings? If so,
>would you be willing to share some specifics about the unattended text
>file you generated.
>
>Thanks in advance.
>
>Matt Fowler
>LAN Specialist
>(847)925-6113
>mfowler@xxxxxxxxxxxxxxx
>
>
>
>
>
>
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
>=3D=3D=3D=3D=3D=3D=3D=3D=3D
>To Unsubscribe, set digest or vacation
>mode or view archives use the below link.
>
>http://thethin.net/winxplist.cfm
>
>
>
>
>
>
>==================================
>To Unsubscribe, set digest or vacation
>mode or view archives use the below link.
>
>http://thethin.net/winxplist.cfm
Matt Fowler
LAN Specialist
(847)925-6113
mfowler@xxxxxxxxxxxxxxx
==================================
To Unsubscribe, set digest or vacation
mode or view archives use the below link.
http://thethin.net/winxplist.cfm
Other related posts:
