Início / server / Perguntas / 679307
Accepted
Matthias Güntert
Asked: 2015-03-31 05:50:56 +0800 CST

Como ocultar os scripts de logon em execução dos usuários (.vbs) sem usar um script wrapper?

  • 772

Eu tenho um GPO (configurado com substituição de loopback) que executa um script de logon (.vbs) e o vincula a uma UO contendo um host W2012R2 RDS.

Fiz estas alterações (relacionadas à pergunta) na política:

Computer Configuration -> Policies -> Administrative Templates -> System -> Group Policy -> Configure Logon Script Delay -> Enabled -> minute: 0 

User Configuration -> Policies -> Windows Settings -> Scripts (Logon/Logoff) -> MyScript.vbs 

User Configuration -> Policies -> Administrative Templates -> System -> Run legacy logon scripts hidden -> Enabled 

User Configuration -> Policies -> Administrative Templates -> System -> Display instructions in logon scripts as they run -> Disabled

Quando um usuário faz logon, o script é executado perfeitamente em primeiro plano, mas de acordo com as configurações que fiz, eu esperava que o prompt de comando não aparecesse. Então, o que estou fazendo de errado aqui e qual é exatamente a definição da Microsoft de um "script legado"?

Estou ciente de que posso escrever um pequeno "script wrapper" que chama cscript.execom o parâmetro oculto, mas gostaria de manter isso o mais limpo possível e gostaria de entender por que minhas configurações não funcionam.

windows

1 respostas

  1. Best Answer

    Eu descobri o que está causando isso, pois minhas configurações de GPO estão corretas. O script que preciso executar usa uma função para forçar a versão de 32 bits do host de script.

    Function fncForce32bitCscript()
    Dim strCurrentScriptHost : strCurrentScriptHost  = lcase(wscript.fullname)
    dim strRequiredScriptHost: strRequiredScriptHost = "c:\windows\system32\cscript.exe"
    if fncCheckOS = "X64" Then
        strRequiredScriptHost = "c:\windows\syswow64\cscript.exe"
    end If  

    Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    objShell.run "cscript //h:cscript",0,True

    If strCurrentScriptHost = strRequiredScriptHost Then
        'no switching to cscript required
    Else
      Dim strArgColl
          strArgColl = " "
          If WScript.Arguments.Count>0 Then
            Dim ArgCollect
            For ArgCollect = 0 To WScript.Arguments.Count-1
              strArgColl = strArgColl & chr(34) & (WScript.Arguments.Item(ArgCollect)) & chr(34) & " "
            Next
          End If
          'wscript.echo "script will be re-launched with the required script host " & strRequiredScriptHost
          objShell.Run  "cmd /C " & strRequiredScriptHost & " " & WScript.ScriptFullName & " " & strArgColl,1,false
          'Set objShell = Nothing
          'wscript.sleep 3000
          WScript.Quit  
    End If
End Function

    Portanto, substituindo esta chamada para cmd.exe...

    'objShell.Run "cmd /C " & strRequiredScriptHost & " " & WScript.ScriptFullName & " " & strArgColl, 0, false

    ...com isso, ele foi executado oculto. Missão completada.

    objShell.Run strRequiredScriptHost & " " & WScript.ScriptFullName & " " & strArgColl, 0, false
    • 1

relate perguntas