Voor het kopiëren van de Inetpub directory naar D en het aanpassen van de Default Web Site directory naar D: \\
<code vb>
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 = Nothing
Set objShell = Nothing
</code>
Bron:[[http://msmvps.com/blogs/msakr/archive/2006/02/10/83085.aspx|Move inetpub folder to another drive]] \\