5 סקריפטים VB של Windows שימושיים לאוטומציה של השימוש במחשב שלך

פרסומת

בין אם אתה מנתח IT או משתמש מחשב רגיל, יש הרבה משימות שתצטרך לבצע לעתים קרובות במחשב האישי שלך. סקריפטים של VB מחולקים תוכניות Visual Basic המשמשות כסקריפטים של Windows שיכולים לעשות כל דבר מהשיגה מידע חשוב על חומרת המחשב שלך, להפסקת השירות ולהפעלה או לאיפוס הרשת שלך כרטיס.

אפשר ללמוד כיצד לעשות את כל הדברים האישיים האלה בדרך הרגילה, או לעשות זאת באמצעות קבצי אצווה. אבל סקריפטים של VB טובים יותר מאשר סקריפטים של אצווה עדיף על אצווה: מדריך לארח סקריפטים של Windows קרא עוד מכיוון שהם גמישים יותר. אם תאחסן את הסקריפטים הבאים במקום משותף שממהר להגיע אליו כשאתה זקוק לו, תוכל לבצע משימות אלה בשבריר מהזמן. אתה פשוט לחץ פעמיים על הסקריפט, עונה על הנחיה והביצוע המשימה.

עיין בסקריפטים הבאים של VB של Windows ואם אתה רואה מישהו שאתה רוצה להשתמש בו, פשוט העתק והדבק את הסקריפט לתוכו פנקס רשימות או כלי אחר של הערות קידוד 7 האפליקציות הטובות ביותר לצילום הערות עבור מתכנתים וקודדיםלהישאר מאורגן כמתכנת זה יכול להיות קשה! להלן האפליקציות הטובות ביותר לרישום הערות שתוכננו עם קידודים ומפתחים בראש. קרא עוד ושמור אותו כקובץ WSF.

הכן את סקריפטים של Windows

כל אחד מהסקריפטים המפורטים להלן יפעל בלחיצה כפולה בלבד כל עוד קראת לקובץ עם סיומת .WSF, וסגרת את הקוד בהתחלה ב:

וסגור את הקוד באמצעות:

  WScript. צא. 

זה מבטיח ש- Windows תזהה את השפה עליה כתוב התסריט, ותעבד אותה כראוי.

1. השתמש בסקריפטים של Windows למידע על מחשב

Windows מציע משהו שנקרא WMI, או Windows Management Instrumentation, המספק לתסריט שלך ממשק לגישה לרכיבים של מערכת ההפעלה. אתה יכול למעשה להפעיל שאילתות נגד WMI כדי לקבל מידע חי אודות המערכת שלך. מיקרוסופט מציעה רשימה מלאה של כל הנתונים קטגוריות של שאילתות אתה יכול לעשות נגד המערכת.

סקרנו כיצד להשתמש ב- VBA ל למשוך מידע מחשב לאקסל כיצד לראות את כל מידע המחשב האישי שלך באמצעות סקריפט VBA פשוט של ExcelExcel ו- 10 דקות של עבודה יעניקו לך מידע מפורט יותר על המחשב שלך ממה שאי פעם חשבת. נשמע טוב מכדי להיות אמיתי? זה חלונות, אם אתה יודע להשתמש בזה. קרא עוד , אבל אתה יכול לעשות את אותו הדבר באמצעות סקריפט VB פשוט מחוץ לאקסל.

בדוגמה זו אנו נשאל את המערכת למידע על מעבד (משפחה, יצרן ומספר ליבות), מידע על סוללות כיצד לחסוך את חיי הסוללה ב- Windows 10 באמצעות מצערת כוחמיקרוסופט הציגה מצערת כוח שמאפשרת למשתמשי Windows שליטה רבה יותר על האופן שבו אפליקציות בודדות מטפלות בצריכת סוללה בזמן הפעלתן ברקע. קרא עוד (תיאור ומצב), ו- מידע דיסק לוגי כיצד לחסוך שטח דיסק ב- Windows 10מבחינת דרישות שטח הדיסק, Windows 10 זללני לחלוטין. בזבוז 20 ג'יגה-בייט על SSD קטן יכול להיות מתסכל. למרבה המזל, אתה יכול להפחית את טביעת הרגל של Windows 10 ולתפוס מחדש חלק מהשטח הזה. קרא עוד (שם, שטח פנוי שנותר, והגודל הכללי). לאחר מכן אנו נפלט את כל המידע הזה לקובץ CSV לצפייה קלה.

השלב הראשון הוא להגדיר את FileSystemObject בו תשתמש לפלט לקובץ CSV, וליצור את הקובץ:

הגדר oFSO = CreateObject ("סקריפטים. FileSystemObject ") sFile1 = "MyComputerInfo.csv" הגדר oFile1 = oFSO.CreateTextFile (sFile1, 1)

השלב הבא הוא הגדרת שאילתת WMI וביצועה:

strQuery = "בחר משפחה, יצרן, NumberOfCores מ- Win32_Processor" הגדר colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery)

לבסוף, מיין את התוצאות ופלט את המידע לקובץ CSV. אם אתה רוצה להיות מפואר, מקדימה זאת למספר שורות כדי לעזור לקובץ הפלט שלך להיראות טוב יותר:

oFile1.WriteLine "מידע מעבד" oFile1.WriteLine "" לכל objResult ב colResults strResults = "משפחה:," + CStr (objResult. משפחה) oFile1.WriteLine strResults strResults = "יצרן:," + CStr (objResult. יצרן) oFile1.WriteLine strResults strResults = "מספר הליבות:," + CStr (objResult. NumberOfCores) oFile1.WriteLine תוצאות. הבא

אם תריץ את הקוד שלך עכשיו, כך ייראה הפלט שלך:

לשני החלקים הבאים בקוד שלך, אתה פשוט הולך לחזור ולשנות את השאילתה כדי לחפש את המידע הנוסף. להלן שאלת פרטי הסוללה:

oFile1.WriteLine "" strQuery = "בחר תיאור, סטטוס מ- Win32_Battery" הגדר colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "מידע על סוללות" oFile1.WriteLine "" לכל objResult ב colResults strResults = "סטטוס:," + CStr (objResult. תיאור) oFile1.WriteLine strResults strResults = "תיאור:," + CStr (objResult. סטטוס) oFile1.WriteLine תוצאות. הבא

והנה החלק הבא לשאילתת הדיסק הלוגי:

oFile1.WriteLine "" strQuery = "בחר שם, FreeSpace, גודל מ- Win32_LogicalDisk" הגדר colResults = GetObject ("winmgmts: //./root/cimv2") .ExecQuery (strQuery) oFile1.WriteLine "דיסק מידע" oFile1.WriteLine "" זהה את שטח הדיסק הלוגי. עבור כל objResult ב colResults strResults = "שם:," + CStr (objResult. שם) oFile1.WriteLine strResults strResults = "שטח פנוי:," + CStr (objResult. FreeSpace) oFile1.WriteLine strResults strResults = "גודל דיסק:," + CStr (objResult. גודל) oFile1.WriteLine תוצאות. הבא

לבסוף, זכור לסגור את הקוד על ידי סגירת הקובץ והגדרת האובייקטים כ"שום דבר ":

oFile1.Close Set oFile1 = שום דבר. set colResults = שום דבר. strResults = ""

הכניסו את כל הקוד הזה לקובץ ה- .WSF החדש שלכם, הרצו אותו וכאן תיראה הפלט שלכם:

פשוט החלף את השאילתות לעיל עבור כל התקני מחשב או תוכנה אחרים שאתה רוצה לקבל מידע עליהם, ותוכל לקבל - דוח מערכת מלא כיצד ליצור מערכת אוטומטית לדיווחי בריאות למחשבאתה יוצא לארוחת צהריים שכן הנייד שלך מתריע על טקסט חשוב. ב- SMS נכתב: "התראת מחשב ביתית: 3 ניסיונות פריצה." זה לא פיקציה! בואו נראה לכם כיצד לעשות זאת! קרא עוד בכל זמן שתרצה בלחיצת העכבר.

2. עצור והתחל שירותי

יהיו זמנים שלשירותים מסוימים יש בעיות, והם דורשים הפעלה מחדש מהירה רק כדי לפעול שוב כראוי. זה במיוחד נכון ב- IT לפני שאתה לומד IT, דע מה אתה נכנסטכנולוגיית מידע (IT) הפכה לבחירה כל כך רחבה בקריירה. אך מעטים האנשים יודעים למעשה מה זה IT ומה המשמעת שלו כרוך. קרא עוד כשאתה נאלץ להריץ תוכנת שרת שהיא לפעמים קצת באגי.

אם ברצונך לגלח דקה בערך מתהליך הפעלה מחדש של השירות, פשוט אחסן את התסריט הבא במקום שהוא נוח. זה יבקש ממך להקליד את שם השירות שאתה רוצה להפעיל מחדש ואז הוא יעשה בדיוק את זה.

מכיוון שהפסקה והפעלה של שירותים דורשים הרשאות ניהול, עליכם להציב את הקוד הבא בתחילת הסקריפט כדי לתת את הסקריפט הרשאות מוגברות:

אם לא WScript. ויכוחים. נקרא. קיים ("הרם") ואז CreateObject ("פגז. יישום "). ShellExecute WScript. FullName _, & WScript. ScriptFullName & / elevate "," "," runas ", WScript 1. צא. סוף אם

לאחר סיום זה, הוסף את שאר הקוד כדי להריץ את תיבת הקלט עבור קלט משתמש, הפעל את חלון הפקודה, ושלח לו את הפקודות "net stop" ו- "net start":

הגדר cmdShell = CreateObject ("WScript. צדף") strServiceName = תיבת קלט ("שירות אינטר להפסיק", "קלט חובה") cmdShell. הפעל את "cmd.exe" WScript. ישן 1000 ס"מ. SendKeys "net stop" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. ישן 1000 ס"מ. SendKeys "net start" + strServiceName. cmdShell. SendKeys "{Enter}" WScript. ישן 1000 ס"מ. SendKeys "יציאה" cmdShell. SendKeys "{Enter}"

זה כל מה שיש בזה. אין צורך לחפש אחר כלי השירותים. פשוט הפעל את הסקריפט הזה והפסק והתחל כל שירות תוך שניות.

3. שנה הגדרות רישום, סיסמת מנהל ברירת מחדל

עם התסריט הבא, אנו הולכים להרוג שתי ציפורים באבן אחת. סקריפט זה יראה לך כיצד לעשות זאת ערוך את הרישום 5 Windows 10 הרישום לצבוט כדי לשפר ולבטל את הנעילה של תכונותעורך הרישום הוא הדרך היחידה לאפשר חלק מהתכונות הנסתרות של Windows 10. כאן נראה לכם ציוצים קלים כמו הפעלת הנושא האפל או הסתרת תיקיות. קרא עוד עם תסריט VB. זה גם ייתן לך סקריפט שיאפשר לך להגדיר את ברירת המחדל של שם המשתמש והסיסמה של Windows על ידי עריכת הגדרות הרישום האלה.

ככה זה עובד. ראשית, מכיוון שעריכת הרישום מחייבת זכויות מנהל, תצטרך להגדיר הרשאות גבוהות לתסריט שלך:

אם לא WScript. ויכוחים. נקרא. קיים ("הרם") ואז CreateObject ("פגז. יישום "). ShellExecute WScript. FullName _, & WScript. ScriptFullName & / elevate "," "," runas ", WScript 1. צא. סוף אם

ראשית הפעל שתי תיבות קלט כדי לשאול את המשתמש באיזה שם משתמש וסיסמא להשתמש:

strUserName = Inbox ("הזן את שם המשתמש המוגדר כברירת מחדל", "קלט חובה") strPassword = קלט ("הזן את סיסמת ברירת המחדל", "קלט חובה")

בשלב הבא, הגדר את אובייקט הפגז וכתב את הערכים האלה למפתחות הרישום המתאימים:

הגדר wshShell = CreateObject ("WScript. צדף" ) 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" הגדר wshShell = כלום

וזה כל מה שיש. שיטת "RegWrite" מאפשרת לך לכתוב כל ערך לכל מפתח רישום באמצעות סקריפט VB Windows. כל שעליכם לדעת הוא הנתיב המתאים.

הפעל את הסקריפט וענה על ההוראות.

הערכים שתזין יוכנסו ישירות להגדרות הרישום שהגדרת בסקריפט.

השתעשע עם התסריט וצבץ אותו לטעמך. אתה יכול לערוך את כל מפתחות הרישום שאתה אוהב, אז תהיה יצירתי!

4. אפס את חיבור הרשת שלך

איפוס חיבור הרשת באמצעות סקריפט VB כיצד לכתוב סקריפט של Windows כדי לשנות הגדרות רשת תוך כדי תנועהבמשרדים או בסביבות עבודה רבות, ייתכן שתצטרך להגדיר מחדש את הגדרות הרשת שלך כדי להתחבר לרשתות שונות. מצאתי את עצמי במצב זה לעיתים קרובות מספיק, ונמאס לי כל כך לגלוש אל ... קרא עוד זה משהו שסקרנו לפני כן ב- MakeUseOf. הגרסה הבאה של זה מורכבת למעשה ופשוטה יותר ליישום. במקום לבקש כרטיסי רשת נפרדים, הוא מאפס את כל החיבורים הפעילים שלך, אשר בתקווה יפתרו את כל בעיות הרשת שאתה נתקל בהן.

בדומה לסקריפטים אחרים הזקוקים לזכויות מנהל, תצטרך להוסיף את החלק בהתחלה לקבלת הרשאות גבוהות. העתק קוד זה מהתסריט שלמעלה.

בשלב הבא, צור את אובייקט WMI ושאיל אותו ברשימה של מתאמי רשת זמינים במערכת שלך:

strComputer = "." הגדר objWMIService = GetObject ("winmgmts: \\" & strComputer & "\ root \ CIMV2") הגדר colItems = objWMIService. ExecQuery (_ "בחר * מ- Win32_NetworkAdapter איפה NetEnabled = 'נכון'")

לבסוף, עיין בכל המתאמים המאפשרים ואפס אותם:

עבור כל אובייקט בקובץ אובייקט. השבת את WScript. שינה 1000 אובייקט. אפשר. הבא

זה יאפס את כל שלך מתאמי רשת פעילים 8 פקודות CMD לניהול רשתות אלחוטיות ב- Windowsהשתמש בשורת הפקודה כדי לשלוט ברשת ה- Wi-Fi שלך. להלן הפקודות השימושיות ביותר לפתרון בעיות ברשת הביתית. קרא עוד , שהיא לרוב הדרך המהירה ביותר לפתור בעיות רשת מעצבנות. שמור על סקריפט זה שימושי ונסה אותו תחילה בכל פעם שיש לך רשת איטית או בעיות רשת מוזרות אחרות.

5. התקני פינג או אתרי אינטרנט

שמרתי את סקריפט החלונות המועדפים על VB האחרון. זוהי משימה שבעצם הגדרתי כמשימה מתוזמנת במחשב הביתי שלי והיא תפעל מספר פעמים ביום רק ל בדוק אם האתר שלי פעיל 3 דרכים להבין אם האתר המועדף עליך מושבתישנם כמה אתרים בחוץ המוקדשים פשוט לענות על השאלה הבסיסית שבה בסופו של דבר תשאלו: "האם אתר זה נמצא למטה?" הנה, יש לנו שלושה מאתרים אלה, והם את כל... קרא עוד . יש לי את התסריט בדוא"ל אלי אם האתר אינו פועל. אתה יכול להשתמש באותו סקריפט כדי לפקח על שרתים או מחשבים חשובים ברשת שלך ושלח לך דוא"ל בכל פעם שהתסריט שלך לא מצליח להתקין את המכשיר.

ראשית, הגדר את הסקריפט עבור היעד שאתה רוצה לפינג, צור את אובייקט הפגז ואז הפעל את הפקודה ping.

strTarget = "topsecretwriters.com" הגדר WshShell = WScript. CreateObject ("WScript. צדף") פינג = WshShell. הפעל ("ping -n 1" & strTarget, 0, True)

השתמש בהצהרת Select Case כדי לעבור על תוצאות ה- Ping ולהגיב בהתאם. אם התוצאות יחזרו כאפס, אתה יודע שהאתר (או השרת) מקוון ואתה לא צריך לעשות כלום. אם זה מחזיר "1", הפינג נכשל ועליך לעשות משהו. במקרה שלי, אני שולח דוא"ל באמצעות האובייקט Windows CDO:

בחר מקרה Ping מקרה 0 מקרה 1 הגדר objMessage = CreateObject ("CDO.Message") הגדר objConfig = CreateObject ("CDO.Configuration") objConfig. טען -1 הגדר Flds = objConfig. שדות עם שדות תעודה. פריט (" http://schemas.microsoft.com/cdo/configuration/smtpusessl") = נכון. פריט (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 .פריט (" http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]" .פריט (" http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxxxxxxxxxxxxxxxx" .פריט (" http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com" .פריט (" http://schemas.microsoft.com/cdo/configuration/sendusing")=2 .פריט (" http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465 סיום עדכון עם ערכת objMessage .Configuration = objConfig .Subject = "האתר שלך במצב לא מקוון". = "[email protected]". To = "[email protected]" .TextBody = "היי, האתר שלך לא מקוון." שלח סיום עם. סיום בחירה

ברגע שהתסריט פועל ולא יכול ping את המכשיר או האתר, אתה מקבל הודעה מיידית.

זה מהיר וקל, וכל יעיל!

שימוש בסקריפטים של Windows VB לשליטה במחשב שלך

אלה רק כמה דוגמאות לכמה מהדברים המגניבים שאתה יכול לעשות עם סקריפט VB כדי לייעל את השימוש שלך במחשב. יש המון דברים אחרים שאתה יכול לעשות כמו גיבויים אוטומטיים עם VB ו- Synctoy כיצד ליצור כלי גיבוי נתונים בעזרת סקריפט SyncToy ו- VBכיסינו הרבה פתרונות גיבוי כאן ב- MUO, וכל הפתרונות האלה הם נהדרים, אבל אם אתם עובדים בסביבה שמזהרת מפני חבילות תוכנה של צד שלישי בחינם, או חברות ... קרא עוד , אוטומציה של פקודות Telnet כיצד לבצע אוטומציה של פקודות Telnet באמצעות סקריפט VBכתיבת עבודות אצווה ולאחרונה סקריפטים של Windows היא פעילות שבאמת מהווה את עיקר חלקה של כיצד הרוב הגדול של מנהלי רשת ומערכת מבצעים את עבודתם מהר יותר, ומפשטים את מה היה... קרא עוד , או אפילו לפתוח ולפקח על חלונות יישומים 3 דרכים לפתיחת יישומים ומערכת Windows ממקסמת באמצעות סקריפט VB [Windows]אם יש דבר אחד שאני אוהב לעשות, זה לכתוב סקריפטים של VB. בין אם זה קובץ סקריפט של Windows או סקריפט VBA בתוך יישום, סקריפט מספק את היכולת להוסיף פונקציונליות ליישומים ... קרא עוד .

מה הם הדברים שאתה אוטומט במחשב שלך באמצעות סקריפט של Windows? האם אתה כותב את שלך באמצעות VB, או משתמש בכלי אחר כמו PowerShell Powershell Cmdlets שישפרו את מיומנויות הניהול של WindowsPowershell הוא כלי שורת הפקודה ושווי סקריפט של חלקים שווים. זה נותן לך את האפשרות להפוך את המחשב לאוטומטי באמצעות אותן פקודות בהן אתה משתמש כדי לנהל אותו. קרא עוד ?