5 utili script Windows VB per automatizzare l'utilizzo del computer

Che tu sia un analista IT o un normale utente di computer, ci sono molte attività che potresti aver bisogno di fare frequentemente sul tuo PC. Gli script VB vengono ridimensionati in base ai programmi Visual Basic che fungono da script di Windows in grado di eseguire qualsiasi operazione, dalla raccolta di informazioni importanti sull'hardware del computer, all'arresto e all'avvio dei servizi o al ripristino della scheda di rete..

È possibile imparare come fare tutte quelle cose individuali nel modo normale, o farle usando file batch. Tuttavia, gli script VB sono meglio degli script batch Better Than Batch: un tutorial di Windows Scripting Host Better Than Batch: un tutorial di Windows Scripting Host Leggi di più perché sono più flessibili. Se si archiviano i seguenti script in un luogo comune che è rapido da raggiungere quando ne avete bisogno, è possibile svolgere queste attività in una frazione del tempo. Basta fare doppio clic sullo script, rispondere a un prompt e l'attività è completata.

Dai uno sguardo ai seguenti script VB di Windows e se vedi qualcosa che desideri utilizzare, copia e incolla lo script nel Blocco note o in un altro strumento per le note di codifica 7 Strumenti migliori per prendere appunti per i programmatori 7 I migliori strumenti per prendere appunti per i programmatori Le buone capacità di prendere appunti sono fondamentali per rimanere organizzati come programmatori. Ecco le migliori app per prendere appunti progettate pensando a programmatori e sviluppatori. Leggi altro e salvalo come file WSF.

Prepara i tuoi script di Windows

Ognuno degli script descritti di seguito verrà eseguito con un doppio clic, purché tu abbia nominato il file con estensione .WSF e il codice sia stato incluso all'inizio anche con:

Ciò garantisce che Windows riconoscerà la lingua in cui è scritto il tuo script e la elaborerà correttamente.

1. Usa Windows Scripts per informazioni sul computer

Windows offre qualcosa chiamato WMI o Strumentazione gestione Windows, che fornisce allo script un'interfaccia per accedere ai componenti del sistema operativo. È possibile eseguire query direttamente su WMI per ottenere informazioni dal vivo aggiornate sul sistema. Microsoft offre un elenco completo di tutte le categorie di query che è possibile effettuare rispetto al sistema.

Abbiamo spiegato come utilizzare VBA per trasferire le informazioni del computer in Excel Come visualizzare tutte le informazioni del tuo PC utilizzando uno script VBA Excel semplice Come visualizzare tutte le informazioni del tuo PC utilizzando un semplice script Excel VBA Excel e 10 minuti di lavoro ti daranno di più informazioni dettagliate sul tuo computer di quanto tu abbia mai pensato possibile. Sembra troppo bello per essere vero? Quello è Windows, se sai come usarlo. Leggi altro, ma puoi fare la stessa cosa usando un semplice script VB al di fuori di Excel.

In questo esempio cercheremo il sistema per informazioni sul processore (famiglia, produttore e numero di core), informazioni sulla batteria Come risparmiare la durata della batteria in Windows 10 Con Power Throttling Come risparmiare la durata della batteria in Windows 10 Con Power Throttling Microsoft introdotto il throttling di potenza che offre agli utenti Windows un maggiore controllo sul modo in cui le singole app gestiscono il consumo della batteria durante l'esecuzione in background. Ulteriori informazioni (descrizione e stato) e informazioni sul disco logico Come risparmiare spazio su disco in Windows 10 Come risparmiare spazio su disco in Windows 10 In termini di requisiti di spazio su disco, Windows 10 è decisamente goloso. Sprecare 20 GB su un SSD piccolo può essere frustrante. Fortunatamente, puoi ridurre l'ingombro di Windows 10 e recuperare parte di quello spazio. Ulteriori informazioni (nome, spazio rimanente e dimensioni generali). Quindi pubblicheremo tutte queste informazioni in un file CSV per una facile visualizzazione.

Il primo passo è impostare il FileSystemObject che userai per l'output nel file CSV e creare il file:

Imposta oFSO = CreateObject ("Scripting.FileSystemObject") sFile1 = "MyComputerInfo.csv" Imposta oFile1 = oFSO.CreateTextFile (sFile1, 1)

Il prossimo passo è impostare la query WMI ed eseguirla:

strQuery = "SELEZIONA famiglia, produttore, NumberOfCores FROM Win32_Processor" Set colResults = GetObject ("winmgmts: //./root/cimv2"). ExecQuery (strQuery)

Infine, ordina i risultati e invia le informazioni al file CSV. Se vuoi essere fantasioso, prefazione questo con un paio di righe per aiutare a rendere il file di output un aspetto migliore:

oFile1.WriteLine "Informazioni sul processore" oFile1.WriteLine "------" Per ogni oggettoRegest In colResults strResults = "Famiglia:," + CStr (objResult.Family) oFile1.WriteLine strResults strResults = "Produttore:," + CStr (objResult.Manufacturer) oFile1.WriteLine strResults strResults = "Numero di core:," + CStr (objResult.NumberOfCores) oFile1.WriteLine strResults Avanti

Se esegui il tuo codice ora, questo è il tuo output:

Per le prossime due sezioni del tuo codice, hai intenzione di ripetere e modificare la query per cercare le informazioni aggiuntive. Ecco la query di informazioni sulla batteria:

oFile1.WriteLine "" strQuery = "SELEZIONA Descrizione, Stato DA Win32_Battery" Imposta colResults = GetObject ("winmgmts: //./root/cimv2"). ExecQuery (strQuery) oFile1.WriteLine "Informazioni sulla batteria" oFile1.WriteLine "- ---- "For Each objResult In colResults strResults =" Stato:, "+ CStr (objResult.Description) oFile1.WriteLine strResults strResults =" Descrizione: ", + CStr (objResult.Status) oFile1.WriteLine strResults Avanti

Ed ecco la prossima sezione per la query sul disco logico:

oFile1.WriteLine "" strQuery = "Seleziona nome, spazio libero, dimensione da Win32_LogicalDisk" Imposta colResults = GetObject ("winmgmts: //./root/cimv2"). ExecQuery (strQuery) oFile1.WriteLine "Informazioni sul disco" oFile1.WriteLine " ------ "'Identifica lo spazio su disco logico per ogni oggetto. In colResults strResults =" Nome:, "+ CStr (objResult.Name) oFile1.WriteLine strResults strResults =" Spazio libero:, "+ CStr (objResult.FreeSpace ) oFile1.WriteLine strResults strResults = "Dimensione disco:," + CStr (objResult.Size) oFile1.WriteLine strResults Avanti

Infine, ricorda di chiudere il codice chiudendo il file e impostando gli oggetti “Niente”:

oFile1.Close Set oFile1 = Nothing set colResults = Nothing strResults = ""

Metti tutto quel codice nel tuo nuovo file .WSF, eseguilo, ed ecco come apparirà il tuo output:

Basta scambiare le query sopra per qualsiasi altro dispositivo o software sul quale si desidera ottenere informazioni, e si può ottenere un report completo sul sistema Come creare un sistema di report per la salute del PC automatizzato Come creare un sistema automatico di report sulla salute del PC Sei fuori pranzare mentre il tuo cellulare ti avvisa di un testo importante. L'SMS dice: "Home Computer Alert: 3 tentativi di hacking". Questa non è finzione! Lascia che ti mostriamo come fare questo! Leggi di più ogni volta che vuoi con un semplice clic del mouse.

2. Arresta e avvia i servizi

Ci saranno momenti in cui alcuni servizi hanno problemi e richiedono solo un rapido riavvio per funzionare di nuovo correttamente. Ciò è particolarmente vero nell'IT Prima di studiare l'IT, sapere cosa si sta facendo prima di studiare l'IT, sapere cosa si sta introducendo in Information Technology (IT) è diventata una scelta di carriera così diffusa. Ma poche persone effettivamente sanno cos'è l'IT e cosa comporta la sua disciplina. Leggi di più quando sei costretto a eseguire un software server che a volte è un po 'buggato.

Se si desidera radere un minuto circa dal processo di riavvio del servizio, è sufficiente memorizzare lo script seguente in un posto conveniente. Ti verrà chiesto di digitare il nome del servizio che desideri riavviare, e poi farà esattamente quello.

Poiché l'arresto e l'avvio dei servizi richiedono privilegi amministrativi, è necessario inserire il seguente codice all'inizio del proprio script per fornire i privilegi di script elevati:

Se non WScript.Arguments.Named.Exists ("elevate") Quindi CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/ Elevare", "", " runas ", 1 WScript.Quit End If

Fatto ciò, aggiungi il resto del codice per eseguire la casella di input per l'input dell'utente, lancia la finestra di comando e inviala “fermata netta” e “comandi di avvio netto”:

Imposta cmdShell = CreateObject ("WScript.Shell") strServiceName = Inputbox ("Inter service to Stop", "Input richiesto") cmdShell.Run "cmd.exe" WScript.Sleep 1000 cmdShell.SendKeys "net stop" + strServiceName cmdShell. SendKeys "Invio" WScript.Sleep 1000 cmdShell.SendKeys "net start" + strServiceName cmdShell.SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "Exit" cmdShell.SendKeys "Invio"

Questo è tutto ciò che c'è da fare. Non c'è bisogno di dare la caccia allo strumento dei servizi. Basta eseguire questo script e fermarsi e avviare qualsiasi servizio in pochi secondi.

3. Modificare le impostazioni del Registro di sistema, Password amministratore predefinita

Con la seguente sceneggiatura, uccidiamo due piccioni con una fava. Questo script ti mostrerà come modificare il Registro di sistema 5 Registro di Windows 10 Tweaks per migliorare e sbloccare caratteristiche 5 Registro di Windows 10 modifiche per migliorare e sbloccare funzionalità L'editor del Registro di sistema è l'unico modo per abilitare alcune delle funzionalità nascoste di Windows 10. Qui ti mostreremo semplici modifiche come abilitare il tema scuro o nascondere le cartelle. Leggi di più con uno script VB. Ti fornirà anche uno script che ti permetterà di impostare il nome utente e la password predefiniti di Windows modificando le impostazioni del registro.

Ecco come funziona. Innanzitutto, poiché la modifica del registro richiede i diritti di amministratore, è necessario impostare privilegi elevati per lo script:

Se non WScript.Arguments.Named.Exists ("elevate") Quindi CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" & WScript.ScriptFullName & "" "/ Elevare", "", " runas ", 1 WScript.Quit End If

Per prima cosa lancia due caselle di input per chiedere all'utente quale nome utente e password usare:

strUserName = Inputbox ("Immettere il nome utente predefinito", "Input richiesto") strPassword = Inputbox ("Immettere la password predefinita", "Input richiesto")

Quindi, imposta l'oggetto shell e scrivi quei valori sulle chiavi di registro appropriate:

Impostare wshShell = CreateObject ("WScript.Shell") wshShell.RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultUserName", strUserName, "REG_SZ" wshShell.RegWrite "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Winlogon \ DefaultPassword ", strPassword," REG_SZ "Imposta wshShell = Nothing

E questo è tutto ciò che c'è da fare. Il “RegWrite” metodo consente di scrivere qualsiasi valore su qualsiasi chiave di registro utilizzando uno script VB di Windows. Tutto quello che devi sapere è il percorso appropriato.

Esegui lo script e rispondi alle richieste.

I valori inseriti verranno inseriti direttamente nelle impostazioni del registro che hai impostato nello script.

Gioca con la sceneggiatura e modificala a tuo piacimento. Puoi modificare le chiavi di registro che ti piacciono, quindi sii creativo!

4. Ripristina la connessione di rete

Ripristino della connessione di rete utilizzando lo script VB Come scrivere uno script di Windows Per modificare le impostazioni di rete al volo Come scrivere uno script di Windows Per modificare le impostazioni di rete al volo In molti uffici o ambienti di lavoro, potrebbe essere necessario ridefinire le impostazioni di rete per connettersi a diverse reti. Mi sono trovato abbastanza spesso in questa situazione, e sono diventato così stanco di sfogliare ... Read More è qualcosa che abbiamo già visto qui su MakeUseOf. La seguente versione di questo è in realtà ridotta e molto più semplice da implementare. Invece di richiedere le singole schede di rete, reimposta tutte le connessioni attive che, si spera, risolveranno eventuali problemi di rete che potresti avere.

Come con altri script che necessitano di diritti di amministrazione, è necessario aggiungere la sezione all'inizio per privilegi elevati. Copia quel codice dallo script sopra.

Quindi, creare l'oggetto WMI e interrogarlo per un elenco di adattatori di rete abilitati sul proprio sistema:

strComputer = "." Imposta objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") Imposta colItems = objWMIService.ExecQuery (_ "SELECT * FROM Win32_NetworkAdapter Where NetEnabled = 'True'")

Infine, esegui il ciclo di tutti gli adattatori abilitati e ripristinali:

Per ogni oggetto in colItems objItem.Disable WScript.Sleep 1000 objItem.Enable Avanti

In questo modo verranno ripristinati tutti gli adattatori di rete attivi 8 Comandi CMD per la gestione delle reti (wireless) in Windows 8 Comandi CMD per la gestione delle reti (wireless) in Windows Se si desidera un controllo completo e assoluto sulla rete, sarà necessario iniziare a utilizzare Prompt dei comandi. Ecco i comandi più utili per la gestione e la risoluzione dei problemi della rete domestica. Leggi altro, che è spesso il modo più rapido per risolvere fastidiosi problemi di rete. Tieni questo script a portata di mano e provalo prima ogni volta che hai una rete lenta o altri strani problemi di rete.

5. Dispositivi di ping o siti Web

Ho salvato il mio script di windows VB preferito per ultimo. Questo è uno che ho effettivamente impostato come operazione programmata sul mio computer di casa e farlo funzionare più volte al giorno solo per verificare se il mio sito web è attivo 3 modi per capire se il tuo sito web preferito è giù 3 modi per capire se il tuo Il sito web preferito è basso Ci sono alcuni siti web che sono dedicati semplicemente a rispondere alla domanda di base che alla fine ti chiederanno: "Questo sito è inattivo?" Qui, abbiamo tre di questi siti Web, e sono tutti ... Leggi altro. Ho scritto lo script se il sito non è disponibile. Puoi utilizzare questo stesso script per monitorare server o computer importanti sulla tua rete e inviarti email ogni volta che il tuo script non può eseguire il ping del dispositivo.

Innanzitutto, imposta lo script per il target che desideri eseguire il ping, crea l'oggetto shell, quindi esegui il comando ping.

strTarget = "topsecretwriters.com" Imposta WshShell = WScript.CreateObject ("WScript.Shell") Ping = WshShell.Run ("ping -n 1" & strTarget, 0, True)

Utilizzare un'istruzione Select Case per analizzare i risultati Ping e rispondere di conseguenza. Se i risultati tornano a zero, allora sai che il sito (o il server) è online e non devi fare nulla. Se restituisce a “1” quindi il ping fallito e devi fare qualcosa. Nel mio caso, invio un'email tramite l'oggetto CDO di Windows:

Seleziona caso Ping Case 0 Caso 1 Set objMessage = CreateObject ("CDO.Message") Imposta objConfig = CreateObject ("CDO.Configuration") objConfig.Load -1 Imposta Flds = objConfig.Fields con Flds .Item ("http: // schemas.microsoft.com/cdo/configuration/smtpusessl ") = True .Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .Item ("http://schemas.microsoft. it / cdo / configuration / sendusername ") =" [email protected] ".Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx ".Item (" http: // schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com ".Item (" http://schemas.microsoft.com/cdo/configuration/sendusing")=2 .Item ("http: //schemas.microsoft.com/cdo/configuration/smtpserverport")=465 .Update End With With objMessage Set .Configuration = objConfig .Subject = "Il tuo sito non è in linea" .From = "[email protected]" .To = "[email protected]" .TextBody = "Ehi, il tuo sito web non è in linea." .Invia fine con Seleziona Fine

Una volta eseguito lo script e impossibile eseguire il ping sul dispositivo o sul sito Web, viene visualizzato un messaggio istantaneo.

È veloce e facile, ed efficiente!

Utilizzo di VB Windows Scripts per controllare il computer

Questi sono solo alcuni esempi di alcune cose interessanti che puoi fare con lo scripting VB per semplificare l'uso del tuo computer. Ci sono molte altre cose che puoi fare come backup automatici con VB e Synctoy Come creare uno strumento di backup dei dati con SyncToy e script VB Come creare uno strumento di backup dei dati con SyncToy e script VB Abbiamo coperto molte soluzioni di backup qui a MUO, e tutte queste soluzioni sono grandiose, ma se stai lavorando in un ambiente che è cauto riguardo ai pacchetti software di terze parti gratuiti o alle aziende ... Leggi di più, automatizzare i comandi telnet Come automatizzare i comandi Telnet usando lo script VB Come automatizzare Comandi Telnet Utilizzo di Script VB La scrittura di lavori batch e più di recente gli script di Windows è un'attività che rappresenta la maggior parte di quanto la maggior parte degli amministratori di rete e di sistema svolga il proprio lavoro più velocemente e semplifica ciò che ... Leggi di più, o persino apri e controlla applicazioni Windows 3 modi per aprire applicazioni e Windows ottimizzate con VB Script [Windows] 3 modi per aprire applicazioni e Windows ottimizzate con VB Script [Windows] Se c'è una cosa che amo per fare, è scrivere script VB. Sia che si tratti di un file di Windows Script o di uno script VBA all'interno di un'applicazione, lo scripting offre la possibilità di aggiungere funzionalità alle applicazioni ... Ulteriori informazioni .

Quali sono alcune delle cose che hai automatizzato sul tuo computer con uno script di Windows? Scrivete i vostri con VB, o usate qualche altro strumento come i cmdlet PowerShell PowerShell che miglioreranno i vostri cmdlet PowerShell per Windows Admin. Migliorerà le vostre abilità di amministrazione di Windows Powershell è lo strumento da riga di comando e il linguaggio di scripting. Ti dà la possibilità di automatizzare il tuo computer tramite gli stessi comandi che usi per amministrarlo. Leggi di più ?

Scopri di più su: Computer Automation, Scripting.