[mswindowsxp] Re: unattended

  • From: "Nail, Larry" <lnail@xxxxxx>
  • To: <mswindowsxp@xxxxxxxxxxxxx>
  • Date: Mon, 22 Sep 2003 17:46:59 -0500

You set up Local Group Policies on a system & then copy the contents of
C:\windows\system32\GroupPolicy to the new system...=20

-----Original Message-----
From: Matt Fowler [mailto:mfowler@xxxxxxxxxxxxxxxxx]=20
Sent: Monday, September 22, 2003 10:29 AM
To: mswindowsxp@xxxxxxxxxxxxx
Subject: [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=20
>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=20
>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 =3D3D oWMI.ExecQuery ("Select * from=20
>Win32_Service where Name=3D3D'"& strSVC & "'")
>         For each oService in colServiceList
>         Wscript.echo  oService.DisplayName
>                 If oService.Started Then
>                         errReturnCode =3D3D oService.StopService()
>                         If errReturnCode <> 0 Then
>                                 WScript.Echo "Stopping " &=20
>oService.DisplayName & " Failed with Error:  " & Err.Number & ":  " &=20
>Err.Description
>                                 oLog.WriteLine "Stopping " &=20
>oService.DisplayName & " Failed  with Error:  " & Err.Number & ":  " &=20
>Err.Description
>                                 Err.Clear
>                         Else
>                                 wscript.echo VBTab & "Stopping "
>                                 oLog.WriteLine "Stopping " &=20
>oService.DisplayName & " Successfull..."
>                         End if
>                 End If
>                 If bState Then
>                         errReturnCode =3D3D oService.Change( , , , ,
>"Disabled")
>                         If errReturnCode <> 0 Then
>                                 WScript.Echo "Setting " &=20
>oService.Displayname & " to Disabled failed with Error:  " & Err.Number

>& ":  " & Err.Description
>                                 oLog.WriteLine "Setting " &=20
>oService.Displayname & " to Disabled failed with Error:  " & Err.Number

>& ":  " & Err.Description
>                                 Err.Clear
>                         Else
>                                 wscript.echo VBTab & "Set to Disabled"
>                                 oLog.WriteLine "Setting " &=20
>oService.DisplayName & " to Disabled"
>                         End if
>                 Else
>                         errReturnCode =3D3D oService.Change( , , , ,
>"Manual")
>                         If errReturnCode <> 0 Then
>                                 WScript.Echo "Setting " &=20
>oService.Displayname & " to Manual failed with Error:  " & Err.Number &
>":  " & Err.Description
>                                 oLog.WriteLine "Setting " &=20
>oService.Displayname & " to Manual failed with Error:  " & Err.Number &
>":  " & Err.Description
>                                 Err.Clear
>                         Else
>                                 wscript.echo VBTab & "Set to Manual"
>                                 oLog.WriteLine "Setting " &=20
>oService.DisplayName & " to Manual"
>                         End If
>                 End If
>         Next
>         oLog.WriteLine
>         Set colServiceList =3D3D Nothing End Sub=3D20
>
>-----Original Message-----
>From: Matt Fowler [mailto:mfowler@xxxxxxxxxxxxxxxxx]=3D20
>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=20
>unattended setup? If so, did you customize the unattended to include=20
>automatically setting services or other customized settings? If so,=20
>would you be willing to share some specifics about the unattended text=20
>file you generated.
>
>Thanks in advance.
>
>Matt Fowler
>LAN Specialist
>(847)925-6113
>mfowler@xxxxxxxxxxxxxxx
>
>
>
>
>
>
>=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D=
3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3
>D=3D3D=3D
>=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D
>To Unsubscribe, set digest or vacation
>mode or view archives use the below link.
>
>http://thethin.net/winxplist.cfm
>
>
>
>
>
>
>=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

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

Other related posts: