Notes - microsoft:scripting:vbscript:scripts
http://www.de12werken.nl/
2026-04-05T17:00:20+00:00Notes
http://www.de12werken.nl/
http://www.de12werken.nl/lib/exe/fetch.php?media=wiki:dokuwiki.svgtext/html2009-09-16T13:31:32+00:00Anonymous (anonymous@undisclosed.example.com)7zipcompresssubdirs
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:7zipcompresssubdirs&rev=1253107892&do=diff
Versie 1
Voor het comprimeren van subdirectories van een directory naar een 7-zip archief met de naam van de subdirectory.
'Voor het comprimeren van alle subfolders van een folder met 7-zip.
'Bedoeld voor scheduled task
'on error resume next
sourcefolder = "d:\Misc\uit dienst home dir\"
destinationfolder = "D:\Misc\BACKUP\UITDIENST\"
'logfile en tooldir locatie mogen geen spaties bevatten.
logfile = "C:\Logs\7zipCompressSubdirs-log.txt"
tooldir = "c:\Tools\7-zip\"
CONST HideWindow = 0
CON…text/html2009-09-16T13:27:31+00:00Anonymous (anonymous@undisclosed.example.com)copyfromshare
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:copyfromshare&rev=1253107651&do=diff
Versie 3
'Voor het kopiëren van bestanden van een remote share naar lokaal.
'Start dit in een scheduled task die met de juiste credentials gestart word.
'20080124, v1
'20080515, v2, nu met function.
'20090405, v3, functie aanroep aangepast en set object commando buiten de functie gezet.
On Error Resume Next
'Definieer constanten
CONST overwrite = True
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
Function CopyFromShare(remoteDirect…text/html2010-06-17T14:16:25+00:00Anonymous (anonymous@undisclosed.example.com)createmd5fromstring
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:createmd5fromstring&rev=1276784185&do=diff
Versie 1
'CreateMD5FromString.vbs
'Voor het maken van een MD5 sum van een string.
'Vereist installatie van de MD5 Component ActiveX van XStandard
'http://www.xstandard.com/en/documentation/xmd5/
'20100609, v1.
Set objParam = WScript.Arguments
If objParam.Count = 0 Then
WScript.Echo "Geef aub één of meerdere parameters op (gescheiden door spaties)."
WScript.Quit
End If
Set objMD5 = CreateObject("XStandard.MD5")
intNrOfParameters = objParam.Count
For intNrOfParameters = 0 To objParam.…text/html2009-09-17T17:29:50+00:00Anonymous (anonymous@undisclosed.example.com)deldircontents
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:deldircontents&rev=1253208590&do=diff
Versie 1
For deleting the contents of a directory but not the directory itself:
folderName = "C:\Temp"
CONST WaitOnReturn = true
CONST HideWindow = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
'Declare the function
Function DeleteContents(dirName)
If objFSO.FolderExists(dirName) Then
Set delcontentsfolder = objFSO.GetFolder(dirName)
'Remove all files in the directory
For Each File in delcontentsfolder.Files
objFSO.Delete…text/html2009-09-17T17:31:41+00:00Anonymous (anonymous@undisclosed.example.com)desktopchecker
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:desktopchecker&rev=1253208701&do=diff
Here's a useful script to quickly display the configuration of a remote system for troubleshooting or inventory purposes.
This handy script will attempt to gather various Windows NT/2000/XP/2003 operating-system attributes and display them in a coherent way to assist in troubleshooting. I highly suggest modifying the customization variables located within the script. To edit this text file, just open it with Notepad (leave Word Wrap turned off). Even if you have no experience with VBScript, you…text/html2009-09-17T17:33:18+00:00Anonymous (anonymous@undisclosed.example.com)diskpartscripting
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:diskpartscripting&rev=1253208798&do=diff
Verplaatst de CD-/DVD-ROM naar E, maakt een nieuw volume aan met de beschikbare ruimte, geeft deze schijfletter D en formatteerd het volume als NTFS.
HideWindow = 0
WaitOnReturn = True
ForReading = 1
ForWriting = 2
Create = True
FormatASCII = 0
Fixed = 2
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Voor het verplaatsen van de CD-/DVD-drive:
Set objTextStream = objFSO.OpenTextFile("c:\Temp\dpartscript.txt",ForWriting,Creat…text/html2009-09-17T17:34:45+00:00Anonymous (anonymous@undisclosed.example.com)enablenetbioswithbroadcast
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:enablenetbioswithbroadcast&rev=1253208885&do=diff
Versie 1
'EnableNetBIOSWithBroadcast.vbs
'Voor het instellen van node type op broadcast en het aanzetten van NetBIOS over TCP/IP.
'Gebaseerd op code van: http://develnet.blogspot.com/2006/10/disabling-netbios-over-tcpip-via.html
'20090415, v1.
strComputer = "."
HKLM = 2147483650
strValueName = "NetbiosOptions"
strSubKey = "System\CurrentControlSet\Services\NetBT\Parameters\Interfaces\"
'Get registry provider from WMI
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:St…text/html2012-01-15T09:27:59+00:00Anonymous (anonymous@undisclosed.example.com)expanddevicepath
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:expanddevicepath&rev=1326619679&do=diff
Description
For expanding the DevicePath key below HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion.
An easy way to add extra driver directories to search for devices that are added to the system after install (printers, extra expansion cards, etc.).text/html2009-09-17T17:38:06+00:00Anonymous (anonymous@undisclosed.example.com)moveiisinetpub
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:moveiisinetpub&rev=1253209086&do=diff
Voor het kopiëren van de Inetpub directory naar D en het aanpassen van de Default Web Site directory naar D:
CONST DontOverWrite = False
CONST HideWindow = 0
CONST WaitOnReturn = True
Set objShell = CreateObject("WScript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.CopyFolder "C:\Inetpub", "D:\Inetpub", DontOverWrite
objShell.Run "cscript.exe c:\inetpub\adminscripts\adsutil.vbs SET w3svc/1/root/path d:\inetpub\wwwroot", HideWindow, WaitOnReturn
Set objFso = Noth…text/html2009-12-02T10:38:06+00:00Anonymous (anonymous@undisclosed.example.com)restartprintspooler
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:restartprintspooler&rev=1259750286&do=diff
Versie 1
Stopt de Print Spooler service, wacht 60 seconden en start 'm weer. Wacht vervolgens nog 30 seconden en start 'm weer, voor het geval de service problemen heeft met opstarten.
'RestartPrintSpooler.vbs
'Voor het stoppen en starten van de Print Spooler service.
'20091202, v1
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Win32_Service: http://msdn.microsoft.com/en-us/library/aa39441…text/html2010-07-21T07:06:00+00:00Anonymous (anonymous@undisclosed.example.com)restartservices
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:restartservices&rev=1279695960&do=diff
Versie 2
'RestartServices.vbs
'Voor het stoppen en starten van services.
'Win32_Service: http://msdn.microsoft.com/en-us/library/aa394418(VS.85).aspx
'20100720, v1.
'20100721, v2:
'Functie voorzien van intWaitTime parameter om de wachttijd na het stoppen in te kunnen stellen.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Functie: RestartService
'Parameter1: display name van de service (str…text/html2009-09-17T17:39:27+00:00Anonymous (anonymous@undisclosed.example.com)setblankscreensaver
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:setblankscreensaver&rev=1253209167&do=diff
Voor het instellen van een blanco screensaver voor de huidige en de default user.
CONST scrnsaver = "C:\WINDOWS\system32\scrnsave.scr"
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKCU\Control Panel\Desktop\SCRNSAVE.EXE", scrnsaver, "REG_SZ"
objShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\SCRNSAVE.EXE", scrnsaver, "REG_SZ"
objShell.Run "REG LOAD HKLM\DEFUSER " & chr(34) & "C:\Documents and Settings\Default User\NTUSER.DAT" & chr(34)
WScript.Sleep(5000)
obj…text/html2020-09-09T11:39:36+00:00Anonymous (anonymous@undisclosed.example.com)setpwtoneverexpire
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:setpwtoneverexpire&rev=1599651576&do=diff
Microsoft - Scripting - VBScript - SetPwToNeverExpire
Sets the password of accountname passed to it as argument to never expire.
Version 3
'SetPwToNeverExpire.vbs
'Thanks to Biber http://www.administrator.de/index.php?content=37803
'20060811, v1, Biber.
'20110319, v2.
' Copy and paste of script from mentioned URL with some style modifications.
'20200909, v3.
' Use the COMPUTERNAME as the computer to use in GetObject.
' Remove the extra "/." after strWorkGroupOrDomain so that it works on Win…text/html2012-01-15T09:21:12+00:00Anonymous (anonymous@undisclosed.example.com)settcpipdnssettings
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:settcpipdnssettings&rev=1326619272&do=diff
Version 2
Sets the following DNS related settings on the network adapters:
* IP's of the DNS servers (arrDNSServers)
* The primary domain to which the computer belongs (strDNSDomain)
* The list of domains that should be searched when only given a hostname to resolve (strDNSSuffixSearchDomains)text/html2009-09-17T17:43:46+00:00Anonymous (anonymous@undisclosed.example.com)sortfilesinsubfolder
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:sortfilesinsubfolder&rev=1253209426&do=diff
Maakt in de opgegeven directory per datum van de aanwezige bestanden in het yyyymmdd formaat subdirectories aan en verplaatst de bestanden in de directory op datum naar de subdirectories.
Bedoeld voor een directory waar veel van dezelfde bestanden in terechtkomen als uitvoer uit een programma.text/html2010-07-20T15:36:40+00:00Anonymous (anonymous@undisclosed.example.com)sqldbcompress
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:sqldbcompress&rev=1279640200&do=diff
Info
Script voor het comprimeren van SQL database bak dump bestanden.
Bedoeld voor in dagelijkse scheduled task.
7za.exe moet in de directory staan die genoemd wordt onder toolsdir.
Het bak bestand van de database moet in de directory staan die genoemd wordt onder backupdir in de vorm databasenaam.bak.text/html2011-11-05T19:07:21+00:00Anonymous (anonymous@undisclosed.example.com)sqlmirroring
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:sqlmirroring&rev=1320520041&do=diff
Version 2
The below script should be executed with cscript on the source server.
It takes care of setting up database mirroring for one or all databases on a sourceserver.
Modify the directory and server variables before executing.
The account running this script has to have the correct perissions on both servers.text/html2009-09-16T13:29:19+00:00Anonymous (anonymous@undisclosed.example.com)startappwithparams
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:startappwithparams&rev=1253107759&do=diff
Versie 1
Gemaakt voor gebruik in MSI project waarbij advertised snelkoppelingen naar applicaties op de netwerkschijf gemaakt moeten worden. Hierbij staat het merendeel van de applicatie op een netwerkschijf met een paar onderdelen, waaronder de snelkoppeling(en), lokaal.text/html2011-11-15T15:04:01+00:00Anonymous (anonymous@undisclosed.example.com)tssetpowershellexerights
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:tssetpowershellexerights&rev=1321369441&do=diff
Version 1
Removes Users group from powershell(_ise).exe as there is no GPO or other setting to prevent the usage of PowerShell like there is for the command prompt (cmd.exe).
Tested and used on Windows Server 2008 R2 Remote Desktop Session Host (aka Terminal Server).text/html2009-09-17T17:47:53+00:00Anonymous (anonymous@undisclosed.example.com)whichtemplate
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:whichtemplate&rev=1253209673&do=diff
Script om alle Word bestanden in een directory na te gaan op de gebruikte templates.
Uitvoer van script komt in strLogFilePath en voortgang word bijgehouden in strCheckedFiles, zodat het script herstart kan worden en dan oppakt waar het gebleven was.text/html2011-05-10T15:30:25+00:00Anonymous (anonymous@undisclosed.example.com)wmi-setopticaldriveletter-remote
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:wmi-setopticaldriveletter-remote&rev=1305041425&do=diff
Version 1
'WMI-SetOpticalDriveLetter-Remote.vbs
'For moving the optical drive of a remote machine.
'Contains code from http://www.visualbasicscript.com/tm.aspx?high=&m=30133&mpage=1.
'20110510, v1.
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
strComputer = "10.1.1.1"
strAcc = "administrator"
strPassword = "password"
Set objWMIService = objLocator.ConnectServer ( strComputer, "\root\cimv2", strComputer & "\" & strAcc, strPassword )
objWMIService.Security_.impersonationlevel = …text/html2012-02-10T08:00:57+00:00Anonymous (anonymous@undisclosed.example.com)wmi-setopticaldriveletter
http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:scripts:wmi-setopticaldriveletter&rev=1328860857&do=diff
Version 1
Assumes C and D are local hard drives/partitions and E is the optical drive.
'WMI-SetOpticalDriveLetter.vbs
'For moving the optical drive of the local machine.
'Contains code from http://www.visualbasicscript.com/tm.aspx?high=&m=30133&mpage=1.
'20110701, v1.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Select all volumes of type compact disc.
'http://msdn.microsoft.com/en-us/library/aa394515(…