[RIS] AutoLogon opties - Serversoftware en clouddiensten

woensdag 19 mei 2004 14:28

Acties:

Verwijderd

Topicstarter

Middag,

Ik heb een vraag omtrent een RIS installatie maken. Wat is nu het geval? Heel simpel ik ben een RIS installatie aan het bouwen voor een stage opdracht alleen nu wil ik ook componenten als Windows Media Player 9 laten installeren na de installation. Dit doe ik via 'Command0=bla bla' onder de header [GuiRonOnce]. Alsmede is [autologon] geactiveerd om als lokaal administrator in te loggen.

Ik wil het zo hebben dat als die lokaal admin ingelogd is de computer gelocked wordt zodat er niet op de pc gewerkt kan worden zolang deze commands na de setup draaien. Het is ook de bedoeling dat de computer zelf reboot zodra alle commands uitgevoerd zijn.

Ik heb de meeste van deze bronnen uitgelezen:
http://gathering.tweakers...5Bboolean%5D=AND#hitstart

Zelf kom ik er niet uit maar had wel dit in me gedachten. namelijk om via de commandline Windows te laten locken via een toetsencombinatie en als laatste command windows forcerend laten rebooten met een tool als MS shutdown.exe. Maar hie krijg ik de Windows installatie weer zo gek om die tool vanaf me server te laten copyeren naar me c disk of andere

*aan het eind van alle commands m.b.t updates draait ie Qchain.exe.

[ Voor 31% gewijzigd door Verwijderd op 19-05-2004 14:39 ]

woensdag 19 mei 2004 14:46

Acties:

Equator

Crew Council

#whisky #barista

Het is even een groot ding, maar het werk wel.. Misschien heb je er wat aan.
Gebruikt WMI om de PC te herstarten.. (Of uit te zetten, wat j maar als optie meegeeft aan de function)
Het locken d.m.v. Ctrl-Alt-Del zou ik niet doen, maar je kan bij fase 0 eigenlijk al het keyboard en uis disabelen.
Dan kan je niets doen, totdat je deze weer enabled.

Keyboard uit = HKLM\System\CurrentControlSet\Services\Keyboard Start op 4
Keyboard aan: start op 1

Idemdito voor muis.
Hopenlijk heb je er wat aan.

code:

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
'
' NAME: Install Patches
'
' AUTHOR: Erik Kruijswijk
' DATE  : 11-5-2004
'
'==========================================================================

Option Explicit
'On Error Resume Next

Dim wshShell, strAcc, strPass, strLogFile, strStatus, strLNC, strLNT, wshFSO, strCommand

strLogFile = "C:\installpatch.log"

Set wshShell = CreateObject("Wscript.Shell")
Set wshFSO = CreateObject("Scripting.FileSystemObject")

If wshFSO.FileExists(strLogFile) = False Then
    WriteLog "Logfile was not found"
    WriteLog "Creating StatusCounter in registry"
    wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\StatusNummer", "0", "REG_SZ"
    If Err.Number = 0 Then
        WriteLog "StatusCounter created sucessfully"
    Else
        WriteLog "Error --: " & Err.Description
    End If
    strStatus = "0"
Else
    WriteLog "Logfile was found. Resuming script."
    strStatus = wshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\StatusNummer")
End If


Select Case strStatus
    Case "0"
        WriteLog "---"
        WriteLog "Starting FASE 0"
        WriteLog "---"
        WriteLog "Starting FASE 0 from script on " & Now()
        ' Definieer het installer account dat wordt gebruikt
        strAcc = InputBox ("Account","What's the account?")
        WriteLog "Account Used: " & strAcc
        strPass = InputBox ("Password","What's the password?")
        WriteLog "Password given end's with: " & right(strPass,3)
        
        ' Zet deze gegevens in het register
        ' LegalNotice wordt tijdenlijk uitgezet, voor de admin logon
        WriteLog "Gegevens worden in het register geplaatst"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1", "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", strAcc, "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", strPass, "REG_SZ"
        wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption"
        wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText"
        wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\LegalNoticeCaption"
        wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\LegalNoticeText"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\InstallPatches", "C:\InstallPatches.vbs", "REG_SZ"
        If Err.Number = 0 Then
            WriteLog "Gegevens zijn succesvol in het register geplaatst"
        Else
            WriteLog "Error --: " & Err.Description
        End If
        
        ' Installing Service Pack 4 for Windows 2000
        WriteLog "Installing Service Pack 4"
        'strCommand = "C:\W2KSP4_EN.exe -z -q"
        'wshShell.Run strCommand, 3, True
        MsgBox "Hier komt een patch te draaien", 64
        
        If Err.Number = 0 Then
            WriteLog "Done installing Service Pack 4"       
        Else
            WriteLog "Error --: " & Err.Description
        End If
                        
        WriteLog "Going to status 1"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\StatusNummer", "1", "REG_SZ"
        WriteLog "End FASE 0"
        WriteLog "Rebooting"
        Opsys "REBOOT", True, True
    Case "1"
        WriteLog "---"
        WriteLog "Starting FASE 1"
        WriteLog "---"
        MsgBox "Hier komt een patch te draaien", 64
        WriteLog "Going to status 2"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\StatusNummer", "2", "REG_SZ"
        WriteLog "Rebooting"
        Opsys "REBOOT", True, True
    Case "2"
        WriteLog "---"
        WriteLog "Starting FASE 2"
        WriteLog "---"
        strLNC = "Warning !! - Waarschuwing !!"
        strLNT = "Unauthorized Access is prohibited !! - Ongeautoriseerde toegang is verboden !!"
        strAcc = ""
        strPass = ""
        ' Zet deze gegevens in het register
        WriteLog "Gegevens worden in het register geplaatst"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "0", "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", "", "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", "", "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", strLNC, "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", strLNT, "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DontDisplayLastUsername", "1", "REG_DWORD"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\LegalNoticeCaption", strLNC, "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\LegalNoticeText", strLNT, "REG_SZ"
        wshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DontDisplayLastUsername", "1", "REG_DWORD"
        wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\InstallPatches"
        wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\StatusNummer"
        If Err.Number = 0 Then
            WriteLog "Gegevens zijn succesvol in het register geplaatst"
        Else
            WriteLog "Error--: " & Err.Description
        End If
        MsgBox "Ready",64,"All patches installed"
End Select


' End script









Function WriteLog(ByVal strLog)
    Dim Logging
    Set wshFSO = CreateObject("Scripting.FileSystemObject")
    If Not wshFSO.FileExists(strLogFile) Then
        wshFSO.CreateTextFile (strLogFile)
    End If
    Set Logging = wshFSO.OpenTextFile (strLogFile,8)
    Logging.Write (strLog & vbCrLf)
    Logging.Close
    Set wshFSO = Nothing
End Function


Function OpSys(ByVal strControl, _
               ByVal blnForce, _
               ByVal blnForceIfHung)
'** This function offers a way to shut the computer down.  The following
'** options for strControl are supported:
'** Logoff: Logs off the current user (0x0).
'** Shutdown: Shuts down the machine (0x1).
'** Reboot: Reboots the machine (0x2).
'** PowerOff: Powers down the machine (0x8).
'**
'** blnForce
'** Force: Forces a logoff, shutdown, or reboot, even if the user has
'** unsaved work (0x4).
'**
'** blnForceIfHung
'** Force If Hung: Forces a logoff, shutdown, or reboot, even if the
'** software currently running has hung and does not support to an End Task
'** request (0x10).

    WriteLog "Function OpSys(""" & strControl & """, " & blnForce & ", " & blnForceIfHung & ")"
    
    Dim objLocator
    Dim objService
    Dim objEnumerator
    Dim objInstance
    Dim strMachine
    Dim intControl
        
    strMachine = "localhost"

    '** Check to see if both blnForce and blnForceIfHung are set to True.
    If blnForce = True And blnForceIfHung = True Then
        WriteLog "Both blnForce and blnForceIfHung are set to True.  Because blnForceIfung overrules blnForce, blnForce will be set to False."
        '** blnForceIfHung overrules blnForce, so it will be disabled.
        blnForce = False
    End If
    
    Select Case UCase(strControl)
    Case "LOGOFF"
        intControl = 0
    Case "SHUTDOWN"
        intControl = 1
    Case "REBOOT"
        intControl = 2
    Case "POWEROFF"
        intControl = 8
    Case Else
        WriteLog "Error: Invalid option '" & strControl & "' specified.  Option must be one of: LogOff, ShutDown, Reboot, or PowerOff."
        Exit Function
    End Select

    If blnForce = True Then intControl = intControl + 4
    If blnForceIfHung = True Then intControl = intControl + 16

    On Error Resume Next
    Set objLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
    Set objService = objLocator.ConnectServer(strMachine, "root\cimv2")
    
    objService.Security_.impersonationlevel = Impersonate
    objService.Security_.Privileges.AddAsString("SeShutdownPrivilege")
    
    WriteLog "Attempting to reboot computer '" & strMachine & "' with control code (" & CStr(intControl) & ")."
    Set objEnumerator = objService.ExecQuery("Select * From Win32_OperatingSystem")
    For Each objInstance In objEnumerator
        objInstance.Win32Shutdown(intControl)
    Next
    On Error GoTo 0
    
    OpSys = True
    
    Set objLocator = Nothing
    Set objService = Nothing
    Set objEnumerator = Nothing

    WriteLog "End Function OpSys.  Returning: '" & OpSys & "'."
    
End Function

woensdag 19 mei 2004 15:23

Acties:

Verwijderd

Topicstarter

Ja bedankt dis opzich een heel goed idee. Eerlijk gezegd. ik heb nu de toetsen command combinatie gevonden om een pc te locken en ook te rebooten maar nu wil ik weten waarom locken niet zo'n goede deal zou zijn.?

woensdag 19 mei 2004 16:57

Acties:

Equator

Crew Council

#whisky #barista

Omdat je dan niet kan zien wat er op dat moment gaande is.

Maar ik postte dit alleen maar omdat ik met iets dergelijks dus ook bezig was. Meerdere fases patches uitvoeren in een NON SUS omgeving.

woensdag 19 mei 2004 17:22

Acties:

Profidiam

Ellenface

offtopic:
CyberJ, even uit interesse, wat was de beweegreden om SUS niet te gaan gebruiken ?

Da RuBBaH DuCK SKWaT - Ellen what did ye do ?- een test

woensdag 19 mei 2004 17:47

Acties:

Equator

Crew Council

#whisky #barista

Profidiam schreef op 19 mei 2004 @ 17:22:

offtopic:
CyberJ, even uit interesse, wat was de beweegreden om SUS niet te gaan gebruiken ?

[Magikeigenlijknietvertellenmodus]

Er izjn wel plannen om sus i.c.m. SMS te gaan gebruiken, maar dat blijft waarschijnlijk even bij alleen plannen.
Ik werk (gedetacheerd) bij het ICT bedrijf van het Ministerie van Justitie, en daar hebben ze een bloed hekel aan nieuwe dingen.. (Althans, op hoger niveau.)

we zijn nu pas windows 2000 aan het uitrollen landelijk. Nog steeds werken er mensen met Windows 95 in het land.

De ideeen voor een AD op 2003 zijn nu steeds verder groeiende, en SUS zal ongetwijfeld ook wel uitgerold gaan worden, maar met 17500 werkplekken en een 500 servers zal er eerst goed over nagedacht moeten worden.

Daarom bedenken de systeembeheerders (moi included) scriptjes die een heleboel taken doen die andere software voor hun had kunnen doen.

Geeft niet, want je leert er wel VBscript door $_/-\o_$