Περισσότερα χειρόγραφα VBS για τους διοικητές συστημάτων

Ταχυδρομημένος στις 30 Μαρτίου 2007 στις 8:56 AM

Τα τελευταία χρόνια ως συστήματα Admin, έπρεπε να γράψω έναν καλό αριθμό χειρογράφων για να διαχειριστώ τους υπολογιστές γραφείου, την ασφάλεια, και το στήριγμα στοιχείων. Εδώ είναι τα μερικά απότομα χειρόγραφα που έχω χρησιμοποιήσει στο περιβάλλον μου!

Πώς να δημιουργήσει έναν συντομότερο δρόμο στον υπολογιστή γραφείου - Χρησιμοποιώντας αυτό το χειρόγραφο, μπορείτε να πάρετε μια αναφορά στο destop χρησιμοποιώντας τη πρόσθετη λειτουργία φακέλλων, έτσι δεν ειναι απαραίτητο να ανησυχήσετε για την ακριβή πορεία για κάθε χρήστη. Κατόπιν δείξτε ακριβώς ένα URL ή στην περίπτωσή μου, ένας εσωτερικός κεντρικός υπολογιστής δικτύου.

καθορισμένο WshShell = WScript.CreateObject (» WScript.Shell»)

strDesktop = WshShell.SpecialFolders (» υπολογιστής γραφείου»)
σύνολο oShellLink = WshShell.CreateShortcut (strDesktop & «\ υποστήριξη Site.URL»)
oShellLink.TargetPath = «http://websvr/TechSupport»
oShellLink.Save

Πώς να δημιουργήσει έναν φάκελλο με τα στοιχεία στις επιλογές έναρξης

Καθορισμένος FSO = CreateObject (» Scripting.FileSystemObject»)

`Πάρτε την πορεία επιλογών έναρξης
strStartMenu = WshShell.SpecialFolders (» StartMenu»)

`Αρχικά διαγράψτε τον παλαιό φάκελλο επιλογών έναρξης - το ορυχείο καλείται Apps
`Αυτό είναι ο κύριος φάκελλος όταν χτυπάτε όλα τα προγράμματα, κατόπιν θα δημιουργήσουμε
subfolders `από το διαμέρισμα αργότερα
NewFolder = strStartMenu & «\ προγράμματα \ Apps»

Εάν FSO.FolderExists (NewFolder) έπειτα
FSO.DeleteFolder NewFolder
τελειώστε εάν

`Επαναδημιουργήστε ή δημιουργήστε το φάκελλο

Εάν όχι FSO.FolderExists (NewFolder) έπειτα
FSO.CreateFolder NewFolder
Τέλος εάν

`Τώρα δημιουργούμε τους υπο--φακέλλους για κάθε τμήμα
strStartMenu = WshShell.SpecialFolders (» StartMenu»)
DeptFolder = strStartMenu & «\ προγράμματα \ Apps \ Dept1 ″

Εάν όχι FSO.FolderExists (DeptFolder) έπειτα
FSO.CreateFolder DeptFolder
Τέλος εάν

`Εργασία γύρω από το κοντό αρχείο - πρόβλημα ονόματος
Αμυδρός μουσκεψτε
» subst μια κίνηση για να κάνει την εργασία χαρτογράφησης
μουσκεψτε = WshShell.Run (» cmd /c subst ι: c:\», 0, ΑΛΗΘΙΝΟΣ)

`Δημιουργήστε τις συνδέσεις εδώ, ορίστε τα συντομότερα κλειδιά, την πορεία στον κεντρικό υπολογιστή, και την εργασία dir

σύνολο oShellLink = WshShell.CreateShortcut (εργαστήριο Track.lnk DeptFolder & «αναζήτησης \»)
oShellLink.TargetPath = «i:\SearchLab\SearchLab.exe»
oShellLink.WindowStyle = 1
oShellLink.Hotkey = «CTRL+SHIFT+S»
oShellLink.IconLocation = «i:\SearchLab\SearchLab.exe, 0 ″
oShellLink.Description = «2 - διαδρομή εργαστηρίων αναζήτησης γρήγορα»
oShellLink.WorkingDirectory = «i:\SearchLab»

`Μπορείτε να συνεχίσετε να προσθέτετε περισσότερες συνδέσεις στο φάκελλο, με να αντιγράψετε αυτόν τον κώδικα ανωτέρω

`αφαιρεί το subst
μουσκεψτε = WshShell.Run (» cmd /c subst ι: /d», 0, ΑΛΗΘΙΝΟΣ)

`Σιγουρευτείτε τις επιλογές έναρξης διατάζεται alphatecially
`Διαγράφοντας από το ληξιαρχείο, δεν μπορεί να χρησιμοποιήσει την κανονική μέθοδο. Πρέπει να διαγράψετε με πρώτα να διαγράψει όλα τα subkeys και έπειτα να διαγράψει το κλειδί

strComputer = «.» `χρήση «.» για τον τοπικό υπολογιστή

Const HKCU = &H80000001 `HKEY_CURRENT_USER

Καθορισμένος objRegistry = GetObject _
(» winmgmts: {impersonationLevel=impersonate}! \ \» & strComputer & «\ προεπιλογή ρίζας \: StdRegProv»)

KillKey HKCU, «επιλογές έναρξης εξερευνητών \ MenuOrder \ παραθύρων \ CurrentVersion \ λογισμικού \ Microsoft \»

Υπο- KillKey (lHive, strKey)

Αμυδρό strElement, IsSubscriptOutOfRange
Αμυδρά sKeys ()

objRegistry.EnumKey lHive, strKey, sKeys

Στο λάθος επαναλάβετε έπειτα
IsSubscriptOutOfRange = sKeys (0)

Εάν σφάλτε = 0 έπειτα
Για κάθε strElement στα sKeys
KillKey lHive, strKey & «\» & strElement
Έπειτα
Τέλος εάν

Err.Clear
objRegistry.DeleteKey lHive, strKey
Υποβρύχιο τελών

Πώς να επιτρέψει το Encrypt αρχείο shorcut στις επιλογές πλαισίου - Αυτό θα επιτρέψει σε έναν χρήστη για να διορθώσει τον κρότο σε ένα αρχείο και να επιλέξει κρυπτογραφεί, πρέπει παρά να ανοίξει τις ιδιότητες του αρχείου.

‘ Create an object to hold a reference to the Wscript.Shell object
Dim objShell
Set objShell = WScript.CreateObject(”WScript.Shell”)

‘ Create some registry keys and values using RegWrite with objShell
objshell.RegWrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EncryptionContextMenu”, 1, “REG_DWORD”

How to open a Word document from your file server automatically - This little script does nothing but create a link to a Word Doc off the file server and then opens it. You can add some code to maybe open on the file only on Mondays, maybe like a once a week update to the company. Then all you have to do is update the Word file on the server.

Set FSO = CreateObject(”Scripting.FileSystemObject”)

set WshShell = WScript.CreateObject(”WScript.Shell”)
strDesktop = WshShell.SpecialFolders(”Desktop”)
set oShellLink = WshShell.CreateShortcut(strDesktop & “\Company News.lnk”)
oShellLink.TargetPath = “K:\Public\CompanyNews.doc”
oShellLink.Save

‘ Get a reference to the Word Application object.
Set appWord = Wscript.CreateObject(”Word.Application”)
‘ Display the application.
appWord.Visible = TRUE

‘ Open ITdocument.
link = strDesktop & “\Company News.lnk”
appWord.Documents.Open(link)

How to remove admin shares from a computer - This greatly increases security as long as you’re not using Admin shares on any of your desktops.

‘ Create an object to hold a reference to the Wscript.Shell object
Dim objShell
Set objShell = WScript.CreateObject(”WScript.Shell”)

‘ Create some registry keys and values using RegWrite with objShell
objshell.RegWrite “HKLM\SYSTEM\CurrentControlSet\Services\LanManServer\Parameters\AutoShareWks”, 0, “REG_DWORD”

I’ll post some more later on when I have time!

Top things Windows System Administrators should and should not do!

VBS Script for System Administrators - How to backup Outlook email automatically in a login or logoff script

If you enjoyed this post, make sure you subscribe to my RSS feed!

» Filed Under IT Job Stuff