VBScript - Mapeando Impressora

Mapeando Impressora com VBScript

'Mapeando Impressora 



Set WshNetwork = WScript.CreateObject ("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\computador\compartilhamento", "Nome_Impressora"
'Definindo como impressora padrão
WshNetwork.SetDefaultPrinter "\\computador\compartilhamento", "Nome_Impressora"

VBScript - Caixa de Mensagem retornando Nome de Usuário Logado

Caixa de Mensagem com Nome de Usuário Logado

O Script abaixo exibe uma caixa de mensagem retornando:


Exemplo:


Bom Dia,
Sr(a), NOME COMPLETO USUÁRIO LOGADO
Matricula: 201201




'Retornar Nome do Usuário Completo logado
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objGroup = GetObject("LDAP://" & strUserDN)
PosInicio = InStr(strUserDN,"")
PosFim = InStr(strUserDN, ",")
Dim FULLNAME
FULLNAME = mid(StrUserDN,PosInicio+3,PosFim-4)


'Retornar nome de logon por exemplo nº de matricula
set ObjUser = WScript.createobject ("wscript.network")
MATRICULA = objUser.UserName




MsgBox ("Bom Dia,"& vbCrLf &"Sr(a) "&FULLNAME& vbCrLf &"Matricula: "&MATRICULA)

VBScript - Mapeando automaticamente pasta/diretório para um grupo de usuários

Mapeando automaticamente pasta/diretório para um grupo de usuários

O Script abaixo mapeia uma pasta compartilhada para um grupo de usuários do AD, utilizado quando desejamos mapear uma pasta compartilhada para um determinado departamento.


Observações: Para automatizar o processo, devemos ter um GRUPO (Group) dentro do AD com o mesmo nome de uma pasta dentro do servidor.


Por exemplo: 
Grupo TI no AD 
Pasta compartilhada: TI$ no Servidor.


VBScript:


Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
Dim PosInicio
Dim PosFim
Dim MyGrupo 
On Error Resume Next
arrGroups = objUser.GetEx("memberOf")
   If (Err.Number <> 0) Then
      On Error GoTo 0
      Wscript.Echo "USUÁRIO SEM GRUPO"
   Else
      On Error GoTo 0
         For Each strGroup In arrGroups
            Set objGroup = GetObject("LDAP://" & strGroup)
        PosInicio=InStr(strGroup,"")
     Posfim = InStr(strGroup,",") 
            MyGrupo = mid(strGroup,PosInicio+3,PosFim-4)      


                     Set objNetwork = WScript.CreateObject("WScript.Network")
                     Set WshNetwork = CreateObject("WScript.Network")
                     On Error Resume Next
    objNetwork.RemoveNetworkDrive "T:"
    objNetwork.MapNetworkDrive "T:", "\\ad\"&MyGrupo&"$"
msgbox ("Pasta "&MyGrupo&" mapeada com sucesso!")
Next
End If

VBScript - Chamando um outro Script

'Chamando um outro Script
Set ChamaScript = CreateObject ("WScript.Shell")
ChamaScript.Run "C:\VBS\msgbox.vbs"

VBScript - Alterar Hora

'Cria um Objeto da categoria Shell e atribui em AlteraHora.
Set AlteraHora = CreateObject("WScript.Shell")


'Atribui o comando que está entre aspas em StringHora.
StringHora = "net time \\192.168.0.1 /set /yes"


'Executa o objeto AlteraHora com parametro (StringHora).
Set objexec = AlteraHora.exec (StringHora)

VBScripts - Caixa de Mensagens

Caixa de Mensagens com VBScripts

Um ótimo recurso do VBScript é a utilização de caixas de mensagens, abaixo irei apresentar algumas formas para utilização deste recurso.


Exemplo 01:


'Caixa de Mensagem Simples
MsgBox ("Bom Dia Sr(a) Alan Nunes Cerqueira")


Exemplo 02:


'Caixa de Mensagem retornando uma String + Variável
Nome = "Alan Nunes Cerqueira"
MsgBox ("Bom Dia Sr(a) " + Nome)


Exemplo 03:


'Caixa de Mensagem com opção Sim / Não
strOpcao = msgbox ("SIM OU NAO?",vbYesNo)
'Se usuário selecionar opção SIM
if strOpcao = vbYes then
msgbox ("Mensagem igual a SIM")
'Se usuário selecionar opção NÃO
else
msgbox ("Mensagem igual a NAO")
end if

Power Shell Script para listar arquivos/diretórios e salvar em um arquivo.txt

Power Shell Script para listar arquivos/diretórios e salvar em um arquivo.txt

rem Pega a data e hora atual do computador e adiciona na variável $data.
$data = Get-Date -Format "ddMMyyyyhhmm"


rem Adiciona o texto "U_" + $data + ".txt" na variável $nome; 
rem ex: "U_240520120232"
$Nome = "U_" + $data + ".txt"


rem Lista na tela arquivos/diretórios que estão dentro do caminho "C:\teste\"
Get-ChildItem -Force C:\teste\ -Recurse


rem Salva as informações retornadas em um arquivo com o nome "$Nome"
Get-ChildItem -Force C:\teste\ -Recurse >> ("C:\teste\"+$Nome)  

Comandos utilizados no Script acima:

Get-ChildItem: Comando para listar os arquivos/diretórios, funciona igual o comando "dir" antigo MSDOS e "ls" utilizado nas Plataformas Unix e GNU/Linux.


-Recurse: Para listarmos também o conteúdo dentro das pastas e subpastas.


>> ("Caminho") Copia as informações retornadas em um arquivo para o caminho especificado. 
Ex. ipconfig >> ("C:\IpConfig.txt") - Retorna em um arquivo txt informações de configuração de rede do computador.


$data: Cria uma variável.