[Machine Device Icon] Returns a path to a PNG image file containing a hi-resolution representation of the user's machine #AppleScript #AppleScriptObjC #device #computer #machine #icon #NSWorkspace #PNG

Create Machine Device Icon (High Sierra).applescript

use framework "Foundation"
use framework "AppKit"

use scripting additions

property this : a reference to the current application
property nil : a reference to missing value
property _1 : a reference to reference

property NSWorkspace : a reference to NSWorkspace of this
property NSPNGFileType : a reference to 4

property version : "1.0"
property folder : a reference to system attribute "TMPDIR"
property filename : "machine.png"
property path : a reference to {my folder, my filename}
property file : a reference to the POSIX file named (a reference to path)

property text item delimiters : "/"


tell ((NSWorkspace's sharedWorkspace()'s iconForFileType:"'root'")'s ¬
	representations()'s sortedArrayUsingSelector:"size") to if ¬
	|count|() > 0 then tell ((the firstObject()'s ¬
	representationUsingType:NSPNGFileType |properties|:nil)'s ¬
	writeToURL:(my file as «class furl») atomically:yes) ¬
	to if it = true then return the POSIX path of my file

false

Create Machine Device Icon (Mojave).applescript

use framework "Foundation"
use framework "AppKit"

use scripting additions

property this : a reference to the current application
property nil : a reference to missing value
property _1 : a reference to reference

property NSWorkspace : a reference to NSWorkspace of this

property version : "1.0b"
property folder : a reference to system attribute "TMPDIR"
property filename : "machine.png"
property path : a reference to {my folder, my filename}
property file : a reference to the POSIX file named (a reference to path)

property text item delimiters : "/"


tell ((NSWorkspace's sharedWorkspace()'s iconForFileType:"'root'")'s ¬
	TIFFRepresentation()'s writeToURL:(my file as «class furl») ¬
	atomically:yes) to if it = true then tell my file to return ¬
	the PNG(POSIX path) of me

false

to PNG(filepath)
	tell application "Image Events"
		set _img to open filepath
		set _PNG to save _img as PNG in filepath with icon
		return the _PNG's POSIX path
	end tell
end PNG