[mswindowsxp] Re: unattended

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: