#91381 - 2003-02-06 09:45 PM
Re: IE get form info
|
rollo
Getting the hang of it
Registered: 2000-07-11
Posts: 85
Loc: louisiana
|
cant use kixforms 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! -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
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 809 anonymous users online.
|
|
|