Più scritti di VBS per i coordinatori di sistema

Inviato il 30 marzo 2007 ad 8:56

Durante questi ultimi anni come sistemi Admin, ho dovuto scrivere un buon numero di scritti per controllare i tavoli, la sicurezza ed il salvataggio dati. Qui è una coppia degli scritti corti che ho usato nel mio ambiente!

Come generare una scorciatoia sul tavolo - Usando questo scritto, potete ottenere un riferimento al destop usando la funzione speciale dei dispositivi di piegatura, in modo da non dovete preoccuparti per il percorso esatto per ogni utente. Allora punto giusto ad un URL o nel mio caso, un web server interno.

regoli WshShell = WScript.CreateObject („ WScript.Shell„)

strDesktop = WshShell.SpecialFolders („ tavolo„)
regoli il oShellLink = WshShell.CreateShortcut (strDesktop & “\ supporto Site.URL„)
oShellLink.TargetPath = “http://websvr/TechSupport„
oShellLink.Save

Come generare un dispositivo di piegatura con gli articoli nel menu di inizio

Regoli FSO = CreateObject („ Scripting.FileSystemObject„)

Il `ottiene il percorso del menu di inizio
strStartMenu = WshShell.SpecialFolders („ StartMenu„)

Il `in primo luogo cancella il vecchio dispositivo di piegatura del menu di inizio - la miniera è denominata Apps
Il `che questo è il dispositivo di piegatura principale quando scattate tutti i programmi, allora noi genererà
subfolders del `dal reparto più tardi
NewFolder = strStartMenu & “\ programmi \ Apps„

Se FSO.FolderExists (NewFolder) allora
FSO.DeleteFolder NewFolder
concluda se

Il `ricrea o genera il dispositivo di piegatura

Se non FSO.FolderExists (NewFolder) allora
FSO.CreateFolder NewFolder
Concluda se

`Ora generiamo i secondario-dispositivi di piegatura per ogni reparto
strStartMenu = WshShell.SpecialFolders („ StartMenu„)
DeptFolder = strStartMenu & “\ programmi \ Apps \ Dept1 ″

Se non FSO.FolderExists (DeptFolder) allora
FSO.CreateFolder DeptFolder
Concluda se

Lavoro del `intorno al problema corto di nome di archivio
Oscuri il ritorno
' subst un azionamento per fare il lavoro di tracciato
ritorno = WshShell.Run („ subst i di /c del cmd: c:\„, 0, ALLINEARE)

Il `genera i collegamenti qui, assegna i tasti di scelta rapida, il percorso sull'assistente e il dir di funzionamento

regoli il oShellLink = WshShell.CreateShortcut (DeptFolder & “\ laboratorio Track.lnk di ricerca„)
oShellLink.TargetPath = “i:\SearchLab\SearchLab.exe„
oShellLink.WindowStyle = 1
oShellLink.Hotkey = “CTRL+SHIFT+S„
oShellLink.IconLocation = “i:\SearchLab\SearchLab.exe, 0 ″
oShellLink.Description = “2 - cerchi rapidamente la pista del laboratorio„
oShellLink.WorkingDirectory = “i:\SearchLab„

`Che potete continuare per aggiungere più collegamenti nel dispositivo di piegatura, copiando questo codice qui sopra

il `rimuove il subst
ritorno = WshShell.Run („ subst i di /c del cmd: /d„, 0, ALLINEARE)

Il `si assicura che il menu di inizio alphatecially è ordinato
Il `che cancella dalla registrazione, non può usare il metodo normale. Deve cancellare in primo luogo cancellando tutti i subkeys e chiave allora di cancellazione

strComputer = “.„ uso del `“.„ per il calcolatore locale

Const HKCU = &H80000001 `HKEY_CURRENT_USER

objRegistry stabilito = GetObject _
(„ winmgmts: {impersonationLevel=impersonate}! \ \„ & strComputer & “\ radice \ difetto: StdRegProv„)

KillKey HKCU, “software \ Microsoft \ Windows \ CurrentVersion \ esploratore \ MenuOrder \ menu di inizio„

KillKey secondario (lHive, strKey)

strElement fioco, IsSubscriptOutOfRange
sKeys fiochi ()

objRegistry.EnumKey lHive, strKey, sKeys

Sul Resume di errore dopo
IsSubscriptOutOfRange = sKeys (0)

Se allora erra = 0
Per ogni strElement negli sKeys
KillKey lHive, strKey & “\„ & strElement
Dopo
Concluda se

Err.Clear
objRegistry.DeleteKey lHive, strKey
Sommergibile dell'estremità

Come permettere lo shorcut della lima di cifratura nel menu di contesto - Questo permetterà un utente a di destra scatta sopra una lima e sceglie cifra, piuttosto che dovendo aprire le proprietà della lima.

‘ 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