http://digilander.libero.it/Cenati

Manuale VbScript

home | e-mail e contatti | Introduzione al sito | Cosa e' e come imparare VbScript

 

 

 

 

Libreria di funzioni VbScript

Da questa pagina è disponibile un file con numerose funzioni e subroutine, alcune scritte da me e la maggior parte scritte da altri. Un grande aiuto per scrivere velocemente programmi in VbScript.

Download della libreria di funzioni

Descrizione delle sub e delle funzioni presenti nella libreria.

'***************************************************************************
' Libreria di funzioni per VbScript scritte da me o raccolte in rete.
' Cenati Giovanni - aggiornato al 18.03.2010
' Descrizione e altro materiale in http://digilander.libero.it/Cenati
' Le funzioni sono precedute dall'indicazione tipo di dato che viene restituito.
' Credits:  Bruce M. Axtens, Mayayana, microsoft.public.scripting.vbscript,
' Jeffery Hicks
'***************************************************************************

'========================================================================
' Funzioni varie
'========================================================================
' ForceScriptToRunUnderCScript(bCloseWindow)
'   Se lo script è stato lanciato da wScript, lo chiude e lo riapre con cScript.
' string ThisScriptPath()  ' Restituisce il percorso del file dello script con "\" finale.
' string GetCurDir() 'Restituisce il percorso del file dello script con "\" finale.
' Beep NumeroDiBeep, CentesimiDiSecondoDiAttesaTraIBeep
'   Attiva il cicalino del pc
' Dim oWMPlayer:playtune "C:\windows\Media\Notify.wav", false
'   Usa MediaPlayer per suonare un brano. Non parte immediatamente.
' int GetRand(iLower,iUpper) 'Genera un numero casuale compreso tra i due valori.
' string GetLogTime() 'Restituisce la data corrente nel formato aaaammgghhnnss (20040826140008)
' string ChkEngine() 'wscript.exe oppure cscript.exe?
' string GetOS()   'Nome del sistema operativo, ad esempio "Microsoft Windows XP Professional"

'========================================================================
' Funzioni e sub di input/output
'========================================================================
' Dim MyIE:ShowIEWindow 50,50,600,600,"<h1>primo","Titolo", False
'   Mostra una finestra di internet explorer nella posizione specificata
'   e con il contenuto HTML indicato. La finestra è una sola e può cambiare
'   contenuto. Se l'ultimo parametro è True si chiude la finestra
' string GetIEPassword()  'Usa IE per chiedere una password (non visualizzata)
' SetTextToClipboardUsingIE "Text to be put into the clipboard"
'   Mette negli appunti di Windows il testo specificato. Usa Internet explorer.
' string GetTextFromClipboardUsingIE()
'   Recupera dagli appunti di Windows

'========================================================================
' Funzioni per la rete locale e internet
'========================================================================
' bool ObjectExists(strADSPath) 'Esiste l'oggetto in Active Directory?
' bool UserExists(strDomain,strSAM) 'Esiste l'utente?
' string CurrentUserID() ' Restituisce l'utenza di rete dell'utente
' string GetDN(samAccount) ' Restituisce il nome completo dell'userid specificato.
' string UserFullName(UserID) ' Recupera il nome completo dell'utente.
' bool TestPing(strName)   'Esegue un Ping su internet usando WMI. XP or Windows 2003.

'========================================================================
' Costanti per l'apertura dei file usate da alcune funzioni
'========================================================================
Const ForReading  = 1 'Open a file for reading only. You can't write to this file
Const ForWriting  = 2 'Open a file for writing
Const ForAppending= 8 'Open a file and write to the end of the file

'========================================================================
' Funzioni per operare con file di testo
'========================================================================
' string File_FindInto( sFileName, str) ' Trova str nel file e ritorna l'intera riga.
' Bool File_WriteLine( sFileName, sData ) 'Scrive sData nel file
' Bool File_AppendLine( sFileName, sData ) ' Aggiunge una riga al file esistente
' string File_ReadEntireFile( sFileName ) 'Recupera il contenuto di un intero file
' Bool File_IsExist( sFileName ) ' Verifica se il file esiste
' Bool File_Create( sFileName ) 'Crea un file vuoto
' Bool File_Delete( sFileName ) 'Cancella un file esistente
' WriteLog "Scrive questa riga in un file di log con lo stesso nome dello script"
' BuildTree( sPath ) 'Crea il percorso delle directory.
'========================================================================

'========================================================================
' Funzioni per la gestione del registry
'========================================================================
' string Reg_Read ( sRegKey )
' Bool   Reg_Write( sRegKey, sValue, sType )

'========================================================================
' Funzioni per la gestione del pathname
'========================================================================
' Bool   Path_IsExist( szPath )    ' Controlla se esiste un Path
' Bool   Path_Delete ( szPath )    ' Rimuove un path se esistente
' Bool   Path_Add    ( szPath )    ' Aggiunge un path se non esiste
' string Path_Read   ( )    ' Ritorna il path attuale
' Bool   Path_Write  ( szPath )    ' Scrive un path sovrascrivendo il precedente
' Bool   Path_Compare( szPathSorg, szPathDest )    ' Compara due pathname

'========================================================================
' Funzioni di controllo caratteri e stringhe di testo
'========================================================================
' Bool   Char_IsAlpha   (ByVal chAlpha ) ' True se il carattere è alfabetico
' Bool   Char_IsDigit   (ByVal chDigit) ' True se il carattere è una cifra
' Bool   Char_IsAlphaNum(ByVal chAlphaNum) ' True se il carattere è alfanumerico
' string LeftOf(sText,sItem) 'Restituisce il testo a sinistra di sItem
' string RightOf(sText,sItem) 'Restituisce il testo a destra di sItem
' int CountFields( strText, strDelim  )
'   Conta i campi separati da strDelim nel testo specificato
' Variant NthField( sText, sDelimiter, nReqdField )
'   Nella stringa sText, in cui ci sono dei dati separati dal
'   carattere sDelimiter, estrae il campo numero nReqdField    
' Bool BeginsWith( sText, sBeginning, bCaseInsensitive )
'   True se il testo inizia con sBeginning
' Bool EndsWith( sText, sEnding, bCaseInsensitive )
'   True se il testo finisce con sEnding
' Bool Contains( sText, sChunk, bCaseInsensitive )
'   True se il testo contiene sChunk
' String Between( sText, sBegin, sEnd ) 'Stringa compresa tra le due posizioni
' String LastLineOf( sData ) ' Ultima riga di sData (con ritorni a capo vbCrLf)
' String FirstLineOf( sData ) ' Prima riga di sData
' String NthLineOf( n, sData ) 'n-esima riga di sData

'========================================================================
' Funzioni di conversione
'========================================================================
' int    Hex2Int( ByVal chDigit )
' UndoZulu(strDate,offset)  'Convert UTC time to standard time
' ConvertToUTC(strDate,iOffset)  'Convert standard time stamp to UTC format
' ConvWMITime(wmiTime)   'Convert WMI Time stamp
'========================================================================

Giovanni Cenati, 17 marzo 2010.

 

 

 

© Cenati Giovanni 2004/2010 - http://digilander.libero.it/Cenati - Reventlov at Katamail com

home | e-mail e contatti | Introduzione al sito | Cosa e' e come imparare VbScript