Search the Community
Showing results for tags 'Prompt'.
Alright guys I need some insight. I have been asked to come up with a way to clean a drive (using diskpart) during PE before the OSD password is entered. Now the catch is there has to be a way to opt out. Basically the powers that be want a pop-up that says "Do you want to clean the drive" with yes and no buttons. Now I know I can create a custom media hook and edit the boot.wim to run a script that will clean the drive but like I said, it needs it to prompt the end user. I'm really hoping someone out there has something similar or can point me in the right direction. Environment: SCCM 2012 SP1 integrated with MDT 2012 Update 1 PXE is enabled but most of the techs are attached to using USB media.
Hello, I have trouble getting a VBS script to work in SCCM 2012, this script worked without problems in sccm in 2007. It is used when we want to install an operating system to harddrive to be installed to another computer of the same model. In Task sequence it runns before "Apply Operating System". The Command Line: cscript.exe %deployroot%\scripts\EnterComputerName.vbs Here is the script: 'Code Snippet Dim env, objRegEx Dim Matches, Match Dim strPattern, strInputBox, strReason Dim boolLength, boolValid Set ProgressUI = CreateObject("Microsoft.SMS.TsProgressUI") ProgressUI.CloseProgressDialog Set env = CreateObject("Microsoft.SMS.TSEnvironment") Set objRegEx = New RegExp 'Define valid patterns as and character not in (a-z, A-Z, 0-9, or -) strPattern = "[^a-zA-Z0-9-]" Do strReason = "" strInputBox = InputBox("Enter desired machine name." & VbCrLf & VbCrLf & "Machine names must be 3-14 characters, and include a-z, 0-9, - ONLY." & VbCrLf & VbCrLf & "Machine name WILL be upper case.","Machine Name") ' If strInputBox = "" Then TemplateQuit(0) ' Check length - must be less than 15 charatcers If Len(strInputBox) <= 14 Then boolLength = True Else strReason = strReason & "Machine name too long. Please choose a name from 3-14 characters in length." & VbCrLf boolLength = False End If ' Check character validity boolValid = True ' Return all matches for invalid characters objRegEx.Global = True objRegEx.Pattern = strPattern ' Generate collection of matches Set Matches = objRegEx.Execute(strInputBox) ' Check for matches on invalid characters For Each Match In Matches strReason = strReason & "Invalid character """ & Match.Value & """ found. Please use only a-z, A-Z, 0-9, and -." & VbCrLf boolValid = False Next If Not (boolLength And boolValid) Then MsgBox "Invalid name """ & strInputBox & """ entered!" & VbCrLf & VbCrLf & strReason,vbCritical+vbOKOnly,"Invalid Name Entered" Loop While Not (boolLength And boolValid) MsgBox "Computer name set to " & UCase(strInputBox) & ".",vbInformation+vbOKOnly,"Computer Name Set" env("OSDComputerName") = UCase(strInputBox) I hope someone can help me with this. Thanks!