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