Display Power Off Utility Code

On Error Resume Next

path = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

CreateObject("WScript.Shell").Run(path & "\doff.exe /tray")

If Err.Number <> 0 Then
  MsgBox "Please ensure doff.exe is in" & vbCrLf & vbCrLf & path, vbExclamation, "Failed to run doff.exe"
End If