programmering

5 Nyttige VB Windows-skript for å automatisere datamaskinens bruk

5 Nyttige VB Windows-skript for å automatisere datamaskinens bruk / programmering

Enten du er en IT-analytiker eller en vanlig datamaskinbruker, er det mange oppgaver du kanskje trenger å gjøre ofte på din PC. VB-skript er nedskalert Visual Basic-programmer som fungerer som Windows-skript som kan gjøre alt fra å trekke opp viktig informasjon om maskinvare, stoppe og starte tjenester eller tilbakestille nettverkskortet ditt.

Det er mulig å lære å gjøre alle de enkelte tingene på vanlig måte, eller gjøre dem ved hjelp av batchfiler. Men VB-skript er bedre enn batchskript Better Than Batch: En Windows Scripting Host Tutorial Better Than Batch: En Windows Scripting Host Tutorial Les mer fordi de er mer fleksible. Hvis du lagrer følgende skript på et vanlig sted som er raskt å komme til når du trenger det, kan du oppnå disse oppgavene på en brøkdel av tiden. Du dobbeltklikker bare på skriptet, svarer på en melding, og oppgaven er ferdig.

Ta en titt på de følgende VB Windows-skriptene, og hvis du ser noe du vil bruke, kan du bare kopiere og lime inn skriptet i Notisblokk eller annet kodingsnotatverktøy. 7 Best Notes-Taking Tools for Programmers 7 Best Note-Taking Tools for Programmerere Gode ​​notatfag er nøkkelen til å holde seg organisert som programmerer. Her er de beste notatblokkene som er designet med kodere og utviklere i tankene. Les mer og lagre det som en WSF-fil.

Forbered Windows-skriptene dine

Hvert av skriptene som er beskrevet nedenfor, vil kjøre med bare et dobbeltklikk så lenge du har kildet filen med .WSF-utvidelsen, og du har også vedlagt koden i begynnelsen med:

Dette sikrer at Windows vil gjenkjenne språket ditt skript er skrevet inn, og behandle det riktig.

1. Bruk Windows-skript for datamaskininformasjon

Windows tilbyr noe som heter WMI eller Windows Management Instrumentation, som gir skriptet et grensesnitt for å få tilgang til komponenter i operativsystemet. Du kan faktisk kjøre spørringer mot WMI for å få oppdatert liveinformasjon om systemet ditt. Microsoft tilbyr en fullstendig liste over alle kategoriene av spørsmål du kan gjøre mot systemet.

Vi har dekket hvordan du bruker VBA til å trekke datamaskininformasjon til Excel Hvordan se all PC-informasjon ved hjelp av et enkelt Excel VBA-script Slik ser du all din PC-informasjon ved hjelp av en enkel Excel VBA Script Excel og 10 minutter med arbeid vil gi deg mer detaljert informasjon om datamaskinen din enn du trodde mulig. Høres for godt ut til å være sant? Det er Windows, hvis du vet hvordan du bruker det. Les mer, men du kan gjøre det samme ved å bruke et enkelt VB-skript utenfor Excel.

I dette eksemplet skal vi spørre systemet for prosessorinformasjon (familie, produsent og antall kjerner), batteriinformasjon Slik sparer du batterilevetid i Windows 10 med spenning av strøm Slik sparer du batterilevetid i Windows 10 med spenning av strøm Microsoft introdusert strømspenning som gir Windows-brukere mer kontroll over hvordan enkelte applikasjoner håndterer batteriforbruk mens de kjører i bakgrunnen. Les mer (beskrivelse og status) og logisk diskinformasjon Slik lagrer du diskplass i Windows 10 Slik lagrer du diskplass i Windows 10 Når det gjelder krav til diskplass, er Windows 10 rett og slett gluttonous. Å kaste bort 20 GB på en liten SSD kan være frustrerende. Heldigvis kan du redusere Windows 10-fotavtrykk og gjenvinne noe av det aktuelle rommet. Les mer (navn, ledig plass igjen og total størrelse). Da sender vi all denne informasjonen til en CSV-fil for enkel visning.

Det første trinnet er å sette opp FileSystemObject du vil bruke til å sende ut til CSV-filen, og opprette filen:

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

Det neste trinnet er å sette opp WMI-spørringen og utføre den:

strQuery = "SELECT Familie, Produsent, NumberOfCores FROM Win32_Processor" Angi colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

Til slutt sortere resultatene og utdata informasjonen til CSV-filen. Hvis du vil ha det, forord dette med et par linjer for å gjøre utdatafilen din bedre:

oFile1.WriteLine "Processorinformasjon" oFile1.WriteLine "------" For hver objResult I colResults strResults = "Familie:," + CStr (objResult.Family) oFile1.WriteLine strResults strResults = "Produsent:," + CStr (objResult.Fabrikant) oFile1.WriteLine strResults strResults = "Antall kjerner:," + CStr (objResult.NumberOfCores) oFile1.WriteLine strResults Next

Hvis du kjører koden din nå, er dette hva produktene dine ser ut som:

For de neste to delene av koden din, skal du bare gjenta og endre søket for å lete etter tilleggsinformasjonen. Her er informasjonen om batteriinfo:

oFile1.WriteLine "" strQuery = "VELG Beskrivelse, Status FRA Win32_Battery" Angi colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "Battery Information" oFile1.WriteLine "- ---- "For hver objResultat I colResults strResults =" Status:, "+ CStr (objResult.Description) oFile1.WriteLine strResults strResults =" Beskrivelse:, "+ CStr (objResult.Status) oFile1.WriteLine strResults Next

Og her er neste avsnitt for logisk disk spørringen:

oFile1.WriteLine "" strQuery = "Velg Navn, FreeSpace, Size from Win32_LogicalDisk" Angi colResults = GetObject ("winmgmts: //./root/cimv2"). ExxQuery (strQuery) oFile1.WriteLine "Diskinformasjon" oFile1.WriteLine " ------ "'Identifiser den logiske diskplassen for hver objResultat i colResults strResults =" Name:, "+ CStr (objResult.Name) oFile1.WriteLine strResults strResults =" Fritt mellomrom:, "+ CStr (objResult.FreeSpace ) oFile1.WriteLine strResults strResults = "Diskstørrelse:," + CStr (objResult.Size) oFile1.WriteLine strResults Next

Endelig husk å lukke koden ved å lukke filen og sette objektene til “Ingenting”:

oFile1.Close Set oFile1 = Ingenting satt colResults = Ingenting strResults = ""

Sett all den koden inn i den nye .WSF-filen, kjør den, og her ser du hvordan utdataene dine ser ut:

Bare bytt opp spørsmålene ovenfor for andre datamaskiner eller programvare du vil ha informasjon om, og du kan få en fullstendig systemrapport. Slik oppretter du et automatisert helsesystem for PC Hvordan lage et automatisert helsesystem for PC Du er ute å ha lunsj mens mobilen din varsler deg om en viktig tekst. SMS'en leser: "Hjemmeapparatvarsel: 3 hackingforsøk." Dette er ikke fiksjon! La oss vise deg hvordan du gjør dette! Les mer når som helst du liker med bare et klikk med musen.

2. Stopp og start tjenester

Det vil være tidspunkter når visse tjenester har problemer, og krever bare en rask omstart for å få kjørt igjen på riktig måte. Dette gjelder spesielt i IT Før du studerer IT, vet hva du kommer inn før du studerer IT, vet hva du kommer til informasjonsteknologi (IT), blitt et så utbredt karrierevalg. Men få mennesker vet faktisk hva det er og hva dens disiplin innebærer. Les mer når du er tvunget til å kjøre serverprogramvare som noen ganger er litt buggy.

Hvis du vil barbere et minutt eller så av tjenestens omstartsprosess, må du bare lagre det følgende skriptet, noe som er praktisk. Det vil be deg om å skrive inn navnet på tjenesten du vil starte på nytt, og så vil det gjøre akkurat det.

Siden stoppe- og starttjenester krever administrative rettigheter, må du plassere følgende kode i begynnelsen av skriptet for å gi skriptet forhøyede rettigheter:

Hvis ikke WScript.Arguments.Named.Exists ("elevate") Then CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" og WScript.ScriptFullName & "" "/ elevate", "", " runas ", 1 WScript.Quit End Hvis

Når dette er gjort, legg til resten av koden for å kjøre innboksboksen for brukerinngang, start kommandovinduet og send den “netto stopp” og “nettstartskommandoer”:

Sett cmdShell = CreateObject ("WScript.Shell") strServiceName = Inputbox ("Inter Service to Stop", "Input Required") cmdShell.Run "cmd.exe" WScript.Sleep 1000 cmdShell.SendKeys "netstopp" + strServiceName cmdShell. SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "nettstart" + strServiceName cmdShell.SendKeys "Enter" WScript.Sleep 1000 cmdShell.SendKeys "Exit" cmdShell.SendKeys "Enter"

Det er alt der er til det. Du trenger ikke å jakte på verktøyverktøyet. Bare kjør dette skriptet og stopp og start noen tjeneste om noen sekunder.

3. Endre registerinnstillinger, standardadministratorpassord

Med det følgende skriptet skal vi drepe to fugler med en stein. Dette skriptet vil vise deg hvordan du redigerer registeret 5 Windows 10 Registry Tweaks for å forbedre og låse opp funksjoner 5 Windows 10 Registry Tweaks for å forbedre og låse opp funksjoner Registerredigering er den eneste måten å aktivere noen av Windows 10s skjulte funksjoner på. Her viser vi deg enkle tweaks som å aktivere det mørke temaet eller skjule mappene. Les mer med et VB-skript. Det vil også gi deg et skript som lar deg angi standard Windows brukernavn og passord ved å redigere disse registerinnstillingene.

Slik fungerer det. For det første, siden redigering av registret krever adminrettigheter, må du sette opp forhøyede rettigheter for skriptet ditt:

Hvis ikke WScript.Arguments.Named.Exists ("elevate") Then CreateObject ("Shell.Application"). ShellExecute WScript.FullName _, "" "" og WScript.ScriptFullName & "" "/ elevate", "", " runas ", 1 WScript.Quit End Hvis

Først løp to innboks bokser for å spørre brukeren hvilket brukernavn og passord som skal brukes:

strUserName = Inputbox ("Skriv inn standard brukernavn", "Inngang påkrevd") strPassword = Inputbox ("Skriv inn standard passord", "Inngang påkrevd")

Sett deretter opp skallobjektet, og skriv disse verdiene til de aktuelle registernøklene:

Sett wshShell = CreateObject ("WScriptShell") 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 "Angi wshShell = Ingenting

Og det er alt der er til det. De “RegWrite” Metode lar deg skrive noen verdi til en hvilken som helst registernøkkel ved hjelp av et VB Windows-skript. Alt du trenger å vite er den riktige banen.

Kjør skriptet og svar på instruksjonene.

Verdiene du legger inn vil bli satt inn rett inn i registerinnstillingene du har satt opp i skriptet.

Spill rundt med skriptet og tweak det til din smak. Du kan redigere eventuelle registernøkler du liker, så vær kreativ!

4. Tilbakestill nettverksforbindelsen

Tilbakestille nettverksforbindelsen din ved hjelp av VB-skripting Slik skriver du et Windows-skript for å endre nettverksinnstillinger på flyget Slik skriver du et Windows-skript for å endre nettverksinnstillinger på flyet I mange kontorer eller arbeidsmiljøer må du kanskje omdefinere nettverksinnstillingene for å koble til til forskjellige nettverk. Jeg fant meg selv i denne situasjonen ofte nok, og ble så lei av å surfe til ... Les mer er noe vi har dekket før her på MakeUseOf. Følgende versjon av dette er faktisk nedskalert og mye enklere å implementere. I stedet for å be om individuelle nettverkskort, tilbakestilles det alle dine aktive forbindelser som forhåpentligvis vil løse eventuelle nettverksproblemer du måtte ha.

Som med andre skript som trenger administratorrettigheter, må du legge til delen ved starten av forhøyede rettigheter. Kopier den koden fra skriptet ovenfor.

Deretter lager du WMI-objektet og spør det om en liste over aktiverte nettverkskort på systemet ditt:

strComputer = "." Angi objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") Angi colItems = objWMIService.ExecQuery (_ "VELG * FRA Win32_NetworkAdapter Hvor NetEnabled = 'True'")

Til slutt, sløyfe gjennom alle de aktiverte adaptere og tilbakestille dem:

For hver objItem i colItems objItem.Disable WScript.Sleep 1000 objItem.Enable Next

Dette vil nullstille alle dine aktive nettverkskort 8 CMD-kommandoer for å administrere (trådløse) nettverk i Windows 8 CMD-kommandoer for å administrere (trådløse) nettverk i Windows Hvis du vil ha full og absolutt kontroll over nettverket ditt, må du begynne å bruke Ledeteksten. Her er de mest nyttige kommandoene for å administrere og feilsøke hjemmenettverket. Les mer, som ofte er den raskeste måten å løse irriterende nettverksproblemer på. Hold dette skriptet greit og prøv det først når du har et sakte nettverk eller andre rare nettverksproblemer.

5. Ping-enheter eller nettsteder

Jeg har lagret min favoritt VB windows script for sist. Dette er en som jeg faktisk har satt opp som en planlagt oppgave på min hjemmedatamaskin og har det kjørt flere ganger om dagen for bare å sjekke om nettstedet mitt er aktivt. 3 måter å finne ut om ditt favorittnettsted er ned 3 måter å finne ut om din Favoritt Nettstedet er nede Det er noen nettsteder der ute som er viet til å svare på det grunnleggende spørsmålet du etter hvert vil spørre: "Er dette nettstedet nede?" Her har vi tre av disse nettstedene, og de er alle ... Les mer. Jeg har skriptet email meg hvis nettstedet er nede. Du kan bruke dette samme skriptet til å overvåke viktige servere eller datamaskiner på nettverket ditt og sende deg en e-post når du ikke kan skrive på enheten.

Først sett opp skriptet for målet du vil pinge, lag shell-objektet, og kjør deretter ping-kommandoen.

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

Bruk en Select Case-setning for å løpe gjennom Ping-resultatene, og svar deretter. Hvis resultatene kommer tilbake som null, vet du at nettstedet (eller serveren) er online, og du trenger ikke å gjøre noe. Hvis den returnerer a “1” da sviktet pingen og du må gjøre noe. I mitt tilfelle sender jeg en epost ved hjelp av Windows CDO-objektet:

Velg Case Ping Case 0 Case 1 Sett objMessage = CreateObject ("CDO.Message") Sett objConfig = CreateObject ("CDO.Configuration") objConfig.Load -1 Sett Flds = objConfig.Fields med Flds .Item ("http: // schemas.microsoft.com/cdo/configuration/smtpusessl ") = True .Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .Item ("http://schemas.microsoft. com / 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 .Uppdater slutt med objMessage Set .Configuration = objConfig .Subject = "Nettstedet ditt er offline" .From = "[email protected]" .To = "[email protected]" .TextBody = "Hei, nettstedet ditt er offline." .Send slutt med sluttvalg

Når skriptet kjører og ikke kan pinge enheten eller nettstedet, får du en direktemelding.

Det er raskt og enkelt, og alle effektive!

Bruke VB Windows Scripts til å kontrollere datamaskinen

Dette er bare noen få eksempler på noen av de kule tingene du kan gjøre med VB scripting for å strømlinjeforme datamaskinen din. Det er mange andre ting du kan gjøre som automatiserte sikkerhetskopier med VB og Synctoy Hvordan lage et datasikkerhetsverktøy med SyncToy & VB Script Slik oppretter du et datasikkerhetsverktøy med SyncToy & VB Script Vi har dekket mange backupløsninger her på MUO, og alle disse løsningene er flotte, men hvis du jobber i et miljø som er forsiktig med gratis tredjeparts programvarepakker eller selskaper ... Les mer, automatisere telnet-kommandoer Slik automatiserer du Telnet-kommandoer ved hjelp av VB Script Hvordan automatisere Telnet-kommandoer Bruke VB Script Skrive batchjobber og nyere Windows skript er en aktivitet som virkelig utgjør størstedelen av hvordan det store flertallet av nettverks- og systemadministratorer gjør jobben raskere, og forenkler det som vil ... Les mer, eller til og med åpne og kontrollere applikasjonsvinduer 3 måter å åpne programmer og Windows maksimert med VB Script [Windows] 3 måter å åpne programmer og Windows maksimert med VB Script [Windows] Hvis det er en ting jeg elsker å gjøre, det er skrive VB skript. Enten det er en Windows Script-fil eller et VBA-skript i et program, gir skripting muligheten til å legge til funksjonalitet for programmer ... Les mer .

Hva er noen av tingene du har automatisert på datamaskinen din med et Windows-skript? Skriver du dine ved hjelp av VB, eller bruker et annet verktøy som PowerShell Powershell Cmdlets som vil forbedre Windows Admin Ferdigheter Powershell Cmdlets som vil forbedre Windows Admin Ferdigheter Powershell er like deler kommandolinjeverktøy og skriptspråk. Det gir deg muligheten til å automatisere datamaskinen din via de samme kommandoene du bruker til å administrere den. Les mer ?

Utforsk mer om: Computer Automation, Scripting.