Mini boite à outils VBS

sensei.dje — Tue, 21 Jun 2011 17:16:22 +0000

C’est pas toujours malin ni très folichon de réinventer le fil à couper la roue tiède, lors de la mise en service de scripts basiques et utilitaires…
Cela dit, il est commode d’avoir sous la main les briques principales, quelques grandes fonctions très récurrentes (manips de fichiers, etc) en vbs
Grosso modo, le genre de manipulations qui font apprécier powershell…

Envoi de mail

set msg = CreateObject("CDO.message")
msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.###.###" '<==
msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
msg.Configuration.Fields.Update

msg.From="expediteur@###.fr" ' <==
msg.To="destinataire@###.fr" '<==
msg.Subject="Sujet"
msg.TextBody="Corps du texte..." 'la propriété "addattachment" peut etre utilisée plusieurs fois...
msg.AddAttachment "c:\xXXX.xls" '<==

msg.MIMEFormatted=False
msg.Send
Wscript.echo "Message Envoyé par " & msg.From & " à " & msg.to

LECTURE d’un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte
Set Ftxt = FSO.OpenTextFile("chemin")
'on parcourt chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
Variable = Ftxt.Readline
'...<== rajouter le code de traitement
Loop
Ftxt.Close

ECRITURE dans un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt = FSO.createTextFile("chemin",true) 'true=ecrase
'On ecrit ce que l'on veut dans le fichier
Ftxt.writeline ("All the work and no play...")
Ftxt.Close

DEPLACER un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Déplacement du fichier
Set Ftxt = fso.GetFile("cheminsource")
Ftxt.move("monchemindestination") 'emplacement destination

COPIER un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Copie du fichier
Set Ftxt = fso.GetFile("cheminsource")
'Fichier origine
Ftxt.copy("chemindestination") 'emplacement destination

SUPPRIMER un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Suppression du fichier
Set Ftxt = fso.GetFile("cheminsource")
'Fichier origine
Ftxt.delete

LISTER les fichiers d’un dossier

Méthode pas forcement la plus efficace, face à un « cmd /k dir *.bat », mais ça dépend de l’objectif…

Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8

Dim objFSO, objDossier, objFichier, objResultat
Dim Repertoire, NomFichierTxt

On Error Resume Next

Repertoire = "\\XXXX\scripts"
NomFichierTxt = "Resultat.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Repertoire)
Set objResultat = objFSO.CreateTextFile(("c:\" & NomFichierTxt),ctePourEcrire)

If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
If (InStr(1, objFichier.Name, ".bat", 1) > 0) Then
objResultat.WriteLine objFichier.Name
End If
Next
End If

objResultat.Close
Set objResultat = Nothing
Set objDossier = Nothing
Set objFSO = Nothing

CONCATENATION de fichiers d’un dossier

On error resume next
Dim fso,f,fd,txt,Dest
Const ForAppending=8, ForReading=1

critere = « BAT » ‘à mettre en majuscules, pour éviter les erreurs
dossier_cible = »\\XXXXscripts »
fic_cible= « C:\resultats.txt »

Set fso = CreateObject(« Scripting.FileSystemObject »)
set fd=fso.GetFolder(dossier_cible)
Set Dest=fso.OpenTextFile(fic_cible,ForAppending,true)

for each f in fd.files
If Ucase(Mid(f.Name,len(f.name)-2,3))=critere Then

Set fic=fso.OpenTextFile(fd & « \ » & f.Name,ForReading)
txt=fic.ReadAll
fic.close
Dest.Write f.name & txt & vbcrlf ‘afficher le nom du fichier & son contenu
‘ Dest.Write txt ‘afficher seulement le contenu du fichier
End if
next
Dest.Close

LECTURE d’un fichier CSV

Ne serait-ce que pour ne plus avoir besoin de bricoler ce genre de script, se mettre à powershell…
Script trouvé quelque part, gloire à son auteur !

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile("liste.csv")

Do While Not Ftxt.AtEndOfStream
MaVariable = Ftxt.Readline

For Each strItem In CSVParse(mavariable)
' wscript.Echo strItem ' affiche le contenu du fichier csv, champs apres champs ...
'... inserer le code ici
Next
Loop
Ftxt.Close

Function CSVParse(ByVal strLine)
Dim arrFields
Dim blnIgnore
Dim intFieldCount
Dim intCursor
Dim intStart
Dim strChar
Dim strValue

Const QUOTE = """"
Const QUOTE2 = """"""

If (Len(Trim(strLine)) = 0) then
CSVParse = Array()
Exit Function
End If
blnIgnore = False
intFieldCount = 0
intStart = 1
arrFields = Array()
strLine = strLine & ","

For intCursor = 1 To Len(strLine)

strChar = Mid(strLine, intCursor, 1)
Select Case strChar
Case QUOTE

blnIgnore = Not blnIgnore
Case ","
If Not blnIgnore Then

ReDim Preserve arrFields(intFieldCount)

If (intCursor - intStart > 0) Then

strValue = Mid(strLine, intStart, _
intCursor - intStart)

If (Left(strValue, 1) = QUOTE) Then
arrFields(intFieldCount) = _
Replace(Mid(strValue, 2, _
Len(strValue) - 2), QUOTE2, QUOTE)
Else
arrFields(intFieldCount) = strValue
End If
Else
arrFields(intFieldCount) = Empty
End If

intFieldCount = intFieldCount + 1
intStart = intCursor + 1
End If
End Select
Next
CSVParse = arrFields
End Function

VBS / WMI / Recherche de PC connectés à une file d’impression particulière

sensei.dje — Fri, 10 Jun 2011 17:02:00 +0000

Cas de figure simple mais fréquent, une enquête de routine au sujet d’impressions fantômes…

Ces impressions fantômes sont probablement le fait d’un pc mal configuré, plus que de la malveillance…

Face à cela, à moins de disposer AVANT d’un écosystème de log, il faut prendre le problème à l’envers, et se demander qui est en mesure d’envoyer des jobs sur l’imprimante qui sort des documents que personne n’imprime …

En pré requis,

Configurer un partage réseau avec ACL large (tout le monde en écriture)
Rajouter l’exécution de ce bout de script dans le logon script des utilisateurs

Ensuite, tout le script repose sur une requête WMI extrêmement basique, et sur l’écriture d’un fichier.
B-a-s-i-q-u-e, mais éprouvé !

'Scan port IP pour recherche d'une cible et écriture des positifs dans un partage réseau '---------------------------------------------------------------------------------------

Set WshNetwork = WScript.CreateObject("WScript.Network")
NomMachine = WshNetwork.ComputerName
NomUtilisateur = WshNetwork.UserName

'Wscript.Echo " "

ipcible="XXX.XXX.XXX.XXX" ' <- inserer votre ip cible ici
partage="\\[votre serveur]\test_scan_port_ip\" '<-inserer votre partage réseau ici
strComputer = Nommachine

Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPorts = objWMIService.ExecQuery _ ("Select * from Win32_TCPIPPrinterPort")

For Each objPort in colPorts
'Wscript.Echo "Description: " & objPort.Description
'Wscript.Echo "Host Address: " & objPort.HostAddress
'Wscript.Echo "Name: " & objPort.Name
'Wscript.Echo "Port Number: " & objPort.PortNumber
'Wscript.Echo "Protocol: " & objPort.Protocol
'Wscript.Echo "SNMP Community: " & objPort.SNMPCommunity
'Wscript.Echo "SNMP Dev Index: " & objPort.SnMPDevIndex
'Wscript.Echo "SNMP Enabled: " & objPort.SNMPEnabled
'wscript.echo "-------------------------------------"
if objPort.HostAddress=ipcible then
'wscript.echo "BINGO NOUS AVONS UN GAGNANT : " & NomMachine & "\" & NomUtilisateur
'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>
'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt = FSO.createTextFile(partage & NomMachine & "_" & NomUtilisateur & ".txt" ,true)
'true=ecrase 'On ecrit ce que l'on veut dans le fichier
Ftxt.writeline ("Description: " & objPort.Description)
Ftxt.writeline ("Host Address: " & objPort.HostAddress)
Ftxt.writeline ("Name: " & objPort.Name)
Ftxt.writeline ("Port Number: " & objPort.PortNumber)
Ftxt.writeline ("Protocol: " & objPort.Protocol)
Ftxt.writeline ("SNMP Community: " & objPort.SNMPCommunity)
Ftxt.writeline ("SNMP Dev Index: " & objPort.SnMPDevIndex)
Ftxt.writeline ("SNMP Enabled: " & objPort.SNMPEnabled)
Ftxt.Close end if
Next
'Wscript.Echo ""

Blog de Sys Admin » vbs