[mswindowsxp] Re: unattended

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

Other related posts: