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 = Nothing
Set objShell = Nothing

Bron:Move inetpub folder to another drive