''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Rez creation script - by Deunid, 2002 - All Rights Reserved
'
' Feel free to reuse at will except for sites competing with NolfGirl.com
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim WshShell
Dim WshFiles
Dim location
Dim command
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshFiles = WScript.CreateObject("Scripting.FileSystemObject") 
if (WshFiles is nothing) then 
	WshShell.PopUp "Ooops. This PC lacks the shell scripting capabilities required." & vbCr & "Please correct the problem (I need it to be able to work)!"
else
	command = "WinRezLT.exe"
	if not WshFiles.fileExists(command) then
		WshShell.PopUp "Ooops. Winrez LT do not seem installed." & vbCr & "Please correct the problem (I need them to be able to work)!"
	else
		command = "WinRezLT.exe /C MySkin.rez REZFOLDER"
		WshShell.Run command, 1, TRUE
		if not WshFiles.fileExists("MYSKIN.REZ") then
			WshShell.PopUp "Ooops. Sorry, but something seems to have went wrong. Please try to rez manually."
		else
			msgbox "The rez file MYSKIN.REZ was created.", vbOKOnly, "NolfGirl's Rez Creation Script"
		end if
	end if
end if