VBscript to automate installation

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
    - Need Help I am looping through a file reading user names and trying to modiy the telephone notes for each account using the below and can't get it to work? Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("c:\dictionary.txt", 1) Do While objFile.AtEndOfStream = False strName = objFile.ReadLine strContainer = "CN=Users,DC=remote,DC=agilent,DC=com" Set objItem = GetObject("LDAP://CN=" & strName & "," & strContainer) End If On Error Resume Next Const ADS_PROPERTY_UPDATE = 2 objUser.Put "info", "Informational Text" objUser.PutEx ADS_PROPERTY_UPDATE, _ "info", Array("Informational Text") objUser.SetInfo Loop Tag: VBscript to automate installation Tag: 167900
  - 2
    - Validation script is being bypassed I am trying to test a validation logic in one of the text field I have in a form. The name of the text field is txt_CurrentOutlay. The save button in the form is coded as follows: <input type="submit" value="Save" name="btn_Save" > The name of the form is frmMain The validation logic code is written as : If (Len(document.frmMain.txt_CurrentOutlay.value) = 0) Then MsgBox "You must enter a number for current outlay field." Exit Sub End If Now, if I intentionally, do not put any value to the above field and save, I do not get any message as per the validation scirpt above. I am wondering where am I going wrong here? The txt_CurrentOutlay is tagged to a table field in Access as currency field. Any help is appreciated in advance. Thanks. Tag: VBscript to automate installation Tag: 167899
  - 3
    - Automate Excel 2003 addin install I'm trying to script an add-in install for Excel 2003 (source addin = .xla file). I can't seem to find where or if this info is stored in the REG (XP). I know VBS can copy/write the info.... but to where?... . Any ideas ?. Ty Tag: VBscript to automate installation Tag: 167897
  - 4
    - Parsing Text File I need to parse a text file so if a tag ( such as, <startlob1> ) is found it cannot be on a line by itself. Here's an example, jimmy^1234^937-555-2222^ ^<startlob1> some text <endlob1>^ ^<startlob2>BOOK TO SPEC/HAND. PLEASE ENSURE PT HAS UTD PLAIN FILMS IF NOT DONE RECENTLY PRIOR TO ORTHO APPT. THANKS. <endlob2>^ ^<startlob3> some text <endlob3> I want to parse this file to look like this: jimmy^1234^937-555-2222^ ^<startlob1>some text <endlob1>^ ^<startlob2>BOOK TO SPEC/HAND. PLEASE ENSURE PT HAS UTD PLAIN FILMS IF NOT DONE RECENTLY PRIOR TO ORTHO APPT. THANKS.<endlob2>^ ^<startlob3>some text<endlob3> In other words, the tags cannot be on a line by themselves. I would appreciate any help. Thanks! -- --dweezil Tag: VBscript to automate installation Tag: 167896
  - 5
    - Multiple Secondary WINS Entries I have a script in VBScript that automates the WINS entries (1 Primary and 1 secondary) but has a problem when I try to add more than "1" Secondary WINS entries. Attached is the script and any help will be much appreciated (panjwana@exchange.ml.com). _________________________________________________________________________ On Error Resume Next strComputer = "." strWINSPrimaryServer = "146.125.87.65" strWINSSecondaryServer = "146.125.40.65" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") WScript.Echo VbCrLf & "Host Name: " & strComputer & VbCrLf & _ " Attempting to set WINS primary and secondary servers ..." For Each objNicConfig In colNicConfigs WScript.Echo VbCrLf & _ " Network Adapter " & objNicConfig.Index & VbCrLf & _ " " & objNicConfig.Description intSetWINSServer = objNicConfig.SetWINSServer(strWINSPrimaryServer, _ strWINSSecondaryServer) If intSetWINSServer = 0 Then WScript.Echo " Successfully set WINS servers." ElseIf intSetWINSServer = 1 Then WScript.Echo " Successfully set WINS servers." & _ VbCrLf & " Must reboot." Else WScript.Echo " Unable to set WINS servers." End If Next WScript.Echo VbCrLf & String(80, "-") Set colNicConfigs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each objNicConfig In colNicConfigs WScript.Echo VbCrLf & _ " Network Adapter " & objNicConfig.Index & VbCrLf & _ " " & objNicConfig.Description WScript.Echo " Primary WINS Server: " & objNicConfig.WINSPrimaryServer WScript.Echo " Secondary WINS Server: " & _ objNicConfig.WINSSecondaryServer Next ____________________________________________________________________________ ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: VBscript to automate installation Tag: 167884
  - 6
    - Remove Security Groups How can I run this script against multiple users at one time so it goes through a list of users and removes all the security groups? On Error Resume Next Const ADS_PROPERTY_DELETE = 4 Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D Set objUser = GetObject _ ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") arrMemberOf = objUser.GetEx("memberOf") If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then WScript.Echo "This account is not a member of any security groups." WScript.Quit End If For Each Group in arrMemberOf Set objGroup = GetObject("LDAP://" & Group) objGroup.PutEx ADS_PROPERTY_DELETE, _ "member", Array("cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") objGroup.SetInfo Next Tag: VBscript to automate installation Tag: 167880
  - 7
    - I would like to be able to exit out of my loop by pressing a particular key. Hi, Background to the problem. ---------------------- I have nearly new PC that breaks down every now and then and I want to prove to the Tech Support man that there is something wrong with it. If I boot it and leave it in BIOS setup, it runs OK annd will probably run forever. I want to boot the machine in DOS mode run a vbscript to stress it a bit and get its cooler fans running because I think that thats where the problem is. The problem -------------- So I want to run a stupid looping thing with lots on random calc that just goes on and on. And get those chips sizzlin' and them fans spinnin' But I would like to be able to exit out of my loop by pressing a particular key. Can that be done ? TIA Scottie Tag: VBscript to automate installation Tag: 167876
  - 8
    - The ConnectionString property has not been initialized Hi, I am fairly new to ASP.NET and have been working on a web form that will allow a user to upload images to a database. I have found a sample web form that I have been trying to get working, and the web form loads up fine but upon submitting the image, it comes with the following error: The ConnectionString property has not been initialized. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.InvalidOperationException: The ConnectionString property has not been initialized. Source Error: Line 129: Try Line 130: Line 131: myConnection.Open() Line 132: Line 133: myCommand.ExecuteNonQuery() I found this script from the following website http://aspalliance.com/articleViewer.aspx?aId=138&pId= Can anyone please help I am completely lost as to how to correct this problem. I am using Visual Studio 2005 beta 1, IIS 6.0, .NET version 2.0.40607 and SQL Server 2000. Any help would be greatly appreciated. Thank, Devante Tag: VBscript to automate installation Tag: 167875
  - 9
    - Help needed in VBScript Actually i'm working on windows CE environment there i need to write some asp pages ... my problem is:- I had a automation component registered in my device, i need to call the methods of this from ASP page using VBScript. I'm able to create a object and able to call the methods. Here, some of the methods returning more than one value .... so, how can i get their contents from my ASP page. To return one value i used [out, retval] in my method, where it is throwing one return value that i'm catching in my ASP page, but for more than one value how i can get.... Here is my function signature: STDMETHODIMP CMath::FunctionName(BSTR var1, BSTR var2, SHORT *retrn1, SHORT *retrn2) so, now from VBScript how can i pass reference to this variables and get the contents from the method. -- Software Engineer -- Software Engineer Tag: VBscript to automate installation Tag: 167873
  - 10
    - VBscript to save a web page I am looking for a VBscript that will open a pre-defined URL and save the contents to a htm file. Anyone already got it and doesn't mind to share. Thanks Tag: VBscript to automate installation Tag: 167865
  - 11
    - Using COM object's enum Hello, I would like to know how to use a COM object's enum in VBScript? For example: Set objCN = CreateObject("ADODB.Connection") 'objCN.CursorLocation = adUseClient Note that "adUseClient" is an enum (ADODB.CursorLocationEnum.adUseClient). Thanks a lot. Sa Tag: VBscript to automate installation Tag: 167864
  - 12
    - rename files according to file list in excel Dear, I would like to rename all files in a directory, starting with the first file in that directory. The new name of the file should be the first name vb finds in an excel list starting from Cell A1 to end of list. I have starting with someting like this: Function RENAME() Dim oldName, newName Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("C:\data") For Each file In f.Files Name oldName As newName Next End Function But as you can see I still need the loop through cell A1... Can somebody help me? Thanks Frederik. Tag: VBscript to automate installation Tag: 167863
  - 13
    - Me in vbscript ? Hi, I have created a table with this script : <table onmouseover=this.style.background='Gray' language=javascript> How I can change onmouseover event to vbscript ? I use vbscript for my website. Thanks in advance. Tag: VBscript to automate installation Tag: 167854
  - 14
    - Populating a pull down list in a .hta from AD I'm working on a user.hta file and I need to populate a pull down of all the users, then with that I can populate all the other information fields and eventually get the hta to use POST to update specific information. Anyone have an example of using some ADSI within an hta ? Mike Tag: VBscript to automate installation Tag: 167850
  - 15
    - From field in Outlook blank Hello, I have this script that emails me, but I can't seem to get it to fill in the From field in Outlook. I receive the message, but the From field is blank. When I open the message up, the From field is filled in properly, but when the message is listed in Outlook, the From field is blank. I'm using legitimate users in From field too. I know this sounds confusing, but if you have Outlook, then you'll know what I mean... Here is the script: Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.Sender = """user1"" <user1@company.com>" objMessage.To = "user2@company1.com" objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication." objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.21" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send Script runs fine, but I wondering if I'm missing something, or is this the inherent nature of SMTP relaying. Thanks all, Troy Tag: VBscript to automate installation Tag: 167848
  - 16
    - Cannot formulate proper script for validation Hi, I got a text box named txt_CurrentOutlay which updates a currency field in a database table. Now I need to do a validation for this field. I would like to force user to submit a currency(numeric) field. If they do not supply numeric field and try to jump to next txt field, it should give a alert message stating "Only numbers are allowed in this field and then forcing 0 to this field. I am curious to know which event this validation takes place. Any article, sample or link to a web site is higly appreciated. Thanks in advance. Tag: VBscript to automate installation Tag: 167847
  - 17
    - cmd tool output to variable Hey folks. Thanks for all the help prior. I am now trying to collect the output information from a cmdline tool. pslist I would like to run pslist and put its contents into a variable that I can later write to a file. Can someone help me with this Thanks Tag: VBscript to automate installation Tag: 167845
  - 18
    - terminal server How can I get the internet address of the RDP Client when they acess Terminal Server? Tag: VBscript to automate installation Tag: 167839
  - 19
    - Perform PGP decryption in VBScript I am trying to find out if it would be possible to perform PGP decryption within VBScript. Any sample codes would be greatly appreciated. Thank you. Tag: VBscript to automate installation Tag: 167837
  - 20
    - Scripting MBSA Is there a way to alter the resutls page that MBSA generates to make the links to the needed patches on a local system or a USB key instead of it pointing to WU? We are trying to patch systems off our network and if we could get MBSA to point to an offilne storage that would be great. Or being able to parse a txt file that MBSACLI generates and then have a script chain the needed patches together would be even better! Regards. Tag: VBscript to automate installation Tag: 167833
  - 21
    - Object does not support this property or method "Document.Report" Hi, I have the following vbscript in the <head> of asp page. <SCRIPT LANGUAGE="VBScript"> sub btn_LogOut_OnClick() dim asnwer answer=msgbox("Are you sure you want to exit?. If your session is not locked but sure to save your changes first before exiting.",vbYesNo,"Notice") if answer=vbyes then Document.Report.Submit end if end sub </SCRIPT> I am calling this method from a button click of the same page and the code for that is: <input type="button" value="Log Out (Will not Save)" name="btn_LogOut" > I have no idea why I am gettin the above error. Any help is appreciated. Thanks. Tag: VBscript to automate installation Tag: 167831
  - 22
    - Read Text File into Excel Using VBA or VBScript Hi All, I'm a new VBA programmer. I know how to pull an entire text file into an Excel Spreadsheet, but I only want specific information from the text file not the entire text file. What I have is about 25 text files stored in a folder, let's say C:\test. Each file is named by a property address as follows: 209 MAIN ST.txt 213 MAIN ST.txt 111 ELM ST.txt 2356 WOOD AVE.txt On the 11th row of each file is as follows: Property Address:209 MAIN ST On the 31st row of each file is as follows: Total Value:30500 What I would like to do is read each file located in the "C:\test folder and write a record (row) into a single Excel Spreadsheet for each property. I would like the Excel Spreadsheet to look as follows once completed. Note the 1st row below is a header row that needs to be generated by the code. Property Address Total Value 209 MAIN ST 30500 213 MAIN ST 60700 111 ELM ST 20400 2356 WOOD AVE 20900 Can I read a header list (in a spreadsheet, text file, or hard coded in the code) which I would prefer the spreadsheet or text file method, write the header row in A1 then B1. Next read the 25 text files and search based on the header info written above (Property Address & Total Value) and write the appropriate to the single spreadsheet. The 11th row of the First text file value written in cell A2, then read the 31st row of the First text file write the value in cell B2, then loop to the Second text file and values from The 11th row of the Second text file value written in cell A3, then read the 31st row of the Second text file write the value in cell B3, so on and so forth until the last text file is read and the last record is written. I know this is elementary to most, but I'm a beginner programmer and sure could use the help... Can any one help? Thanks in advance. Willie T Tag: VBscript to automate installation Tag: 167828
  - 23
    - Script to open word remotely I am trying to run a script across a network to run word on another machine. I can start a process on the remote machine, but I can't get the window to show up. Any ideas? Thank you! -- connerl Tag: VBscript to automate installation Tag: 167827
  - 24
    - Get information from an other program Hello, Does anybody know how i can get information with VBscript from a window of an other program. I have a little pice of javascript where it works. But my VB is better than Javascript The javascript is: var Running = 0; var TE = new ActiveXObject("DAT32COM.TERMINALEMULATION"); var V = new ActiveXObject("Viewpoint.ViewpointSrv"); var xmlDoc = new ActiveXObject("Microsoft.XMLDOM") xmlDoc.async="false" function Som(Command) { TE.MakeEntry("<FORMAT>"+Command+"</FORMAT>"); return(TE.ResponseXML); } function Loep() { var Response = Som("QCA"); xmlDoc.loadXML(Response); nodes=xmlDoc.documentElement.childNodes; PCC.innerText=nodes.item(0).text.substring(6,10); In the row above i get the info from digit 6 to 9. Thks, Michel Tag: VBscript to automate installation Tag: 167821
  - 25
    - FSO file.type How do you deal with FSO file.type method returning "JPEG Image" on one PC and "DELL Image Expert Picture" on another when the file's extension is jpg? Must I parse the file.name property to be sure of its type? thanks LJB Tag: VBscript to automate installation Tag: 167819
- Next
  - 1
    - getting type mismatch with array I'm building a treeview page that is generated and expanded as the user opens links from it, and am using an array stored in a session variable to maintain the tree. The problem I've hit is that of how to corectly dim the array variable. the variables are dimed after option explicit, but having dim arrtree there throws a type mismatch at line 116 when the array is empty but not when its populated having dim arrtree() throws same at line 87 when the array is populated, but is fine when its empty obviously trying to have two dim statements in the if-else throws a 'redefined' error. other than removing the option line, how to get round this? this is the part of the code that is doing the work: if intmenuid > 0 then if session("arrtreeflag") > "" then arrtree = session("arrtree")'########line 87 thisid = Request.QueryString("thisid") x = ubound(arrtree,2)+1 arrtree(9,thisid) = 1 sql = "select tagid,rtrim(m1.menuname) from navigate_tags t left join navigate_menus m1 on tagid = m1.menuid where parentid = "&intmenuid&" and menuname is not null order by node" else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 strmessage = "reset" end if else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 intmenuid = 0 end if if strmessage > "" then Response.Write "timeout - tree reset to top<br/>" 'sql = "cn_viewtree_count "&intmenuid&" " Response.Write "" set rs = conn.execute(sql) if not rs.eof then do while not rs.eof Response.Write "" redim preserve arrtree(10,x) ''''##########line 116 arrtree(0,x) = rs(0) ' node id arrtree(1,x) = 0 ' 0 = menu 1 = item if intmenuid > 0 then arrtree(2,x) = intmenuid ' parentid if intmenuid = 0 then arrtree(2,x) = 0 ' parentid arrtree(3,x) = rs(1) ' name Response.Write "" set rs_c = conn.execute("cn_viewtree_child "&rs(0)&" ") arrtree(4,x) = rs_c(0) ' has child 0 false 1 true arrtree(5,x) = 0 ' has been used in tree arrtree(6,x) = level ' tree level arrtree(7,x) = x ' array node arrtree(8,x) = intmenuid'parentnode 'parent array node arrtree(9,x) = 0 ' has been opened Response.Write "adding index["&x&"] id["&arrtree(0,x)&"]par ["&arrtree(2,x)&"]name["&arrtree(3,x)&"]child["&arrtree(4,x)&"]level ["&arrtree(6,x)&"]parentnode["&arrtree(8,x)&"] <br />" x=x+ 1 rs.movenext loop end if 'arrtree(4,x) = 0 ' has child 0 false 1 true set session("arrtree") = nothing session("arrtree") = arrtree set session("arrtreeflag") = nothing session("arrtreeflag") = "current" Tag: VBscript to automate installation Tag: 167818
  - 2
    - how to read the correct Excel data area I exported a Access table to Excel sheet, then added some more data records, on the sheet. When I re-read this sheet with VBS with DAO, like; Set DB = DBE.Workspaces(0).OpenDatabase(xlsFile,False,False,"Excel 8.0;") Set RS = DB.OpenRecordset(sheetName). With RS Do While Not .EOF ----- ----- All added data records can not be read and stopped always previous end point. Is any place still have the size of data sheet? If so, how to correct and let VBS read the correct , expanded, data area? Thanks in advance, M.M -- ---------------------- System YNT mmiura@sysynt.com ---------------------- Tag: VBscript to automate installation Tag: 167812
  - 3
    - ASP Pages accessing databse issue I am attempting to retrieve a value from a database and populate a textbox on my html form. This code appears to run fine without error but i do not get any value in my textbox. Im very new to ASP and im having to change an existing system. If i do not put my vbscript code at the bottom of the screen then my page will not render correctly. Can anyone please help me ??? Are there any major flaws with my code ??? should my script be before my textbox ???? by the way im only hardcoding input values for test purposes. <%@ Language=vbscript LCID=2057%> <HTML> <HEAD> <title>IDD Document</title> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <body bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout" bgcolor="#ffdcff"> <form id="Form1" method="post" runat="server"> <TABLE id="Table1" style="Z-INDEX: 102; LEFT: 0px; POSITION: absolute; TOP: 0px" cellSpacing="0"cellPadding="0" width="100%" border="0" height="100%"> <TBODY> <TR> <TD style="HEIGHT: 42px" vAlign="top"> <BR> <INPUT id="btn_BackToMenu" type="button" value="Close Window" onclick="window.close()" runat="server"></TD> ******************************************************************* *******************TEXT BOX I WANT TO POPULATE********************* <input type="text" name="T1" size="20" value="<%= strtext%>" ******************************************************************* ******************************************************************* </TR> <TR> <TD><iframe name="myIframe" height="100%" width="100%" frameborder=no src="documents/IDD.pdf" </TR> </td></form> </TABLE> </form> </body></IFRAME></TR></TBODY></TABLE></FORM> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** <% Dim oRS, strSQL, txt_ClientCode, strtext txt_ClientCode = "AA3" If len(txt_ClientCode)>0 Then 'strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode = '" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then strtext = oRS("ClientCode") Response.Write(strtext) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If %> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** </BODY> </HTML> Tag: VBscript to automate installation Tag: 167810
  - 4
    - populating AD fields from pick list I want to scroll through my USERS container and for each user, I want to be able to manually select from a list and return a code that is inserted into a field in AD for that user... Idealy once selected that field could be removed from the list. This is a one time deal so does not have to be fancy. I have my list of names/codes in Excel. Carl Tag: VBscript to automate installation Tag: 167808
  - 5
    - how to create directories? I am unsure as to how to do this without creating a long winded script. I want check to see if a directory or 2 directories exist and if they don't then create them. ie: dir1 \ dir2 \ dir 3 \dir 4 \ dir 5 So dir1 exists but 4 & 5 don't and neither do 2 + 3. The only way to do this that i have found is to create a separate variable for each directory and then create each separately oDir1 = c:\dirA\dirB oDir2 = dirC oDir3 = dirD mDir = oDir1 + oDimM mDir = MDir + oDir3 (just a sample) Is there a better way of doing this? jp Tag: VBscript to automate installation Tag: 167806
  - 6
    - vbscript error accessing database client or server ?? I am trying to run the following vbscript code (see SCRIPT CODE below) using an onclick event on a button(see BUTTON CODE below). I am getting the "error: object expected" at the button code line. Is there a fundamental problem with my script , i.e. trying to run a server side script using a button or is there merely a coding error??? I was hoping to run this code automatically when the page loads pulling in the txt_ClientCode value from a cookie but when i used the line txt_ClientCode = request.cookie("ClientCode") and ran the code as client side script i got an error on the word request. Can anyone please give me a few explanations as to what is happening and any helpful hints. BUTTON CODE <input name="testname" type=button onclick="TestMsg()" style="width:105px;"> SCRIPT CODE <SCRIPT LANGUAGE=vbscript runat=server> Function TestMsg() Dim oRS, strSQL, txt_ClientCode txt_ClientCode = "G10" If len(txt_ClientCode)>0 Then strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then msgbox(oRS("ClientCode")) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If end function </SCRIPT> Thanks Tag: VBscript to automate installation Tag: 167805
  - 7
    - Re: Communicating Between VB6 and a HTML Document Happy New Year Winguy: You have written the code to set the value of a text, but, have you discovered how to set & retrieve the values of Check boxes, and Select Options? Thanks. From: WinGuy (no_spam@nomail.bot) Subject: Communicating Between VB6 and a HTML Document View this article only Newsgroups: microsoft.public.scripting.vbscript Date: 2004-12-28 12:26:03 PST I had a need to manipulate the activities of a webpage hosted by the WebBrowser control from within a Visual Basic project. The requirement was that VB must be able to communicate with VBScript, and vice versa. This is how I accomplished the task. I created a new Visual Basic project and placed the WebBrowser control on its default form. I initially set that control properties with a name of WebBrowser1, and as not visible. I placed a command button on top of the WebBrowser1 control, right-clicked it and sent it to the front and then right-clicked the WebBrowser1 control and sent it to the back. I set the form properties to not display a menu bar. I set the click event handler for the command button to end the program. In the form unload event is where I destroyed all objects before the VB program would end. This code would set the form to entirely fill a 1024x768 screen: Me.Move 0, 0 Me.Width = 15360: Me.Height = 11520 Me.Visible = True This code would then initialize that control for full screen and no taskbar or menus: WebBrowser1.Left = 10: WebBrowser1.Top = 10 WebBrowser1.Height = Me.Height - 20: WebBrowser1.Width = Me.Width - 20 WebBrowser1.AddressBar = False WebBrowser1.MenuBar = False WebBrowser1.StatusBar = False WebBrowser1.FullScreen = True WebBrowser1.TheaterMode = True WebBrowser1.GoHome WebBrowser1.Visible = True I defined a global variable named PageReady. Then this code in WebBrowser1.DocumentComplete: PageReady = True Then I created Sub MyTest() and placed this code into it: WebBrowser1.Navigate MyPath & "Page1.html" 'MyPath is previously defined PageReady = False While PageReady = False: DoEvents: DoEvents: DoEvents: Wend 'Page loaded 'Set the text value in the page control named txtWebBrowser! WebBrowser1.Document.All.Item("txtWebBrowser").Value = "Message from VB6 Code!" 'Get the text value in the page control named txtWebBrowser! 'MsgBox WebBrowser1.Document.All.Item("txtWebBrowser").Value ---------------- That completes the VB part. I then created a webpage called Page1.html,Read the rest of this message... (43 more lines) Post a follow-up to this message Tag: VBscript to automate installation Tag: 167801
  - 8
    - ActiveX Calendar Control On FrontPage 2003 Hi there, I inserted a Calendar Control 10.0 into my FrontPage 2003. I can display it however, I was unable to retrive my selected date value. I don't see a property called Value when I use the "." operator. If I use the sample code from article 299691, I got an Error: Object required: 'Calendar1' Did I use an incorrect version of Calendar Control on FrontPage 2003? Any idea? Thanks. Abel Chan Tag: VBscript to automate installation Tag: 167800
  - 9
    - Error in loading DLL. '800a0030' Hi folks, I have been trying to solve an ERROR during some days with no result. I would appreciate if any of you could help me with this issue. This is the error message produced by the ASP page: Microsoft VBScript runtime error '800a0030' Error in loading DLL: 'Datos.SetObjProceso' /Prueba.asp, line 4 And this is the ASP code: ASP Page (Prueba.asp) ------------------------------- Set Proceso= Server.CreateObject("Procesosdll.Proceso") Set Datos= Server.CreateObject("Procesosdll.Datos") Set Proceso.SetObjDatos = Datos Set Datos.SetObjProceso = Proceso <----- The error happens to be here ------------------------------- None of the posible reasons apply to this case: - Use of collections: There is not collections in the 2 objects. - Sending e-mails: There are no emails sent from this component. - Return recordsets: I don´t return them. - Return types defined by the user (UDT): As you could see in the code, this practice is not used. The most extrange thing is that the previous code line to the error (Set Proceso.SetObjDatos = Datos), which is very similar, does not produce the ERROR. The component Procesosdll have 2 objects: Datos and Proceso. These are the properties related to the error (the others are working fine): Object Datos ------------------------------- Private mvarObjProceso As Proceso Public Property Set SetObjProceso(ByVal obj As Proceso) Set mvarObjProceso = obj End Property ------------------------------- Object Proceso ------------------------------- Private mvarObjDatos As Datos Public Property Set SetObjDatos(ByVal obj As Datos) Set mvarObjDatos = obj End Property ------------------------------- It is also very weird that in the development environment everything is working fine and, on the other hand, in the production env. this misterious error is being happing. Development environment detail ------------------------------- Windows NT 4.0 + SP 6 IIS 2.0 VB 6.0 ------------------------------- Production environment detail ------------------------------- Windows 2003 Server IIS 6.0 ------------------------------- Unfortunately I cannot have the same configuration (OS+IIS) in both environments as they belong to different companies shared to different users. Any help would be really appreciated. Thanks in advanced and regards. Sergio Galindo. Tag: VBscript to automate installation Tag: 167799
  - 10
    - using variable in Where clause I am trying to create a script that will kill a process based on the process name which is passed to the script as a cli argument. The following code snippet works fine if the process name is hardcoded in the script, but I can't assign the process name to a variable and use that in the ExecQuery command. Set colProcessList = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Process WHERE Name = 'AIM.EXE'") I would rather use WHERE Name= variable Tag: VBscript to automate installation Tag: 167789
  - 11
    - class property Let -v- Set Anyone have an example that could illustrate where/when a Class Property â??Setâ?? is used as opposed to a â??Letâ?? (or visa-versa)? All I have found so far is ... "Property Setâ??s used when you need to use a procedural property to pass an object for use by the class, rather than just a standard variable" â?¦ which I read as you need a 'Set' when you are going to pass an object reference (such as a FSO file) to a procedure in the class object. For example a MyClass.MyFile=oFSO.GetFile("test.txt") would use a Set, but a MyClass.MyFileName = "test.txt" would use a Let. Cheers -- Alun Boyd (UK) Tag: VBscript to automate installation Tag: 167783
  - 12
    - Problem with the WHERE clause in an SQL Script. The Field HUPDEMP can be a valid Employee Code or a Constant. The Constant will always be SSS. I am having trouble with the constant script on the following statement. Where is my syntax error? rsTEXAS.Open "SELECT * FROM HSCHOOL ORDER BY HCLBKDT, HSchool WHERE HUPDEMP = '" & EmpCode & "' or HUPDEMP = 'SSS'", cnnct, 3, 3 Thanx in Advance Len Tag: VBscript to automate installation Tag: 167782
  - 13
    - parse output data Hello all, Please excuse this newbie question, but I am trying to hack a previously made script to do my bidding, and unfortinatly I am not very good with VB / ASP The script works put I want to parse the data down to the first line or so and I can not for the life of me figure out how. Here is the script <% ' Create an instance of the object. Set whois = Server.CreateObject("GSWhois.Whois") ' Attempt to connect to a "whois" server... if (whois.Connect("whois.arin.net") = "OK") Then 'using IP TO TEST will replace with variable <%strIP%> once inserted into page output = whois.Query("115.23.98.2") Response.Write Output Else Response.Write("Unable to connect to whois server") end If whois.Close Set whois = Nothing %> and here is the output OrgName: Internet Assigned Numbers Authority OrgID: IANA Address: 4676 Admiralty Way, Suite 330 City: Marina del Rey StateProv: CA PostalCode: 90292-6695 Country: US NetRange: 96.0.0.0 - 126.255.255.255 CIDR: 96.0.0.0/4, 112.0.0.0/5, 120.0.0.0/6, 124.0.0.0/7, 126.0.0.0/8 NetName: RESERVED-8 NetHandle: NET-96-0-0-0-1 Parent: NetType: IANA Reserved Comment: RegDate: Updated: 2002-09-12 OrgAbuseHandle: IANA-IP-ARIN OrgAbuseName: Internet Corporation for Assigned Names and Number OrgAbusePhone: +1-310-301-5820 OrgAbuseEmail: abuse@iana.org OrgTechHandle: IANA-IP-ARIN OrgTechName: Internet Corporation for Assigned Names and Number OrgTechPhone: +1-310-301-5820 OrgTechEmail: abuse@iana.org # ARIN WHOIS database, last updated 2005-01-03 19:10 # Enter ? for additional hints on searching ARIN's WHOIS database. I really only want the first part of the data can someone help me with this please? TIA DP Tag: VBscript to automate installation Tag: 167781
  - 14
    - connecting to pcs and a different path on each connection I need to connect to about 80 different pcs. I have that working but on each pc that I connect to I need to specify a different path. ie c:\documents and settings\bob or \larry or \susan I am talking about %username% = bob,larry, and susan but Im not sure how I can do that. there is not connection between the computername and username. I am in a 2003 ad domain but Im not sure how I can link the two. Each computer has 2-3 different users on them but should only have 1-2 possibly 3 that have been used to logon to the domain. Can anyone help me with the path problem Thanks Ryan Tag: VBscript to automate installation Tag: 167780
  - 15
    - get total size of a folder (all objects in it) on a remote computer How can I get the total size of a folder (all objects in it) on a remote computer? I have been looking for an example but having no luck. -thanks! Tag: VBscript to automate installation Tag: 167778
  - 16
    - Uploading a File from a Form as Stream I am working on a Library Administration web page. The page provides the capability to add, edit, replace, suspend/activate, and delete documents from the site Library. The user selects a function and the form is dynamically produced using XML and the .innerHTML functionality. My problem is I need to be able to allow the upload of a file without actually submitting the form. All functionality of this admin interface is based on using the CreateObject("MSXML2.XMLHTTP") functionality, sending XML back and forth from client to server so the page does not have to reload. Any suggestions on how to upload a file to the server from this page using VBScript and a stream? Thanks in advance to anyone who can figure it out. Jim Tag: VBscript to automate installation Tag: 167774
  - 17
    - Exchange 2003 mailbox creation I've made a script to create a single user in Windows 2003 AD, with homedir and mailbox, I can create the user and the homedir but NOT the mailbox. Everything works but the mailbox creation. I run the script from the DC, it altso runs the exchange 2003! Why doesn't this work???????? ---------------- code snip ------------------------ Set user = ouHO.Create( "User" , "CN=" & sFirstName & " " & sLastName) user.Put "samAccountName" , sUserName user.SetInfo user.GetInfo user.Put "givenName" , sFirstName user.Put "sn" , sLastName user.Put "userPrincipalName" , sUserName & "@DOMAIN.COM" user.AccountDisabled = False user.Put "streetAddress" , sAdresse user.Put "PostalCode" , sPostnr user.put "l", sBy user.put "telephoneNumber", sTlf user.put "HomeDirectory", "\\mail\brugere\" & sUserName user.Put "homeDrive", "Q:" user.put "scriptPath", "logon.vbs" 'Create user home directory. If Not fso.FolderExists("\\mail\brugere\" & sUserName) Then Set fldUserHomedir = fso.CreateFolder("\\mail\brugere\" & sUserName) End If 'Set full rights for Administrators and change right for user and removes the Everyone group wshShell.Run "net share " & sUserName & "=f:\brugere\" & sUserName & " /y", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G Administrator:F", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /R everyone", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G " & sUserName & ":C", 1, True user.SetInfo user.SetPassword "12345" MBXStoreDN = "CN=Mailbox Store (SERVER),CN=First Storage Group,CN=InformationStore,CN=SERVER,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=First Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=DOMAIN,DC=COM" Set exchUser = user ExchUser.CreateMailbox MBXStoreDN ExchUser.SetInfo ----------------------- code snip -------------------------- Regards Ole Rasmussen Tag: VBscript to automate installation Tag: 167770
  - 18
    - Proxy Settings Hello There! Is there a possibility to read out the proxy settings from a remote computer and maybe change them via a script? I think about WMI objects or something. Maybe even over remote access to the registry? cu StefanP Tag: VBscript to automate installation Tag: 167769
  - 19
    - checking log file Hello everyone, I have a logfile that is updated every 5 minutes. What I'd like to do is have a vbscript monitor this file and if the last date modified is greater than 30 minutes from the current time, send an email to me. Anyone have any idea of doing this? I'm struggling with the way to subtact minutes from the timestamp of the log file. Thanks! Moogeboo Tag: VBscript to automate installation Tag: 167763
  - 20
    - how to query line number? is it possible to query the currently executing line number somehow? thanks, Jon Tag: VBscript to automate installation Tag: 167761
  - 21
    - Zip and Unzip files and folders Hi, I have a script that makes a backup of my info, in win2003 server, but I need zip and unzip my info with the same backup script, I dont want install software extra, I want use the way that windows have to make compressed ziped folders. Someone can help me??? Tag: VBscript to automate installation Tag: 167755
  - 22
    - REgini syntax What syntax do I use to change permissions on a key and all of it's child objects? I have \registry\machine\software\burli [1 17] the above is an example. what do I need to add to have those permissions propagate down? thanks Tag: VBscript to automate installation Tag: 167750
  - 23
    - standalone ADO recordset If I create and fill a standalone ADO recordset is there any way I can write SQL to compare these records with an existing Access table? I have an Access database with photo file names and descriptions in a table. My vbscript builds a standalone recordset based on jpg files found in some folder. I would like to report any records missing in either the database table or files in the folder. thanks ljb Tag: VBscript to automate installation Tag: 167748
  - 24
    - VB Script newbie question Hi I have the following script, which works fine for getting some of the data requested but not all. I realise the reason this occurs is thatin the line: "Select * from Win32_ComputerSystem",,48) it just specifies win32_computersystem. Is there a way to specify multiple WMI objects in the same script? ----------------- On Error Resume Next strComputer = InputBox ("Enter Remote Computer Name or Press Enter for local machine","Enter Remote Computer Name",".") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery( For Each objItem in colItems Wscript.Echo "Wallpaper: " & objItem.Wallpaper Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Model: " & objItem.Model Wscript.Echo "Name: " & objItem.Name Wscript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors Wscript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName Wscript.Echo "SystemType: " & objItem.SystemType Wscript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory Wscript.Echo "UserName: " & objItem.UserName Wscript.Echo "Computer name: " & objComputer.MachineName Wscript.Echo "Start Time: " & objItem.StartTime Next Tag: VBscript to automate installation Tag: 167744
  - 25
    - FileExists Wildcard + newest file I am writing a script to read a log file that is dumped at random times. All of the logs are in the same location but the name contains a timestamp of sorts. example: c:\log\log2004-11-16-13-12.log How do I search the directory for "c:\log\log*" and open the newest one for reading? Tag: VBscript to automate installation Tag: 167740

Hi,

I'm a programmer;however, new to VBScripting. I need guidence to
write a VBscript which does the following:
Once a user logs into window (XP/2003), certain user specific
programs (define by the admin) starts installing
automatically. Any specific example(s) or website(s) references
would be greatly appreciated. Also, if there is another alternative???
Thanx in Advance,
Latez.

Top

Re: VBscript to automate installation by MikeVa

MikeVa
Tue Jan 11 13:55:21 CST 2005

If you're in an Active Directory domain, the best way would be to use Group
Policy.

Read more about it here:
http://www.microsoft.com/resources/documentation/WindowsServ/2003/all/deployguide/en-us/Default.asp?url=/resources/documentation/windowsserv/2003/all/deployguide/en-us/dmebe_swi_lzpm.asp?frame=true

--
MikeVa [MSFT]

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of any included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm
--
Please do not send e-mail directly to this alias.
This alias is for newsgroup purposes only.
--
"sherry" <your_prince20@hotmail.com> wrote in message
news:1105047272.417036.94430@f14g2000cwb.googlegroups.com...
> Hi,
>
> I'm a programmer;however, new to VBScripting. I need guidence to
> write a VBscript which does the following:
> Once a user logs into window (XP/2003), certain user specific
> programs (define by the admin) starts installing
> automatically. Any specific example(s) or website(s) references
> would be greatly appreciated. Also, if there is another alternative???
> Thanx in Advance,
> Latez.
>

Top