Sccm standalone key self expiration, following the guide exactly! What am I doing wrong?

[mcbroome]

Ok, following the instructions exactly on the guide located here:

 

http://blogs.technet...lone-media.aspx

 

my tsconfig.ini reads as:

[CustomHook]

CommandLine=”cscript.exe X:\ExpiredUFDCheck.vbs”

 

 

the .vbs at the root of my boot image is as follows:

 

' // ***************************************************************************

' //

' // File: ExpiredUFDCheck.vbs

' //

' // Version: 1.0

' //

' // Purpose: Check to see if stand-alone media is expired

' //

' // Usage: cscript ExpiredUFDCheck.vbs

' //

' // ***************************************************************************

 

On Error Resume Next

' // ---------------------------------------------------------------------

' // Find the environment variable %configpath% for location of UFD

' // ---------------------------------------------------------------------

'Set objShell = CreateObject("WScript.Shell")

'Set objExecObject = objShell.Exec("%comspec% /c echo %configpath%")

'configPath1 = objExecObject.StdOut.ReadAll()

'configPath = Mid(configPath1, 1, Len(configPath1) -2)

 

' // -----------------------------------------------------------------------------------------

' // Find the environment variable %TEMP% for location of tool files (e.g. shutdown.exe)

' // -----------------------------------------------------------------------------------------

Set objShell = CreateObject("WScript.Shell")

Set objExecObject = objShell.Exec("%comspec% /c echo %temp%")

temp = objExecObject.StdOut.ReadAll()

tempdir = Mid(temp, 1, Len(temp) -2)

 

' // ---------------------------

' // Find driver letter for UFD

'// ----------------------------

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Drives = FSO.Drives

For Each DiskDrive In Drives

If DiskDrive.DriveType = "1" Then

USBPath = DiskDrive.Path

End If

 

Next

' // -----------------------------------------------------------------

' // Query WMI for creation date of the Policy.xml file on the UFD

' // -----------------------------------------------------------------

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 

' // ----------------------------

' // Media Check - Policy.xml

' // ----------------------------

Set colFiles = objWMIService.ExecQuery("Select * From CIM_DataFile Where Name = '" & USBPath & "\\SMS\\Data\\Policy.xml'")

 

' // -----------------------------------------

' // Set the date 3 months ago from today

' // -----------------------------------------

dt3MonthsAgo = DateAdd("m", -3, Now)

 

' // -----------------------------------------------------------------------------------------------------------

' // If the Policy.xml file creation date is less than the date 3 months ago from today, it is an expired UFD.

' // -----------------------------------------------------------------------------------------------------------

For Each objFile in colFiles

dtCreationDate = WMIDateStringToDate(objFile.CreationDate)

dtEndDate = DateAdd("m", 3, dtCreationDate)

If dtCreationDate < dt3MonthsAgo then

Set WshShell = CreateObject("WScript.Shell")

Command = TEMPDIR & "\scripts\Shutdown.exe /s /t 0"

MsgBox "This task sequence expired on " & dtEndDate, vbMsgBoxSetForeground, "Expired Task Sequence"

Set oExec = WshShell.Exec(Command)

Else

WScript.Quit(1)

 

End If

Next

 

' // -----------------------------------------------------------------------------------------

' // Converting the WMI date query response to a simple date format. (e.g. 09/21/2010)

' // -----------------------------------------------------------------------------------------

Function WMIDateStringToDate(dtmInstallDate)

WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) & " " & Mid(dtmInstallDate, 9, 2) & ":" & Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, 13, 2))

End Function

 

I set the bios to have the following date: 7/18/13

when I boot from the standalone usb key, I get this:

 

 

on pressing "ok" the machine is SUPPOSED to shut down. Instead the expiration notice disappears and I can hit "next to execute the task sequence. The workstation is not shutting down when "ok" is pressed. When I change the Bios to make the Task Sequence valid, it throws an 8005 error becasue of "WScript.Quit(1)" at the end of the script. Thank you for the help in advance!!!!

[Jorgen Nilsson]

Hi,

Are the Shutdown.exe file present in the %tempdir%\Scripts folder when in WinPE? That is where I would start.. It sounds like you probably need to change wscript.quit(1) to wscript.quit and don't return an exit code as well to get it to work..

 

Regards,

Jörgen

[mcbroome]

is the %tempdir%\Scripts folder supposed to be :;\windows\temp\scripts\shutdown.exe ? Making that change to the script. Im diging thru the usb media and cant find shutdown.exe...........

[mcbroome]

I cant find shutdown.exe anywhere.......curious......

[mcbroome]

ok, I removed the exit code and changed "Command = TEMPDIR & "\scripts\Shutdown.exe /s /t 0" " to :

Command = "\windows\temp\Shutdown.exe /s /t 0" after copying and pasting shutdown.exe into that path of my mounted boot.wim. I'll commit, recompile and give it a whirl.....wish me luck!