DOS _copiar arquivo

Copiar arquivo com o MS_DOS (prompt de comando)

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

copy "local e nome do arquivo desejado origem" "local destino"

A execução:_________________________________

1 - Abra o ms-dos (prompt de comando)

2 - Copie e cole (com o botão direito do mouse) o código abaixo:

copy "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg" c:\cod_dos\

3 - Pressione a tecla [enter]

OBS.: Caso não copie o arquivo deve ser por que você não tem permissão para realizar alterações na pasta desejada
As aspas foram utilizadas pois o nome da pasta tem espaço

DOS _apagar pasta

Apagar pasta com o MS_DOS (prompt de comando)

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

rd /s /q local e nome da pasta desejada

A execução:_________________________________

1 - Abra o ms-dos (prompt de comando)

2 - Copie e cole (com o botão direito do mouse) o código abaixo:

rd /s /q c:\cod_dos

3 - Pressione a tecla [enter]

OBS.: Cuidado esse comando apaga tudo a pasta e seu conteudo sem perguntar nada!!
Caso não apague a pasta deve ser por que você não tem permissão para realizar alterações na pasta desejada

DOS _criar pasta

Criar pasta com o MS_DOS (prompt de comando)

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

md local e nome da pasta desejada

A execução:_________________________________

1 - Abra o ms-dos (prompt de comando)

2 - Copie e cole (com o botão direito do mouse) o código abaixo:

md c:\cod_dos

3 - Pressione a tecla [enter]

OBS.: Caso não crie a pasta deve ser por que você não tem permissão para realizar alterações na pasta desejada

VBScript _lista de programas

Lista de programas instalados com VBScript

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set objShell = CreateObject("Wscript.Shell")
Set objNet = CreateObject("WScript.Network")
Set objArgs = WScript.Arguments

Dim arrComputers()

If objArgs.Unnamed.Length > 0 Then
    Dim i
    i = 0
    While i < objArgs.Unnamed.Length
        ReDim Preserve arrComputers(i)
        arrComputers(i) = objArgs.Unnamed.Item(i)
        i = i + 1
    Wend
Else
    ReDim arrComputers(0)
    arrComputers(0) = objNet.ComputerName
End If

Dim strLogPath

If objArgs.Named.Length > 0 Then
    strLogPath = objArgs.Named.Item("path")
Else
    strLogPath = ""
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each strComputer In arrComputers

    On Error Resume Next

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("Select * FROM Win32_Product",,48)
    
    If Err.Number <> 0 Then
   
            strComputer
        
    Else
       
        On Error Goto 0
       
        Dim currentDate
        currentDate = Date
        Dim currentTime
        currentTime = Time
        Set objLogFile = objFSO.OpenTextFile(_
            strLogPath & _
            strComputer & _
            "_" & _
            Year(currentDate) & _
            "-" & _
            Month(currentDate) & _
            "-" & _
            Day(currentDate) & _
            "-" & _
            Hour(currentTime) & _
            "-" & _
            Minute(currentTime) & _
            "-" & _
            Second(currentTime) & _
            "_" & _
            "log.csv", ForWriting, True)
   
        objLogFile.WriteLine _
            "computer" & _
            vbTab & _
            "application" & _
            vbTab & _
            "vendor" & _
            vbTab & _
            "version"
        
        For Each objItem In colItems
            objLogFile.WriteLine _
                strComputer & vbTab & _
                objItem.Name & vbTab & _
                objItem.Vendor & vbTab & _
                objItem.Version
        Next
        
        objLogFile.Close
    End If
Next

WScript.Quit(0)

3 - Salve o arquivo com o nome lista_prog.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome lista_prog

OBS.: A lista será salva no mesmo lugar que o script com o nome da maquina no formato csv, use o Excel para visualizar ou o bloco de notas mesmo.

Fonte: https://gist.github.com/glesica/1340333

VBScript _abrir arquivo

Abrir arquivo com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "Local do arquivo desejado"

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "C:\Cod_vbscript\primeiro.txt"

3 - Salve o arquivo com o nome abrir_doc.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome abrir_doc

VBScript _criar arquivo txt

Criar arquivo txt com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("Local e nome para o arquivo seguido de .txt")
objFile.WriteLine("Texto que deve contem no arquivo")

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("C:\Cod_vbscript\primeiro.txt")
objFile.WriteLine("Primeiro arquivo txt criado via vbscript")

3 - Salve o arquivo com o nome arquivo_texto.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome arquivo_texto

VBScript _abrir programa

Abrir programa com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("Local do programa desejado")

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("Calc.exe")

3 - Salve o arquivo com o nome abrir_programa.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome abrir_programa

VBScript _copiar arquivo

Copiar arquivo com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Set x = CreateObject("Scripting.FileSystemObject")
x.CopyFile "Local aquivo de origem" , "Local arquivo de destino"

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set x = CreateObject("Scripting.FileSystemObject")
x.CopyFile "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg" , "C:\Cod_vbscript\"

3 - Salve o arquivo com o nome copiar_arquivo.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome copiar_arquivo

Esse comando permite copiar arquivos da rede também 

OBS.: Se não copiar o arquivo, talvez seja por que você não tenha permissão de alteração para o local desejado

VBScript _apagar pasta

Apagar uma pasta com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder("Pasta que deseja remover")

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder("C:\Cod_vbscript")

3 - Salve o arquivo com o nome deletar_pasta.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome deletar_pasta

OBS.: Esse comando apaga tudo existente dentro da pasta,  sem perguntar nada!!! Cuidado!!
Se a pasta estiver aberta em algum lugar não será apagada.
Se não apagar a pasta, talvez seja por que você não tenha permissão de alteração para o local desejado

VBScript _criar pasta

Criar uma pasta com VBScript

O texto em verde é onde você deve alterar com as informações desejadas

O código:_________________________________

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WshShell=CreateObject("Wscript.Shell")

arrPasta = "Local onde deseja criar a pasta"

arrPasta = Split(arrPasta,"\")

strPasta = ""

For x = 0 to UBOUND(arrPasta)

   strPasta = strPasta & arrPasta(x) & "\"

   if not objFSO.folderexists(strPasta) Then

      objFSO.CreateFolder strPasta

   End if

Next 

A execução:_________________________________

1 - Abra o bloco de notas

2 - Copie e cole o código abaixo:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("Wscript.Shell")

arrPasta = "C:\Cod_vbscript"

arrPasta = Split(arrPasta,"\")

strPasta = ""

For x = 0 to UBOUND(arrPasta)

   strPasta = strPasta & arrPasta(x) & "\"

   if not objFSO.folderexists(strPasta) Then

      objFSO.CreateFolder strPasta

   End if

Next 

3 - Salve o arquivo com o nome criar_pasta.vbs na area de trabalho OBS.: Não esqueça de colocar o .vbs

4 - Clique sobre o ícone com o nome criar_pasta

OBS.: Se não criar a pasta, talvez seja por que você não tenha permissão de alteração para o local desejado