[Resolvido]executar powershell

bom dia.

Existe a possibilidade de executar o seguinte comando do powershell no próprio access sem chamar outra tela

Add-Type -AssemblyName System.Windows.Forms
$global:balmsg = New-Object System.Windows.Forms.NotifyIcon
$path = (Get-Process -id $pid).Path
$balmsg.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($path)
$balmsg.BalloonTipIcon = [System.Windows.Forms.ToolTipIcon]::Warning
$balmsg.BalloonTipText = ‘Existem Ocorrencias para tratar. Obrigado'
$balmsg.BalloonTipTitle = "Atencao $Env:USERNAME"
$balmsg.Visible = $true
$balmsg.ShowBalloonTip(20000)

Tópico movido da sala de "Formulários" por não ser dúvida relacionada a este tipo de objeto.

Lucas, os membros estão aguardando retorno seu nos tópicos pendentes dos links abaixo

https://www.maximoaccess.com/t39963-consulta-com-duas-combobox
https://www.maximoaccess.com/t40041-retorno-com-quantidade-especifica-de-caracteres

Lembre-se: o retorno é importante para quem tirou um tempo para ajudá-lo.

Código:

Dim sPSCmd As String

sPSCmd = sPSCmd & "Add-Type -AssemblyName System.Windows.Forms;"
sPSCmd = sPSCmd & "$global:balmsg = New-Object System.Windows.Forms.NotifyIcon;"
sPSCmd = sPSCmd & "$path = (Get-Process -id $pid).Path;"
sPSCmd = sPSCmd & "$balmsg.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon($path);"
sPSCmd = sPSCmd & "$balmsg.BalloonTipIcon = [System.Windows.Forms.ToolTipIcon]::Warning;"
sPSCmd = sPSCmd & "$balmsg.BalloonTipText = 'Existem Ocorrencias para tratar. Obrigado';"
sPSCmd = sPSCmd & "$balmsg.BalloonTipTitle = ""Atencao $Env:USERNAME"";"
sPSCmd = sPSCmd & "$balmsg.Visible = $true;"
sPSCmd = sPSCmd & "$balmsg.ShowBalloonTip(20000)"

 'Configure o comando powershell corretamente
sPSCmd = "powershell -command " & sPSCmd
 ' Execute
Call CreateObject("WScript.Shell").Run(sPSCmd, 0, True)