Option Explicit
Dim Shell, FSO, wdir
Set Shell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

wdir = Shell.ExpandEnvironmentStrings("%windir%")

FSO.CopyFolder wdir & "\sysprep", "C:\"

Shell.Run "C:\sysprep\sysprep.exe"
Wscript.Sleep 5000
Shell.AppActivate "Windows 2000 System Preparation Tool"
Shell.SendKeys "~" 'Enter key

Wscript.Quit