Which entries do you mean? I use the script since a few months and didn't come across any probglem. But perhaps I overlooked a fault.

****, windows commands doesn't really run with these changes when I start WPI.cmd with a doubleclick and I can't figure out why.

When I call WPI.cmd from commandline, everything works fine.

Sorry, attaching the file went wrong, so it edited the post and added the script

Perhaps have a try with the following vb script:

It only asks for the data and then runs the command

"netsh interface ip set address source=static name="Local Area Connection" addr=xxx.xxx.xxx.xxx mask=xxx.xxx.xxx.xxx gateway=xxx.xxx.xxx.xxx 1"

Set wshshell = CreateObject("WScript.Shell")

ip = "134.76.210.86"

subnet ="255.255.0.0"

gateway ="134.76.210.254"

'msg = "Want you to set a static IP? "& VbCr &"(If no DHCP is enabled)?"

antwort = MsgBox(msg, vbYesNo + vbQuestion)

if antwort = vbNo then

befehl ="netsh interface ip set address source=dhcp name= "&"""Local Area Connection"""

command = "%COMSPEC% /C " & befehl

resultat = wshshell.Run ( kommando, 1, True )

befehl ="netsh interface ip delete dns name="&"""Local Area Connection""" & " addr=all"

command = "%COMSPEC% /C " & befehl

resultat = wshshell.Run ( kommando, 1, True )

befehl ="netsh interface ip delete wins name="&"""Local Area Connection""" & " addr=all"

command = "%COMSPEC% /C " & befehl

resultat = wshshell.Run ( kommando, 1, True )

WScript.Quit

end if

ip_neu = InputBox("Please enter the IP:","Enter IP number", ip )

subnet_neu = InputBox("Please enter subnetmask:","Enter subnetmask", subnet )

gateway_neu = InputBox("Please enter gateway:","Enter gateway", gateway )

befehl ="netsh interface ip set address source=static name= "&"""Local Area Connection"""&" addr="& ip_neu &" mask="& subnet_neu &" gateway="& gateway_neu & " 1"

command = "%COMSPEC% /C " & befehl

resultat = wshshell.Run ( kommando, 1, True )

If Not resultat = 0 Then

MsgBox ("Changing of IP failed")

End If

Hi there,

yesterday I came across the problem, that I wanted to run WPI from everywhere, not only from a CD and always came across the error "..windows cannot find....", especially when I tried to run a windows command (e.g. "net use..").

Took me some time to come to a solution and so I thought, I might interest someone else. So here it is. I changed the following to the files:

--------------------------------------------------------------------------------------------------

my WPI.cmd ( basically added the REG ADD and REG DELETE line )

--------------------------------------------

@ECHO OFF

REM Determine the WPI startup path.

set wpipath=%~dp0

REM Font installation - the smooth and customizable way.

start /wait %wpipath%\common\fonts\fontinstaller.exe

REM Special registry tweak needed.

regedit /s "%wpipath%\common\wpi.reg"

REM Make WPI directory the current directory.

for /f "delims=: tokens=1" %%i in ("%wpipath%") do %%i:

cd "%wpipath%"

REM Write the actual path to the registry

REG ADD HKCU\Software\WPI /v SWPath /t REG_EXPAND_SZ /d %wpipath% /f

REM Start WPI and wait for its end

start /wait WPI.hta

REM Delete the Key from the registry

REG DELETE HKCU\Software\WPI

exit

:end

---------------------------------------------------------------------------------------------

Then in generate.js I added the following function:

-----------------------------------------------------------

function FindSWPath()

{

position = "generate.js"

swpath = WshShell.regRead("HKCU\Software\WPI\SWPath");

return swpath;

}

----------------------------------------------------------------------------------------

I also added in generate.js the following lines to the function replpath

------------------------------------------------

softwarepathwpath = FindSWPath();

rs = rs.replace(/%swpath%/gi, softwarepath);

---------------------------------------------------------------------------------------------

Now I can use in config.js for example

cmd1[pn]=['%swpath%\\Install\\Mozilla\\setup.exe -ma -ira']

Now there's nothing else for it, but to say:

WPI is really a REALLY GREAT TOOL!

Keep at it!!!

You could use the attached script. It asks for the new folder for the userprofiles, copies the folder of default user and all users and sets the entry in the registry, so that new profiles will be generated in the new location. Already existing profiles aren't touched.

Save the following as profiles.vbs and run it

-------------------------------------------------------------------------------------------------

Set wshshell = CreateObject("WScript.Shell")

Set fs = CreateObject("Scripting.FileSystemObject")

value_user = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Profilelist\ProfilesDirectory"

dir_docs = wshshell.RegRead(value_user)

Do

answer = vbYes

resiltat1 = 0

resultat2 = 0

'Dialog zur Auswahl des Ordners für die Profile öffnen

userfolder = folderbrowse

'Falls Cancel gedrückt wurde, das Skript beenden

If ( userfolder = "" ) Then

WScript.Quit

End If

pos = Instr (userfolder,":")

If NOT ( pos = 2 ) Then

Msgbox userfolder & " is not a valid directory. Please choose another one!"

Else

Set userfolderO = fs.Getfolder(userfolder)

If ( userfolderO.Subfolders.count > 0 ) OR (userfolderO.files.count > 0 ) Then

answer = Msgbox (userfolder &" is not empty. Overwrite?", vbYesNo + vBQuestion)

If ( answer = vbYes) AND (len(userfolder) > 3) Then

On Error Resume Next

fs.Deletefolder(userfolder)

End If

End If

If NOT ( answer = vbNo ) Then

dir_docs = wshshell.ExpandEnvironmentStrings(dir_docs)

befehl ="xcopy /o/h/e/i/y/q """ & dir_docs & "\all users"" """ & userfolder & "\all users"""

kommando = "%COMSPEC% /C " & befehl

resultat1 = wshshell.Run ( kommando, 1, True )

befehl ="xcopy /o/h/e/i/y/q """ & dir_docs & "\default user"" """ & userfolder & "\default user"""

kommando = "%COMSPEC% /C " & befehl

resultat2 = wshshell.Run ( kommando, 1, True )

If ( resultat1 <> 0 ) OR ( resultat2 <> 0 ) Then

msgbox "Copy failed! Please choose another directory"

If (len(userfolder) = 3) Then

On Error Resume Next

fs.Deletefolder(userfolder & """\all users""")

On Error Resume Next

fs.Deletefolder(userfolder & """\default user""")

Else

fs.Deletefolder(userfolder)

End If

End If

End If

End If

loop while (resultat1 <> 0) OR (resultat2 <> 0) OR ( answer =vbNo ) OR ( NOT pos = 2)

wshshell.RegWrite value_user,userfolder

Function folderBrowse

On Error Resume Next

Set slapp = WScript.CreateObject("Shell.Application")

Set V = slapp.BrowseForFolder (0, "Choose the new folder for the userprofiles ( or press cancel, if you don't want to move it)", 0, &H11)

If err.number <> 0 Then

folderBrowse = "Error number " & err.number

err.clear

Exit Function

End If

folderBrowse = V.self.path

End Function

I've also got the same problem, in unattended setup, every tweak works fine, except that the small icon key isn't imported from the default user profile. Does anyoen know a fix for this problem?

Everything works fine with view set to details, but this is a very other way.