Bom dia pessoal.
Estou criando essa thread, pois pesquisei uma solução para o meu problema, porém nenhum dos itens postados me ajudou, e olha que eu tentei muita coisa e não conheço absolutamente nada de VBS.
Enfim, tenho um script que executa uma aplicação com privilégios administrativos.
O que acontece é o seguinte. Ele joga na tela do prompt o comando net use x: \\%COMPUTERNAME%\COMPARTILHAMENTO. Entretando, o sinal de porcentagem (%) não entra, aparece apenas \\computername\compartilhamento. Ou seja, não consigo mapear
a unidade de rede pois não existe um computador chamado COMPUTERNAME. Eu quero que ele utilize o seu próprio nome. Não posso utilizar IP, pois pra cada servidor é um script diferente!
O script segue abaixo.
option explicit
on error resume next
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "runas /user:DOMÍNIO\USUÁRIO cmd.exe"
WScript.Sleep 100
oShell.Sendkeys "SENHA~"
WScript.Sleep 100
oShell.Sendkeys "net use x: \\%COMPUTERNAME%\COMPARTILHAMENTO /y~"
oShell.Sendkeys "net use u: \\SERVIDOR\COMPARTILHAMENTO /y~"
oShell.Sendkeys "X:\Aplic\aplwin\oe10.1a\bin\prowin32.exe -p U:\prod\prog\ems204esp\killer\killer.w -pf U:\prod\prog\ems204\scripts\ems2bra.pf -ininame X:\Aplic\aplwin\oe10.1a\bin\killer.ini~"
oShell.Sendkeys "exit~"
Wscript.Quit
Será que podem ajudar?
Bruno Santos MCP, MCDST, MCSA, MCTS, MCITP O difícil é aprender a ler, o restante está escrito.
