Did you ever get into disk Space Issues while copying,Decompressing PCK files in Configuration Manager 2007 ? Packages are failed due to not enough disk space ?
couple of options to get out of it are 1) Add Extra Drives or Increase the Disk on the Drive if you are into VM 2) manage with the existing disk by doing some alteration to it like moving the PCK files or Delete them.
OR Move to Configuration manager 2012 which no longer use PCK storage and uses Single Instance Storage ,More about why should move from CM07 to CM12 http://eskonr.com/2013/01/why-should-we-move-from-sccm-configmgr-2007-to-2012/ and
If you want to move the PCK files to different drive rather deleting them,Please refer this post http://eskonr.com/2012/10/how-to-move-pck-files-to-different-drive/, For Deletion,continue reading.
As We all Know,The PCK files are stored on the drive letter that you specify in the hierarchy settings—>software Distribution.
If you found ,the PCK drive do not have enough disk,try to change the Drive letter to different drive which has more disk space and creating NO_SMS_ON_DRIVE.SMS on the root of the drive to not use for decompressing of the packages,and moving forward,You will no longer have PCK file issues.
But if you are having Many Packages that are not updated since years,probably it is good Idea delete the PCK for these packages.
Note:If you later update these packages,Entire PCK files will get copied over the network to the site server,Please pay attention on it.
I Wrote a Script that checks all the drives if smspkg share exists or not ,If so check the PCK modifiedDate and then Delete if older than 2 Years.
' Author: Eswar Koneti
' Title: Script to Delete the PCK files on all the exisiting Drives that are older than 2 Years (730 Days)
Set objfso = CreateObject ("Scripting.FileSystemObject")
Set servers = objfso.OpenTextFile ("C:\Scripts\servers.txt", 1)
Set objoutputfile = objfso.OpenTextFile ("C:\Scripts\PCKResults.txt", 2, True)
do While Not servers.AtEndOfStream
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
If Err.Number <> 0 Then
objoutputfile.WriteLine (strcomputer & " is not Up or something went wrong with WMI")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk")
For Each objdrive in colItems
If (objfso.FolderExists("\\" & strComputer & "\"+Drive &"$\smspkg\")) Then
set recive = objfso.GetFolder("\\" & strComputer & "\"+Drive &"$\smspkg\")
Set colFiles = recive.Files
For Each objFile in colFiles
if (right(FileName, 4) = ".PCK") then
If DateDiff("d", objFile.DateLastModified, Date) > strDays Then
objoutputfile.WriteLine objfile & vbtab & "exist on "& vbtab & strComputer & vbtab & "modified date:" & vbtab & objFile.DateLastModified & vbtab & "Size (MB):" & vbtab & int(objFile.Size/1048576)
objoutputfile.WriteLine strComputer & vbTab & "Deleted"
msgbox "script is completed"
Change the quotes as they converted to Fancy by Blog OR use the script from RSS Feeds.