Meer Manuscripten VBS voor de Beheerders van het Systeem

Gepost op 30 Maart, 2007 in 8:56 am

Tijdens de voorbije paar jaar als Systemen Admin, heb ik een goed aantal manuscripten moeten schrijven om Desktops, veiligheid, en gegevenssteun te beheren. Hier zijn een paar korte manuscripten die ik in mijn milieu heb gebruikt!

Hoe te om een kortere weg op de Desktop te creëren - Gebruikend dit manuscript, kunt u een verwijzing naar destop krijgen gebruikend de speciale omslagenfunctie, zodat moet u niet zich over de nauwkeurige weg voor elke gebruiker ongerust maken. Dan richt enkel aan een URL of in mijn geval, een interne Webserver.

vastgestelde WshShell = WScript.CreateObject (“ WScript.Shell“)

strDesktop = WshShell.SpecialFolders (“ Desktop“)
reeks oShellLink = WshShell.CreateShortcut (strDesktop & „\ Steun Site.URL“)
oShellLink.TargetPath = „http://websvr/TechSupport“
[أشلّلينك.سف]

Hoe te om een omslag met punten in het Menu van het Begin te creëren

Vastgesteld FSO = CreateObject (“ Scripting.FileSystemObject“)

`Krijg de weg van het beginmenu
strStartMenu = WshShell.SpecialFolders (“ StartMenu“)

`Schrap eerst de oude omslag van het beginmenu - de mijn wordt genoemd Apps
`Dit is de belangrijkste omslag wanneer u Alle Programma's klikt, dan zullen wij creëren
subfolders `door afd. later
NewFolder = strStartMenu & „\- Programma's \ Apps“

Als FSO.FolderExists (NewFolder) toen
FSO.DeleteFolder NewFolder
beëindig als

`Cre�ër of cre�ër de omslag opnieuw

Als NIET FSO.FolderExists (NewFolder) toen
FSO.CreateFolder NewFolder
Eind als

`Creëren wij nu sub-omslagen voor elke afdeling
strStartMenu = WshShell.SpecialFolders (“ StartMenu“)
DeptFolder = strStartMenu & „\- Programma's \ Apps \ Dept1 ″

Als NIET FSO.FolderExists (DeptFolder) toen
FSO.CreateFolder DeptFolder
Eind als

`Het werk rond het korte dossier - naamprobleem
Schemerig root
' subst een aandrijving om het afbeeldingswerk te maken
root = WshShell.Run (“ cmd /c subst I: c:\“, 0, WAAR)

`Cre�ër de verbindingen hier, wijs kortere wegsleutels, weg op server, en het werken toe dir

reeks oShellLink = WshShell.CreateShortcut (Laboratorium Track.lnk van DeptFolder & het „van het Onderzoek \“)
oShellLink.TargetPath = „i:\SearchLab\SearchLab.exe“
oShellLink.WindowStyle = 1
oShellLink.Hotkey = „CTRL+SHIFT+S“
oShellLink.IconLocation = „i:\SearchLab\SearchLab.exe, 0 ″
oShellLink.Description = „2 - het Spoor van het Laboratorium van het Onderzoek snel“
oShellLink.WorkingDirectory = „i:\SearchLab“

`U kunt blijven meer verbindingen in de omslag toevoegen, door deze code hierboven te kopiëren

`verwijdert subst
root = WshShell.Run (“ cmd /c subst I: /d“, 0, WAAR)

`Zorg het beginmenu ervoor alphatecially wordt bevolen
`Schrappend van de registratie, kan geen regelmatige methode gebruiken. Moet schrappen door alle subkeys eerst te schrappen en dan sleutel te schrappen

strComputer = „.“ `gebruik „.“ voor lokale computer

Const HKCU = &H80000001 `HKEY_CURRENT_USER

Vastgestelde objRegistry = GetObject _
(“ winmgmts: {impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel\ gebrek: StdRegProv“)

KillKey HKCU, „het Menu van het Begin van de Ontdekkingsreiziger \ MenuOrder \ van de Vensters \ CurrentVersion \ van de Software \ Microsoft \“

Sub lHive KillKey (, strKey)

Schemerige strElement, IsSubscriptOutOfRange
Schemerige sKeys ()

lHive objRegistry.EnumKey, strKey, sKeys

Op Fout hervat daarna
IsSubscriptOutOfRange = sKeys (0)

Als me = 0 toen vergis
Voor Elke strElement in sKeys
lHive KillKey, strKey & „\“ & strElement
Daarna
Eind als

Err.Clear
lHive objRegistry.DeleteKey, strKey
Sub van het eind

Hoe te om het Encrypt Dossier shorcut in het contextmenu toe te laten - Dit zal een gebruiker om op een dossier toestaan met de rechtermuisknop aan te klikken en te kiezen codeert, eerder dan moetend de eigenschappen van het dossier openen.

‘ 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!

Related Posts:

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

Related Posts

Please post your comments/suggestions!