Script VBS

Script VBS
  1. MODELO IMPRESSORA

'CONECTA IMPRESSORAS
Set impressora = CreateObject("WScript.Network")
impressora.AddWindowsPrinterConnection "\\compartilhamento\nome_do_compartilhamento"

'DEFININDO COMO PADRÃO
WshNetwork.SetDefaultPrinter "\\compartilhamento\nome_do_compartilhamento"

 ________________________________________________________________________________________________________________________

  1.  CONECTA UNIDADE DE REDE

'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"

________________________________________________________________________________________________________________________

 

'COMANDO PROMPT
set objshell=WScript.CreateObject("Wscript.shell")
ObjShell.run"comando do prompt"
Set objshell=Nothing
Wscript.Quit

Palavras-chave: