VBS , noto anche come " Visual Basic Script , " ha causato un allarme nel 2000, dopo il " Ti amo " virus infettato 15 milioni di computer e portato giù i server in tutto il mondo . Quando Microsoft ha creato VBS , hanno utilizzato Visual Basic come un modello . VBS non è un virus , ma ha la possibilità di accedere ai file di sistema di un utente e di altre risorse del computer . È possibile utilizzare VBS per leggere il contenuto di un file inserendo poche righe di codice . Istruzioni 
 1 
 destro del mouse sul desktop e selezionare " Nuovo ". Selezionare " File di testo " dalla lista a discesa. Windows verrà creato un nuovo file di testo e visualizzare la relativa icona sul desktop 
 2 
 Aggiungere il seguente codice al documento : . 
 
 Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection < br 
 CONST ForReading > = 1 
 
 'Crea File System Object 
 
 objFSObject = CreateObject ( " Scripting.FileSystemObject " ) per 
 Le prime due righe creano variabili . La terza riga crea un oggetto del file system 
 3 
 Aggiungi questo codice sotto il codice nel passaggio 2 : . 
 
 StrFile = " C : \\ Cartella \\ somefile.txt " 
 
 sostituire "C : \\ Cartella \\ somefile " con il percorso di un file di testo sul disco rigido . Ad esempio, per utilizzare un file denominato " test.txt" situato nella cartella " Temp" sul disco "C" , aggiungere la seguente riga : 
 
 strFile = " C : \\ temp \\ test.txt" 
 4 
 Aggiungi questo codice sotto il codice nel passaggio 3 : . 
 
 strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll 
 
 arrLineCollection = Split ( strFileContents , vbCrLf ) per 
 la prima riga si legge il file e lo memorizza in " strFileContents . " La seconda riga crea una collezione ( array) e memorizza ogni riga del file come un elemento dell'array . Per esempio, se il file di input ha tre linee , l'array avrà tre elementi 
 5 
 Aggiungi questo codice sotto il codice nel passaggio 4 : . 
 
 Ogni strCurrentLine in arrLineCollection < br > 
 wscript.echo " linea di corrente = " & strCurrentLine 
 
 Avanti 
 
 objFSObject.Close 
 
 Questo codice loop blocco attraverso la matrice e visualizza ogni riga . 
 Pagina 6 
 Fare clic su " File " e selezionare "Salva con nome " per aprire la finestra " Salva con nome" finestra . 
 7 
 Tipo " vbReadTest1.vbs " nel campo "Nome del file " casella di testo e fare clic su " Salva ". Notepad creerà un file VBS e salvarlo sul desktop . 
 8 
 Individuare il file sul desktop e fare doppio clic su di esso . Il codice VBS leggerà il file di input e di visualizzarne il contenuto .