IPB

Google Frontpage Forums Unattended CD/DVD Guide
 Forum Rules Unattended CD/DVD Guide Homepage · MSFN Forum Rules
5 Pages V  « < 2 3 4 5 >  
 Reply to this topicStart new topic
> WinPE 2.0 simple Ghost Menu HTA, a simple HTA to make Ghosting easy
vickerps
post Dec 5 2007, 09:02 AM
Post #61


Newbie


Group: Members
Posts: 17
Joined: 14-June 05
Member No.: 60413
Country Flag


QUOTE (Bumbastik @ Jun 28 2007, 12:59 PM) *
Hi ,

change in hta code this parameters

from

WINDOWSTATE = normal


to
WINDOWSTATE = fullscreen


bye



Hi

First of all well done with this exactly what i have been looking for.

I am trying to get this to run in full screen without any joy. I have edited the wizard.hta and set it to Fullscreen but this dosn't do anything?

Update

Sorted it you need to set it to WINDOWSTATE=maximize

This post has been edited by vickerps: Dec 5 2007, 11:07 AM
Go to the top of the page
 
+Quote Post
vickerps
post Dec 5 2007, 11:12 AM
Post #62


Newbie


Group: Members
Posts: 17
Joined: 14-June 05
Member No.: 60413
Country Flag


Hi having problems point to the path of my ghost32.exe

I have a mapped drive f:\ which contain ghost32.exe

I edited the line

<Button id=ghost onclick=doTask('&quot;%programfiles%\ghost8\ghost32.exe&quot;')>Ghost</BUTTON> &nbsp;&nbsp;&nbsp;&nbsp;


to

<Button id=ghost onclick=doTask('"f:\ghost32.exe"')>Ghost</BUTTON> &nbsp;&nbsp;&nbsp;&nbsp;


This doesn't work. I am new to this kind of coding can anyone help please
Go to the top of the page
 
+Quote Post
vickerps
post Dec 7 2007, 06:26 AM
Post #63


Newbie


Group: Members
Posts: 17
Joined: 14-June 05
Member No.: 60413
Country Flag


Ok I have another Q.

I would like to change the Buttons being generated by the folder name (HP, DELL, ETC)to be a dropdown list box.

the reason for this is that i have a lot of folders which makes way to many buttons.

Anyone help me with this as i am only just learning the HTM coding
Go to the top of the page
 
+Quote Post
Stratuscaster
post Dec 13 2007, 12:27 PM
Post #64


Newbie


Group: Members
Posts: 24
Joined: 5-April 07
Member No.: 134295
Country Flag


QUOTE (vickerps @ Dec 5 2007, 12:12 PM) *
Hi having problems point to the path of my ghost32.exe

I have a mapped drive f:\ which contain ghost32.exe

I edited the line

<Button id=ghost onclick=doTask('&quot;%programfiles%\ghost8\ghost32.exe&quot;')>Ghost</BUTTON> &nbsp;&nbsp;&nbsp;&nbsp;


to

<Button id=ghost onclick=doTask('"f:\ghost32.exe"')>Ghost</BUTTON> &nbsp;&nbsp;&nbsp;&nbsp;


This doesn't work. I am new to this kind of coding can anyone help please

This drove me bonkers for quite some time.

I created a variable called "ghoCmd"
CODE
ghocmd = "%comspec% /c t:\11\ghost32.exe"


Then I created a new subroutine:
CODE
'****************************************************************************
'* doGhost
'****************************************************************************
Sub doGhost(doMe)
  objShell.Run ghoCmd
End Sub


And then I set my button to this:
CODE
<Button class='tool' id=ghost   onclick=doGhost('')>Ghost 11</BUTTON> &nbsp;


Might be overkill - but it works.
Go to the top of the page
 
+Quote Post
Stratuscaster
post Dec 13 2007, 12:29 PM
Post #65


Newbie


Group: Members
Posts: 24
Joined: 5-April 07
Member No.: 134295
Country Flag


QUOTE (vickerps @ Dec 7 2007, 07:26 AM) *
Ok I have another Q.

I would like to change the Buttons being generated by the folder name (HP, DELL, ETC)to be a dropdown list box.

the reason for this is that i have a lot of folders which makes way to many buttons.

Anyone help me with this as i am only just learning the HTM coding

As an alternative, a co-worker wound up creating 26 copies of the HTA and modifying them to only pull items matching the first letter.

So there's a small HTA that shows the A-Z buttons, then each button launches it's own HTA for that 'letter.'

Not elegant, but again - it works.
Go to the top of the page
 
+Quote Post
Stratuscaster
post Dec 13 2007, 12:31 PM
Post #66


Newbie


Group: Members
Posts: 24
Joined: 5-April 07
Member No.: 134295
Country Flag


QUOTE (KenKightly @ Nov 26 2007, 03:51 PM) *
The tool button would be fine with me, Could you share your syntax? I keep trying, but Im messing something up and cant get it to run.

Thanks

Ken.


I set a variable:
CODE
walker = "%comspec% /c t:\11\GhWalk32.exe"


I create a new subroutine:
CODE
'****************************************************************************
'* doGhostWalker
'****************************************************************************
Sub doWalker(doMe)
  objShell.Run walker
End Sub


And my button is:
CODE
<Button class='tool' id=notepad onclick=doWalker('')>GhostWalker</BUTTON>&nbsp;


This post has been edited by Stratuscaster: Dec 13 2007, 12:31 PM
Go to the top of the page
 
+Quote Post
vickerps
post Dec 21 2007, 05:24 AM
Post #67


Newbie


Group: Members
Posts: 17
Joined: 14-June 05
Member No.: 60413
Country Flag


Hi Guy Done it

Change the buttons to a combo box. Open the wizard.hta and cut this in place of the one already there. (i have tried to upload this as well)

CODE
Sub enumDirs
Dim colSubfolders, objFolder, fileName
'enumerate folders in images folder
  Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='z:\'} Where AssocClass = Win32_Subdirectory ResultRole = PartComponent")

'create html buttons from each folder name

strBody = strBody &_
"<select size='1' name='DropDown1'"

  For Each objFolder in colSubfolders
    fileName = objFolder.fileName

  strBody = strBody &_
"onchange='enumImages(DropDown1.value)'><option value = '"&Filename&"'>"&Filename&"</option>"

  Next
'post resulting html body to document
  strBody        = strBody & "</select size><BR><BR><HR><BR>"
  body.innerHTML = strBody
End Sub
Go to the top of the page
 
+Quote Post
geemail.email
post Jan 23 2008, 10:50 AM
Post #68


Newbie


Group: Members
Posts: 37
Joined: 18-January 08
Member No.: 172168
OS: none
Country Flag


All,

First of all, thank you for this post, it has been very useful in my creation of the boot CD.

I am wondering if anyone can assist me with my next task. My WinPE 2.0 boot cd has all of the packages installed(WMI, HTA, WMI, Scripting). I am using a modified version of the wizard.hta and would like to accomplish something similar to Tombtek99's posting.

I would like to:
1. Boot with the WinPE CD
2. Detect the workstation IP address or DHCP server IP address.
3. Based on the workstation IP address or DHCP server IP address, map a network drive by reading in a text file stored on the boot cd.
4. Use the mapped network drive to execute the HTA to run ghost, etc.

Again, thank you for the previous discussions and for any assistance you can provide.

This forum rocks!!!
Go to the top of the page
 
+Quote Post
Stratuscaster
post Jan 25 2008, 01:18 PM
Post #69


Newbie


Group: Members
Posts: 24
Joined: 5-April 07
Member No.: 134295
Country Flag


You can create a VBS script launched from your startnet.bat to read the IP address (among other things) and store it into a variable. We use a sysinfo.cmd file to launch the sysinfo.vbs file, which in turn grabs the info and pipes it to a setenv.cmd file and runs it - both files are in x:\windows\system32.

You can use an IF statement in your startnet.cmd to compare that IP variable and act accordingly (launch a file, run a script, map a drive, etc.)

CODE
REM *** sysinfo.cmd ***
cscript.exe //nologo x:\windows\system32\sysinfo.vbs >x:\windows\system32\setenv.cmd
x:\windows\system32\setenv.cmd

CODE
REM *** sysinfo.vbs ***
dim count,t,ipchar,ip,lab,cnt
REM *** Get IP Address and Filter Link local IPv6 ***
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", &h10 + &h20)

For Each objItem In colItems
    strIPAddress = Join(objItem.IPAddress, ",")
Next
count=1
do while(ipchar<>",")
ipchar=mid(strIPAddress,count,1)
count=count+1
if ipchar<>"," then ip=ip & ipchar
Loop
WScript.Echo "SET IP=" & ip

REM *** Determine which lab menu to load ***
REM *** LAB1 = 10.10.16.x - 10.10.31.x  LAB2 = 10.10.32.x - 10.10.47.x
count=1
cnt=0
ipchar=""
lab=""
do while(ipchar<>",")
ipchar=mid(strIPAddress,count,1)
if ipchar="." then cnt=cnt+1
count=count+1
if cnt=2 and ipchar<>"." then lab=lab & ipchar
loop
if lab<32 then Wscript.Echo "SET LAB=" & "LAB1" else WScript.Echo "SET LAB=" & "LAB2"


CODE
REM *** code placed in startnet.cmd ***

set LAB=UNKNOWN
call x:\windows\system32\sysinfo.cmd
GOTO %LAB%

:LAB1
REM *** launch the HTA and pass the IP variable to be displayed on screen ***
mshta.exe "i:\wizards\lab1.hta" "%IP%"
goto END

:LAB2
REM *** launch the HTA and pass the IP variable to be displayed on screen ***
mshta.exe "i:\wizards\lab2.hta" "%IP%"
goto END

:UNKNOWN
x:\Programs\nu2menu\nu2menu.exe

:END


We just completed a setup that does this very thing. If the third octet of the IP is <32, it launches the hta for one lab, and if it's >=32, it launches the hta for another lab. If it's neither, or an error occurs, a 'default' nu2menu is loaded.

Our setup is fairly deep and uses PXE rather than off the CD, but the basic steps should still apply. Hope this helps.
Go to the top of the page
 
+Quote Post
weedy171
post Mar 17 2008, 07:02 AM
Post #70





Group: Members
Posts: 8
Joined: 17-September 07
Member No.: 155114
OS: XP Pro x86
Country Flag


Can someone tell me why for the Image name is blank. The radio button show and all other text shows. Just not the text for the radio button image name.

Thanks
Go to the top of the page
 
+Quote Post
Stratuscaster
post Mar 17 2008, 08:40 AM
Post #71


Newbie


Group: Members
Posts: 24
Joined: 5-April 07
Member No.: 134295
Country Flag


QUOTE (weedy171 @ Mar 17 2008, 08:02 AM) *
Can someone tell me why for the Image name is blank. The radio button show and all other text shows. Just not the text for the radio button image name.

Thanks

Did you add anything to the COMMENT field in the PROPERTIES of the shortcut that you created?
Go to the top of the page
 
+Quote Post
weedy171
post Mar 17 2008, 09:20 AM
Post #72





Group: Members
Posts: 8
Joined: 17-September 07
Member No.: 155114
OS: XP Pro x86
Country Flag


This is what my code looks like....
'add radio button label (from fso) and radio button target (from wmi) to an array
For each objTarget in colTargetList
ReDim Preserve arrButtons(1,UBound(arrButtons,2)+1)
arrButtons(0,UBound(arrButtons,2)) = objShortcut.Description
arrButtons(1,UBound(arrButtons,2)) = "<Input type=radio name=radioList id='" & objTarget.Drive & objTarget.Path & objTarget.fileName &_
"' onClick=showRadioInfo>" & objShortcut.Description & "</BUTTON><BR>"
Next
End If
Next
Go to the top of the page
 
+Quote Post
weedy171
post Mar 17 2008, 10:11 AM
Post #73





Group: Members
Posts: 8
Joined: 17-September 07
Member No.: 155114
OS: XP Pro x86
Country Flag


This is what my code looks like for the radio button section.

'add radio button label (from fso) and radio button target (from wmi) to an array
For each objTarget in colTargetList
ReDim Preserve arrButtons(1,UBound(arrButtons,2)+1)
arrButtons(0,UBound(arrButtons,2)) = objShortcut.Description
arrButtons(1,UBound(arrButtons,2)) = "<Input type=radio name=radioList id='" & objTarget.Drive & objTarget.Path & objTarget.fileName &_
"' onClick=showRadioInfo>" & objShortcut.Description & "</BUTTON><BR>"
Next
End If
Go to the top of the page
 
+Quote Post
zorphnog
post Mar 17 2008, 12:03 PM
Post #74


Advanced Member
***

Group: Members
Posts: 427
Joined: 25-July 06
From: Charleston, SC
Member No.: 105938
Country Flag


This has nothing to do with the HTA code. As @Stratuscaster pointed out, how did you create your shortcuts for your images? Did you add anything to the COMMENTS sections because this is where the text for the radio button is pulled.
Go to the top of the page
 
+Quote Post
weedy171
post Mar 17 2008, 12:10 PM
Post #75





Group: Members
Posts: 8
Joined: 17-September 07
Member No.: 155114
OS: XP Pro x86
Country Flag


I thought he was talking about comments in the code. Sorry about that. Yes I did not have any comments in the shortcuts. Thanks a lot for your help and a KUDOS on this cool program.
Go to the top of the page
 
+Quote Post
weedy171
post Mar 17 2008, 12:21 PM
Post #76





Group: Members
Posts: 8
Joined: 17-September 07
Member No.: 155114
OS: XP Pro x86
Country Flag


Is their a way to reboot the PE Enviroment after I ghost a computer. I have the RB switch in ghost but I think it restarts the ghost windows and not PE.

strTaskValue = Chr(34) & "%programfiles%\Ghost8\ghost32.exe" & Chr(34) & " -clone,mode=load,src=" & Chr(34) & Radio.Id & ".gho" & Chr(34) & ",dst=1,SZEF -fni -auto -sure -ntil -RB"
Go to the top of the page
 
+Quote Post
Stratuscaster
post Mar 19 2008, 10:05 AM
Post #77


Newbie


Group: Members
Posts: 24
Joined: 5-April 07
Member No.: 134295
Country Flag


QUOTE (weedy171 @ Mar 17 2008, 12:21 PM) *
Is their a way to reboot the PE Enviroment after I ghost a computer. I have the RB switch in ghost but I think it restarts the ghost windows and not PE.

strTaskValue = Chr(34) & "%programfiles%\Ghost8\ghost32.exe" & Chr(34) & " -clone,mode=load,src=" & Chr(34) & Radio.Id & ".gho" & Chr(34) & ",dst=1,SZEF -fni -auto -sure -ntil -RB"


I have in my HTA app that launches Ghost a button that does this:
CODE
wpeutil reboot
Go to the top of the page
 
+Quote Post
weedy171