Jump to content

DJ-1701

AFK GNU
  • Posts

    7,556
  • Joined

Everything posted by DJ-1701

  1. I hear it's Hogwarts, so hopefully everything should magically work.
  2. What? No uber massive Ruckus dog? Some people are crazy. Is there such a thing? Usually a link is posted on the day when they are able to set everything up. I am just surprised to not see you threatening extermination.
  3. @AJWhite1970, if I recall correctly, opposite the Catholic Church, correct? Google Maps isn't exactly the best when it comes to Salisbury.
  4. You do know you are setting yourself a challenge by saying 'All You Need To Know' right? Do I need to print my ticket off, or will it be acceptable on my phone? Is there TARDIS parking available? - Never mind, found out 2 days from now. Can I bring my pet iguana?
  5. I hope you have permission from GDPR to put it's personal details in the public domain?
  6. I agree with this, in fact, I agree with this so strongly I will take the lesser title of runner-up, which comes with twice the prizes.
  7. I should win as I was robbed of the chance of winning the last competition after the deadline, and the revised deadline had long since past. http://www.edugeek.net/forums/our-advertisers/205784-verypc-win-these-techair-goodies.html#post1762854
  8. To be honest, never tried. Pro is meant to be limited, so you can't control things like suggestions in the start bar... though not sure if Edu Pro is the same on that front.
  9. Further information from Microsoft. https://techcommunity.microsoft.com/t5/Windows-IT-Pro-Blog/LTSC-What-is-it-and-when-should-it-be-used/ba-p/293181
  10. Education. Hands down. LTSB or LTSC as it's now know should only be used in very special cases. You can update Windows 10 to the latest build in WSUS buy just allowing the latest build in the upgrade category.
  11. Silly question... but have you cleaned the camera windows and reflective tape? If not, turn off the board and with a clean lint-free cloth, gently wipe the camera windows in the corners which track the pen and clean the reflective tape along the sides.
  12. How goes your endeavour?
  13. If you're running 64-Bit (which unless you only have 3GB of RAM, why wouldn't you) it's not compatible.
  14. Yeah, but they are meant to be for kneeling on in prayer... mostly that ICT Direct can give us a great discount on refurbished PCs because our budgets been cut again.
  15. Could try giving this a go. # Reads first command line argument into Group variable. [cmdletBinding()] Param ( $group ) # Checks that the group parameter is not empty - will not run the rest of the script if not. If ([string]::IsNullOrEmpty($group)) { Write-Host "Please provide a value for the parameter: Group" Exit } $DisplayName = ([ADSISEARCHER]"SAMAccountName=$($env:Username)").Findone().Properties.displayname $UserEmail = ([ADSISEARCHER]"SAMAccountName=$($env:Username)").Findone().Properties.mail $ComputerName = $env:computername # Text for the wallpaper. $TextLabel = "$DisplayName`r`n$UserEmail`r`n$ComputerName" $TextSizePoint = 22 # Text colour. $TextRed = 255 $TextGreen = 255 $TextBlue = 255 # Wallpaper source folder. $LocalSource = "C:\Wallpapers\Desktop" # Completed wallpaper destination location. $DestinationFile = "$env:temp\default.jpg" # Clear theme cache files. Remove-Item -Path "$($env:APPDATA)\Microsoft\Windows\Themes\*" -Recurse -Force -ErrorAction SilentlyContinue # Ensure image is set to Stretch to screen resolution and not tile. Set-ItemProperty -Path 'HKCU:\Control Panel\Desktop' -Name WallpaperStyle -Value "2" -Force Set-ItemProperty -Path 'HKCU:\Control Panel\Desktop' -Name TileWallpaper -Value "0" -Force If (!(Test-Path($LocalSource))) { Write-Host "$LocalSource does not exist." Exit } # Find current screen resolution. [void] [system.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") $RegistryPath = "HKLM:\Software\MachineData" $Horizontal = [int]([system.Windows.Forms.Screen]::PrimaryScreen[0]).Bounds.Width $Vertical = [int]([system.Windows.Forms.Screen]::PrimaryScreen[0]).Bounds.Height $Ratio = "$Horizontal`x$Vertical" $SourceFile = "$LocalSource\$Group$Ratio.jpg" If (!(Test-Path($SourceFile))) { Write-Host "$SourceFile does not exist." Exit } # Use .Net Framework to create a class to update and refresh the Wallpaper. Add-Type @” using System; using System.Runtime.InteropServices; using Microsoft.Win32; namespace Wallpaper { public class UpdateImage { [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)] private static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni); public static void Refresh(string path) { SystemParametersInfo( 20, 0, path, 0x01 | 0x02 ); } } } “@ # Enable the creation of images. Add-Type -AssemblyName System.Drawing # Select a font, size and style. $TextSizePixels=$TextSizePoint/0.75 $Font = New-Object System.Drawing.Font("Arial",$TextSizePixels,[Drawing.FontStyle]'Bold',"Pixel") # Get source image from source file. $SourceImage = [system.Drawing.Image]::FromFile($SourceFile) # Create a new bitmap at the primary monitor resolution to construct an image. $Bitmap = New-Object System.Drawing.Bitmap($Horizontal,$Vertical) # Create image for editing. $Image = [system.Drawing.Graphics]::FromImage($Bitmap) # Ensure the image is clear. $Image.Clear([system.Drawing.Color]::FromArgb(255,255,255,255)) # Set the ARGB values required for the text. $TextARGB = [system.Drawing.Color]::FromArgb(255,$TextRed,$TextGreen,$TextBlue) # Set area for text placement. $Rectangle = [system.Drawing.RectangleF]::FromLTRB(0, 60, $Horizontal-30, $Vertical) # Set alignment format for the font. $FormatFont = [system.Drawing.StringFormat]::GenericDefault $FormatFont.Alignment = [system.Drawing.StringAlignment]::Far $FormatFont.LineAlignment = [system.Drawing.StringAlignment]::Near # Set up the brush colours for drawing text box and text string. $TextBrushColour = New-Object Drawing.SolidBrush $TextARGB # Draw image. $Image.DrawImage($SourceImage,0,0, $Horizontal, $Vertical) # Draw text. $Image.DrawString($TextLabel,$Font,$TextBrushColour,$Rectangle,$FormatFont) # Save edited bitmap to file. $Bitmap.Save($DestinationFile,[system.Drawing.Imaging.ImageFormat]::Jpeg) # Clean up and remove objects. $SourceImage.Dispose() $Bitmap.Dispose() $Image.Dispose() $SourceDestinationFile # Open saved file. #Invoke-Item $DestinationFile # Update wallpaper. [Wallpaper.UpdateImage]::Refresh($DestinationFile)
  16. Now to wait for the release of 1903 admx files...
  17. Thanks for reminding me, was going to watch that on iPlayer as I noticed the episodes air on Sunday. The film version is available on iTunes to rent for 99p or £2.99 to buy. I agree, it is great.
  18. Bless you.
  19. No, if you don't specify a WSUS server in Group Policy it should continue to try and check Microsoft servers. If you have multiple proxies for your Internet connection, It could be that Microsoft Update is blocked for certain proxies, such as staff, pupils, byod.
  20. Well, it does seem a couple of things are more complicated then they need to be. Out of interest, do your AD users have an e-mail address in their AD account field like the image attached?
  21. The most important question... will there be any dogs?
×
×
  • Create New...