Sript VBS

Remover impressoras instaladas via rede

05/03/2013 13:16
'REMOVENDO IMPRESSORAS MAPEADAS 'Substitua SRV001 pelo nome do servidor de impressão da impressora a ser removida 'Substitua PRN00X pelo nome da impressora 'Para mais de uma impressora, descomente as linhas abaixo e repita o procedimento. REMOVER1 = "\\SRV001\PRN001" 'REMOVER2 =...

Adicionar proxy no IE com pergunta Yes ou No

30/08/2012 10:18
dim oShell set oShell = Wscript.CreateObject("Wscript.Shell")   if msgbox("Habilitar Proxy?", vbQuestion or vbYesNo) = vbYes then oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD" oShell.RegWrite...

Executar comando do PROMPT dentro do VBS

19/04/2012 15:45
set objshell=WScript.CreateObject("Wscript.shell") ObjShell.run"comando do prompt" Set objshell=Nothing Wscript.Quit

Modelo de Script para conectar unidade de rede

19/04/2012 15:42
'LIMPA UNIDADES DE REDE Set WSHNetwork = WScript.CreateObject("WScript.Network") on error resume next WSHNetwork.RemoveNetworkDrive "G:", True, True 'CONECTA UNIDADES DE REDE Set objNet = CreateObject("Wscript.Network") objNet.MapNetworkDrive "G:","\\servidor\compartilhamento"

Modelo script VBS Conecta Impressora

19/04/2012 15:36
'Mapeamento novas Impressoras 'Substitua SRV001 pelo nome do servidor qual a impressora a ser mapeada está instalada 'Substitua PRN00X pelo nome da impressora desejada 'Para mais de uma impressora, descomente as linhas abaixo e repita o procedimento. ADICIONAR1 = "\\SRV002\PRN001" 'ADICIONAR2 =...

Criando rota de rede via script .VBS

19/04/2012 15:17
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strSubnetMask = Array("MASCARA DE REDE") strGateway = Array("IP DO GATEWAY") strGatewayMetric = Array(1) strDNS =...