Windows Vista Forums
Vista Forums Home Join Vista Forums Windows 7 Forum Vista Tutorials Tags
Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks.

Go Back   Vista Forums > Misc Newsgroups > VB Script
Reload this Page vbscript and HTA help
Join Now FAQ Search Today's Posts Mark Forums Read

Vista - vbscript and HTA help

Reply
Page 1 of 2 1 2
 
Old 05-24-2008   #1 (permalink)
Daz


 
 

vbscript and HTA help
Hi all,

Am trying my hand at my first HTA and would like to ask for some help
with a process i am tying to implement...

I would like to select one option of 3 options for a given object and
then once all the objects have had a selection, output the object.name
to a text file maching the choice... so if i picked disable for object
1 and automatic for object 2 and manual for object 3 and automatic for
object 4 - i would have 3 text files with the object name on a line.
So the output file for automatic (lets call it automatic.txt) would
have object1 and on the next line object4.

I think you get what i mean....

here is the test hta code i am working with at the moment...

<html>
<head>
<title>test</title>
<hta:application
ID="objHTA"
VERSION="1.0"
icon="simple.ico"
applicationName="test"
border=dialog
borderStyle=normal
caption=yes
contextMenu=yes
innerBorder=yes
maximizeButton=yes
minimizeButton=yes
navigable=yes
scroll=no
selection=yes
showInTaskBar=yes
sysMenu=yes
singleInstance=yes
windowState=normal
/>
<script language="vbscript">

Sub Window_Onload
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From
Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
intLeft = (intHorizontal - 800) / 2
intTop = (intVertical - 600) / 2
window.resizeTo 800,600
window.moveTo intLeft, intTop
window.focus()
End Sub

</script>
</head>

<body>
<table width="200" border="1">
<tr>
<td>object 1
<label></label></td>
</tr>
<tr>
<td><input type='radio' name='disable' id='disable2' />
Disable
</label>
<label>
<input type='radio' name='radio' id='Automatic2'
value='Automatic' />
Automatic</label>
<label>
<input type='radio' name='radio' id='Manual2' value='Manual' /
Quote:

>
Manual</label></td>
</tr>
<tr>
<td>object 2</td>
</tr>
<tr>
<td><input type='radio' name='disable' id='disable3' />
Disable
</label>
<label>
<input type='radio' name='radio' id='Automatic3'
value='Automatic' />
Automatic</label>
<label>
<input type='radio' name='radio' id='Manual3' value='Manual' /
Quote:

>
Manual</label></td>
</tr>
</table>
</body>
</html>


I would greatly appreciate your help

Cheers,
Daz
My System SpecsSystem Spec
Old 05-24-2008   #2 (permalink)
McKirahan


 
 

Re: vbscript and HTA help

"Daz" <darren.blackley@xxxxxx> wrote in message
news:83da94f4-28e4-46de-9eea-0fc83ac03dee@xxxxxx
Quote:

> Hi all,
>
> Am trying my hand at my first HTA and would like to ask for some help
> with a process i am tying to implement...
>
> I would like to select one option of 3 options for a given object and
> then once all the objects have had a selection, output the object.name
> to a text file maching the choice... so if i picked disable for object
> 1 and automatic for object 2 and manual for object 3 and automatic for
> object 4 - i would have 3 text files with the object name on a line.
> So the output file for automatic (lets call it automatic.txt) would
> have object1 and on the next line object4.
>
> I think you get what i mean....
>
> here is the test hta code i am working with at the moment...
[snip]

Will this help? Watch for word-wrap.

<html>
<head>
<title>test</title>
<hta:application
ID="objHTA"
VERSION="1.0"
icon="simple.ico"
applicationName="test"
border=dialog
borderStyle=normal
caption=yes
contextMenu=yes
innerBorder=yes
maximizeButton=yes
minimizeButton=yes
navigable=yes
scroll=no
selection=yes
showInTaskBar=yes
singleInstance=yes
sysMenu=yes
windowState=normal
/>
<script language="vbscript">
Sub Radios()
Const cMAX = 4
Dim arrCTF(3)
Dim intCTF
Dim strCTF
Dim arrDIC(3)
arrDIC(1) = "Automatic"
arrDIC(2) = "Disable"
arrDIC(3) = "Manual"
Dim intDIC
Set objDIC = CreateObject("Scripting.Dictionary")
For intDIC = 1 To UBound(arrDIC)
objDIC.Add arrDIC(intDIC), intDIC
Next
Dim iMAX : iMAX = 0
DIm i, o, s
For i = 1 To cMAX
For Each o In Eval("document.form1.object" & i)
If o.Checked = True Then
iMAX = iMAX + 1
intCTF = objDIC.Item(o.Value)
arrCTF(intCTF) = arrCTF(intCTF) & "object" & i & vbCrLf
End If
Next
Next
'*
If iMAX = cMAX Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
For intDIC = 1 To UBound(arrDIC)
strCTF = arrDIC(intDIC) & ".txt"
Set objCTF = objFSO.CreateTextFile(strCTF,True)
objCTF.Write arrCTF(intDIC)
Set objCTF = Nothing
s = s & "<li>" & strCTF & " : " &
Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
Next
Else
Alert("Only " & iMAx & " of " & cMAX & " radio buttons checked!")
Exit Sub
End If
'*
document.write s
End Sub

Sub Window_Onload()
Const strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From
Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
intLeft = (intHorizontal - 800) / 2
intTop = (intVertical - 600) / 2
window.resizeTo 800,600
window.moveTo intLeft, intTop
window.focus()
End Sub
</script>
</head>
<body>
<form name="form1">
<table border="1" width="300">
<tr>
<td>object 1</td>
</tr>
<tr>
<td>
<input type="radio" name="object1" value="Disable">Disable
<input type="radio" name="object1" value="Automatic">Automatic
<input type="radio" name="object1" value="Manual">Manual
</td>
</tr>
<tr>
<td>object 2</td>
</tr>
<tr>
<td>
<input type="radio" name="object2" value="Disable">Disable
<input type="radio" name="object2" value="Automatic">Automatic
<input type="radio" name="object2" value="Manual">Manual
</td>
</tr>
<tr>
<td>object 3</td>
</tr>
<tr>
<td>
<input type="radio" name="object3" value="Disable">Disable
<input type="radio" name="object3" value="Automatic">Automatic
<input type="radio" name="object3" value="Manual">Manual
</td>
</tr>
<tr>
<td>object 4</td>
</tr>
<tr>
<td>
<input type="radio" name="object4" value="Disable">Disable
<input type="radio" name="object4" value="Automatic">Automatic
<input type="radio" name="object4" value="Manual">Manual
</td>
</tr>
</table>
<br>
<input type="button" value="Submit" onclick="Radios()">
<input type="reset" value="Reset" >
</form>
</body>
</html>
My System SpecsSystem Spec
Old 05-26-2008   #3 (permalink)
Daz


 
 

Re: vbscript and HTA help
On May 25, 10:33*am, "McKirahan" <N...@xxxxxx> wrote:
Quote:

> "Daz" <darren.black...@xxxxxx> wrote in message
>
> news:83da94f4-28e4-46de-9eea-0fc83ac03dee@xxxxxx
>
>
>
Quote:

> > Hi all,
>
Quote:

> > Am trying my hand at my first HTA and would like to ask for some help
> > with a process i am tying to implement...
>
Quote:

> > I would like to select one option of 3 options for a given object and
> > then once all the objects have had a selection, output the object.name
> > to a text file maching the choice... so if i picked disable for object
> > 1 and automatic for object 2 and manual for object 3 and automatic for
> > object 4 - i would have 3 text files with the object name on a line.
> > So the output file for automatic (lets call it automatic.txt) would
> > have object1 and on the next line object4.
>
Quote:

> > I think you get what i mean....
>
Quote:

> > here is the test hta code i am working with at the moment...
>
> [snip]
>
> Will this help? *Watch for word-wrap.
>
> <html>
> <head>
> <title>test</title>
> <hta:application
> *ID="objHTA"
> *VERSION="1.0"
> *icon="simple.ico"
> *applicationName="test"
> *border=dialog
> *borderStyle=normal
> *caption=yes
> *contextMenu=yes
> *innerBorder=yes
> *maximizeButton=yes
> *minimizeButton=yes
> *navigable=yes
> *scroll=no
> *selection=yes
> *showInTaskBar=yes
> *singleInstance=yes
> *sysMenu=yes
> *windowState=normal
> />
> <script language="vbscript">
> Sub Radios()
> * * Const cMAX = 4
> * * Dim arrCTF(3)
> * * Dim intCTF
> * * Dim strCTF
> * * Dim arrDIC(3)
> * * * * arrDIC(1) = "Automatic"
> * * * * arrDIC(2) = "Disable"
> * * * * arrDIC(3) = "Manual"
> * * Dim intDIC
> * * Set objDIC = CreateObject("Scripting.Dictionary")
> * * For intDIC = 1 To UBound(arrDIC)
> * * * * objDIC.Add arrDIC(intDIC), intDIC
> * * Next
> * * Dim iMAX : iMAX = 0
> * * DIm i, o, s
> * * For i = 1 To cMAX
> * * * * For Each o In Eval("document.form1.object" & i)
> * * * * * * If o.Checked = True Then
> * * * * * * * * iMAX = iMAX + 1
> * * * * * * * * intCTF = objDIC.Item(o.Value)
> * * * * * * * * arrCTF(intCTF) = arrCTF(intCTF) & "object" & i & vbCrLf
> * * * * * * End If
> * * * * Next
> * * Next
> * *'*
> * * If iMAX = cMAX Then
> * * * * Set objFSO = CreateObject("Scripting.FileSystemObject")
> * * * * For intDIC = 1 To UBound(arrDIC)
> * * * * * * strCTF = arrDIC(intDIC) & ".txt"
> * * * * * * Set objCTF = objFSO.CreateTextFile(strCTF,True)
> * * * * * * * * objCTF.Write arrCTF(intDIC)
> * * * * * * Set objCTF = Nothing
> * * * * * * s = s & "<li>" & strCTF & " : " &
> Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
> * * * * Next
> * * Else
> * * * * Alert("Only " & iMAx & " of " & cMAX & " radio buttons checked!")
> * * * * Exit Sub
> * * End If
> * *'*
> * * document.write s
> End Sub
>
> Sub Window_Onload()
> * * Const strComputer = "."
> * * Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> "\root\cimv2")
> * * Set colItems = objWMIService.ExecQuery("Select * From
> Win32_DesktopMonitor")
> * * For Each objItem in colItems
> * * * * intHorizontal = objItem.ScreenWidth
> * * * * intVertical = objItem.ScreenHeight
> * * Next
> * * intLeft = (intHorizontal - 800) / 2
> * * intTop = (intVertical - 600) / 2
> * * window.resizeTo 800,600
> * * window.moveTo intLeft, intTop
> * * window.focus()
> End Sub
> </script>
> </head>
> <body>
> <form name="form1">
> <table border="1" width="300">
> <tr>
> * <td>object 1</td>
> </tr>
> <tr>
> * <td>
> * * <input type="radio" name="object1" value="Disable">Disable
> * * <input type="radio" name="object1" value="Automatic">Automatic
> * * <input type="radio" name="object1" value="Manual">Manual
> * </td>
> </tr>
> <tr>
> * <td>object 2</td>
> </tr>
> <tr>
> * <td>
> * * <input type="radio" name="object2" value="Disable">Disable
> * * <input type="radio" name="object2" value="Automatic">Automatic
> * * <input type="radio" name="object2" value="Manual">Manual
> * </td>
> </tr>
> <tr>
> * <td>object 3</td>
> </tr>
> <tr>
> * <td>
> * * <input type="radio" name="object3" value="Disable">Disable
> * * <input type="radio" name="object3" value="Automatic">Automatic
> * * <input type="radio" name="object3" value="Manual">Manual
> * </td>
> </tr>
> <tr>
> * <td>object 4</td>
> </tr>
> <tr>
> * <td>
> * * <input type="radio" name="object4" value="Disable">Disable
> * * <input type="radio" name="object4" value="Automatic">Automatic
> * * <input type="radio" name="object4" value="Manual">Manual
> * </td>
> </tr>
> </table>
> <br>
> <input type="button" value="Submit" onclick="Radios()">
> <input type="reset" value="Reset" >
> </form>
> </body>
> </html>
Hi,

Thanks for you help and the code... it certainly is the sort of thing
i am looking for. The only issue i have at the moment is that the
output from the selected options isn't being captured in the txt files
- am i missing something?

Cheers,
Daz
My System SpecsSystem Spec
Old 05-26-2008   #4 (permalink)
McKirahan


 
 

Re: vbscript and HTA help
"Daz" <darren.blackley@xxxxxx> wrote in message
news:85730564-e3cd-4036-a518-7a645861668f@xxxxxx
On May 25, 10:33 am, "McKirahan" <N...@xxxxxx> wrote:
Quote:

> "Daz" <darren.black...@xxxxxx> wrote in message
>
> news:83da94f4-28e4-46de-9eea-0fc83ac03dee@xxxxxx
>
>
>
Quote:

> > Hi all,
>
Quote:

> > Am trying my hand at my first HTA and would like to ask for some help
> > with a process i am tying to implement...
>
Quote:

> > I would like to select one option of 3 options for a given object and
> > then once all the objects have had a selection, output the object.name
> > to a text file maching the choice... so if i picked disable for object
> > 1 and automatic for object 2 and manual for object 3 and automatic for
> > object 4 - i would have 3 text files with the object name on a line.
> > So the output file for automatic (lets call it automatic.txt) would
> > have object1 and on the next line object4.
>
Quote:

> > I think you get what i mean....
>
Quote:

> > here is the test hta code i am working with at the moment...
>
> [snip]
>
> Will this help? Watch for word-wrap.
Quote:

> Set objFSO = CreateObject("Scripting.FileSystemObject")
> For intDIC = 1 To UBound(arrDIC)
> strCTF = arrDIC(intDIC) & ".txt"
> Set objCTF = objFSO.CreateTextFile(strCTF,True)
> objCTF.Write arrCTF(intDIC)
> Set objCTF = Nothing
> s = s & "<li>" & strCTF & " : " &
> Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
> Next
[snip]

Hi,

Thanks for you help and the code... it certainly is the sort of thing
i am looking for. The only issue i have at the moment is that the
output from the selected options isn't being captured in the txt files
- am i missing something?

It works for me...
My System SpecsSystem Spec
Old 05-27-2008   #5 (permalink)
Daz


 
 

Re: vbscript and HTA help
On May 27, 5:41*am, "McKirahan" <N...@xxxxxx> wrote:
Quote:

> "Daz" <darren.black...@xxxxxx> wrote in message
>
> news:85730564-e3cd-4036-a518-7a645861668f@xxxxxx
> On May 25, 10:33 am, "McKirahan" <N...@xxxxxx> wrote:
>
>
>
Quote:

> > "Daz" <darren.black...@xxxxxx> wrote in message
>
Quote:

> >news:83da94f4-28e4-46de-9eea-0fc83ac03dee@xxxxxx
>
Quote:
Quote:

> > > Hi all,
>
Quote:
Quote:

> > > Am trying my hand at my first HTA and would like to ask for some help
> > > with a process i am tying to implement...
>
Quote:
Quote:

> > > I would like to select one option of 3 options for a given object and
> > > then once all the objects have had a selection, output the object.name
> > > to a text file maching the choice... so if i picked disable for object
> > > 1 and automatic for object 2 and manual for object 3 and automatic for
> > > object 4 - i would have 3 text files with the object name on a line.
> > > So the output file for automatic (lets call it automatic.txt) would
> > > have object1 and on the next line object4.
>
Quote:
Quote:

> > > I think you get what i mean....
>
Quote:
Quote:

> > > here is the test hta code i am working with at the moment...
>
Quote:

> > [snip]
>
Quote:

> > Will this help? Watch for word-wrap.
> > Set objFSO = CreateObject("Scripting.FileSystemObject")
> > For intDIC = 1 To UBound(arrDIC)
> > * *strCTF = arrDIC(intDIC) & ".txt"
> > * * Set objCTF = objFSO.CreateTextFile(strCTF,True)
> > * * * * objCTF.Write arrCTF(intDIC)
> > * * Set objCTF = Nothing
> > * * s = s & "<li>" & strCTF & " : " &
> > * * Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
> > Next
>
> [snip]
>
> Hi,
>
> Thanks for you help and the code... it certainly is the sort of thing
> i am looking for. *The only issue i have at the moment is that the
> output from the selected options isn't being captured in the txt files
> - am i missing something?
>
> It works for me...
Found the problem - it is working now...

Just 1 final question... how do i remove the need for all fields to
have an option checked? i.e. if only 4 fields are checked - then i
would still like it to write to the txt files obviously omitting the
field not checked.

Cheers,
Darren
My System SpecsSystem Spec
Old 05-27-2008   #6 (permalink)
Daz


 
 

Re: vbscript and HTA help
On May 27, 6:29*pm, Daz <darren.black...@xxxxxx> wrote:
Quote:

> On May 27, 5:41*am, "McKirahan" <N...@xxxxxx> wrote:
>
>
>
Quote:

> > "Daz" <darren.black...@xxxxxx> wrote in message
>
Quote:

> >news:85730564-e3cd-4036-a518-7a645861668f@xxxxxx
> > On May 25, 10:33 am, "McKirahan" <N...@xxxxxx> wrote:
>
Quote:
Quote:

> > > "Daz" <darren.black...@xxxxxx> wrote in message
>
Quote:
Quote:

> > >news:83da94f4-28e4-46de-9eea-0fc83ac03dee@xxxxxx
>
Quote:
Quote:

> > > > Hi all,
>
Quote:
Quote:

> > > > Am trying my hand at my first HTA and would like to ask for some help
> > > > with a process i am tying to implement...
>
Quote:
Quote:

> > > > I would like to select one option of 3 options for a given object and
> > > > then once all the objects have had a selection, output the object.name
> > > > to a text file maching the choice... so if i picked disable for object
> > > > 1 and automatic for object 2 and manual for object 3 and automatic for
> > > > object 4 - i would have 3 text files with the object name on a line.
> > > > So the output file for automatic (lets call it automatic.txt) would
> > > > have object1 and on the next line object4.
>
Quote:
Quote:

> > > > I think you get what i mean....
>
Quote:
Quote:

> > > > here is the test hta code i am working with at the moment...
>
Quote:
Quote:

> > > [snip]
>
Quote:
Quote:

> > > Will this help? Watch for word-wrap.
> > > Set objFSO = CreateObject("Scripting.FileSystemObject")
> > > For intDIC = 1 To UBound(arrDIC)
> > > * *strCTF = arrDIC(intDIC) & ".txt"
> > > * * Set objCTF = objFSO.CreateTextFile(strCTF,True)
> > > * * * * objCTF.Write arrCTF(intDIC)
> > > * * Set objCTF = Nothing
> > > * * s = s & "<li>" & strCTF & " : " &
> > > * * Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
> > > Next
>
Quote:

> > [snip]
>
Quote:

> > Hi,
>
Quote:

> > Thanks for you help and the code... it certainly is the sort of thing
> > i am looking for. *The only issue i have at the moment is that the
> > output from the selected options isn't being captured in the txt files
> > - am i missing something?
>
Quote:

> > It works for me...
>
> Found the problem - it is working now...
>
> Just 1 final question... how do i remove the need for all fields to
> have an option checked? i.e. if only 4 fields are checked - then i
> would still like it to write to the txt files obviously omitting the
> field not checked.
>
> Cheers,
> Darren
Also the contents of the "name" field will not be object1, 2 etc - it
will be dynamically implemented and will be the value that is desired
to be output to the text files...
My System SpecsSystem Spec
Old 05-28-2008   #7 (permalink)
McKirahan


 
 

Re: vbscript and HTA help
"Daz" <darren.blackley@xxxxxx> wrote in message
news:924ce5de-fac5-4157-8e20-eec9b1af3666@xxxxxx
On May 27, 5:41 am, "McKirahan" <N...@xxxxxx> wrote:
Quote:

> "Daz" <darren.black...@xxxxxx> wrote in message
>
[snip]
Quote:

> Just 1 final question... how do i remove the need for all fields to
> have an option checked? i.e. if only 4 fields are checked - then i
> would still like it to write to the txt files obviously omitting the
> field not checked.
Replace these lines:

If iMAX = cMAX Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
For intDIC = 1 To UBound(arrDIC)
strCTF = arrDIC(intDIC) & ".txt"
Set objCTF = objFSO.CreateTextFile(strCTF,True)
objCTF.Write arrCTF(intDIC)
Set objCTF = Nothing
s = s & "<li>" & strCTF & " : " &
Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
Next
Else
Alert("Only " & iMAx & " of " & cMAX & " radio buttons checked!")
Exit Sub
End If

with these lines:

If iMAX <> cMAX Then
strMSG = "Only " & iMAx & " of " & cMAX & " radio buttons checked!"
If MsgBox(strMSG,vbQuestion+vbOKCancel,"Continue?") = vbCancel Then
Exit Sub
End If
'*
Set objFSO = CreateObject("Scripting.FileSystemObject")
For intDIC = 1 To UBound(arrDIC)
strCTF = arrDIC(intDIC) & ".txt"
Set objCTF = objFSO.CreateTextFile("~" & strCTF,True)
objCTF.Write arrCTF(intDIC)
Set objCTF = Nothing
s = s & "<li>" & strCTF & " : " & Replace(arrCTF(intDIC),vbCrLf," ")
& vbCrLf
Next

Watch for word-wrap.
My System SpecsSystem Spec
Old 05-29-2008   #8 (permalink)
Daz


 
 

Re: vbscript and HTA help
On May 29, 5:43*am, "McKirahan" <N...@xxxxxx> wrote:
Quote:

> "Daz" <darren.black...@xxxxxx> wrote in message
>
> news:924ce5de-fac5-4157-8e20-eec9b1af3666@xxxxxx
> On May 27, 5:41 am, "McKirahan" <N...@xxxxxx> wrote:
>
Quote:

> > "Daz" <darren.black...@xxxxxx> wrote in message
>
> [snip]
>
Quote:

> > Just 1 final question... how do i remove the need for all fields to
> > have an option checked? i.e. if only 4 fields are checked - then i
> > would still like it to write to the txt files obviously omitting the
> > field not checked.
>
> Replace these lines:
>
> * * If iMAX = cMAX Then
> * * * * Set objFSO = CreateObject("Scripting.FileSystemObject")
> * * * * For intDIC = 1 To UBound(arrDIC)
> * * * * * * strCTF = arrDIC(intDIC) & ".txt"
> * * * * * * Set objCTF = objFSO.CreateTextFile(strCTF,True)
> * * * * * * * * objCTF.Write arrCTF(intDIC)
> * * * * * * Set objCTF = Nothing
> * * * * * * s = s & "<li>" & strCTF & " : " &
> Replace(arrCTF(intDIC),vbCrLf," ") & vbCrLf
> * * * * Next
> * * Else
> * * * * Alert("Only " & iMAx & " of " & cMAX & " radio buttons checked!")
> * * * * Exit Sub
> * * End If
>
> with these lines:
>
> * * If iMAX <> cMAX Then
> * * * * strMSG = "Only " & iMAx & " of " & cMAX & " radio buttons checked!"
> * * * * If MsgBox(strMSG,vbQuestion+vbOKCancel,"Continue?") = vbCancel Then
> Exit Sub
> * * End If
> * *'*
> * * Set objFSO = CreateObject("Scripting.FileSystemObject")
> * * For intDIC = 1 To UBound(arrDIC)
> * * * * strCTF = arrDIC(intDIC) & ".txt"
> * * * * Set objCTF = objFSO.CreateTextFile("~" & strCTF,True)
> * * * * * * objCTF.Write arrCTF(intDIC)
> * * * * Set objCTF = Nothing
> * * * * s = s & "<li>" & strCTF & " : " & Replace(arrCTF(intDIC),vbCrLf," ")
> & vbCrLf
> * * Next
>
> Watch for word-wrap.
Ok the one thing this edit doesn't address is that fact that in the
final script i am working on the name field with be dynamically
populated from WMI and therefore i cannot use object & i as a array
building option...
My System SpecsSystem Spec
Old 05-29-2008   #9 (permalink)
Daz


 
 

Re: vbscript and HTA help
So the body could be something like this as an example

<body>
<form name="form1">
<table border="1" width="300">
<tr>
<td>a could be anything</td>
</tr>
<tr>
<td>
<input type="radio" name="a could be anything"
value="Disable">Disable
<input type="radio" name="a could be anything"
value="Automatic">Automatic
<input type="radio" name="a could be anything"
value="Manual">Manual
</td>
</tr>
<tr>
<td>b could be anything</td>
</tr>
<tr>
<td>
<input type="radio" name="b could be anything"
value="Disable">Disable
<input type="radio" name="b could be anything"
value="Automatic">Automatic
<input type="radio" name="b could be anything"
value="Manual">Manual
</td>
</tr>
<tr>
<td>c could be anything</td>
</tr>
<tr>
<td>
<input type="radio" name="c could be anything"
value="Disable">Disable
<input type="radio" name="c could be anything"
value="Automatic">Automatic
<input type="radio" name="c could be anything"
value="Manual">Manual
</td>
</tr>
<tr>
<td>d could be anything</td>
</tr>
<tr>
<td>
<input type="radio" name="d could be anything"
value="Disable">Disable
<input type="radio" name="d could be anything"
value="Automatic">Automatic
<input type="radio" name="d could be anything"
value="Manual">Manual
</td>
</tr>
<tr>
<td>e could be anything</td>
</tr>
<tr>
<td>
<input type="radio" name="e could be anything"
value="Disable">Disable
<input type="radio" name="e could be anything"
value="Automatic">Automatic
<input type="radio" name="e could be anything"
value="Manual">Manual
</td>
</tr>
<tr>
<td>f could be anything</td>
</tr>
<tr>
<td>
<input type="radio" name="f could be anything"
value="Disable">Disable
<input type="radio" name="f could be anything"
value="Automatic">Automatic
<input type="radio" name="f could be anything"
value="Manual">Manual
</td>
</tr>
</table>
<br>
<input type="button" value="Submit" onclick="Radios()">
<input type="reset" value="Reset" >
</form>
My System SpecsSystem Spec
Old 05-30-2008   #10 (permalink)
McKirahan


 
 

Re: vbscript and HTA help
"Daz" <darren.blackley@xxxxxx> wrote in message
news:8da8394b-7597-4b91-b64c-41d4a506d3d6@xxxxxx
On May 29, 5:43 am, "McKirahan" <N...@xxxxxx> wrote:
Quote:

> "Daz" <darren.black...@xxxxxx> wrote in message
>
> news:924ce5de-fac5-4157-8e20-eec9b1af3666@xxxxxx
> On May 27, 5:41 am, "McKirahan" <N...@xxxxxx> wrote:
>
Quote:

> > "Daz" <darren.black...@xxxxxx> wrote in message
>
> [snip]
>
Quote:

> > Just 1 final question... how do i remove the need for all fields to
> > have an option checked?
[snip]
Quote:

> Replace these lines:
[snip]
Quote:

> with these lines:
[snip]
Quote:

> Ok the one thing this edit doesn't address is that fact that in the
> final script i am working on the name field with be dynamically
> populated from WMI and therefore i cannot use object & i as a array
> building option...
My response (as I stated) only addressed the one question.

Perhaps if you posted your code I might be able to see what you want
to "dynamically populate" the form with. I can't read your mind.
My System SpecsSystem Spec
Reply
Page 1 of 2 1 2

« RE: Printer logon script doesn't work with Vista | Re: vbscript pause »
Thread Tools


Similar Threads
Thread Forum
New to VBscript, Help please! VB Script
CSS and VBscript VB Script
Where is VBscript now? VB Script
VBscript Help VB Script
How to do No hang up VBScript (nohup for VBScript) VB Script


Vista Forums is an independent web site and has not been authorized,
sponsored, or otherwise approved by Microsoft Corporation.
"Windows Vista", the Start Orb, and related materials are trademarks of Microsoft Corp.
© Designer Media Ltd
Contact Us - Windows Vista Forums - Archive - Privacy - Legal - Top

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46