Cant Access a textbox value in a div (HTA environment)

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - CreateObject suucceed but using members fails I have one COM server that implements one method/property that returns int . The CreateObject does create the instance of com server. The problem is that I get error when trying to access its method/property with the annoying behaviour that in some computer it works and in others it doesn't Dim app Dim result Set app = CreateObject("MyApp.MyApplication") result = app.Result When trying with VB6.0 to check with more detais. I did: Dim app as Object .... and I got the same error, but if I do Dim app as MyApplication it works. Looks like the "casting" from generic Object type to use defined type is not working on those computers where I get the error. Does anyone had similar problems before, or what is the cause of it? Thanks on advance alex Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170192
  - 2
    - window.opener problem! Hi, When i used window.opener to access the opener from the popup window this problem (object required) has occured. I used to use this technique in my web applications without any problem. Is there a security issue for window.opener in HTA environment. Or a syntax difference? Thanks. Caglar Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170190
  - 3
    - Cannot get information from details view Hi all, I cannot get the information in details view of "Network and Dial-up Connections", may I have your suggestion about what is going wrong? Code start: sNetworkFolderName = "Network and Dial-up Connections" Const ssfCONTROLS = 3 set shellApp = createobject("shell.application") set oControlPanel = shellApp.Namespace(ssfCONTROLS) for each folderitem in oControlPanel.items if folderitem.name = sNetworkFolderName then set oNetConnections = folderitem.getfolder exit for end if next for each folderitem in oNetConnections.items msgbox folderitem.name 'can get the name successfully msgbox "hi " & folderitem.ExtendedProperty("Status") 'get hi only next Code End Thanks a lot Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170181
  - 4
    - Inserting from ASP creates 2 records instead of 1 Hi, I'm doing an insert from an ASP page (written in VBScript) and there is a problem. When I call the SP from the page, it inserts 2 records into my table. If I call the SP directly from Query Analyzer, 1 record is inserted. I removed the oRS.moveFirst. that fixed it, but it causes other problems. Any ways to get around this double insert crap? please advise Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170174
  - 5
    - Access share on network computer I have a limited experience with vbs scripting, so I would be grateful for some help. I need to script copying a file from one pc to another. The source part is no problem, as I can access a share on the source pc directly. Due to network configuration issues I need to set a connection/access the target WinXP Pro pc by its IP address (say 192.168.200.1) and logon with username and password (say "pcname\myname" and "mypass"). Is there a way to make this work in one go: logon remotely (maybe map the remote share to local drive letter temporarily) copy the file tothe remote share (maybe mop up) Thanks in advance, Eric Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170171
  - 6
    - Hidden Variable not holding value What's happening: When Select all button is clicked the hidden variable, buttonname, is supposed to be set to all and the form is submitted to itself. If the buttonname = 'all' then all of the checkboxes are supposed to be displayed as checked. However the buttonname variable is not holding it's value. When I view the final source after submitting the form, the buttonname variable is empty. I didn't know what group to post this in since my code contains both vbscript and javascript. If you can help I'd very much appreciate it. Code: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>StarNet - E-mail Admin</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <SCRIPT LANGUAGE="JavaScript"> function submitthis ( selectedtype ) { document.list.buttonname.value = selectedtype ; document.list.submit() ; } --> </script> <% getCon=Application("connectionObject") 'type is true if an ecard and false if a newsletter. dim objrs,bool,mailer set objrs=server.CreateObject("adodb.recordset") set objGroups=server.CreateObject("adodb.recordset") set objContest=server.createobject("adodb.recordset") objrs.open "select * from addstarnet where username ='" & session("whois") & "' order by groupname",getcon,3,3 If isnull(session("agentid")) or session("agentid") = "" or isempty(session("agentid")) then contestcontacts = false else objContest.open "select * from contest where agentid = '" & session("agentid") & "'",getcon,3,3 If not objContest.eof then contestContacts = true objContest.movefirst else contestContacts = false end if end if If not objrs.eof then bool = true objrs.movefirst objGroups.open "select distinct groupname from addstarnet where username = '" & session("whois") & "' order by groupname", getcon,3,3 objGroups.movefirst else bool = false end if %> </head> <body> <table width="638" border="1" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="634" height="236" valign="top" bgcolor="#FFFFFF"><div align="center"> <table width="634" border="0" cellpadding="0" cellspacing="0" style="margin-bottom:0"> <tr> <td width="634"><div align="center"><img src="images/S.gif" width="40" height="65"><img src="images/t.gif" width="50" height="65"><img src="images/a.gif" width="64" height="65"><img src="images/r.gif" width="50" height="65"><img src="images/n.gif" width="54" height="65"><img src="images/e.gif" width="48" height="65"><img src="images/t.gif" width="50" height="65"></div></td> </tr> <tr> <td><div align="center"><font color="#996600">E-mail Postcard and Newsletter System</font></div></td> </tr> <tr> <td bgcolor="#CCCCCC"><strong><font color="#000000">Step 4 - Send to... </font></strong></td> </tr> <tr> <td valign="top"> <p align="center"> </p> <p align="center"><a href="email_admin.asp">Add/Delete/Edit E-mail Addresses</a></p> <% If bool = true then%> <form action="step4.asp" method="post" enctype="multipart/form-data" name="list"> <table width="530" border="1" align="center" cellpadding="1" cellspacing="1"> <tr bgcolor="#CCCCCC"> <td colspan="4" bgcolor="#CCCCCC"><a href="javascript:submitthis('all')">Select All </a> -<a href="javascript:getsupport('Free')"> Delete Selected</a> - <a href="javascript:getsupport('Free')">Select Contest Contacts Only</a></td> </tr> <%response.write(request("mailer")) For i = 1 to objGroups.recordcount%> <tr bgcolor="#CCCCCC"> <td colspan="4" bgcolor="#FFFFFF"><font size="2"> <input name="buttonname" type="hidden" value=""> <input name="list<%response.write(i)%>" type="checkbox" id="list<%response.write(i)%>" value="<%response.write(objGroups("groupname"))%>" <%If request("buttonname") = "all" or request("list" & i) = objGroups("groupname") then response.write("checked")%>> <%response.write(objGroups("groupname"))%> </font></td> </tr> <% b = 1 Do until objGroups("groupname") <> objrs("groupname")%> <tr bgcolor="#CCCCCC"> <td width="45" bgcolor="#FFFFFF"><div align="right"><font size="2"> <input name="list<%response.write(i & "-" & b)%>" type="checkbox" id="list<%response.write(i & "-" & b)%>" value="<%response.write(objrs("email"))%>" <%If request("buttonname") = "all" or request("list" & i) = objGroups("groupname") then response.write("checked")%>> <%b=b+1%> </font></div></td> <td width="135" bgcolor="#FFFFFF"><%response.write(objrs("first"))%></td> <td width="145" bgcolor="#FFFFFF"><%response.write(objrs("last"))%></td> <td width="195" bgcolor="#FFFFFF"><%response.write(objrs("email"))%></td> </tr> <%objrs.movenext if objrs.eof then exit do loop objGroups.movenext Next if contestContacts = true then%> <tr bgcolor="#CCCCCC"> <td colspan="4" bgcolor="#FFFFFF"><font size="2"> <input name="contest" type="checkbox" id="contest" value="Contest Contacts"> Contest Contacts </font></td> </tr> <%For i = 1 to objContest.recordcount%> <tr bgcolor="#CCCCCC"> <td width="45" bgcolor="#FFFFFF"><div align="right"><font size="2"> <input name="list<%response.write("c-" & i)%>" type="checkbox" id="list" value="<%response.write(objcontest("emailadd"))%>"> </font></div></td> <td width="135" bgcolor="#FFFFFF"><%response.write(objcontest("firstname"))%></td> <td width="145" bgcolor="#FFFFFF"><%response.write(objcontest("lastname"))%></td> <td width="195" bgcolor="#FFFFFF"><%response.write(objcontest("emailadd"))%></td> </tr> <%objcontest.movenext next end if %> </table> <input name="mailer" type="hidden" value="<%response.write(request("mailer"))%>"> <div align="center"><br> <input name="image" type="image" src="images/next.gif" alt="submit form" width="87" height="32"> </div> </form> <%end if%> </td> </tr> </table> </div></td> </tr> </table> </body> </html> Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170168
  - 7
    - how to check file access Hi all, I'm hoping that one of you can help me with the following issue. I would like to copy some files from one location to another. This is not so difficult to do with vb scripting, but in my case it's possible that the person that is executing the script has no access to some of the files. Now I can solve this with on error resume next, but then I don't have controle over the situation. I would like to check if the user is able to read the file before copying it. That way I don't have to create all the subfolders at the destionation folder if it's empty. I also can open every file that I'm copying and see if this raises an error, but that seems a lillte to much overhead if you ask me. I'm sure that there is an easier way, but I have not found it yet.... Any help is surly appriciated.... Thanks in advance... Greetings Sander Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170165
  - 8
    - Multiple Computer System Restore disable script Hi, I'm trying to run a script on my Network to disable System Restore on every computer in the Domain. This is what it looks like: On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT CN FROM 'LDAP://dc=domainname,dc=com' WHERE objectCategory='computer'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strComputer = objRecordSet.Fields("Name").Value ' ===================================================================== ' Insert your code here ' ===================================================================== Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default") Set objItem = objWMIService.Get("SystemRestore") errResults = objItem.Disable("") ' ===================================================================== ' End ' ===================================================================== objRecordSet.MoveNext Loop I'm not sure if there is anything run with it but it's not working. Could somebody help?? Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170161
  - 9
    - Excel formatting using vbscript Hi all, I'm searching for he code how to align the text in a cell to centered. anybody an idea? -- K0b3 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170159
  - 10
    - Wait for the install to finsh! Please! I am launching an install with setup.exe and need the script to wait until the install (msiexec) has completed before moving on, I have tried several command and none of them seem to work... In a vbs I am trying to uninstall any old version of NAV they have and then install the new version of NAV with the settings we want. All done with no user interaction. I am launching the uninstall with "start /w msiexec /x {GUID HERE} /qn REBOOT=REALLYSUPPRESS" And then the install with "start /W setup.exe /v""/qb+ ADDLOCAL=SAVMain,SAVUI,SAVHelp,EMailTools,OutlookSnapin,Pop3Smtp,QClient ENABLEAUTOPROTECT=1 RUNLIVEUPDATE=1 NETWORKTYPE=1 SERVERNAME=MANAGED REBOOT=REALLYSUPPRESS /l*v c:\SAV9Inst.Log"" ",1,True" I am using objshell.run "......" for both the install and uninstall. The wait command does not seem to work, it launches msiexec so when setup.exe exits it thinks it is done. How can I do this? Should I be uinsing the Windows Installer method instead? I cannot find a lot details on the use of this method. TIA. Regards. Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170157
  - 11
    - Add/Remove users to a machine. Is there a better way to do this? I need to make sure that one account (SMS_connection) is on all machines with domain accounts. I set it up as a startup script / GPO, and it seems to work well. I also need to remove 2 accounts 1 local,and 1 a domain account. Is there a better way? By removing the user "local_dummy" from the users group I effectively remove it from the machine...right? How would I go about removing the actual account from the machine? IS there a better way? Thanks Here is the script... Set oWshNet = CreateObject("WScript.Network") sUser = "SMS_connection" sNetBIOSDomain = oWshNet.UserDomain sComputer = oWshNet.ComputerName Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators,group") Set oUser = GetObject("WinNT://" & sNetBIOSDomain & "/" & sUser & ",user") On Error Resume Next oGroup.Add(oUser.ADsPath) sUser = "domain_dummy" sNetBIOSDomain = oWshNet.UserDomain sComputer = oWshNet.ComputerName Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators,group") Set oUser = GetObject("WinNT://" & sNetBIOSDomain & "/" & sUser & ",user") On Error Resume Next oGroup.Remove(oUser.ADsPath) sUser = "local_dummy" sNetBIOSDomain = oWshNet.UserDomain sComputer = oWshNet.ComputerName Set oGroup = GetObject("WinNT://" & sComputer & "/Users,group") Set oUser = GetObject("WinNT://" & sComputer & "/" & sUser & ",user") On Error Resume Next oGroup.Remove(oUser.ADsPath) On Error GoTo 0 Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170154
  - 12
    - Creating printers through the registry I'm writing a script which creates printers with the PrnAdmin.dll. This means that I can't control the entire configuration of the printer. I'm beginning to wonder about the alternatives. Have anybody any experience with creating printers by editing the registry? Or have you tried to create the printer and then modify the registry to configure the printer (setting proper defaults). Ayy suggestions and hints will be most welcome. greetings, Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170153
  - 13
    - Client-Side Cache Script Automation Greetings, all! The local cache for Offline Files and Folders can be reset by holding CTRL+SHIFT and clicking the Delete Files... button in the Offiline Files and Folders dialog. Is it possible to automate this step with VBScript or something similar? Any assistance is greatly appreciated. Thanks for your time! - SB Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170151
  - 14
    - Getting Word Application Instance - How can I use VBScrtipt to determine wheather a particular Workd Instance is running on my computer, that has been created by the Script. For example Set oAppWord = CreateObject("Word.Application") 1. Before I execute the statement I would like to check if an instance is allready running on the client computer 2. I want to save the ProcessID and close if an error occurs in the program Thanks in advance Chris Andreou Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170147
  - 15
    - Account DISABLED date tracked in AD? Hello, Is there a way to obtain the date (and time if possible) that an account in AD was Disabled? Thanks, Troy Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170146
  - 16
    - removing the "password never expires" setting from AD accounts Hello, I have a script which goes through local accounts (on member servers and professional workstations) and ensures the password never expires option in NOT set. Now I'm trying to convert this script to work on domain controllers with active directory accounts. Basically the script enumerates all the accounts in Active Directory and then attempts to unset any password never expires options. Where I'm having problems is the conversion between the WINNT and LDAP providers. Line 8 (which is commented out) in the script below is from the working, local accounts, version of the script. Line 9 is my attempt to translate line 8 for use with Active Directory accounts. Lines 13-18 are directly from the other script too. Line 9 is broken; any help anyone can provide with regard to the proper syntax is greatly appreciated. 1. Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000 2. Dim usrFlagsValue 3. 4. set objContainer = GetObject("LDAP://cn=Users,dc=mydomain,dc=local") objContainer.Filter = Array("User") 5. 6. For Each objLocalUser In objContainer 7. strUser = objLocalUser.sAMAccountName 8. ' Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user") 9. Set objUser = GetObject("LDAP://cn=" & strUser & ",dc=mydomain,dc=local") 10. 11. usrFlagsValue = objUser.Get("UserFlags") 12. 13. ' Check to see if the bit for password never expire is set; 14. ' The Xor operator toggles any "on"s to "off"s 15. If (usrFlagsValue AND ADS_UF_DONT_EXPIRE_PASSWD) <> 0 Then 16. usrFlagsValue = usrFlagsValue XOR ADS_UF_DONT_EXPIRE_PASSWD 17. objUser.Put "userFlags", usrFlagsValue 18. objUser.SetInfo 19. End If 20. Next Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170145
  - 17
    - error when working with CDOEXM to retreive data from remote Exchange Hi, I desperetly seek for help here. I'm running this script from my local machine (2003 server) and try to connect to the exchange on a different server. I have all the CDO obejcts installed: 1 Set iExs = CreateObject("CDOEXM.ExchangeServer") 2 iExs.DataSource.Open "inquire-exch" 4 For Each storegroup In iExs.StorageGroups 5 Next As a result, I'm getting the following error on line number 4: C:\a.vbs(5, 1) (null): There is no such object on the server. Facility: LDAP Provider ID no: 80072030 Microsoft CDO for Exchange Management when running the script on the exchange serveri itself, no problem occur. I also have administrator priviliges on the exchange server. Any idea what could be the problem here? Thanks! Alon Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170144
  - 18
    - Empty file problem Hello all, I created a cheap download script to download files. It works great on almost ever user we have, except for a few. I think there is some type of configuration problem on the server or browser, but I wanted to check with you guys first. Here is the script. Set objXML = Server.CreateObject("Microsoft.XMLHTTP") objXML.Open "GET", FilePath, False objXML.Send '// SafeFullFileName is the file we are downloading. We check to be sure it exists, right format, etc. Response.AddHeader "content-disposition","attachment;filename=" & SafeFullFileName Response.ContentType = "application/" & SafeFullFileName Response.BinaryWrite objXml.ResponseBody Set objXml = Nothing Thanks for the help. Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170142
  - 19
    - Loop through dictionary object I am writing a script that reads and test file, and then creates a dictionary based on set criteria. Each key that is added to the dictionary is appended with a number. This bit works OK. What I then need to do is output the data held in the dictionary, based on the first letter of the dictionary key. I need to do some sort of loop through the dictionary, that will look for all intances starting with "1", then all starting with "2", until it reaches the end of the dictionary. This piece of script will echo each key starting with "1", but I then need it to loop and show "2" etc etc. I have tried adding a Loop function, with an incremental counter i.e. n=0, n=n+1, but it's not quite doing what I need. Set objDictionary = CreateObject("Scripting.Dictionary") Set objDictionary = CreateObject("Scripting.Dictionary") objDictionary.Add "1_file.txt", "1" objDictionary.Add "2_file.txt", "2" objDictionary.Add "3_file.txt", "3" colKeys = objDictionary.Keys For Each strKey in colKeys if Left (strKey,1) = n then Wscript.Echo mid(strkey,InStr(strKey,"_")+1) Next colItems = objDictionary.Items For Each strItem in colItems if Left (strItem,1) = "1" then Wscript.Echo strItem Next Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170132
  - 20
    - User Generated Content I need to setup a webpage that generates links to documents based on the persons locally logged on username. The script below does the job, however I need the text "Please Click Here" to be hyperlinked to another page, I have tried doing a normal a href tag but this would not work. Any Ideas....... <script type="text/vbscript"> function greeting() i=UserName If i = administrator then document.write("Hello Administrator! Please click here") elseif i = sysadmin then document.write("Hello Sys Admin!") elseif i = Guest then document.write("Hello Guest!") elseif i = Internet then document.write("Hello Internet!") else document.write("You are not an authorised user") end if end function </script> Any help would be appreciated Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170131
  - 21
    - How to use vbscript to copy a header from one Word document to another I'm having trouble figuring out how to use vbscript to copy a header from one Word document to another. The code below generates an error message telling me that the requested object doesn't exist i.e., the error is produced by this line: Set objSourcRange = objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text However, the document does have two sections, and each section does have a header. So, I'm stumped. Any suggestions (preferably with explanation, or a clue where I can learn what I'm doing wrong, etc.) would be much appreciated. Thanks, marceepoo Here's the code: Dim sSourcDocFulnam, sTargetDocFulnam sSourcDocFulnam = "C:\Apps\test.speedText.doc.dot" sTargetDocFulnam = "C:\Apps\New Microsoft Word Document.doc" ' Set objWord = CreateObject("Word.Application") ' Set objSourcDoc = objWord.Documents.Open(sSourcDocFulnam) Set objSourcRange = objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text ' Set objTargetDoc = objWord.Documents.Open(sTargetDocFulnam) Set objTargetRange = objTargetDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text ' objTargetRange = objSourcRange Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170129
  - 22
    - ReDim + 2 Dimensional arrays = Errors! I have an annoying problem where my array is unable to redim whilst in a loop. I cant seem to see what the problem is, the code below shows that the array is originally redim'd at the beginning creating a 2 dimensional array. In the loop I want to increase the size of the array by 1 so I can add an extra item in the array Here is my code: dim myarray() redim myarray(1,2) for i = 0 to 10 myarray(i,0) = i+1 myarray(i,1) = i*100 response.write myarray(i,0)&"<br>" response.write myarray(i,1)&"<hr>" redim preserve myarray(i+1,2) next My result with error: 1 0 -------------------------------------------------------------------------------- 2 100 -------------------------------------------------------------------------------- Microsoft VBScript runtime error '800a0009' Subscript out of range /test2.asp, line 19 Any help would be appreciated, John Watson Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170127
  - 23
    - Telnet object Does anybody know of any good telnet class or objects?(ocx) We need to configure a many pieces of hardeware and it will take about an hour per unit and of course human error will happen. It would be nice to promatically configiure. Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170123
  - 24
    - Sending a Fax I am using the VB Script below to send an XLS file to a fax number, the problem is there is no cover page or information to say where the fax is from, who it is for etc, so all the recipient recives is the XLS (Excel)file. Can multiple files be faxed so that I can specify a cover page file as well as the main file that I want to send? or is there a way of entering more code to the example below to create some kind of header to the fax? Set doc=CreateObject("FaxComEx.FaxDocument") Set server=CreateObject("FaxComEx.FaxServer") Dim JobID server.Connect "mhsmngbntsa14" doc.Body="MY XLS FILE" doc.DocumentName="Sample Fax" doc.Recipients.Add "FAX NUMBER" doc.Priority = 1 JobID = doc.ConnectedSubmit(server) Im not a VB programmer so any feedback will have to be in baby talk! Thanks. Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170122
  - 25
    - WMI Timeout on Remote Computer Hi, I am having problems with running WMI query against a few remote Windows 2000 computers. Although the computer is turned on, the script just seems to hang for ages. Is there any way I can set a timeout so if no values are returned within a certain timeframe, the script will go on to the next computer? Thanks for any help... Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170121
- Next
  - 1
    - convert VB script code to vb application This is a multi-part message in MIME format. ------=_NextPart_000_0032_01C51447.56A8BE20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, I am wondering is there a way to convert a vbscript code to vb code and = compile to be an .exe? and the exe would allow arguments.=20 thanks Frank ------=_NextPart_000_0032_01C51447.56A8BE20 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1491" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am wondering is there a way to = convert a vbscript=20 code to vb code and compile to be an .exe? and the exe would allow = arguments.=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>thanks</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Frank</FONT></DIV></BODY></HTML> ------=_NextPart_000_0032_01C51447.56A8BE20-- Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170111
  - 2
    - Dropdown (<select></select>) z-index problem I know there is a problem. But what will be the solution? Mydiv is the 1st z-indexed element. But at the back ground there is a <select> element and they are overlapping visually. any suggestions? Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170110
  - 3
    - Registry question Hope someone can help, I want to be able to search the registry for a particular SubKey, if that key is found then I want to delete the key... I have put together a script that will enumerate the subkeys, but I am stuck at this point... can someone help. Option Explicit Dim WSH Dim strComputer Dim objReg Dim strKeyPath Dim arrSubKeys Dim SubKey '########################################################################### ######################################### Const HKEY_LOCAL_MACHINE = &H80000002 Const DELETE = &H00010000 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Network Associates\ePolicy Orchestrator\application plugins" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys 'For Each Subkey In arrSubKeys 'WScript.Echo SubKey what I would like to do next is after the Keys are displayed I want to check for a particular SubKey and if it exists I want to delete it. Thanks Gavin... Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170096
  - 4
    - Client Side Scripting Question. As I'm new to ASP and VBscript, could someone explain (or point me to) how client side VBscript works on an ASP page. In particular, I have an ASP page that has a body with a form. I need to create a function to return the value of a text field. I would like to call the function with the onsubmit event. But alas, i get all kinds of errors (such as invalid call etc). Any direction would be helpful. Also, when an ASP page loads with a form element and VBscript code, which executes first? The script or the form? TX... Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170094
  - 5
    - Questions Regarding Windows Scripting Note: I am cross-posting this to microsoft.public.scripting.vbscript. I apologize in advance if only part of the message is relevant to that group. Hi, I have a few questions regarding use of the Microsoft Windows Scripting engine in a Visual Basic (classic) application. I am writing an application in VB6 Pro. that will be widely distributed (Windows 98 and up). Some parts of the application make use of the Microsoft Script Control (msscript.ocx). I understand that it is possible for end-users to disable the "Windows Scripting Host" and that it is a somewhat common thing to do due to security issues. This brings up a few questions: 1) Is this the only way possible to disable scripting on the system? If not, what else should I look out for? 2) If scripting is disabled, will the code executed by the Microsoft Script Control fail to run? Or is the Script Control independent of that system setting? 3) Is there any way to programmatically find out if scripting has been disabled? I realize that I could find out some of these answers myself if I had access to a test system where scripting was disabled. What steps can I follow in order to disable scripting on my test machine? Finally, is the Microsoft Script Control dependent on any other files? I scanned the file with Dependency Walker and could not find anything. Also, I found the following post by Randy Birch on June 8 of last year, that states: "It can be redistributed, as stated in MSKB article Q190978 (talking about a missing dependency error when using the package & deployment wizard to include msscript.ocx. Specifically, it states "RESOLUTION: In the case of a control such as MSSCRIPT.OCX, which does not need any additional files to be distributed with it, the message regarding "Missing Dependency Information" may be safely ignored." But, I would like to make sure that this is really the case. Thanks in advance, George Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170087
  - 6
    - Test for a group without members Hello, Is there an easy way to test an AD group for "no membership"..? Thanks, Troy Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170084
  - 7
    - vbs logon script I'm looking for a simple (vbs) logon script that I'll use in a workgroup with a windows 2003 standard server without a domain controller. It has to do this: map network drives with different usernames/passwords. I mean: network drive //fileserver/files needs to be drive H: on the workstation and needs to be mapped with username 'myself' and password 'secret'. If possible the drive H: needs to be named 'FILES'. Anynone? Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170083
  - 8
    - AD Group members without knowing full DN Hello, I have a deeply nested AD OU structure... I have a need for a script to list group membership.... The script will not know the full DN of the group name.. Is there an easy way to simply query AD for a group name match?? Troy Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170077
  - 9
    - Convert to NTFS Anyone have a script that automatically sets the computer to schedule a convert to NTFS at next reboot without user interaction? Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170076
  - 10
    - Building Array and Retrieve Data I've been struggling with retrieving data from an array. I want to search the array against "dataX" and if a match is found retrieve the corrosponding "datapropertyX" value. Dim arrDataSet(1,1) arrDataSet(0,0) = "data1" arrDataSet(0,1) = "dataproperty1" arrDataSet(1,0) = "data2" arrDataSet(1,1) = "dataproperty1" Can someone point me in the right direction? ~Randy Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170073
  - 11
    - Excel graph to Word I am trying to (with vbscript) copy a number of Excel graphs from Excel into Word but I cannot figure out how to do it. It would be nice to copy them as Excel objects but it would also be ok to just copy them as images. I would also like to adjust the size of the images/objects. Does anyone know how to do this? I use Office 2003. Thanks Anders Sneckenborg Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170072
  - 12
    - ie.Navigate can't deal with certain types of addresses If I put the simple code below into a .vbs file and run it, it should bring up a new IE window, put up an alert box, then change IE's title. And it does on my (gasp) unpatched Win 2K Pro system. However, if I run the same script on my patched Win XP Pro system, IE disappears, but fast, when the ie.navigate is hit. I'm the sole owner/operator with administrative privileges on both machines. Now I figure this is a security issue since if I write the long string that js contains directly into (the XP) IE's address bar, it is fine with that. So if that's the case, how do I get IE to allow me to programatically muck with it? In particular, what I'm asking is: given that I manually start a specific program (myProgram.vbs in this case, but it could just as well be PHP acting on myProgram.php) how can I designate that I want other programs to treat it as my fully empowered, authorized agent? Thanks, Csaba Gabor from Vienna set ie = WScript.CreateObject("InternetExplorer.Application") ie.visible = true hdr = "<head><title>Starting title</title></head>" onload = "alert(\'Title\\\'s going to change\');document.title=\'Title changed\';" bdy = "<body onload=""" & onload & """>Hi Mom</body>" js = "javascript:'<html>" & hdr & bdy & "</html>'" msgbox js ie.navigate(js) tmp=ie.readyState 'to alert us if ie prematurely disappears I've broken the generated string into three lines. Join them as one string to see the manual version in action: javascript:'<html><head><title>Starting title</title></head> <body onload=""alert(\'Title\\\'s going to change\'); document.title=\'Title changed\';"">Hi Mom</body></html>' Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170069
  - 13
    - vb6.0 + SC IDE Debugger Subject: vb6.0 + SC IDE Debugger I want to debug some vbs code (thru script control) by VB6.0, Is there any MS IDE Debugger tools for me to debug it step by step ? Thanks. Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170068
  - 14
    - How to press OK to a popup dialog box in IE? Hello, In my organisation, we need to do some logout on a webpage to really log off the internet. I'm thinking about trying to write a script to do this automatically and make this the logout/shutdown script. I've now got the following script which is listed below. I know that after clicking on the logout icon, a pop up will come up and ask me if I want to close the IE window, and there will be an OK and a Cancel buttons. How do I mimic clicking on the OK or the Cancel button? I want to know about both for the sake of learning. Or can I just code it such as with IE.close to close it whatever I'm presented? Thanks. Herbert ======================= Set IE=CreateObject("InternetExplorer.Application") If Err.number <> 0 Then MsgBox "There was a problem starting Internet Explorer." wScript.Quit End If IE.Visible=1 IE.Navigate "some internal link" do while IE.busy: loop Call NavigateLink(IE.document, "javascript:logout()") <I need something here> 'IE.Quit set IE=nothing Function NavigateLink(Doc, Contains) Dim colLinks Dim iIndex Dim oLink Set colLinks = Doc.links For iIndex = 0 To colLinks.length - 1 Set oLink = colLinks(iIndex) If InStr(oLink.href, Contains) > 0 Then Call oLink.click() ' Or maybe IEObject.navigate oLink.href depending on what you need NavigateLink = True Exit Function End If Next NavigateLink = False End Function ================================= Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170067
  - 15
    - modify INI file with IP address is it possible to do a silent change of an INI file into each workstation just by using their IP address? If someone can give me an idea of a sample script, it will be appreciated. TIA! Bob Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170061
  - 16
    - Enumerate GPO links on an OU? Hi, Does anyone know if it is possible to enumerate the GPO links on an OU from VBScript/LDAP? I have searched high and low but have struck out on this one. Some pages (fx http://www.rallenhome.com/books/adcookbook/code.html) have somthing about assigning a new GPO link to an OU, but nothing about listing the names of the existing GPO's assigned to a specific OU... Any help will be greatly appreciated! Thanks, Nicolaj P.S.: If anyone can help, I wouldn't mind a Cc: by mail if possible :) Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170059
  - 17
    - Var example... Is it possible? dim a, b a = "one" b = "two" I would like to dinamically create a new var which name is ab i.e. --> (a+b) that is the union of the names of the previous two vars. Any help appreciated. Regards. -- Fabri (Lattepiù chi può darti di più?) Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170052
  - 18
    - Client Side Validation on Textbox I have the following textbox in the footer of a Datagrid and I'd like to try and add some client side code too take out all the spaces which the user might enter by accident. The textbox is used to enter forename text so basically I need the code to strip out any spaces a user may enter. At the moment I have two validators and my html code looks as follows: - Can someone help me enter the code I need to achieve this. Thanks very much for your help <FooterTemplate> <asp:TextBox ID="add_Forename" Columns="5" Runat="Server" /> <asp:RequiredFieldValidator id="rvForename" runat="server" ErrorMessage="A Forename is required" ControlToValidate="add_Forename" Font-Size="Small">* </asp:RequiredFieldValidator> <asp:regularexpressionvalidator id="revlLengthLetter" ForeColor="Red" Font-Size="Small" runat="server" ErrorMessage="Forename must be more than 2 and less than 25 characters and has to be a letter" ControlToValidate="add_Forename" ValidationExpression="^[A-Za-z]{2,25}$">* </asp:regularexpressionvalidator> </FooterTemplate> Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170051
  - 19
    - ADO and VBScript Do anybody know if there is a web site which contains an overview of ADO? I've done some searching, but I'm not satisfied with what I've found so far. I want to use ADO much the same way as Scriptomatic does. In addition I want to do a bit of searching of the recordset. I want to understand what I do. So I need some documentation. Any suggestions will be appreciated. greetings, Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170050
  - 20
    - FileExists Method hi, can the FileExists Method check for file existance in a web folder ? eg. http://server1/xxx%20xxx/xxx%20xxx.doc pls advise. thanks Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170047
  - 21
    - Returning value from .VBS Is there any way to call one vbscript from another vbscript and be able to return a value from the called vbscript to the calling vbscript? Thanks, dra Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170045
  - 22
    - SQl query results into an array What I would like to do is have the results of my query go into an array. Here is my abridged code snippit. The output I get is the last record of the query I run, not the full results of query (which I want). --- code starts here ---- Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") strConnectionString="Driver={Oracle ODBC Driver};DBQ=My_Database;UID=My_Username;PWD=My_Password" objConnection.Open = strConnectionString objRecordset.CursorLocation = adUseClient '* SQL Query objRecordset.Open "SELECT STORE_NUMBER, STORE_TYPE FROM STOREMAST.STORE WHERE STORE_TYPE LIKE 'Franchise' ORDER BY STORE_NUMBER" , objConnection, adOpenStatic, adLockOptimistic objRecordSet.MoveFirst Do While Not objRecordSet.EOF strStoreNumber = objRecordSet("STORE_NUMBER") srtStoreList = (srtStoreList + (strStoreNumber & ",")) objRecordSet.MoveNext Loop objRecordset.Close objConnection.Close arrStoreList = Split(strStorelist, ",") For Each strStore in arrStoreList WScript.Echo strStore Next Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170035
  - 23
    - Can't delete user from AD. works if I enter the name directly. Can anyone help as to why this doesn't work? It will work if I put the exact name in quotes, but If I put the variable in quotes it doesn't UserName=Chr(34) & UserObj.Name & Chr(34) UserObj.Delete "user", UserName Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170034
  - 24
    - MSDN KB 301464 - Error I am trying to implement a password based security on my website based on the KB 301464. But there seems to be an error in the Logon.asp file within the FORM tags. I am new to asp and anny help to trouble shoot this problem will be appreciated. Here is the complete link to the Article: http://support.microsoft.com/default.aspx?scid=kb;en-us;301464 Thanks, Raktim Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170033
  - 25
    - setting variable to 0 or nothing I have a variable that is repeated in a script over and over and I want to make sure its not carrying the value over to the next loop. whats the best way to initialize a variable to nothing or 0 value Thanks Ryan Tag: Cant Access a textbox value in a div (HTA environment) Tag: 170031

Hi,
I can write, access style variables to a textbox in a div. But i cant
read the value of it. I am working around HTA.
i tried window.textboxid.value AND
document.getElementById("textboxid").value methods...
The textbox is inside the <div>, also div properties has all read-write
permissions.
I am going to eat my keyboard.
What is the definite true solution?
Thanks
Caglar

Top