Archive

Posts Tagged ‘vbscript’

Generarea listei cu aplicatiile instalate printr-un VBScript ce foloseste WMI

WMI este acronimul de la Windows Management Instrumentation și reprezintă modalitatea de accesare și partajare a informațiilor de management într-o rețea de companie. O posibilitate de generare a unei liste cu aplicațiile instalate pe un computer din rețea este prin scriptul următor:

01

Exemplul de mai sus este realizat pentru computerul de pe care este rulat scriptul. Pentru a obține lista aplicațiilor unui computer din rețea se va modifica linia 9 din script înlocuind “.” cu numele respectivului computer.

Categories: IT, Scripting Tags: , , ,

Aflarea sistemului de operare al unui computer din retea prin VBScript si WMI

WMI este acronimul de la Windows Management Instrumentation și reprezintă modalitatea de accesare și partajare a informațiilor de management într-o rețea de companie. O posibilitate de a afla ce sistem de operare este instalat pe un computer din rețea este prin scriptul următor:

01

Exemplul de mai sus este realizat pentru computerul de pe care este rulat scriptul. Pentru a obține informații despre un computer din rețea se va modifica linia 8 din script înlocuind “.” cu numele respectivului computer. În cazul în care utilizatorul din contextul căruia este lansat scriptul nu are suficiente privilegii, va apare următoarea eroare:

02

Categories: IT, Scripting Tags: , , ,

Mesaj cu timer in VBScript

2011/11/14 4 comments

În articolul de astăzi prezint posibilitatea de afișare în VBScript a unei ferestre de informare ce se închide automat după un anumit număr de secunde:

Timer popup

Categories: IT, Scripting Tags: , ,

Identificarea tipului unei variabile in VBScript

Identificarea tipului unei variabile în VBScript poate fi realizat utilizând funcția varType. În articolul de față prezint o funcție ce permite afișarea ca text a tipului variabilei:

Var type

Categories: IT, Scripting Tags: ,

Detectarea proprietatilor extinse ale fisierelor

Prezint în articolul de astăzi o modalitate de a detecta proprietățile extinse ale fișierelor printr-un VBScript:

File detail

Scriptul exemplu a fost creat pentru a detecta Product Version pentru fișierul C:\Windows\Notepad.exe:

' must explicitly declare all variables
Option Explicit
' declare global variables
Dim aFileFullPath, aDetail
' set global variables
aFileFullPath = "C:\Windows\Notepad.exe"
aDetail = "Product Version"
' display a message with file location and file detail
WScript.Echo ("File location: " & vbTab & aFileFullPath & vbNewLine & _
aDetail & ": " & vbTab & fGetFileDetail(aFileFullPath, aDetail))
' make global variable happy. set them free
Set aFileFullPath = Nothing
Set aDetail = Nothing
' get file detail function. created by Stefan Arhip on 20111026 1000
Function fGetFileDetail(aFileFullPath, aDetail)
' declare local variables
Dim pvShell, pvFileSystemObject, pvFolderName, pvFileName, pvFolder, pvFile, i
' set object to work with files
Set pvFileSystemObject = CreateObject("Scripting.FileSystemObject")
' check if aFileFullPath provided exists
If pvFileSystemObject.FileExists(aFileFullPath) Then
' extract only folder & file from aFileFullPath
pvFolderName = pvFileSystemObject.GetFile(aFileFullPath).ParentFolder
pvFileName = pvFileSystemObject.GetFile(aFileFullPath).Name
' set object to work with file details
Set pvShell = CreateObject("Shell.Application")
Set pvFolder = pvShell.Namespace(pvFolderName)
Set pvFile = pvFolder.ParseName(pvFileName)
' in case detail is not detected...
fGetFileDetail = "Detail not detected"
' parse 400 details for given file
For i = 0 To 399
' if desired detail name is found, set function result to detail value
If uCase(pvFolder.GetDetailsOf(pvFolder.Items, i)) = uCase(aDetail) Then
fGetFileDetail = pvFolder.GetDetailsOf(pvFile, i)
End If
Next
' if aFileFullPath provided do not exists
Else
fGetFileDetail = "File not found"
End If
' make local variable happy. set them free
Set pvShell = Nothing
Set pvFileSystemObject = Nothing
Set pvFolderName = Nothing
Set pvFileName = Nothing
Set pvFolder = Nothing
Set pvFile = Nothing
Set i = Nothing
End Function

Detectarea versiunii fisierului printr-un VBScript

Prezint în articolul de față modalitatea de detectare a versiunii unui fișier cu ajutorul unui VBScript:

OS Architecture

În captura de ecran se poate vedea atât codul sursă cât și fereastra ce apare la lansarea scriptului.

Categories: IT, Scripting Tags: , , , ,

Lansarea VBScript-urilor direct din Notepad++

2011/09/01 4 comments

Am arătat deja într-un articol precedent cum se instalează aplicația Notepad++. Folosesc acest editor de texte în special pentru scrierea de script-uri. Pentru a putea lansa scriptul ce se editează (direct din Notepad++), se va configura din meniul Run… – Run:

02

Se va scrie calea către interpretorul de script-uri VBS urmat de “$(FULL_CURRENT_PATH)” ceea ce înseamnă calea întreagă către fișierul deschis. Spre exemplificare, pentru Windows 7 – 64bit se va scrie comanda întreagă: C:\Windows\SysWOW64\wscript.exe “$(FULL_CURRENT_PATH)”:
03

Se selectează Save…, se alege un nume – de exemplu: Launch VBScript, schortcut-ul pentru comandă – de exemplu: F9:
04

Comanda este disponibilă în meniul Run cu numele și shortcut-ul ales (Launch VBSript, F9):
05

 

Scriptul lansat din Notepad++:
06

Categories: IT, Trucuri Tags: , , , ,