Page 1 of 2 12 LastLast
Results 1 to 15 of 20
  1. #1
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts

    I'm so tired of UAC I could...

    I ain't gonna change my ways, not am I going to stop installing or resetting or, in many cases, just plain using programs I have used for years. But I am getting pretty sick and tired of not being able to turn off UAC like I could before.

    Why don't they just have people sign a waiver or something and then allow them to turn off that incessant, annoying, and pointless warning?

    I've found sites that say they do just that, but what they do is turn on Admin mode, so then some apps won't even function.

    Hasn't anyone found a way to silence that incessant, mindless twit?

    Chuck
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

  2. #2
    Administrator
    Join Date
    Mar 2001
    Location
    St Louis, Missouri, USA
    Posts
    23,585
    Thanks
    5
    Thanked 1,059 Times in 928 Posts
    In what way could you turn it off before which you are unable to do now?

    Remember, if you choose to never be notified by UAC and a program does not function correctly that is the programs fault and must be addressed by the vendor.

    Joe

  3. #3
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts
    Joe, I could and can deal with that as easily as I can the constant popups about security.

    Chuck
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

  4. #4
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,436
    Thanks
    372
    Thanked 1,457 Times in 1,326 Posts
    Chuck,

    The easiest way I've found to solve this problem is to create a Scheduled task for the program and check the Run With Highest Privileges box.

    Then create a shortcut to run the task on demand ex:
    C:\Windows\System32\schtasks.exe /run /TN "PowerShell ISE 64Bit as Admin"
    The above runs the PowerShell ISE with Administrator privledges w/o UAC prompts!

    I set these up so often I created a PowerShell script that provides a form to fill out and it creates both the Scheduled Task and the Shortcut to it.

    HTH
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

  5. #5
    Administrator
    Join Date
    Mar 2001
    Location
    St Louis, Missouri, USA
    Posts
    23,585
    Thanks
    5
    Thanked 1,059 Times in 928 Posts
    @Chuck,

    You still did not answer my question.

    If you are using a Pro or Enterprise version of Windows 10 you may use policies to further control UAC. See User Account Control Step-by-Step Guide and UAC Group Policy Settings and Registry Key Settings.

    Joe

  6. #6
    3 Star Lounger djohnson's Avatar
    Join Date
    Dec 2009
    Location
    Delaware City, Delaware
    Posts
    323
    Thanks
    13
    Thanked 32 Times in 30 Posts
    Quote Originally Posted by CWBillow View Post
    I ain't gonna change my ways, not am I going to stop installing or resetting or, in many cases, just plain using programs I have used for years. But I am getting pretty sick and tired of not being able to turn off UAC like I could before.

    Why don't they just have people sign a waiver or something and then allow them to turn off that incessant, annoying, and pointless warning?

    I've found sites that say they do just that, but what they do is turn on Admin mode, so then some apps won't even function.

    Hasn't anyone found a way to silence that incessant, mindless twit?

    Chuck
    Save this as a reg file, merge then restart your computer.
    Code:
    Windows Registry Editor Version 5.00
    
    [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center]
    "UACDisableNotify"=dword:00000001
    Last edited by djohnson; 2016-03-30 at 10:48.

  7. The Following User Says Thank You to djohnson For This Useful Post:

    mrjimphelps (2016-03-30)

  8. #7
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts
    @Joe, back a couple builds...I don't remember exactly when the change took place...if I turned off UAC via User Accounts in the Control Panel, it was "off" -- with no darn reminders that it was off. Now, it can't do that. I just keep getting told that it is turned off.

    (Knock on wood) I have yet to have a program issue that was caught or solved by UAC. Issues everyone has, but the issue itself has let me be aware that it is there, not any indication of UAC.

    I get the need for approval levels, especially in a commercial environment, and particularly with respect to the install of "strange" or rogue software, but there still should be, IMHO, a selection where one can acknowledge assumption of the risks and then turn the darn thing off.

    Chuck

    Chuck
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

  9. #8
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts
    @RG, that may do it. I'll have to give it a look. Script?? Form??

    Thanks,
    Chuck
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

  10. #9
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts
    @djohnson:

    Got it. Thanks.

    -------------
    Well, ran the entry, rebooted, and within two minutes got a notification that it was turned off...so THAT dodn't go away.

    Chuck
    Last edited by CWBillow; 2016-03-30 at 13:08.
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

  11. #10
    Administrator
    Join Date
    Mar 2001
    Location
    St Louis, Missouri, USA
    Posts
    23,585
    Thanks
    5
    Thanked 1,059 Times in 928 Posts
    @Chuck

    If this is on an Insider Preview it may change with the next release. You can never be quite sure.

    What is the exact message? Under what circumstances does it appear?

    Joe

  12. #11
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts
    @Joe,

    I'm hoping that is the case, Joe. I had seen notices that there were changes to the tray area as well, and I am hopeful these will also get resolved.

    Thanks,
    Chuck
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

  13. #12
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,436
    Thanks
    372
    Thanked 1,457 Times in 1,326 Posts
    Chuck,

    Here's the code:
    Code:
    <#  
      +----------------------------------------------------------------------+
      | Program      : Create-NoUACTaskShortcut.ps1                          |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                 |
      | Created      : 24 Nov 2014                                           |
      | Updated      : 26 Dec 2014                                           |
      | Description  : Prompts the user with a dialog for the data required  |
      |                to create a Shortcut and Scheduled task for a program |
      |                that normally requires Elevated Privileges prompt.    |
      | Requirements : Windows 8.1 - PowerShell 4.0                          |
      | Last Updated :                                                       |
      | Current Vers : 2.3                                                   |
      |   11/26/2014 : Added check for Windows & PowerShell minimum reqs.    |
      |   11/27/2014 : Added suggestions by Cliff.H on WSL, Thanks Cliff     |
      |   12/06/2014 : Added Menu support for new Task Creation options      |
      |                See comments this date in Create-NoUACTask            |
      |   12/11/2014 : Functionalized form creation activities.              |
      |   12/12/2014 : Created Browser buttons for filename/folder selection.|
      |   12/26/2014 : Added code to HIDE PS Window while menu is displayed  |
      |   08/21/2015 : Adjusted to run under Win 10                          |
      +----------------------------------------------------------------------+
    #>
    
    Function Create-NoUACTask {
    <#+----------------------------------------------------------------------+
      | Function     : Create-NoUACTask                                      |
      | Description  : Create Task to get around UAC Prompt                  |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                 |
      | Created      : 21 Nov 2014                                           |
      | Last Updated : 06 Dec 2014                                           |
      | Current Vers : 1.2                                                   |
      |     12/06/14 : Added laptop settings to allow on battery operations. |
      |                Set Stop on Idle end to FALSE                         |
      +----------------------------------------------------------------------+
    #>
    param (
            [Parameter(Mandatory=$true)]
              [String]$TaskName,
            [Parameter(Mandatory=$true)]
              [String]$TaskCommand,
            [Parameter(Mandatory=$false)]
              [String]$TaskArg,
            [Parameter(Mandatory=$false)]
              [String]$TaskDesc="No Description Supplied",
            [Parameter(Mandatory=$false)]
              [Boolean]$Laptop=$false
          )
    
    $TaskSet = New-ScheduledTaskSettingsSet -Compatibility Win8 
    $TaskSet.DisallowStartIfOnBatteries =  $Laptop
    $TaskSet.StopIfGoingOnBatteries = $Laptop
    $TaskSet.IdleSettings.StopOnIdleEnd = $false
    
    $TaskAction = New-ScheduledTaskAction -Execute `"$TaskCommand`" `
                                          -Argument `"$TaskArg`"
    
    Register-ScheduledTask -Action $TaskAction  `
                           -TaskName "$TaskName" `
                           -User "$env:USERDOMAIN\$env:username" `
                           -RunLevel Highest `
                           -Description "$TaskDesc" `
                           -Settings $TaskSet
    
    }   #End Function Create-NoUACTask
    
    Function Create-NoUACShortCut {
    <#
      +-------------------------------------------------------------------------+
      | Function     : Create-NoUACTask                                         |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                    |
      | Created      : 24 Nov 2014                                              |
      | Last Updated : 28 Nov 2014                                              |
      | Current Vers : 1.3                                                      |
      |                                                                         |
      |Where:                                                                   |
      |  $TaskName             - is the Name of the Task/Shortcut to create     |
      |  $TaskCommand          - is the Command Executed by the Task            |
      |  $DestinationPath      - is the location to store the created shortcut  |
      | ----- Use only ONE of the Following ----                                |
      |  $ShortcutIcon         - is the path & number of the icon to use.       |
      |                             ex: "C:\MyIcon.ico,0"  - optional           |
      |  $UseTaskCommandIcon   - will select the first icon in the TaskCommand  |
      |                          file.                                          |
      +-------------------------------------------------------------------------+
    #>
    param ( [Parameter(Mandatory=$true)]
              [String]$TaskName,
            [Parameter(Mandatory=$false)]
              [String]$TaskCommand,
            [Parameter(Mandatory=$false)]
              [String]$DestinationPath="$env:UserProfile\Desktop", 
            [Parameter(Mandatory=$false)]
              [String]$ShortcutIcon="NO",
              [switch]$UseTaskCommandIcon
          )
    
    $WshShell = New-Object -comObject WScript.Shell
    $Shortcut = $WshShell.CreateShortcut("$DestinationPath\$TaskName.lnk")
    $Shortcut.TargetPath = "C:\Windows\System32\schtasks.exe" 
    $Shortcut.Arguments = "`/run `/TN " + "`"" + $TaskName +"`""
    $Shortcut.WindowStyle = 7
    
    If ($ShortcutIcon -ne 'NO') {
      $Shortcut.IconLocation = $ShortcutIcon
    }
    Else {
        If ($UseTaskCommandIcon.IsPresent) {
          $Shortcut.IconLocation = $TaskCommand
        }
    }
    $Shortcut.Save()
    
    }    #End Function Create-NoUACShortCut
    
    Function New-Font {
    <#+----------------------------------------------------------------------+
      | Function     : New-Font                                              |
      | Description  : Create a new font object                              |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                 |
      | Created      : 11 Dec 2014                                           |
      | Last Updated :                                                       |
      | Current Vers : 1.0                                                   |
      +----------------------------------------------------------------------+
    #>
     param(
            [Parameter(Mandatory=$true)]
              [String]$FontName,
            [Parameter(Mandatory=$false)]
              [String]$FontStyle='Regular',
            [Parameter(Mandatory=$false)]
              [Single]$FontSize=12
           )
    
      New-Object System.Drawing.Font("$FontName",$FontSize, `
                 [System.Drawing.FontStyle]::$FontStyle)  
    
    }   #End New-Font
    
    Function New-Button {
    <#+----------------------------------------------------------------------+
      | Function     : New-Button                                            |
      | Description  : Create a new Button object                            |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                 |
      | Created      : 11 Dec 2014                                           |
      | Last Updated :                                                       |
      | Current Vers : 1.0                                                   |
      +----------------------------------------------------------------------+
    #>
    
      param(
            [Parameter(Mandatory=$true)]
              [Int]$BtnLocX,   #Distance from left edge of form
            [Parameter(Mandatory=$true)]
              [Int]$BtnLocY,   #Distance from top of form
            [Parameter(Mandatory=$true)]
              [Int]$BtnWidth,
            [Parameter(Mandatory=$true)]
              [Int]$BtnHeight,
             [Parameter(Mandatory=$true)]
              [String]$BtnText,
             [Parameter(Mandatory=$true)]
                  $BtnFont,
             [Parameter(Mandatory=$true)]
              [String]$BtnBackColor,
             [Parameter(Mandatory=$false)]
              [String]$Result ="None"   # Yes No Cancel Ok    
           )
    
      $Button = New-Object System.Windows.Forms.Button
      $Button.Location = New-Object System.Drawing.Size($BtnLocX,$BtnLocY)
      $Button.Size = New-Object System.Drawing.Size($BtnWidth,$BtnHeight)
      $Button.Text = "$BtnText"
      $Button.BackColor = "$BtnBackColor"
      $Button.Font = $BtnFont
      If ($Result -ne "None") {
        $Button.DialogResult = [System.Windows.Forms.DialogResult]::$Result
      }
      $Button
    
    }   #End New-Button
    
    Function New-Label {
    <#+----------------------------------------------------------------------+
      | Function     : New-Label                                             |
      | Description  : Create a new Label object                             |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                 |
      | Created      : 11 Dec 2014                                           |
      | Last Updated :                                                       |
      | Current Vers : 1.0                                                   |
      +----------------------------------------------------------------------+
    #>
     param(
            [Parameter(Mandatory=$true)]
              [Int]$LabelLocX,   #Distance from left edge of form
            [Parameter(Mandatory=$true)]
              [Int]$LabelLocY,   #Distance from top of form
            [Parameter(Mandatory=$true)]
              [Int]$LabelWidth,
            [Parameter(Mandatory=$true)]
              [Int]$LabelHeight,
            [Parameter(Mandatory=$true)]
              [String]$LabelText,
            [Parameter(Mandatory=$true)]
                  $LabelFont
          )
    
      $objLabel = New-Object System.Windows.Forms.Label
      $objLabel.Location = New-Object System.Drawing.Size($LabelLocX,$LabelLocY) 
      $objLabel.Size = New-Object System.Drawing.Size($LabelWidth,$LabelHeight) 
      $objLabel.Text = "$LabelText"
      $objLabel.Font = $LabelFont
      $objLabel
    
    }   #End New-Label
    
    Function New-TextBox {
    <#+----------------------------------------------------------------------+
      | Function     : New-TextBox                                           |
      | Description  : Create a new TextBox object                           |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                 |
      | Created      : 11 Dec 2014                                           |
      | Last Updated :                                                       |
      | Current Vers : 1.0                                                   |
      +----------------------------------------------------------------------+
    #>
    param(
            [Parameter(Mandatory=$true)]
              [Int]$TextBoxLocX,   #Distance from left edge of form
            [Parameter(Mandatory=$true)]
              [Int]$TextBoxLocY,   #Distance from top of form
            [Parameter(Mandatory=$true)]
              [Int]$TextBoxWidth,
            [Parameter(Mandatory=$true)]
              [Int]$TextBoxHeight,
            [Parameter(Mandatory=$true)]
                  $TextBoxFont,
            [Parameter(Mandatory=$false)]
              [String]$TextBoxText  #Initialization Value
          )
    
      $objTextBox = New-Object System.Windows.Forms.TextBox 
      $objTextBox.Location = `
                 New-Object System.Drawing.Size($TextBoxLocX,$TextBoxLocY) 
      $objTextBox.Size = `
                 New-Object System.Drawing.Size($TextBoxWidth,$TextBoxHeight) 
      $objTextBox.Font = $TextBoxFont
    
      If ($TextBoxText -ne "") {
          $objTextBox.Text = "$TextBoxText"
        }
    
      $objTextBox
    
    }  #End New-TextBox
    
    Function New-CheckBox {
    <#+----------------------------------------------------------------------+
      | Function     : New-CheckBox                                          |
      | Description  : Create a new ChecktBox object                         |
      | Programmer   : RetiredGeek (WSL) aka: ComputerMentor                 |
      | Created      : 11 Dec 2014                                           |
      | Last Updated :                                                       |
      | Current Vers : 1.0                                                   |
      +----------------------------------------------------------------------+
    #>
    param(
            [Parameter(Mandatory=$true)]
              [Int]$CheckBoxLocX,   #Distance from left edge of form
            [Parameter(Mandatory=$true)]
              [Int]$CheckBoxLocY,   #Distance from top of form
            [Parameter(Mandatory=$true)]
              [Int]$CheckBoxWidth,
            [Parameter(Mandatory=$true)]
              [Int]$CheckBoxHeight,
            [Parameter(Mandatory=$true)]
                  $CheckBoxFont
          )
    
      $ObjCheckBox = New-Object System.Windows.Forms.CheckBox 
      $ObjCheckBox.Location = New-Object `
             System.Drawing.Size($CheckBoxLocX,$CheckBoxLocY) 
      $ObjCheckBox.Size = New-Object `
             System.Drawing.Size($CheckBoxWidth,$CheckBoxHeight) 
      $ObjCheckBox.Font = $lbfont
      $ObjCheckBox
    
    }
    
    # -------------------   Main ------------------------
    
    Add-Type -AssemblyName System.Windows.Forms  #PS V3+
    Add-Type -AssemblyName System.Drawing
    
    # ----------------  add a helper  --------------------
    $showWindowAsync = Add-Type –memberDefinition @” 
    [DllImport("user32.dll")] 
    public static extern bool ShowWindowAsync(IntPtr hWnd, int nCmdShow); 
    “@ -name “Win32ShowWindowAsync” -namespace Win32Functions –passThru
    
    function Show-PowerShell() { 
         [void]$showWindowAsync::ShowWindowAsync((Get-Process –id $pid).MainWindowHandle, 10) 
    }
    
    function Hide-PowerShell() { 
        [void]$showWindowAsync::ShowWindowAsync((Get-Process –id $pid).MainWindowHandle, 2) 
    }
    
    # ------------------ End Helper -------------------------------
    
    Hide-PowerShell
    
    $MyVersion = "Ver 2.3"
    $ErrorActionPreference = 'Stop'
    
    $MsgBox = [Windows.Forms.MessageBox]
    $Buttons = [Windows.Forms.MessageBoxButtons]
    $MBIcons = [Windows.Forms.MessageBoxIcon]
    
    <#  **** Check Operating Requirements   ***
        **** Windows 8.1+                   ***
        **** PowerShell 4.0+ as Admin       ***
    #>
    
    $CurOS = Get-CimInstance Win32_OperatingSystem
    $FullVersion = $CurOS.Version
    
    $OSVerItems = $CurOs.Version.split('.')
    <#
       Use CASTing [int] to make sure result is a NUMBER!
    #>
    $OSVer = ($([int]$OSVerItems[0])*10) + [int]$OSVerItems[1]
    $CurPSVer = [int]$psversiontable.psversion.Major
    If (-NOT ([Security.Principal.WindowsPrincipal] `
              [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole(`
              [Security.Principal.WindowsBuiltInRole] "Administrator")) 
              {$PSPriv = "User"} Else {$PSPriv = "Administrator"} 
    
    If ($OSVer -lt 63 -or $CurPSVer -lt 4 -or $PSPriv -eq "User") {
    #*** Now strings incorporate ALL spaces thus no identing!
      $Message = `
    @("This program requires Windows 8.1 {6.3.9600}+ and
    and PowerShell 4.0+ as Administrator to run!
    
    You are running:
    Windows:`t`t$FullVersion
    PowerShell:`t$CurPSVer
    Running as:`t$($PSPriv)")
    
      [void]$MsgBox::Show("$Message","System Exit", `
                     $Buttons::OK, $MBIcons::Stop)
      Exit
    }
    # *** End Check Operating Requirements ***
    
    # *** Setup File/Folder Browsers       ***
    
    $FileBrowser = New-Object Windows.Forms.OpenFileDialog
    $FolderBrowser = New-Object Windows.Forms.FolderBrowserDialog
    $FolderBrowser.RootFolder = [System.Environment+SpecialFolder]'Desktop'
    
    # Font styles are: Regular, Bold, Italic, Underline, Strikeout
    $Font = New-Font -FontName "Tahoma" -FontStyle "Regular" -FontSize 11
    $LBFont = New-Font -FontName "Courier New" -FontSize 11  -FontStyle "Regular"
    
    #Form Object Location/Width/Height sizes
    $LNSpacing = 35
    $TNameLoc = 10
    $TCmdLoc = $TNameLoc+$LNSpacing
    $OptArgLblLoc = $TCmdLoc+$LNSpacing
    $TArgsLoc = $OptArgLblLoc+$LNSpacing
    $TDescLoc = $TArgsLoc+$LNSpacing
    $SCutLoc = $TDescLoc+$LNSpacing
    $IconLoc = $SCutLoc+$LNSpacing
    $UseTIconLoc = $IconLoc+$LNSpacing
    $LTLoc = $UseTIconLoc+$LNSpacing
    $OkCanBtnLoc = 340
    $StdBtnWidth = 85
    $LblWidth = 210
    $TextBoxWIdth = 590
    
    $OKButton = New-Button -BtnLocX 10 -BtnLocY $OkCanBtnLoc `
                           -BtnWidth $StdBtnWidth -BtnHeight 30 `
                           -BtnText "OK" -BtnFont $Font `
                           -BtnBackColor "Green" -Result "OK"
    
    $CancelButton = New-Button -BtnLocX 105 -BtnLocY $OkCanBtnLoc `
                               -BtnWidth $StdBtnWidth -BtnHeight 30 `
                               -BtnText "Cancel" -BtnFont $Font `
                               -BtnBackColor "Red" -Result "Cancel"
    
    #File Browser Buttons:
    
    $TCmdBrBtn = New-Button -BtnLocX 830 -BtnLocY $TCmdLoc `
                            -BtnWidth ($StdBtnWidth+10) -BtnHeight 30 `
                            -BtnText "Choose..." -BtnFont $Font `
                            -BtnBackColor "Yellow" 
    $TCmdBrBtn.Add_Click({$FileBrowser.Filter = `
                           "Programs|*.exe;*.cmd;*.ps1;*.bat|All Files|*.*";
                          $FileBrowser.ShowDialog();`
                          $TextBoxCmd.Text = $FileBrowser.Filename;
                          $FileBrowser.FileName = $null;
                          $FileBrowser.Filter = ""})
    
    $IconBrBtn = New-Button -BtnLocX 830 -BtnLocY $IconLoc `
                            -BtnWidth ($StdBtnWidth+10) -BtnHeight 30 `
                            -BtnText "Choose..." -BtnFont $Font `
                            -BtnBackColor "Yellow" 
    $IconBrBtn.Add_Click({$FileBrowser.Filter = `
                            "Icon Files|*.exe;*.dll;*.ico|All Files|*.*";
                          $FIleBrowser.ShowDialog();`
                          $TextBoxIC.Text = $FileBrowser.Filename;
                          $FileBrowser.FileName = $null;
                          $FileBrowser.Filter = ""})
    
    #Folder Browser Buttons:
    
    $SCutBrBtn = New-Button -BtnLocX 830 -BtnLocY $SCutLoc `
                            -BtnWidth ($StdBtnWidth+10) -BtnHeight 30 `
                            -BtnText "Choose..." -BtnFont $Font `
                            -BtnBackColor "Yellow"
    $SCutBrBtn.Add_Click({$FolderBrowser.ShowDialog();`
                          $TextBoxDP.Text = $FolderBrowser.SelectedPath;
                          $FolderBrowser.SelectedPath = ""})
    
    #Labels:
    
    $lblTName = New-Label -LabelLocX 10 -LabelLocY $TNameLoc `
                          -LabelWidth $LblWidth -LabelHeight 25 `
                          -LabelText "Task/Shortcut Name:" `
                          -LabelFont $Font
    
    $lblTCmd = New-Label -LabelLocX 10 -LabelLocY $TCmdLoc `
                         -LabelWidth $LblWidth -LabelHeight 25 `
                         -LabelText "Task/Shortcut Cmd:" `
                         -LabelFont $Font
    
    $lblOptArgs = New-Label `
                          -LabelLocX 220 -LabelLocY $OptArgLblLoc `
                          -LabelWidth 300 -LabelHeight 25 `
                          -LabelText "----- Optional Arguments -----" `
                          -LabelFont $Font
    
    $lblTArgs = New-Label -LabelLocX 10 -LabelLocY $TArgsLoc `
                          -LabelWidth $LblWidth -LabelHeight 25 `
                          -LabelText "Task/Shortcut Args:" `
                          -LabelFont $Font
    
    $lblTDesc = New-Label -LabelLocX 10 -LabelLocY $TDescLoc `
                          -LabelWidth $LblWidth -LabelHeight 25 `
                          -LabelText "Task Description:" `
                          -LabelFont $Font
    
    $lblSCutDest = New-Label -LabelLocX 10 -LabelLocY $SCutLoc `
                             -LabelWidth $LblWidth -LabelHeight 25 `
                             -LabelText "Shortcut Location:" `
                             -LabelFont $Font
    
    $lblIconLoc = New-Label -LabelLocX 10 -LabelLocY $IconLoc `
                            -LabelWidth $LblWidth -LabelHeight 25 `
                            -LabelText "Icon Location:" `
                            -LabelFont $Font
    
    $lblUseTIC = New-Label -LabelLocX 10 -LabelLocY $UseTIconLoc `
                           -LabelWidth ($LblWidth+40) -LabelHeight 25 `
                           -LabelText "Use Task Command Icon:" `
                           -LabelFont $Font
    
    $lblLaptop = New-Label -LabelLocX 10 -LabelLocY $LTLoc `
                           -LabelWidth ($LblWidth+40) -LabelHeight 25 `
                           -LabelText "Is this a Laptop:" `
                           -LabelFont $Font
    
    $lblLaptopInst = New-Label `
                         -LabelLocX 300 -LabelLocY $LTLoc `
                         -LabelWidth ($LblWidth+200) -LabelHeight 25 `
                         -LabelText "Selection prevents operations on battery!" `
                         -LabelFont $Font
    
    #Text Boxes:
    
    $TextBoxTN = New-TextBox -TextBoxLocX 220 -TextBoxLocY $TNameLoc `
                             -TextBoxWidth $TextBoxWIdth -TextBoxHeight 25 `
                             -TextBoxFont $LBFont
    
    $TextBoxCmd = New-TextBox -TextBoxLocX 220 -TextBoxLocY $TCmdLoc `
                              -TextBoxWidth $TextBoxWIdth -TextBoxHeight 25 `
                              -TextBoxFont $LBFont
    
    $TextBoxArg = New-TextBox -TextBoxLocX 220 -TextBoxLocY $TArgsLoc `
                              -TextBoxWidth $TextBoxWIdth -TextBoxHeight 25 `
                              -TextBoxFont $LBFont
    
    $TextBoxTD = New-TextBox -TextBoxLocX 220 -TextBoxLocY $TDescLoc `
                             -TextBoxWidth $TextBoxWIdth -TextBoxHeight 25 `
                             -TextBoxFont $LBFont
    
    $TextBoxDP = New-TextBox -TextBoxLocX 220 -TextBoxLocY $SCutLoc `
                             -TextBoxWidth $TextBoxWIdth -TextBoxHeight 25 `
                             -TextBoxFont $LBFont
    
    $TextBoxIC = New-TextBox -TextBoxLocX 220 -TextBoxLocY $IconLoc `
                             -TextBoxWidth $TextBoxWIdth -TextBoxHeight 25 `
                             -TextBoxFont $LBFont
    
    #CheckBoxes:
    
    $CheckBoxUseTC = New-CheckBox -CheckBoxLocX 260 -CheckBoxLocY $UseTIconLoc `
                                  -CheckBoxWidth 25 -CheckBoxHeight 25 `
                                  -CheckBoxFont $LBFont
    
    $CheckBoxLaptop = New-CheckBox -CheckBoxLocX 260 -CheckBoxLocY $LTLoc `
                                   -CheckBoxWidth 25 -CheckBoxHeight 25 `
                                   -CheckBoxFont $LBFont
    
    #Form Setup:
    
    $objForm = New-Object System.Windows.Forms.Form 
    $objForm.Text = "Avoid UAC ShortCut/SchTask Creation: $MyVersion"
    $objForm.Size = New-Object System.Drawing.Size(950,420) 
    $objForm.StartPosition = "CenterScreen"
    $objForm.AcceptButton = $OKButton
    $objForm.CancelButton = $CancelButton
    
    $objForm.Controls.AddRange( `
         @($OKButton,$CancelButton, `
           $lblTName,$lblTCmd,$lblTArgs,$lblOptArgs, `
           $lblTDesc,$lblSCutDest,$lblIconLoc,$lblUseTIC, `
           $lblLaptop,$lblLaptopInst,
           $TextBoxTN,$TextBoxCmd,$TextBoxArg, `
           $TextBoxTD,$TextBoxDP,$TextBoxIC, `
           $CheckBoxUseTC,$CheckBoxLaptop, `
           $TCmdBrBtn,$IconBrBtn,$SCutBrBtn))
    $objForm.Topmost = $True
    
    $dialogResult = $objForm.ShowDialog()
    
    #Process Form Contents:
    
    if ($dialogResult -eq [System.Windows.Forms.DialogResult]::OK)
    {
      
      $TaskName = $TextBoxTN.Text
      $TaskCommand = $TextBoxCmd.Text
      $TaskArg =$TextBoxArg.Text
      $TaskDesc = $TextBoxTD.Text
      $DestinationPath = $TextBoxDP.Text
      $ShortcutIcon = $TextBoxIC.Text
      $UseTaskCommandIcon = $CheckBoxUsetc.checked
      $LapTop = $CheckBoxLaptop.Checked
      
      $FoundError = $false
    
      If ($TaskName -eq "") {
        $Message = "The Task/Shortcut Name parameter value is BLANK:"
        $MsgBox::Show("$Message","ERROR: Invalid Task/Shortcut Name", `
                       $Buttons::OK, $MBIcons::Stop)
        $FoundError = $true
      }
    
      If ($TaskCommand -eq "") {
        $Message = "The Task Command parameter value is BLANK:"
        $MsgBox::Show("$Message","ERROR: Invalid Task Command", `
                       $Buttons::OK, $MBIcons::Stop)
        $FoundError = $true
      }
      Else {
          If (!(Test-Path -Path $TaskCommand)) {
    
            $Message = "The TaskCommand parameter value is not valid:"
            $MsgBox::Show("$Message `n $TaskCommand","ERROR: Invalid Task Command", `
                           $Buttons::OK, $MBIcons::Stop)
            $FoundError = $true
          }       # End If (!(Test-Path -Path $TaskCommand))
      }
    
      If ($DestinationPath -ne "") {
        If (!(Test-Path -Path $DestinationPath)) {
          $Message = "The Shortcut Location value is not valid:"
          $MsgBox::Show("$Message `n $DestinationPath","ERROR: Invalid Shortcut Location", `
                         $Buttons::OK, $MBIcons::Stop)
          $FoundError = $true
        }       # End If (!(Test-Path -Path $TaskCommand))
      }
      ELse {
        $DestinationPath = "$env:UserProfile\Desktop"
      }
      If ($FoundError) { EXIT }
    
    #------ Error Checks PASSED Create Task & Shortcut ---
    
       If ($TaskDesc -eq "") {
         Create-NoUACTask -TaskCommand "$TaskCommand" `
                          -TaskArg $TaskArg `
                          -TaskName $TaskName `
                          -LapTop  $LapTop 
       }
       Else {
          Create-NoUACTask -TaskCommand "$TaskCommand" `
                          -TaskArg $TaskArg `
                          -TaskName $TaskName `
                          -TaskDesc "$TaskDesc"`
                          -LapTop  $LapTop 
       }
    
       If ($UseTaskCommandIcon) {
         Create-NoUACShortCut -TaskName $TaskName `
                              -DestinationPath $DestinationPath `
                              -TaskCommand "$TaskCommand" `
                              -UseTaskCommandIcon 
       }
       Else {  
           If ($ShortcutIcon -ne "") {
             Create-NoUACShortCut -TaskName $TaskName `
                                  -DestinationPath $DestinationPath `
                                  -ShortcutIcon $ShortcutIcon
           }                   
           Else {
               Create-NoUACShortCut -TaskName $TaskName `
                               -DestinationPath $DestinationPath 
           }
       }
    }   #End if ($dialogResult -eq [System.Windows.Forms.DialogResult]::OK)
    Else
    {
        $Message = "User selected CANCEL or clicked the close box."
        $MsgBox::Show("$Message","User Exit", `
                       $Buttons::OK, $MBIcons::Stop)
    }
    
    $objForm.dispose()
    Show-PowerShell
    Copy above to a text file and name it "CreateNoUACTaskShortcut.ps1"

    If you don't have you computer setup to run PowerShell see this Thread. Specifically items 1-3.

    HTH
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

  14. #13
    Bronze Lounger DrWho's Avatar
    Join Date
    Dec 2009
    Location
    Central Florida
    Posts
    1,501
    Thanks
    30
    Thanked 205 Times in 163 Posts
    Quote Originally Posted by CWBillow View Post
    I ain't gonna change my ways, not am I going to stop installing or resetting or, in many cases, just plain using programs I have used for years. But I am getting pretty sick and tired of not being able to turn off UAC like I could before.
    Why don't they just have people sign a waiver or something and then allow them to turn off that incessant, annoying, and pointless warning?
    I've found sites that say they do just that, but what they do is turn on Admin mode, so then some apps won't even function.
    Hasn't anyone found a way to silence that incessant, mindless twit?
    Chuck
    Hi again Chuck! And yes!
    Going back to the first five minutes, after I've installed a new OS, I will try to install some script or program and UAC pop's up it's little window telling me "blah, blah, blah" and at the bottom of that windows is a blue line, where I click to see the details.... then after clicking on that, I get a graph showing that the permissions thingy is set above center. On that graph is a slider bar, and I grab that bar with my mouse and slide it all the way to the bottom. It tells me "NOT Recommended", but I ignore that, apply the change and go back and run my script or program again, and this time I get no UAC messages. It remains like that for as long as I run that OS.
    I've never had it revert back to its install default.
    I do have scripts, to disable UAC, but I don't have to use them, if I just do the simple thing that I've just outlined for you.
    The Windows programmers supplied you with everything you need to disable UAC, right there on your screen. You just need to use what they gave you. Many things in Windows are like that, if you just know where to look. You better believe that the MS programmers don't have all that nuisance stuff running on their PC's. Eh?
    Most everything that I use to double the efficiency of Windows, is already built into the System (registry).
    They call all that crap that just slows down Windows, "Safe Defaults". Bypass those and Windows can run much faster and more efficiently. It's been like that since Windows 95.

    Cheers mate!
    The Doctor
    PS: Something you might want to get and run is a little program (script) called "Grant Admin Full Control". I have it installed on ALL of my 20 PC's, except the ones still running XP. With that, you can right click on any file or folder and become the legal Owner of the file or folder. Then you can work with the files it contains without getting those "you don't have access" messages.
    Last edited by DrWho; 2016-03-30 at 16:10.
    Experience is truly the best teacher.

    Backup! Backup! Backup! GHOST Rocks!

  15. #14
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts
    Thanks, Doc. Three things: Where might I get 1) "Grant Admin Full Control", 2) when I set it to do so, some progs then don't run, giving me a "not meant to run in administrator mode", and three, when I push the slider all the way down (triggering the warning) it at times slides back up by itself.

    I would be just as happy to not use any add-ons if I could just get more control by doing so, not less.

    Chuck
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

  16. #15
    Uranium Lounger CWBillow's Avatar
    Join Date
    Jul 2002
    Location
    Las Vegas, NV USA
    Posts
    6,371
    Thanks
    78
    Thanked 12 Times in 11 Posts
    So then I run the script within a PowerShell window?

    Chuck
    -------------------------------------------------
    "Good judgment comes from experience, and experience - well, that comes from poor judgment."

    ~ A(lan) A(lexander) Milne (1882-1956)- "House at Pooh Corner"

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •