cant use kixforms [Frown] not authorized!
if I can just read the values from the form that will be fine.
as my head always aches lets add some more! [Smile]
-adam
I used to use somthing like it in 3.62

here is what I used to use but I have sleept since!!
but I wanted to use a database back end this time 'round.
code:
break on
;big thanks to Bryce and kixtart.org gang -adam
If @inwin = 2
? "win9x system. sorry"
exit
endif
$Description = readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment")
$Selection = MessageBox("Do you want to update the description of this PC ? the Description is in the title bar", "$Description", 4388,5)
If $Selection = 6
? "Yes selected, continuing...."
gosub "GO"
Endif
return
:GO
DIM $top DIM $left
DIM $height DIM Width
DIM $False DIM $true
DIM $title DIM $status
DIM $doc DIM $nul
DIM $html

GLOBAL $group

$dropdown = ""

$title = "Update Computer Description"
$top = "10"
$left = "10"
$height = "550"
$width = "550"
$false = 0
$true = -1

Gosub HTML
Gosub IE
; Get a handle to the form controls ...
$oStatus = val("&" + GetObject($doc,"GetElementById","s","status"))
$oGroup = val("&" + CreateObject($doc,"GetElementById","s","Group"))
$oUnit = val("&" + CreateObject($doc,"GetElementById","s","Unit"))
$oOffice = val("&" + CreateObject($doc,"GetElementById","s","Office"))
$oCpu = val("&" + CreateObject($doc,"GetElementById","s","Cpu"))
$oBuilding = val("&" + CreateObject($doc,"GetElementById","s","Building"))
$oRoom = val("&" + CreateObject($doc,"GetElementById","s","Room"))
$oPhone = val("&" + CreateObject($doc,"GetElementById","s","Phone"))
$oExtra = val("&" + CreateObject($doc,"GetElementById","s","Extra"))
$oIP = val("&" + CreateObject($doc,"GetElementById","s","ip"))
$oId = val("&" + CreateObject($doc,"GetElementById","s","id"))
;$oAsset = val("&" + CreateObject($doc,"GetElementById","s","Asset"))
; Fill in the fields
$nul = oleputproperty($oIP, "value", "s", "@ipaddress0" )
$nul = oleputproperty($oId, "value", "s", "$Description" )



; Get the valueof the status control ...
$Status = olegetproperty (val("&" + CreateObject($doc,"GetElementById","s","status")), "value" )

; Main Command Loop
while @error = 0 and $status <> ""
; ? $status
select
case $status = "1"

; Submit was clicked

; Get the Group value / clear form...
$Group = olegetproperty($oGroup, "value")
$nul = oleputproperty($oGroup,"value","s","")


; Get the unit value / clear form...
$Unit = olegetproperty($oUnit, "value")
$nul = oleputproperty($oUnit,"value","s","")

; Get the Office value / clear form...
$Office = olegetproperty($oOffice, "value")
$nul = oleputproperty($oOffice,"value","s","")

; Get the CPU value / clear form...
$CPU = olegetproperty($oCpu, "value")
$nul = oleputproperty($oCpu,"value","s","")

; Get the Asset value / clear form...
;$Asset = olegetproperty($oAsset, "value")
;$nul = oleputproperty($oAsset,"value","s","")

; Get the building value / clear form......
$Building = olegetproperty($oBuilding, "value")
$nul = oleputproperty($oBuilding,"value","s","")


; Get the Room value / clear form......
$Room = olegetproperty($oRoom, "value")
$nul = oleputproperty($oRoom,"value","s","")

; Get the Phone value / clear form......
$Phone = olegetproperty($oPhone, "value")
$nul = oleputproperty($oPhone,"value","s","")

; Get the Phone value / clear form......
$Extra = olegetproperty($oExtra, "value")
$nul = oleputproperty($oExtra, "value","s","")


; Reset the status value to zero ...
$nul = oleputproperty($oStatus,"value","s","0")


;create/fill in the csv file
$computerDescription = "$Group,$Unit,$Office,$CPU,$Building,$Room,$Phone,$Extra"


WRITEVALUE("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment","$computerDescription","REG_SZ")
$Description = readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters","srvcomment")
$update = oleputproperty($oId, "value", "s", "$Description" )

case $status = "2"
;Cancle was clicked.
gosub Finish
exit
endselect
; Get the valueof the status control ...
$Status = olegetproperty (val("&" + CreateObject($doc,"GetElementById","s","status")), "value" )
loop
gosub Finish
return


;---------------------------------------------------------------------------------------------------
:IE
$ie = olecreateobject("internetexplorer.application")
if $ie = 0 exit endif
; Set properties and display form ...
$nul = oleputproperty($ie, "addressbar","s","$false")
$nul = oleputproperty($ie, "menubar", "s", "$false")
$nul = oleputproperty($ie, "toolbar", "s", "$false")
$nul = oleputproperty($ie, "statusbar", "s", "$false")
$nul = oleputproperty($ie, "resizable", "s", "$false")
$nul = oleputproperty($ie, "top", "s", "$top")
$nul = oleputproperty($ie, "left", "s", "$left")
$nul = oleputproperty($ie, "height", "s", "$height")
$nul = oleputproperty($ie, "width", "s", "$width")
$nul = oleputproperty($ie, "visible", "s", "$true")
$nul = CreateObject($ie, "navigate", "s", "about:blank")
while olegetproperty($ie, "busy") <> "0" and @error = 0 loop

; Get a handle to the open document ...
$doc = val("&" + olegetproperty($ie, "document"))

$nul = CreateObject($doc, "write", "s", "$html")
while setfocus("$title") <> 0 loop
return

;---------------------------------------------------------------------------------------------------
:html
$html = '<html>
<head><title>$title</title>
<style><!---body{ background-color: blue; color: black;
font-family: tahoma, arial; font-size: 10pt; margin: 2px "
input.tbox { border: lpx black solid;}
td { font: 10pt tahoma; }
---></style>
</head>


<body scroll=no>
<center>
<p align="center">
Description<br>
Fill in all fields. Once you click submit the changes are made<BR>
then you will see the description field get filled in.<BR>
Then click the Close.
<table align=center>
<form name=frm>
<tr><td align=right>Ip (info only): </td><td colspan=2><input id=ip name=ip value="" class=tbox></td></tr>

<tr><td align=right>Description: </td><td colspan=2><input id=iD name=iD value="" class=tbox size="60"><hr>do not type in the area above</td></tr>

<tr><td align=right>Enter Group:</td><td colspan=2><SELECT Id=Group>
<OPTION value=nul>--- Select An Group ---</OPTION>
<OPTION value="RHS">RHS</OPTION>
<OPTION value="SPG">SPG</OPTION>
<OPTION value="LG">LG</OPTION>
<OPTION value="OG">OG</OPTION>
</SELECT></td></tr>

<tr><td align=right>Enter Unit:</td><td colspan=2><SELECT Id=Unit>
<OPTION value=nul>--- Select An Unit ---</OPTION>
<OPTION value="big RHS">bigRHS</OPTION>
<OPTION value="47 FTR SQ">47 FTR SQ</OPTION>
<OPTION value="47 FSMU">47 FSMU</OPTION>
<OPTION value="south CES">south CES</OPTION>
<OPTION value="south COMM FT">south COMM FT</OPTION>
<OPTION value="south LOG GP">south LOG GP</OPTION>
<OPTION value="south MAINT">south MAINT</OPTION>
<OPTION value="south MED SQ">south MED SQ</OPTION>
<OPTION value="south MSSQ">south MSSQ</OPTION>
<OPTION value="south OPS GP">south OPS GP</OPTION>
<OPTION value="south SPT GP">south SPT GP</OPTION>
<OPTION value="south LSSQ">south LSSQ</OPTION>
<OPTION value="south OSF">south OSF</OPTION>
<OPTION value="south SFS">south SFS</OPTION>
<OPTION value="south WING">south WING</OPTION>
<OPTION value="north BOMB SQ">north BOMB SQ</OPTION>
<OPTION value="north FSMU">north FSMU</OPTION>
<OPTION value="FBK8">FBK8</OPTION>
</SELECT></td></tr>

<tr><td align=right>Enter Office:</td><td colspan=2><SELECT Id=Office>
<OPTION value=nul>--- Select An Office ---</OPTION>
<OPTION value="9892">9892</OPTION>
<OPTION value="ADO">ADO</OPTION>
<OPTION value="CC">CC</OPTION>
<OPTION value="CCA">CCA</OPTION>
<OPTION value="CCAP">CCAP</OPTION>
<OPTION value="CCE">CCE</OPTION>
<OPTION value="CCF">CCF</OPTION>
<OPTION value="CCM">CCM</OPTION>
<OPTION value="CCQ">CCQ</OPTION>
<OPTION value="CCV">CCV</OPTION>
<OPTION value="CCX">CCX</OPTION>
<OPTION value="CD">CD</OPTION>
<OPTION value="CE">CE</OPTION>
<OPTION value="CEB">CEB</OPTION>
<OPTION value="CED">CED</OPTION>
<OPTION value="CEE">CEE</OPTION>
<OPTION value="CEF">CEF</OPTION>
<OPTION value="CEFO">CEFO</OPTION>
<OPTION value="CEO">CEO</OPTION>
<OPTION value="CEOI">CEOI</OPTION>
<OPTION value="CEOM">CEOM</OPTION>
<OPTION value="CES">CES</OPTION>
<OPTION value="CEX">CEX</OPTION>
<OPTION value="CO">CO</OPTION>
<OPTION value="COA">COA</OPTION>
<OPTION value="COAA">COAA</OPTION>
<OPTION value="COAA1">COAA1</OPTION>
<OPTION value="COAA2">COAA2</OPTION>
<OPTION value="COAA3">COAA3</OPTION>
<OPTION value="COAA4">COAA4</OPTION>
<OPTION value="COC">COC</OPTION>
<OPTION value="COCA">COCA</OPTION>
<OPTION value="COCE">COCE</OPTION>
<OPTION value="COCE1">COCE1</OPTION>
<OPTION value="COCE2">COCE2</OPTION>
<OPTION value="COCE3">COCE3</OPTION>
<OPTION value="COCEP">COCEP</OPTION>
<OPTION value="COCS">COCS</OPTION>
<OPTION value="COCS1">COCS1</OPTION>
<OPTION value="COCS2">COCS2</OPTION>
<OPTION value="COCS3">COCS3</OPTION>
<OPTION value="COCU">COCU</OPTION>
<OPTION value="COCUH">COCUH</OPTION>
<OPTION value="COCUW">COCUW</OPTION>
<OPTION value="COO">COO</OPTION>
<OPTION value="COOA">COOA</OPTION>
<OPTION value="COOF">COOF</OPTION>
<OPTION value="CP">CP</OPTION>
<OPTION value="CPM">CPM</OPTION>
<OPTION value="CPO">CPO</OPTION>
<OPTION value="CSS">CSS</OPTION>
<OPTION value="CV">CV</OPTION>
<OPTION value="D0N">D0N</OPTION>
<OPTION value="DE">DE</OPTION>
<OPTION value="DEA">DEA</OPTION>
<OPTION value="DEES">DEES</OPTION>
<OPTION value="DEF">DEF</OPTION>
<OPTION value="DEM">DEM</OPTION>
<OPTION value="DEME">DEME</OPTION>
<OPTION value="DEMM">DEMM</OPTION>
<OPTION value="DEMM-H">DEMM-H</OPTION>
<OPTION value="DEMM-R">DEMM-R</OPTION>
<OPTION value="DEMP">DEMP</OPTION>
<OPTION value="DEMRC">DEMRC</OPTION>
<OPTION value="DEMS">DEMS</OPTION>
<OPTION value="DEO">DEO</OPTION>
<OPTION value="DO">DO</OPTION>
<OPTION value="DOA">DOA</OPTION>
<OPTION value="DOC">DOC</OPTION>
<OPTION value="DOF">DOF</OPTION>
<OPTION value="DOG">DOG</OPTION>
<OPTION value="DOI">DOI</OPTION>
<OPTION value="DOL">DOL</OPTION>
<OPTION value="DOM">DOM</OPTION>
<OPTION value="DOMT">DOMT</OPTION>
<OPTION value="DON">DON</OPTION>
<OPTION value="DONB">DONB</OPTION>
<OPTION value="DOO">DOO</OPTION>
<OPTION value="DOOC">DOOC</OPTION>
<OPTION value="DOR">DOR</OPTION>
<OPTION value="DOS">DOS</OPTION>
<OPTION value="DOT">DOT</OPTION>
<OPTION value="DOTF">DOTF</OPTION>
<OPTION value="DOTS">DOTS</OPTION>
<OPTION value="DOTV">DOTV</OPTION>
<OPTION value="DOV">DOV</OPTION>
<OPTION value="DOW">DOW</OPTION>
<OPTION value="DPM">DPM</OPTION>
<OPTION value="DPMA">DPMA</OPTION>
<OPTION value="DPMAE">DPMAE</OPTION>
<OPTION value="DPMAR">DPMAR</OPTION>
<OPTION value="DPMD">DPMD</OPTION>
<OPTION value="DPMP">DPMP</OPTION>
<OPTION value="DPMPE">DPMPE</OPTION>
<OPTION value="DPMPS">DPMPS</OPTION>
<OPTION value="DPMSA">DPMSA</OPTION>
<OPTION value="DPMSC">DPMSC</OPTION>
<OPTION value="DPMT">DPMT</OPTION>
<OPTION value="DPT">DPT</OPTION>
<OPTION value="FM">FM</OPTION>
<OPTION value="HC">HC</OPTION>
<OPTION value="HO">HO</OPTION>
<OPTION value="IG">IG</OPTION>
<OPTION value="IN">IN</OPTION>
<OPTION value="JA">JA</OPTION>
<OPTION value="LG">LG</OPTION>
<OPTION value="LGL">LGL</OPTION>
<OPTION value="LGLC">LGLC</OPTION>
<OPTION value="LGLI">LGLI</OPTION>
<OPTION value="LGLM">LGLM</OPTION>
<OPTION value="LGLOR">LGLOR</OPTION>
<OPTION value="LGLP">LGLP</OPTION>
<OPTION value="LGLS">LGLS</OPTION>
<OPTION value="LGLSF">LGLSF</OPTION>
<OPTION value="LGLT">LGLT</OPTION>
<OPTION value="LGLX">LGLX</OPTION>
<OPTION value="LGM">LGM</OPTION>
<OPTION value="LGMA">LGMA</OPTION>
<OPTION value="LGMAE">LGMAE</OPTION>
<OPTION value="LGMAF">LGMAF</OPTION>
<OPTION value="LGMAG">LGMAG</OPTION>
<OPTION value="LGMAH">LGMAH</OPTION>
<OPTION value="LGMF">LGMF</OPTION>
<OPTION value="LGMFE">LGMFE</OPTION>
<OPTION value="LGMFN">LGMFN</OPTION>
<OPTION value="LGMFS">LGMFS</OPTION>
<OPTION value="LGMG">LGMG</OPTION>
<OPTION value="LGMI">LGMI</OPTION>
<OPTION value="LGMM">LGMM</OPTION>
<OPTION value="LGMMP">LGMMP</OPTION>
<OPTION value="LGMMR">LGMMR</OPTION>
<OPTION value="LGMP">LGMP</OPTION>
<OPTION value="LGMPE">LGMPE</OPTION>
<OPTION value="LGMPJ">LGMPJ</OPTION>
<OPTION value="LGMPT">LGMPT</OPTION>
<OPTION value="LGMR">LGMR</OPTION>
<OPTION value="LGMV">LGMV</OPTION>
<OPTION value="LGMVE">LGMVE</OPTION>
<OPTION value="LGMVS">LGMVS</OPTION>
<OPTION value="LGMVT">LGMVT</OPTION>
<OPTION value="LGMW">LGMW</OPTION>
<OPTION value="LGMWA">LGMWA</OPTION>
<OPTION value="LGMWS">LGMWS</OPTION>
<OPTION value="LGQ">LGQ</OPTION>
<OPTION value="LGS">LGS</OPTION>
<OPTION value="LGSA">LGSA</OPTION>
<OPTION value="LGSAE">LGSAE</OPTION>
<OPTION value="LGSF">LGSF</OPTION>
<OPTION value="LGSFO">LGSFO</OPTION>
<OPTION value="LGT">LGT</OPTION>
<OPTION value="LGTA1">LGTA1</OPTION>
<OPTION value="LGTA2">LGTA2</OPTION>
<OPTION value="LGTC">LGTC</OPTION>
<OPTION value="LGTF">LGTF</OPTION>
<OPTION value="LGTM">LGTM</OPTION>
<OPTION value="LGTM1">LGTM1</OPTION>
<OPTION value="LGTM2">LGTM2</OPTION>
<OPTION value="LGTT">LGTT</OPTION>
<OPTION value="LGX">LGX</OPTION>
<OPTION value="LSLOB">LSLOB</OPTION>
<OPTION value="MA">MA</OPTION>
<OPTION value="MA0A">MA0A</OPTION>
<OPTION value="MA0SA">MA0SA</OPTION>
<OPTION value="MA0SB">MA0SB</OPTION>
<OPTION value="MAA">MAA</OPTION>
<OPTION value="MAF">MAF</OPTION>
<OPTION value="MAFD">MAFD</OPTION>
<OPTION value="MAFI">MAFI</OPTION>
<OPTION value="MAFS">MAFS</OPTION>
<OPTION value="MAO">MAO</OPTION>
<OPTION value="MAOA">MAOA</OPTION>
<OPTION value="MAOB">MAOB</OPTION>
<OPTION value="MAOC">MAOC</OPTION>
<OPTION value="MAOF">MAOF</OPTION>
<OPTION value="MAOS">MAOS</OPTION>
<OPTION value="MAOSA">MAOSA</OPTION>
<OPTION value="MAOSB">MAOSB</OPTION>
<OPTION value="MAOW">MAOW</OPTION>
<OPTION value="MAQ">MAQ</OPTION>
<OPTION value="MAS">MAS</OPTION>
<OPTION value="ME">ME</OPTION>
<OPTION value="MERBD">MERBD</OPTION>
<OPTION value="MERH">MERH</OPTION>
<OPTION value="OGV">OGV</OPTION>
<OPTION value="OGVB">OGVB</OPTION>
<OPTION value="OSF CCQ">OSF CCQ</OPTION>
<OPTION value="OSOF">OSOF</OPTION>
<OPTION value="OST">OST</OPTION>
<OPTION value="OSTL">OSTL</OPTION>
<OPTION value="OSTW">OSTW</OPTION>
<OPTION value="PA">PA</OPTION>
<OPTION value="QA">QA</OPTION>
<OPTION value="RA">RA</OPTION>
<OPTION value="RXR">RXR</OPTION>
<OPTION value="SA">SA</OPTION>
<OPTION value="SBP">SBP</OPTION>
<OPTION value="SCB">SCB</OPTION>
<OPTION value="SCBN">SCBN</OPTION>
<OPTION value="SCBT">SCBT</OPTION>
<OPTION value="SCUV">SCUV</OPTION>
<OPTION value="SE">SE</OPTION>
<OPTION value="SEA">SEA</OPTION>
<OPTION value="SEF">SEF</OPTION>
<OPTION value="SEG">SEG</OPTION>
<OPTION value="SEW">SEW</OPTION>
<OPTION value="SF0S">SF0S</OPTION>
<OPTION value="SFO">SFO</OPTION>
<OPTION value="SFOS">SFOS</OPTION>
<OPTION value="SG">SG</OPTION>
<OPTION value="SGA">SGA</OPTION>
<OPTION value="SGAL">SGAL</OPTION>
<OPTION value="SGAS">SGAS</OPTION>
<OPTION value="SGAT">SGAT</OPTION>
<OPTION value="SGB">SGB</OPTION>
<OPTION value="SGBP">SGBP</OPTION>
<OPTION value="SGD">SGD</OPTION>
<OPTION value="SGDD">SGDD</OPTION>
<OPTION value="SGH">SGH</OPTION>
<OPTION value="SGHL">SGHL</OPTION>
<OPTION value="SGHN">SGHN</OPTION>
<OPTION value="SGHR">SGHR</OPTION>
<OPTION value="SGHSEO">SGHSEO</OPTION>
<OPTION value="SGJ">SGJ</OPTION>
<OPTION value="SGL">SGL</OPTION>
<OPTION value="SGN">SGN</OPTION>
<OPTION value="SGO">SGO</OPTION>
<OPTION value="SGOBC">SGOBC</OPTION>
<OPTION value="SGOMN">SGOMN</OPTION>
<OPTION value="SGP">SGP</OPTION>
<OPTION value="SGPB">SGPB</OPTION>
<OPTION value="SGPF">SGPF</OPTION>
<OPTION value="SGPFS">SGPFS</OPTION>
<OPTION value="SGPM">SGPM</OPTION>
<OPTION value="SGS">SGS</OPTION>
<OPTION value="SGSA">SGSA</OPTION>
<OPTION value="SGSAL">SGSAL</OPTION>
<OPTION value="SGSAP">SGSAP</OPTION>
<OPTION value="SGSL">SGSL</OPTION>
<OPTION value="SGSO">SGSO</OPTION>
<OPTION value="SGSTC">SGSTC</OPTION>
<OPTION value="SME">SME</OPTION>
<OPTION value="SPC">SPC</OPTION>
<OPTION value="SPO">SPO</OPTION>
<OPTION value="SPOS">SPOS</OPTION>
<OPTION value="SVM">SVM</OPTION>
<OPTION value="SVMF">SVMF</OPTION>
<OPTION value="SVML">SVML</OPTION>
<OPTION value="SVMM">SVMM</OPTION>
<OPTION value="SVMR">SVMR</OPTION>
<OPTION value="XP">XP</OPTION>


</SELECT></td></tr>

<tr><td align=right>type CPU:</td><td colspan=2><SELECT Id=Cpu>
<OPTION value=nul>--- Select A Type ---</OPTION>
<OPTION value="Desktop">Desktop</OPTION>
<OPTION value="Laptop">Laptop</OPTION>
</SELECT></td></tr>

<tr><td align=right>Building: </td><td colspan=2><input id=Building name=Building value="" class=tbox></td></tr>
<tr><td align=right>Room: </td><td colspan=2><input id=Room name=Room value="" class=tbox></td></tr>
<tr><td align=right>Phone:(4 digits) </td><td colspan=2><input id=Phone name=Phone value="" class=tbox></td></tr>
<tr><td align=right>Extra: </td><td colspan=2><input id=Extra name=Extra value="" class=tbox></td></tr>
<tr><td align=right></td><td colspan=2>
<input type=hidden id=status value=0><p>
<tr><td colspan=2><td align=right>
<tr><td align=right><input id=enter type=button value=" Submit " onclick="frm.status.value=1"> <input id=close type=button value=" Close " onclick="frm.status.value=2">
</td><td colspan=2></center>
</form></table></body>
</html>'
return

;---------------------------------------------------------------------------------------------------
:finish
; Object cleanup ...
$nul = CreateObject ( $doc, "close" )
$nul = olereleaseobject ( $doc )
$nul = CreateObject ( $ie, "quit" )
$nul = olereleaseobject ( $ie )

$Selection = MessageBox("Thank you for updating this!
You Should Reboot this PC
Click Yes to shutdown now", "Reboot!", 4116,10)

If $Selection = 6
? "Yes selected, continuing...."
gosub "shutdown"

Endif


return
:shutdown
Shutdown("", "System is being rebooted to enable new settings.", 60, 0, 1)
return