[ATUALIZADO 12/01/2016]
Corrigido laytout do código
Set CmdShell= Wscript.CreateObject(“Wscript.Shell”)
CmdShell.Run “runas /user:cursoadministrator “”%systemroot%system32cmd.exe”””
Wscript.Sleep 100
CmdShell.SendKeys “P@ssw0rd~”
Wscript.Quit
CmdShell.Run “runas /user:cursoadministrator “”%systemroot%system32cmd.exe”””
Wscript.Sleep 100
CmdShell.SendKeys “P@ssw0rd~”
Wscript.Quit
Gostaria de ler outros artigos sobre scripts? clique aqui
8 Comentários. Deixe novo
Olá Diego, tenho um problema bem particular.
Meus micros estão em um dominio (Ex: diego.br), e quero definir uma impressora padrão para todos os usuários que fizerem logon no micro.
Porém meu arquivo .bat para definir as impressora como padrão, só permitir mudar os usuários locais do micro (administrador, user, cliente).
Os usuários que fazem logon no domínio não tem permissão para executar o BAT.
Então estava querendo usar esse seu script em VBS para dar as permissões para executar o bat em cada logon.
Fiz as modificações seguintes no seus script:
Set CmdShell= Wscript.CreateObject(“Wscript.Shell”)
CmdShell.Run “runas /user:diego “”C:\printer\printer.bat”””
Wscript.Sleep 100
CmdShell.SendKeys “A123456~”
Wscript.Quit
Sendo que meu usuários com permissão de administrador no domínio é diego e senha A123456.
E não quero abrir um cmd, e sim executar meu arquivo script.bat que está no C: na pasta printer.
Segue meu arquivo bat:
rundll32 printui.dll PrintUIEntry /y /n\\br-005356\Hp1010
Sendo que o computador local possui o nome de br-005356 e o nome da impressora é Hp1010.
E claro no domínio diego.br.
Que funciona quando ponho esse script no logon do windows para todos os usuários.
Mas so consegue mudar dos usuários locais do micro.
E se não uso senha o que faço?
Se deixar sem senha o script pedirá.
pode me ajudar quero rodar este script em bat para chamar o programa da GRRF(caixa economica) em uma estação de trabalho que roda win7 esta estação esta fora de um dominio, porem criei uma conta que não tem direito de administadror tentei aplicar este script e não rodou pode me dizer onde esta o erro:
Set CmdShell= Wscript.CreateObject(“Wscript.Shell”)
CmdShell.Run “runas /user:TI_APICE”””c:\programas\grrf\grrf.exe”””
Wscript.Sleep 100
CmdShell.SendKeys “4p1c32015~”
Wscript.Quit
Ao rodar o script há algum retorno?
apresenta erro na linha 2 caracter 1
Amigo Diego Duarte, bom dia, bem eu gostaria que você me ajudasse como fazer um script em vbs, exemplo: eu quero que quando o usuário digite a senha do administrador local autenticado e quando digitasse errado a maquina desligasse como forma de segurança, ou pode por exemplo também, o usuário tenta digitar por 5 tentativas ou menos a senha o computador é desligado? Agradeço amigo se me passar algo sobre isso.
Para quem desejar, pode-se usar o seguinte software para apoio:
https://www.sordum.org/8727/runastool-v1-3/