Vbscript to link access tables

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
    - Charting... hello, I have to develop a site having dynamic line charts that displays data read from serial port. Does anyone know good (and cheap) components that can be used in pure ASP sites? I'm looking for a component with a couple of special features: - capable of drawing dynamic charts based on data read from serial port (like mentioned above) - dynamic x- and y-axis, and scrolling in case of x-axis (= showing e.g. 300 values at a time, older values can be seen be scrolling to left...) - clickable objects, e.g. lines (e.g. user can move min and max limit lines in the chart and the corresponding variables should be changed in ASP site) - etc. All this should work on a pure ASP site (NOT ASP.NET), since I'm working with Windows CE.NET)! UNLESS future versions of Win CE.NET will have support to ASP.NET (but this is another question, which I will post to another newsgroup) THANK YOU VERY MUCH IN ADVANCE FOR ANY ADVICE. Mike Tag: Vbscript to link access tables Tag: 141620
  - 2
    - How to add SMTP adr via ADSI Hi, I wrote a vbscript with HTML frontend to add a new user to our AD using ADSI - a mailbox on our exchange is also created automatically. But how do I now add an additional SMTP address to that user? Our config: W2k Server & AD; Exchange2k Any ideas? Thanks! Tag: Vbscript to link access tables Tag: 141616
  - 3
    - Process-id : How do I determine my own in VBScript I wrote a VB script (+ WMI) to determine PID's of all processes running on my computer. Execution of VB script is identified by the process name of wscript.exe. But when multiple scripts are simultaneously running, how do I determine what's my own process id (PID) so I can take some programmatic action? Thanks in advance for your help. Tag: Vbscript to link access tables Tag: 141614
  - 4
    - getting out of a loop. This is a multi-part message in MIME format. ------=_NextPart_000_0124_01C36840.7D2C3270 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I'm having trouble resetting an invalid input value. The input string is = tested for a single digit, positive integer from 0 to 4. The code works = except for when the first invalid entry is done, then if a valid entry = is entered after it, the script returns saying the input is still = invalid. I must be missing where to reset the last value entered while = in the conditional loop. Thanks for any help. -CPsharp Call Main_Menu() Function Main_Menu() Dim k, selaction, choose_str, Array_selaction(4), Patern Array_selaction(0) =3D "Create An Administrative Account" Array_selaction(1) =3D "Delete An Administrative Account" Array_selaction(2) =3D "Reset A Password" Array_selaction(3) =3D "Force Change Password for an" & vbCrLf & vbTab & = vbTab & "Account at Next Login" Array_selaction(4) =3D "Enumerate All Accounts and Their" & vbCrLf & = vbTab & vbTab & "Properties" For k =3D 0 to 4 Step 1 choose_str =3D choose_str & vbTab & (k) & "." & " " choose_str =3D choose_str & Array_selaction(k) & vbCrLf Next Patern =3D "^[0-4]{1}+$" Set selaction =3D Nothing selaction =3D InputBox(choose_str,"Select Action", 4) Do Until RetVal =3D True Set regEx =3D New RegExp regEx.Pattern =3D Patern retVal =3D regEx.Test(selaction) If retVal Then wscript.echo "The value is valid." RetVal =3D True Exit Do Else wscript.echo "wrong Input Value" Call Main_Menu() End If Loop k =3D selaction Select Case k Case "0" Call Add_User() ' Call the Add User Function Case "1" wscript.echo "hello 1"=20 Case "2" wscript.echo "hello 2"=20 Case "3" wscript.echo "hello 3" Case "4" wscript.echo "hello 4" Case Else Wscript.Quit End Select set k =3D Nothing set choose_str =3D nothing set selaction =3D nothing End Function ------=_NextPart_000_0124_01C36840.7D2C3270 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.2730.1700" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>I'm having trouble resetting an invalid = input=20 value. The input string is tested for a single digit, positive integer = from 0 to=20 4. The code works except for when the first invalid entry is done, then = if a=20 valid entry is entered after it, the script returns saying the input is = still=20 invalid. I must be missing where to reset the last value entered while = in the=20 conditional loop. Thanks for any help.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>-CPsharp</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Call Main_Menu()</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Function Main_Menu()</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Dim k, selaction, choose_str, = Array_selaction(4),=20 Patern</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Array_selaction(0) =3D "Create An = Administrative=20 Account"<BR>Array_selaction(1) =3D "Delete An Administrative=20 Account"<BR>Array_selaction(2) =3D "Reset A = Password"<BR>Array_selaction(3) =3D=20 "Force Change Password for an" & vbCrLf & vbTab & vbTab = &=20 "Account at Next Login"<BR>Array_selaction(4) =3D "Enumerate All = Accounts and=20 Their"  & vbCrLf & vbTab & vbTab &=20 "Properties"<BR></FONT></DIV> <DIV><FONT face=3DArial size=3D2>For k =3D 0 to 4 Step = 1<BR>    =20 choose_str =3D choose_str & vbTab & (k) & "." & " =20 "<BR>     choose_str =3D choose_str & = Array_selaction(k)=20 & vbCrLf<BR>Next</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Patern =3D "^[0-4]{1}+$"<BR>Set = selaction =3D=20 Nothing<BR>selaction =3D InputBox(choose_str,"Select Action", = 4)</FONT></DIV> <DIV><FONT face=3DArial size=3D2><BR>Do Until RetVal =3D=20 True<BR>        Set regEx =3D New=20 RegExp<BR>        regEx.Pattern =3D=20 Patern<BR>        retVal =3D=20 regEx.Test(selaction)<BR>    If retVal=20 Then<BR>        wscript.echo "The = value is=20 valid."<BR>        RetVal =3D=20 True<BR>        Exit = Do<BR>  =20 Else<BR>        wscript.echo "wrong = Input=20 Value"<BR>        Call=20 Main_Menu()<BR>   End If<BR>Loop</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>k =3D selaction<BR></FONT><FONT = face=3DArial=20 size=3D2></FONT></DIV> <DIV><FONT face=3DArial size=3D2>Select Case k<BR>  Case = "0" Call=20 Add_User()    ' Call the Add=20 User Function<BR>  Case "1" wscript.echo "hello=20 1" </FONT></DIV> <DIV><FONT face=3DArial size=3D2>  Case "2" wscript.echo = "hello=20 2" </FONT></DIV> <DIV><FONT face=3DArial size=3D2>  Case "3" wscript.echo = "hello=20 3"<BR>  Case "4" wscript.echo "hello = 4"<BR>  Case=20 Else Wscript.Quit<BR>End Select</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>set k =3D Nothing<BR>set choose_str =3D = nothing<BR>set=20 selaction =3D nothing</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>End Function</FONT></DIV></BODY></HTML> ------=_NextPart_000_0124_01C36840.7D2C3270-- Tag: Vbscript to link access tables Tag: 141613
  - 5
    - McAfee Version Anyone have any idea how I can find out what version of McAfee each computer in my OU's have? TIA Gavin... Tag: Vbscript to link access tables Tag: 141606
  - 6
    - Server Excel process is not terminating I am writing a server side script which performs the following actions: 1. Opens an Excel document 2. Unprotects/ Protects the worksheets 3. Closes the Excel document The problem is that my script creates an Excel process on the server, and this Excel process does not die unless you manually terminate the process from within Task Manager. There will be several users activating the script on the server, and the abundance of Excel processes may bring the Server down over time. I have searched the web for this problem, and there are still a couple of things that l would still like to try. However the line will is coming up with a compilation error. The listing is provided below. How can l find out which version of VBScript is running on the Server? Can anybody suggest another way to deal with the Excel process not remaining? One website suggested that unreferenced references may be causing the problem. However, l cannot see any inside the script. Help! ========================================================== The line is: Dim oWB As Object Dim oApp As Object On Error Resume Next 'THIS LINE WILL NOT COMPILE Set oApp = GetObject(,"Excel.Application") If Err.Number = 429 Then 'Excel is not open On Error GoTo 0 Set oApp = CreateObject ("Excel.Application") End If On Error GoTo 0 oApp.Application.Visible = True oApp.Application.DisplayAlerts = False Set oWB = oApp.Workbooks.Open(strFullFileName) Dim intSheetCount, intCounter As Integer 'Get number of worksheets inside the Workbook intSheetCount = owB.Worksheets.Count 'Check if Protect or Unprotect If intOnOff = FILE_EXCEL_PROTECT Then For intCounter = 2 To intSheetCount 'Password, DrawingObjects, Contents, Scenarios oWB.Worksheets (intCounter).Protect strPassword, True, True, True Message "Protected " + oWB.Worksheets(intCounter).Name Next intCounter Else For intCounter = 1 To intSheetCount oWB.Worksheets (intCounter).Unprotect strPassword oWB.Worksheets (intCounter).Unprotect LCase(strPassword) Message "Unprotected " + oWB.Worksheets(intCounter).Name Next intCounter End If oWB.Save oWB.Saved = True oApp.Application.DisplayAlerts = True oWB.Close True Set oWB = Nothing oApp.Application.Quit Set oApp = Nothing End Sub Tag: Vbscript to link access tables Tag: 141597
  - 7
    - Difference between using server.createobject and createObject Hi, What Is the difference between doing "Server.createObject" or Just "CreateObject" without the Explicitly adding the "Server" in IIS4 or IIS5? Thanks, David Tag: Vbscript to link access tables Tag: 141576
  - 8
    - SQL insert new record help Thank you Richard for helping me with the variable syntax. I know I have a valid query now, but what am I doing wrong with the insert statement? Set Att_rs = Server.CreateObject("ADODB.Recordset") NewEntry="SELECT StudentID, AttendanceTimeIn, AttendanceTimeOut, AttendanceDate, CourseID, AttendanceVerified, AttendanceTimeStamp FROM Attendance WHERE StudentID = " & StuID & ";" Att_rs.Open NewEntry, Db_Conn, 2, 3, 2 Att_rs.AddNew Att_rs("StudentID")=StuID Att_rs("AttendanceTimeIn")=Request.Form("ti") Att_rs("AttendanceTimeOut")=Request.Form("to") Att_rs("AttendanceDate")=CurDate Att_rs("CourseID")=Request.Form("cc") Att_rs("AttendanceVerified")="False" Att_rs("AttendanceTimeStamp")=CurTime Att_rs.Update ' Close Connection to ATTENDANCE Att_rs.Close Set Att_rs = Nothing ' Close Connection to CBLC_Acs Db_Conn.Close Set Db_Conn = Nothing This gives me this error: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause. /attendance/AttendanceForm.asp, line 178 Line 178 is the Att_rs.Open statement. BTW I tried it with "adOpenStatic, adLockOptimistic" and kept getting too few argument errors. I have included a  at the top of the page, and the file is local to page. Thanks again, Dave Tag: Vbscript to link access tables Tag: 141573
  - 9
    - Ping IP ranges Hello all, Has anyone created a script that pings an IP range and dumps the alive machines to a file?? Been trying to get one to work but no luck as of yet. Thanks Jack Tag: Vbscript to link access tables Tag: 141571
  - 10
    - another dictionary question - want to convert all the keys to uppercase I have a dictionary with mixed-case strings as keys, and I want to convert them all to uppercasce. What am I doing wrong? for each elem in objUseThisDic objUsethisDic.Key(elem) = UCase(elem) next when I display it on screen I still get mixed-case keys - what am I doing wrong? thanks in advance, Sandy Tag: Vbscript to link access tables Tag: 141559
  - 11
    - MS03-026 and language difference Hello all, I'd like to automate the installation of the above mentioned security patch from MS. My environment has 2 languages: English and Japanese. I noticed that MS has made the patches available in both languages also. How do I programmatically differentiate between languages when using the patch? I need to make sure that I use the English patch for the English OS and the Japanese patch for the Japanese OS. All OSes are W2K. Thanks in advance. Craig. Tag: Vbscript to link access tables Tag: 141558
  - 12
    - Newbie SQL query help Help! What syntax do I use to for a numerical variable in an SQL query? (BTW, if I'm doing this in a poor fashion, I'm open to suggestions) The relavent code in my ASP page is below. The database is Access 2k. This works: (WHERE StudentID = 4) <% Dim NewEntry, Att_rs, Db_Conn, StuID StuID = 4 Set Db_Conn = Server.CreateObject("ADODB.Connection") Db_Conn.Open "CBLC_Acs" ' Open ATTENDANCE and enter new record Set Att_rs = Server.CreateObject("ADODB.Recordset") NewEntry="SELECT StudentID, AttendanceTimeIn, AttendanceTimeOut, AttendanceDate, CourseID, AttendanceVerified, AttendanceTimeStamp FROM Attendance WHERE StudentID = 4;" Att_rs.Open NewEntry, Db_Conn, adOpenStatic response.write Att_rs("StudentID") response.write Att_rs("AttendanceTimeIn") response.write Att_rs("AttendanceTimeOut") response.write Att_rs("AttendanceDate") response.write Att_rs("CourseID") response.write Att_rs("AttendanceVerified") response.write Att_rs("AttendanceTimeStamp") ' Close Connection to ATTENDANCE Att_rs.Close Set Att_rs = Nothing ' Close Connection to CBLC_Acs Db_Conn.Close Set Db_Conn = Nothing %> This doesn't: (WHERE StudentID = StuID) <% Dim NewEntry, Att_rs, Db_Conn, StuID StuID = 4 Set Db_Conn = Server.CreateObject("ADODB.Connection") Db_Conn.Open "CBLC_Acs" ' Open ATTENDANCE and enter new record Set Att_rs = Server.CreateObject("ADODB.Recordset") NewEntry="SELECT StudentID, AttendanceTimeIn, AttendanceTimeOut, AttendanceDate, CourseID, AttendanceVerified, AttendanceTimeStamp FROM Attendance WHERE StudentID = StuID;" Att_rs.Open NewEntry, Db_Conn, adOpenStatic response.write Att_rs("StudentID") response.write Att_rs("AttendanceTimeIn") response.write Att_rs("AttendanceTimeOut") response.write Att_rs("AttendanceDate") response.write Att_rs("CourseID") response.write Att_rs("AttendanceVerified") response.write Att_rs("AttendanceTimeStamp") ' Close Connection to ATTENDANCE Att_rs.Close Set Att_rs = Nothing ' Close Connection to CBLC_Acs Db_Conn.Close Set Db_Conn = Nothing %> Should I set a hidden field in my form to the value of StuID and use a response.form("") instead? There is an earlier query to look up the value of StudentID (from a different table) and assign it to StuID; should I just leave that connection open and use the Stu_rs("StudentID") statement? Am I making sense? Any suggestions are greatly appreciated. Thanks a lot, Dave Tag: Vbscript to link access tables Tag: 141557
  - 13
    - Check New User Name, Insert Record, ASPMail Form I have a form on an ASP page using VBScript. This is a registration page. On that form I have server behaviors doing the following: Check New User Name Insert record (form "form1") Both of these worked great. Then I wanted to email the form, so I used Ultra Suite 111 (Which is ASPMail a form from same page) When I do this the other behaviors dont work or I suspect never get initiated. This is the page itself: www.harwood-intl.com/lsi/lsiloginregistration2.asp I created a page just to display the code: www.harwood-intl.com/lsi/web1.asp So, I thought I would use the Ultra Suite 112 which is email a form from a previous page. So I took out the email code in registration page, created a email page that only had the email code. (I routed my registration form to a email page) Check User Name and Insert record works again in registration page. Email is sent but only with headers, no input from the form which it should do. This is page for registration that redirects to email page www.harwood-intl.com/lsi/lsiloginregistration.asp To see code for this page: www.harwood-intl.com/lsi/web2.asp To see code of page that sends email: www.harwood-intl.com/lsi/web3.asp I am confused. Any suggestions? This link shows the code and some more explanation Thanks, Bob Leffew Tag: Vbscript to link access tables Tag: 141556
  - 14
    - instr function Here's the code I have so far: Function CompareOSDTransitsToOriginator() OSDtransits = "00968, 00299, 74992" if instr(1, OSDTransits, transit, 1) > 0 then msgbox("Match found...") 'send email to Saraga & co. for approval else msgbox("NO Match...") end if End Function I'm trying to compare the contents of the transit variable (e.g., "00968") to each 5 digit number seperated by commas in the OSDTransits variable. But, what is happening is that the instr function is comparing individual digits and finding matches where there shouldn't be. How can I solve this issue? Thanks, Wil A. Tag: Vbscript to link access tables Tag: 141554
  - 15
    - Open a CGI Page in the Same Window? -- 2nd Try I would like to find a way to open one CGI page from another CGI page without opening a new window. What I am trying to do is: - I have multiple CGI programs that are written in Perl. - The first CGI program is an "options" page. Let's call it "ReportOptions.cgi". That construct a web page that the user can select options from the page, and clicks at the submit button to show a report based on the options that he has selected. - The second CGI program is the "report" page that shows a report. Because the user has a choice of many different reports, I actually have many different CGI programs that generate many different reports. In order to simplify the discussion, let assume we only have two CGI programs that generate two different reports. One is called "Report1.cgi", and the other one is called "Report2.cgi". - In order to calling the second CGI program dynamically, I decide to use VBScript as a traffic cop to re-direct the user to the appropriate report page. Currently, I can do this using the following VBscript statement: 'Here, strReportCgiName is like "Report1.cgi" or "Report2.cgi". strURL = "http://MyWebServe/cgi-bin/" & strReportCgiName & "?" & strParameters Top.open strURL, "wndReport" This works. But this will open a new window to show the report. I am wondering whether I can do this without opening another window. I have tried the following statements. But they don't open the report page. Instead, they simply open the same options page one more time: Top.navigate strURL ... or ... Top.Location.href = strURL I don't see any error in the error log file of the Apache web server. This problem doesn't seem to have anything to do with whether the second page is a CGI or a HTML page. I have tried the following to call a HTML page Top.navigate "test.html" ... or ... Top.Location.href = "test.html" Again, I end up getting the same options page. And I don't see any error in the error log file. Strangely, when I use Top.open to open the HTML page, I get this error message in Apache error log: c:/apache/cgi-bin/test.html is not executable; ensure interpreted scripts have "#!" first line couldn't spawn child process: c:/apache/cgi-bin/test.html Seem like Top.open is trying to "execute" the HTML page. Why? Can someone help me to open the second CGI page in the same window? BTW, I am using Internet Explorer 6.0. Thanks. Jay Chan Tag: Vbscript to link access tables Tag: 141552
  - 16
    - Validate Domain I need create a asp page to redirect for other domains, see example: IF DOMAIN = "TESTE" RESPONSE.REDIRECT "HTTP://TESTE/TESTE.HTM" ELSE RESPONSE.REDIRECT "HTTP://TESTE2/TESTE2.HTM" How can you do this using asp page? Tag: Vbscript to link access tables Tag: 141551
  - 17
    - Using VBS-Logonscript with Win98? I want to use a VBS-Logonscript for my Win98-Clients to logon to my Windows 2000 Server. In the textfield "Script Path" of my W2k-Server I use logon.vbs. But with logon.vbs the script doesn't start on the Win98-Client. Then I used a extra script logon.bat in the "Script Path" with the content: "Wscript z:\logon.vbs" and everything works fine. Is there a chance to use the logonscript without the extra BAT-File? Thanks Adrian Tag: Vbscript to link access tables Tag: 141545
  - 18
    - Get Listing Of Files On FTP Server After Transfer I'm using FSO to create a simple file and then filling it with FTP commands as follows - objTextFile.WriteLine("open ftp.server 12021") objTextFile.WriteLine("username") objTextFile.WriteLine("password") objTextFile.WriteLine("put someTargetFile.txt") objTextFile.WriteLine("quit") And then running that file with - Set wshShell = WScript.CreateObject("WScript.Shell") wshShell.Run "ftp -d -s:TheFileICreatedAbove.txt", 0 Set wshShell = Nothing The problem I have is that once the file has been transfered I need to check that it actually arrived, could anyone suggest a method of doing this? I've tried adding - objTextFile.WriteLine("ls > server_listing") In the hope that it would give me a list of files on the remote server that I could check, but this doesn't work. Any ideas? I realise this is probably a question for another group, but I thought it likely that someone here might already have done this? TIA, Colin Tag: Vbscript to link access tables Tag: 141542
  - 19
    - addtodom.wsf: Script and request for comments (Follow-up set to microsoft.public.scripting.wsh). Following script, addtodom.wsf, is designed to allow addition of workstations to a domain (including remote workstations). =========================================== <?xml version="1.0" encoding="ISO-8859-1" ?> <job> <runtime> <description><![CDATA[ Description Domain Join script; requires at least Windows XP. May be applied to multiple systems by specifying each computer on the commandline. ]]></description> <example><![CDATA[ Usage Scenario ]]></example> <named name="?" helpstring="returns this help message" type="simple" required="false"/> <named name="ME" helpstring="If specified, uses the current username for the command. The USER option will be ignored if this is used." type="simple" required="false"/> <named name="U" helpstring="If specified, this is the user name which will be used for the domain join. If not specified, the Administrator account is used. Alternatively, you may use the /ME switch to use the current account and domain." type="string" required="false"/> <named name="D" helpstring="The domain which will be joined." type="string" required="true"/> <named name="P" helpstring="This is the password used for the domain join. If not specified, you will be prompted for it." type="string" required="false"/> <unnamed name="computer" helpstring="Password used for the domain join. If not specified, you will be prompted for it." many="true" required="false"/> </runtime> <object id="fso" progid="Scripting.FileSystemObject"/> <reference object="Scripting.FileSystemObject"/> <object id="sh" progid="Wscript.Shell"/> <object id="WshNetwork" progid="Wscript.Network"/> <script language="VBScript"><![CDATA[ Option Explicit Dim COMPUTERS, USER, PASSWORD, DOMAIN, EXITFLAG EXITFLAG = 0 Const JOIN_DOMAIN = 1 Const ACCT_CREATE = 2 Main() Sub Main() ProcessArguments Dim System, result, computer, ExitFlag for each computer in COMPUTERS Set System = GetObject( _ "winmgmts:{impersonationLevel=Impersonate}!\\" _ & computer & "\root\cimv2:Win32_ComputerSystem.Name='" _ & computer & "'") result = System.JoinDomainOrWorkGroup(DOMAIN, PASSWORD, _ USER, NULL, JOIN_DOMAIN + ACCT_CREATE) dim baseText: baseText = computer & " join to " & DOMAIN & " by " & USER & ": " if result = 0 then wscript.stdout.writeline baseText & "Succeeded" else wscript.stderr.writeline baseText & "Failed with WMI error " _ & result ExitFlag = 2 end if Next WScript.Quit EXITFLAG end sub Sub ProcessArguments() dim Named: set Named = WScript.Arguments.Named dim UnNamed: set UnNamed = WScript.Arguments.UnNamed If Named.Exists("help") or Named.Exists("h") Then WScript.Arguments.ShowUsage: WScript.Quit 1 End If ' now we handle the user/domain parsing... If Named.exists("ME") then ' the "me" switch means use THIS account name USER = WshNetwork.UserName else ' we have to check to see if the user was specified; ' if not, we use the Administrator account If Named.Exists("U") then USER = Named.Item("U") elseif Named.Exists("USER") then USER = Named.Item("USER") else USER = "Administrator" end if end if ' now handle the domain info If Named.Exists("D") then DOMAIN = Named.Item("D") elseif Named.Exists("DOMAIN") then DOMAIN = Named.Item("DOMAIN") else WScript.StdErr.WriteLine "You MUST specify a domain to join." WScript.Arguments.ShowUsage: WScript.Quit 1 end if ' we will be using the domain-based user credentials; ' check to see if a domain was specified in the credentials, if ' not, add the named domain. If not InStr(USER, "\") > 0 then USER = DOMAIN & "\" & USER ' what computer are we going to do this to? If UnNamed.Count > 0 then COMPUTERS = UnNamed.Arguments else ' if none was specified, use the local system. COMPUTERS = Array(WshNetwork.ComputerName) end if ' Get the password If Named.Exists("P") then PASSWORD = Named.Item("P") elseif Named.Exists("PASSWORD") then PASSWORD = Named.Item("PASSWORD") else ' if none was specified, log on one time. dim scriptPW: set scriptPW = CreateObject("ScriptPW.Password") WScript.StdOut.WriteLine "Enter password (nothing will be displayed):" PASSWORD = scriptPW.GetPassword() end if End Sub ]]></script> </job> Tag: Vbscript to link access tables Tag: 141540
  - 20
    - Autologon: Script and request for comments (Follow-up set to microsoft.public.scripting.wsh). Following script, autologon.wsf, is designed to allow configuration of workstation automatic logons to a domain across a specific number of reboots. It can be applied to remote systems as well as local ones. =========================================== <?xml version="1.0" encoding="ISO-8859-1" ?> <job> <runtime> <description><![CDATA[ Description A script for configuring automatic logons for a system. It can be run minimally by simply executing it with cscript as the host, in which case it will prompt you for a password and perform a one-time automatic logon as administrator on the local PC. Full use of the command line options will allow you to connect to any system and tell it to log on to a specific domain with a specific account any particular number of times. ]]></description> <example><![CDATA[ Usage Scenario You want to tell the remote system XP733 to log on to the CORP domain with the account SUAdmin 4 times using the password letmeIn: autologon /C:xp733 /D:corp /U:SUAdmin /L:4 /P:letmeIn ]]></example> <named name="?" helpstring="Returns this help message" type="simple" required="false"/> <named name="ME" helpstring="If specified, uses the current username and domain for the command. The DOMAIN and USER options will be ignored if this is used." type="string" required="false"/> <named name="C" helpstring="(/C) If specified, will be applied to the remote system named; if not, the local system is used." type="string" required="false"/> <named name="USER" helpstring="(/U) If specified, this is the user name which will be used for the automatic logon. If not specified, the Administrator account is used. Alternatively, you may use the /ME switch to use the current account and domain." type="string" required="false"/> <named name="DOMAIN" helpstring="(/D) If specified, this is the authentication domain which will be used; if not, the current logon domain is used. Note that the /ME switch overrides this, setting logon to the domain currently used." type="string" required="false"/> <named name="PASSWORD" helpstring="(/P) This is the password used for the automatic logon. If not specified, you will be prompted for it." type="string" required="false"/> <named name="LOGONCOUNT" helpstring="(/L) AutoLogon count. If not specified, defaults to 1." type="string" required="false"/> </runtime> <object id="NET" progid="Wscript.Network"/> <script language="VBScript"><![CDATA[ ' force explicit variable declaration option explicit dim WDC, LOGONCOUNT, COMPUTER, DOMAIN, USER, PASSWORD 'call main execution loop, and quit with an errorlevel of 0 when done Main(): WScript.Quit(0) Sub Main() ProcessArguments() set WDC = WinDeployClasses() dim reg, key set reg = WDC.RegistryProvider reg.Computer = COMPUTER reg.CurrentHive = "HKLM" wscript.echo hex(reg.currenthive) key = "Software\Microsoft\Windows NT\CurrentVersion\Winlogon" reg.WriteString key, "AutoAdminLogon", 1 reg.WriteDword key, "AutoLogonCount", LOGONCOUNT reg.WriteString key, "DefaultDomainName", DOMAIN reg.WriteString key, "DefaultPassword", PASSWORD reg.WriteString key, "DefaultUserName", USER end sub ' ========================================================= ' Support Functions for the script ' ========================================================= Sub ProcessArguments() dim Named: set Named = WScript.Arguments.Named dim UnNamed: set UnNamed = WScript.Arguments.UnNamed If Named.Exists("help") or Named.Exists("h") Then WScript.Arguments.ShowUsage: WScript.Quit(1) End If ' now we handle the user/domain parsing... If Named.exists("ME") then ' the "me" switch means use THIS domain, THIS account USER = NET.UserName DOMAIN = NET.UserDomain else ' we have to check to see if the user and/or domain were specified; ' if not, we use the Administrator account and the current domain ' respectively If Named.Exists("U") then USER = Named.Item("U") elseif Named.Exists("USER") then USER = Named.Item("USER") else USER = "Administrator" end if If Named.Exists("D") then DOMAIN = Named.Item("D") elseif Named.Exists("DOMAIN") then DOMAIN = Named.Item("DOMAIN") else DOMAIN = NET.UserDomain end if end if ' what computer are we going to do this to? If Named.Exists("C") then COMPUTER = Named.Item("C") elseif Named.Exists("COMPUTER") then COMPUTER = Named.Item("COMPUTER") else ' if none was specified, use the local system. COMPUTER = "." end if ' How many times do we automatically log on? If Named.Exists("L") then LOGONCOUNT = CLng(Named.Item("L")) elseif Named.Exists("LOGONCOUNT") then LOGONCOUNT = CLng(Named.Item("LOGONCOUNT")) else ' if none was specified, log on one time. LOGONCOUNT = 1 end if ' Get the password If Named.Exists("P") then PASSWORD = Named.Item("P") elseif Named.Exists("PASSWORD") then PASSWORD = Named.Item("PASSWORD") else ' if none was specified, log on one time. dim scriptPW: set scriptPW = CreateObject("ScriptPW.Password") WScript.StdOut.Write "Enter password (nothing will be displayed):" _ & vbCrLf PASSWORD = scriptPW.GetPassword() end if End Sub function WinDeployClasses ' returns a reference to the Windeploy.Scripting class. ' This tries to be robust; it uses the following technique to find the ' class. ' + First, it tries to create it directly assuming it is in the ' present folder. ' this is the raw name of the file containing our classes. Dim clsFileName: clsFileName = "windeploy.wsc" Dim clsFolder ' Ok, here's the folder we want to check first to get our object: ' the folder where the script is running from. clsFolder = Left(WScript.ScriptFullName, _ InstrRev(WScript.ScriptFullName, WScript.scriptname) - 1) on error resume next ' Now try to grab the scriptlet inside this file set WinDeployClasses = _ getobject("script:" & clsFolder & clsFileName) if err.number <> 0 then ' + If that doesn't work, it tries to retrieve it by ProgID. If the ' wsc has been registered, this will work. err.clear set WinDeployClasses = CreateObject("WinDeploy.Scripting") if err.number <> 0 then ' + if we got here, something is screwed up and only extreme ' measures can be used to find the class by us. Better to just ' tell them what the problem is. on error goto 0 dim errDescription errDescription = "Error finding the Windeploy classes." _ & "We expect to find them in the location " _ & vbCrLf & vbTab & clsFolder & clsFileName _ & ". Failing that, the WSC containing the WinDeploy.Scripting" _ & " class should be registered on this machine and accessible via" _ & " the path that was used to register it." Err.Raise vbObjectError + 1, TypeName(me), errDescription end if end if end function ]]></script> </job> Tag: Vbscript to link access tables Tag: 141539
  - 21
    - How to read a XML file using VBS ?? Hey!! I need to know how to read a XML file from VBS. The xml file has the next format: - <State> <ErrorSinc>2</ErrorSinc> <ErrorLoop>1</ErrorLoop> <ErrorHilow>1</ErrorHilow> </State> and i have to read the values 2,1,1... Thanks. Tag: Vbscript to link access tables Tag: 141532
  - 22
    - Determining Speed & Dublex Mode Hello, I've been trying in vain to find a wa to determine the state of NIC Speed/dublex mode using WMI ? Eg. 10 Mbit Half, 100 Mbit Full, Auto etc. Can anyone help, please? Thank you, Adil Tag: Vbscript to link access tables Tag: 141518
  - 23
    - Keep digits I would like to declare a counter then with each record add 1 to the counter but I would like the counter to hold 4 digits. Dim RecCnt RecCnt = 0 For Each selected RecCnt = RecCnt + 1 This will return 1,2,3,4,5,6......... I would like to return: 0001 0002... and so on.... How do you make that happen.... Thanks. Tag: Vbscript to link access tables Tag: 141510
  - 24
    - if...else question sql2k sp3 Im trying to import data from a .txt file into a sql table. In Active X, if Col001 in the file = "1" then it should be inserted into a certain table. If not it should be skipped. if DTSSource("Col001") = "1" then DTSDestination("au_id") = DTSSource("Col002") DTSDestination("au_lname") = DTSSource("Col003") DTSDestination("au_fname") = DTSSource("Col004") DTSDestination("phone") = DTSSource("Col005") DTSDestination("address") = DTSSource("Col006") DTSDestination("city") = DTSSource("Col007") DTSDestination("state") = DTSSource("Col008") DTSDestination("zip") = DTSSource("Col009") DTSDestination("contract") = DTSSource("Col010") Main = DTSTransformStat_OK else DTSTransformStat_SkipRow end if End Function I try to run this and it highlights the (if DTSSource ("Col001") = "1" then) in yellow and fails. Any ideas why would be appreciated. Thanks, Chris. Tag: Vbscript to link access tables Tag: 141500
  - 25
    - Error on loading ASP page with VBScript When I used IE 6.0 to view the ASP page on Window 2000 server PC, I encountered the error message: "Expected end of statement". The ASP page code is as: ****************************************************** <script language="VBScript"> function vb_Test(ptValue) vb_Test = ptValue end function </script> <HTML> <BODY onLoad="document.body.style.cursor='default';"> test text </BODY> </HTML> ****************************************************** This problem only happens when the VBScript code block is at the beginning of the ASP page. Seems the browser treats the single quote that exists in the inline event JavaScript code as a comment symbol in VBScript and it would not tolerate it. To solve this problem: 1. Add a block of JavaScript code block above that VBScript code block. 2. Remove the single quote in the inline event code. 3. Move the inline event code to a JavaScript function. Any one has any idea or be aware of this problem? Thanks, Frank Tag: Vbscript to link access tables Tag: 141499
- Next
  - 1
    - How to invoke a static member of a COM class in VBScript Suppose I have a .Net class with a callable COM wrapper. The class has a shared (static) member function. I try to invoke it like an instance method, but get a method not found error. Is there any way to invoke a shared method? In VB.Net: Namespace CryptoToolkit Public NotInheritable Class Ticket Inherits System.Object Public Shared Function getUserId(ByVal ticket As String) As String In VBScript: dim obj obj=Server.CreateObject("CryptoToolkit.Ticket") dim userid userid=obj.getUserId("sometext") -> error: Object doesn't support this property or method - Microsoft VBScript runtime error Tag: Vbscript to link access tables Tag: 141495
  - 2
    - attching a file I have this script that I've used in the past that has worked with no problems. Now all of a suddon it's giving me an error on the AttachFile line. Can someone help? Here's the script (with obvious things changed for security) Set objMail = CreateObject("CDONTS.Newmail") objMail.From = "from@fakeemail.com" objMail.To = "to@fakeemail.com" objMail.Subject = "your file is attached" objMail.Body = "Please see the attached file." objMail.AttachFile "D:\data\file.exe" objMail.Send() Set objMail = Nothing -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: Vbscript to link access tables Tag: 141492
  - 3
    - comma de-limited list Hello, can someone give me an example of a comma delimited list. I will need to use it in a Select Case statement. Thanks, Wil Tag: Vbscript to link access tables Tag: 141490
  - 4
    - Getting at non default interfaces. I have a COM object which is written in VB6. I'm having a bit of a problem at the moment with windows scripting. To help get around the worst of VB versioning problems I've defined interfaces and create my objects using CreateObject so I have code like this in VB: Dim Ses as ISession Set Ses=CreateObject("MyObj.CSession") Ses.Login("UserName","PassWord") My object implements the interface ISession but has a type of CSession. This doesn't work under VBScript because of course the type of the object is CSession NOT ISession, so I thought[1] if I added a Public Property to my COM object that returned an ISession I'd be home free. Public Property Get getISession() As MyInterface.ISession Set getISession = Me End Property Sadly this doesn't work as the object still has a type of CSession. Is there anyway to do this in VBScript & VB6? [1] Stealing the idea from the CDO GetInterface stuff -- Work peteri@lakeview.co.uk.plugh.org | remove magic word .org to reply Home peter@ibbotson.co.uk.plugh.org | I own the domain but theres no MX Tag: Vbscript to link access tables Tag: 141489
  - 5
    - Sub OU's This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C36724.4855EC20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi All, Okay my organization is getting to big and need to add some OU's. I = current have an OU for staff where I have all users. I would like to = add sub OU's for each of our two buildings. So everyone would be within = staff and some would be under the OU HRC and some Clare (the two = buildings). The questions I have is what would become of my scripts. For = example, I have a script on our website as a staff directory. It has: Set ObjOU=3D GetObject = ("LDAP://ou=3Dstaff,DC=3Dbaltimorebehavioralhealth,DC=3Dorg") now with these sub ous, will I need to have ou=3Dstaff,ou=3Dhrc? or = would it only be ou=3Dhrc? Is there going to be a way to have this = address book of all my staff or will I have to have an address book for = each OU? And for my editing scripts (ie editing profile path,etc)? I = am hoping if I use ou=3Dstaff I would get everyone and ou=3Dhrc or = ou=3Dstaff,ou=3Dhrc then just the employes at hrc, but I would assume it = would not be so simple. Or is it? Please advise --=20 Robert Cohen A legend in his own mind -- ------=_NextPart_000_0008_01C36724.4855EC20 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.2722.900" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi All,</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Okay my organization = is getting=20 to big and need to add some OU's.  I current have an OU for staff = where I=20 have all users.  I would like to add sub OU's for each of our two=20 buildings.  So everyone would be within staff and some would = be under=20 the OU HRC and some Clare (the two buildings).</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    The questions I have = is what=20 would become of my scripts.  For example, I have a script on our = website as=20 a staff directory.  It has:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Set ObjOU=3D GetObject ("<A=20 href=3D"ldap://ou=3Dstaff,DC=3Dbaltimorebehavioralhealth,DC=3Dorg">LDAP:/= /ou=3Dstaff,DC=3Dbaltimorebehavioralhealth,DC=3Dorg</A>")</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>now with these sub ous, will I need to = have=20 ou=3Dstaff,ou=3Dhrc? or would it only be ou=3Dhrc?  Is there going = to be a way to=20 have this address book of all my staff or will I have to have an address = book=20 for each OU?  And for my editing scripts (ie editing profile=20 path,etc)?  I am hoping if I use ou=3Dstaff I would get everyone = and ou=3Dhrc=20 or ou=3Dstaff,ou=3Dhrc then just the employes at hrc, but I would assume = it would=20 not be so simple.  Or is it?  Please advise</FONT></DIV> <DIV><FONT face=3DArial size=3D2> </DIV> <DIV><BR>-- <BR>Robert Cohen<BR>A legend in his own=20 mind<BR>--<BR></DIV></FONT></BODY></HTML> ------=_NextPart_000_0008_01C36724.4855EC20-- Tag: Vbscript to link access tables Tag: 141487
  - 6
    - Blaster Cleaner Hi all, I wanted to find a way for a user to just pop a CD in their drive, and click on a file to get their system cleaned. To that end I wrote the script below. I am posting this for a double purpose: 1. So it may be useful to others. 2. So I can get suggestions for improvement. I have been having problems getting it to detect that the appropriate hotfix is indeed installed. Other than that it seems to work. I commented as much as I can. Constructive criticizm is VERY welcome. 'On error resume next 'Coupla things: '1. This will not lock down ports as I had suggested. It also doesn't patch NT4.0. Limited time etc etc. '2. Here is a list of what you need to do to get this running: ' a. Put this file in the same directory as the two patches for 2000, and XP, ' and extract the patches 1 by 1 by running them with a /X parameter. (It doesn't ' matter what the name of that dir is). ' b. Place the extracted files for the patch for XP in a dir called "XP" under the same ' folder as where you put this script. For 2000, extract them to a dir called "2000" ' c. Make sure that the Blastfix.exe is in the same root directory (see below for links) 'It does not matter what the name of the root directory is. You can even throw this stuff 'On a CD, and it will work (that is what I am doing). Just have them click on "Patch.vbs." You will need 'to be sure if you install this on Win2K that it is at least up to SP2 Uhmkaay... 'Below are the related download sites: 'http://microsoft.com/downloads/details.aspx?FamilyId=2354406C-C5B6-44AC-953 2-3DE40F69C074&displaylang=en 'http://microsoft.com/downloads/details.aspx?FamilyId=C8B8A846-F541-4C15-8C9 F-220354449117&displaylang=en 'http://securityresponse.symantec.com/avcenter/venc/data/w32.blaster.worm.re moval.tool.html Const HKLM = &H80000002 Set oReg =GetObject("Winmgmts:root\default:StdRegProv") Set WshShell = WScript.CreateObject("WScript.Shell") Set objEnv = WshShell.Environment("System") 'Sets the current path. This is useful if this directory is put on many different paths. CurrentDir = Left(WScript.ScriptFullName,InstrRev(WScript.ScriptFullName,"\")) sKeyPath = "SOFTWARE\BlastFix" sValue = "0" 'Grabs current OS version. This script only supports Win2K and WinXP OSVer = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion") 'Grabs the key that the patch creates when it installs PtchKeyPath = "SOFTWARE\Microsoft\Updates\Windows Server 2003\SP1\KB823980" 'Checks to see if this util has been run before. If RegKeyExists(sKeyPath) Then Clean() 'Checks to see if the patch has been run before. If it has, it cleans the machine only. Else if RegKeyExists(PtchKeyPath) Then wscript.echo "Looks like you are patched up. Lets go ahead and scan for the worm anyway." Clean() Else 'Runs the patch, but first, sets some reg keys so that the next time it runs, it knows that it has already been run. WshShell.RegWrite "HKLM\SOFTWARE\BlastFix\Hotfixed", "0", "REG_DWORD" key = WshShell.RegRead("HKLM\SOFTWARE\BlastFix\Hotfixed") Patch() End If End if Function Patch() wscript.echo "This will install the latest patch on your system, then reboot it, then automatically clean it after you restart and log back in." WshShell.RegWrite "HKLM\SOFTWARE\BlastFix\Hotfixed", "1", "REG_DWORD" 'What OS Version are we? if OSVer = "5.1" Then 'Why 2 lines? For some reason when I ran this in the test env, the patch would not go the first time I ran this util. If I put in two lines, it worked. YMMV. WshShell.Run(Chr(34) & CurrentDir & "XP\xpsp1hfm.exe" & chr(34) & chr(32) & "/u /q") WshShell.Run(Chr(34) & CurrentDir & "XP\xpsp1hfm.exe" & chr(34) & chr(32) & "/u /q") End if if OSVer = "5.0" Then 'Didn't have the same problem on 2000. You may find the extra line above causes problems. 'WshShell.Run(Chr(34) & "2000\Update\update.exe" & chr(34) & chr(32) & "-u -q") WshShell.Run(Chr(34) & "2000\Update\update.exe" & chr(34) & chr(32) & "-u -q") End if 'WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BlastFix", "\" & CurrentDir & "patch.vbs", "REG_DWORD" WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BlastFix", CurrentDir & "patch.vbs", "REG_SZ" End Function Function Clean() if OSVer = "5.1" Then 'Disable System restore if Windows XP. Otherwise go on. SysRestoreDisable() End if WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\BlastFix" 'wscript.echo Chr(34) & CurrentDir & "FixBlast.exe" & chr(34) & chr(32) & "/Start" WshShell.Run Chr(34) & CurrentDir & "FixBlast.exe" & chr(34) & chr(32) & "/start" if OSVer = "5.1" Then 'Re-enable System Restore if XP. SysRestoreEnable() end if WshShell.RegDelete "HKLM\SOFTWARE\BlastFix\Hotfixed" End Function Function SysRestoreDisable() Drive = "c:\" set SRP = GetObject("winmgmts:\\.\root\default:SystemRestore") eSRP = SRP.disable(drive) End Function FUnction SysRestoreEnable() Drive = "c:\" set SRP = GetObject("winmgmts:\\.\root\default:SystemRestore") eSRP = SRP.enable(drive) End Function Function RegKeyExists(sRegKey) sRegKey = Trim(sRegKey) If oReg.EnumValues(HKLM, sKeyPath, aValueNames, aValueTypes) = 0 Then RegKeyExists = True Else RegKeyExists = False End If End Function Tag: Vbscript to link access tables Tag: 141478
  - 7
    - Recommendations for a good VBScript editor? Hello; I am using a document management system that makes extensive use of VBScript, and I would like recommendations for VBScript editors that have the following features: - Color-coded text - Debugging (however limited it may be) Wishful thinking features: - Code formatting - Intellisense Obviously, NotePad doesn't have these features, and I have VisualStudio.NET 2003, but it won't allow me to debug VBScript files (making it about as useful as NotePad) and it's a tad too bulky for modifying scripts. I've downloaded AderSoft's VBEdit ($30 http://www.adersoft.com/), which is pretty close to what I'm looking for, but doesn't have the code formatting or Intellisense. Any recommendations? Sincerely, Todd M. Taylor Tag: Vbscript to link access tables Tag: 141475
  - 8
    - precompiling AFAIK MS Script Control does not allow precompiling. Is there an enhancement or any other control available which allows precompiling scripts for faster execution? Tag: Vbscript to link access tables Tag: 141469
  - 9
    - Include file issue I have created a number of classes for my ASP application, each contained in a .cls file. Each of these classes has a SSI directive at the top  at the top. This class file performs the actual database actions. In the situations where a script needs to access data from multiple class files, I get a name redefined error for the SQLHelper class. Obviously, IIS is trying to load the CSQLHelper file multiple times. Is there a better way to approach this? The META directive in the global.asa won't work in this case, right? Thanks, Craig Tag: Vbscript to link access tables Tag: 141466
  - 10
    - Change IP setting in Win98 with vbscript Hello, I have to change the TCP/IP settings on several Win98 machines. I use a microsoft sample vbscript which run correctly on win2000 but not on Win98. The script is : ----------------------------------------------------------------------------- 'This is to set a static ip address but does the subnet and gateway strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress = Array("192.168.1.100") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.1.1") strGatewayMetric = Array(1) For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) If errEnable = 0 Then WScript.Echo "The IP address has been changed." Else WScript.Echo "The IP address could not be changed." End If Next ------------------------------------------------------------------------------ The errEnable return 64. Thanks for your help. Tag: Vbscript to link access tables Tag: 141464
  - 11
    - UTF-8 Suport in VBScript? Hi I require UTF-8 support in my VBScripts. The FileSystem obect and File object appear to support Unicode and ASCII only. I simply need to create files using UTF-8 encoding. Can anyone help me here? Thanks Rob. Tag: Vbscript to link access tables Tag: 141453
  - 12
    - "now" to show just the day of the week? How can I format "now" to show just the day of the week? -- Regards, DL Tag: Vbscript to link access tables Tag: 141452
  - 13
    - how to check drive presence and type ? hello, how can I check that D: exists and when exists that it is a HD, not a ZIP, CDROM or whatever ? TIA, Pierre. Tag: Vbscript to link access tables Tag: 141448
  - 14
    - Regular Expression Hi all, I want to do a find-replace method using VBScripts Regular Expressions. Here is what I want to do: replace a certain word in a string with another word, but the word can NOT be within double quotes! For example: if I would want to replace the word "desktop" with "laptop" I would want to get the following: Before = My desktop is "old": I want a new desktop with more power, like my "father's desktop". After = My laptop is "old": I want a new laptop with more power, like my "father's desktop". Does someone has an idea on what pattern I should use? Kind regards, Frederik Tag: Vbscript to link access tables Tag: 141446
  - 15
    - Help: WScript.exe > Following code is script called ICFON.vbs and it is used to turn on XP > Internet Connection Firewall . > A batch file is used to run it. > The batch file is " ICFON.vbs "Local Area Connection" " > When the file runs, I get an pop-up window asking me to comfirm the > changes(see attachment). > Is there a way to the script without the popup? > Thanks. > > OPTION EXPLICIT > > DIM ICSSC_DEFAULT, CONNECTION_PUBLIC, CONNECTION_PRIVATE, CONNECTION_ALL > DIM NetSharingManager > DIM PublicConnection, PrivateConnection > DIM EveryConnectionCollection > > DIM objArgs > DIM con > > ICSSC_DEFAULT = 0 > CONNECTION_PUBLIC = 0 > CONNECTION_PRIVATE = 1 > CONNECTION_ALL = 2 > > Main( ) > > sub Main( ) > Set objArgs = wscript.Arguments > > if objArgs.Count = 1 then > con = objArgs(0) > > 'wscript.Echo con > > if Initialize() = TRUE then > GetConnectionObjects() > > FirewallTestByName(con) > end if > else > DIM szMsg > szMsg = "Invalid usage! Please provide the name of the connection as > the argument." & chr(13) & chr(13) & _ > "Usage:" & chr(13) & _ > " " + wscript.scriptname + " " + chr(34) + "Connection > Name" + chr(34) > wscript.Echo( szMsg ) > end if > > end sub > > > sub FirewallTestByName(conName) > on error resume next > DIM Item > DIM EveryConnection > DIM objNCProps > DIM szMsg > DIM bFound > > bFound = false > for each Item in EveryConnectionCollection > set EveryConnection = > NetSharingManager.INetSharingConfigurationForINetConnection(Item) > set objNCProps = NetSharingManager.NetConnectionProps(Item) > if (ucase(conName) = ucase(objNCProps.Name)) then > szMsg = "Enabling Firwall on connection:" & chr(13) & _ > "Name: " & objNCProps.Name & chr(13) & _ > "Guid: " & objNCProps.Guid & chr(13) & _ > "DeviceName: " & objNCProps.DeviceName & chr(13) & _ > "Status: " & objNCProps.Status & chr(13) & _ > "MediaType: " & objNCProps.MediaType > > 'wscript.Echo(szMsg) > bFound = true > EveryConnection.EnableInternetFirewall > exit for > end if > next > > if( bFound = false ) then > wscript.Echo( "Connection " & chr(34) & conName & chr(34) & " was > not found" ) > end if > > end sub > > function Initialize() > DIM bReturn > bReturn = FALSE > > set NetSharingManager = wscript.CreateObject("HNetCfg.HNetShare.1") > if (IsObject(NetSharingManager)) = FALSE then > wscript.Echo("Unable to get the HNetCfg.HnetShare.1 object") > else > if (IsNull(NetSharingManager.SharingInstalled) = TRUE) then > wscript.Echo("Sharing isn't available on this platform.") > else > bReturn = TRUE > end if > end if > Initialize = bReturn > end function > > function GetConnectionObjects() > DIM bReturn > DIM Item > > bReturn = TRUE > > if GetConnection(CONNECTION_PUBLIC) = FALSE then > bReturn = FALSE > end if > > if GetConnection(CONNECTION_PRIVATE) = FALSE then > bReturn = FALSE > end if > > if GetConnection(CONNECTION_ALL) = FALSE then > bReturn = FALSE > end if > > GetConnectionObjects = bReturn > > end function > > > function GetConnection(CONNECTION_TYPE) > DIM bReturn > DIM Connection > DIM Item > bReturn = TRUE > > if (CONNECTION_PUBLIC = CONNECTION_TYPE) then > set Connection = > NetSharingManager.EnumPublicConnections(ICSSC_DEFAULT) > if (Connection.Count > 0) and (Connection.Count < 2) then > for each Item in Connection > set PublicConnection = > NetSharingManager.INetSharingConfigurationForINetConnection(Item) > next > else > bReturn = FALSE > end if > elseif (CONNECTION_PRIVATE = CONNECTION_TYPE) then > set Connection = > NetSharingManager.EnumPrivateConnections(ICSSC_DEFAULT) > if (Connection.Count > 0) and (Connection.Count < 2) then > for each Item in Connection > set PrivateConnection = > NetSharingManager.INetSharingConfigurationForINetConnection(Item) > next > else > bReturn = FALSE > end if > elseif (CONNECTION_ALL = CONNECTION_TYPE) then > set Connection = NetSharingManager.EnumEveryConnection > if (Connection.Count > 0) then > set EveryConnectionCollection = Connection > else > bReturn = FALSE > end if > else > bReturn = FALSE > end if > > if (TRUE = bReturn) then > > if (Connection.Count = 0) then > wscript.Echo("No " + > CStr(ConvertConnectionTypeToString(CONNECTION_TYPE)) + " connections exist > (Connection.Count gave us 0)") > bReturn = FALSE > 'valid to have more than 1 connection returned from > EnumEveryConnection > elseif (Connection.Count > 1) and (CONNECTION_ALL <> > CONNECTION_TYPE) then > wscript.Echo("ERROR: There was more than one " + > ConvertConnectionTypeToString(CONNECTION_TYPE) + " connection (" + > CStr(Connection.Count) + ")") > bReturn = FALSE > end if > end if > 'wscript.Echo(CStr(Connection.Count) + " objects for connection type " + > ConvertConnectionTypeToString(CONNECTION_TYPE)) > > GetConnection = bReturn > end function > > function ConvertConnectionTypeToString(ConnectionID) > DIM ConnectionString > > if (ConnectionID = CONNECTION_PUBLIC) then > ConnectionString = "public" > elseif (ConnectionID = CONNECTION_PRIVATE) then > ConnectionString = "private" > elseif (ConnectionID = CONNECTION_ALL) then > ConnectionString = "all" > else > ConnectionString = "Unknown: " + CStr(ConnectionID) > end if > > ConvertConnectionTypeToString = ConnectionString > end function > > > Tag: Vbscript to link access tables Tag: 141440
  - 16
    - How to debug VBSCript when using ScriptControl? Hi All, I am working on an application that creates VBScript on the fly. I am using MSScriptControl.ScriptControl() object in my application to execute this VBScript. The script is getting executed very well, but the problem is, I am not able debug it. Does anyone know how to debug it? (VBScript is generated on the fly, I am not storing this VBScript into .VBS file, so I cannot use CScript //X to run this VBScript in debug mode.) Thanks in advance for all ya help. Hitesh Tag: Vbscript to link access tables Tag: 141439
  - 17
    - VB Runtime Errro I have a problem I get this error in my site Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'InStr' What Could be the reason. How can I solove it Thanking in advance Aneesh Tag: Vbscript to link access tables Tag: 141436
  - 18
    - Regular Expression - Replacement argument I am using regular expressions in an Access module through vbscript. This module acts as a find-and-replace application. It prepares external files for import into my database by replacing thousand of deviances in the data. These modules pass the regular expression properties, pattern and replace arguments, to public function for executing the regex object. You may view a simplified example of the code below. I would like to utilize the optional parameter in the pattern expression, (?:(?:EMAIL:")(.*?)(?:\r\n))?. But I have not found its counterpart for the replace expression. The replace argument below returns the Email header and new line regardless of whether an email exists or not. Presently, I used two patterns for this scenario. One includes the email address while the other does not. I would like to streamline my pattern and replace statements considering that these modules have over a hundred distinct patterns. Does an optional parameter exist for vbscript replacement argument? Several approaches exist in dealing with this scenario like capturing each element or creating an If ?Then statement. But these approaches may create additional overhead in tracking the code elements. Remember each module can have up to fifty patterns and ten regular expressions sections exist. Let me know if you have any thoughts on my situation. My internet and newsgroup research did not enlighten me either. strPattern = "(?:COMPNAME:")(.*?)(?:\r\n)" _ & "(?:ADDR:")(.*?)(?:\r\n)" _ & "([^"]*?)(?:\r\n)" _ & "(?:(?:EMAIL:")(.*?)(?:\r\n))?" _ & "(?:PHONE:")(.*?)(?:\r\n)" _ & "(?:PHONE2:")(.*?)(?:\r\n)" _ & "(?:PROJPHONE:")(.*?)(?:\r\n)" _ & "(?:FAX:")(.*?)(?:\r\n)" _ & "(?:FAX2:")(.*?)(?:\r\n)" strReplace = "COMPNAME:"$1" & vbCrLf _ & "ADDR:"$2" & vbCrLf _ & "EMAIL:"$4" & vbCrLf _ & "PHONE:"$5" & vbCrLf _ & "PROJPHONE:"$7" & vbCrLf _ & "FAX:"$8" & vbCrLf _ & "COMPNAME:"$1" & vbCrLf _ & "ADDR:"$3" & vbCrLf _ & "PHONE:"$6" & vbCrLf _ & "FAX:"$9" & vbCrLf strFileContents = FindAndReplace(strFileContents, strPattern, strReplace, _ False, True, True, True) Tag: Vbscript to link access tables Tag: 141429
  - 19
    - Need help with SQL and ASP Ok. I have never seen this happen before. Could any of you out there tell me what's going on with this code? Here's the code (cleared of all other code except for what's causing the bug): <%@ Language=VBScript %> <% option explicit dim oConn, rsData Set oConn = CreateObject("ADODB.Connection") Set rsData = oConn.Execute( "SELECT * FROM current_news;" ) response.Write rsData( "newsType" ) & vbCrLf response.Write rsData( "date_start" ) & vbCrLf response.Write rsData( "date_end" ) & vbCrLf response.Write rsData( "enabled" ) & vbCrLf response.Write rsData( "title" ) & vbCrLf response.Write rsData( "description" ) & vbCrLf %> When ran on the server, it only shows the contents of "newsType", "date_start", "date_end", and "title." It completely skips over "newsType" and "description". Yet, when I use this code: <%@ Language=VBScript %> <% option explicit dim oConn, rsData Set oConn = CreateObject("ADODB.Connection") Set rsData = oConn.Execute( "SELECT * FROM plt_news;" ) ' note that the next line is commented out. ' response.Write rsData( "newsType" ) & vbCrLf response.Write rsData( "date_start" ) & vbCrLf response.Write rsData( "date_end" ) & vbCrLf response.Write rsData( "enabled" ) & vbCrLf response.Write rsData( "title" ) & vbCrLf response.Write rsData( "description" ) & vbCrLf %> Then, I get all of the data except for "description." In order to get "description" to show up, I would have to move the command: <%@ Language=VBScript %> <% option explicit dim oConn, rsData Set oConn = CreateObject("ADODB.Connection") Set rsData = oConn.Execute( "SELECT * FROM plt_news;" ) ' response.Write rsData( "newsType" ) & vbCrLf ' note: description was moved here. response.Write rsData( "description" ) & vbCrLf response.Write rsData( "date_start" ) & vbCrLf response.Write rsData( "date_end" ) & vbCrLf response.Write rsData( "enabled" ) & vbCrLf response.Write rsData( "title" ) & vbCrLf %> the table is of the following data types: ID - Integer & Identity newsType - Integer description - Text date_start - DateTime date_end - DateTime enabled - bit title - varchar(64) If anyone can see what stupid thing I've done wrong in my code :), could you tell me how to correct it? It's been driving me nuts for the past two hours, and I can't figure it out. Thanks! :) Tag: Vbscript to link access tables Tag: 141424
  - 20
    - Schedule Daily, Weekly, BiWeekly, Monthly Dates I am writing a scheduling program and one of the features is the ability to schedule either Daily, Weekly, BiWeekly, or Monthly. The first three seem to be working fine, but I am having problems with the Monthly scheduling. For Monthly, if the start date is: 12/29/03 (MM/DD/YYYY) which is the 5th (and last) Monday of December and the user wants to schedule 4 occurrences total (Dec '03 - Mar '04), then the program should schedule the following dates: 29 Dec 2003 last Monday of Dec 26 Jan 2004 last Monday of Jan 23 Feb 2004 29 Mar 2004 The same should occur for the third Tuesday or first Monday, etc of the month. Please see the code for "Monthly" below and let me know how I can change the code to find the correct date of each month. Thanks in advance! For i = 2 To intTotNumOfDates 'iterate through the total number of occurrences Select Case howOften Case "daily" 'find the next date to schedule... nextDate = dateAdd("d",1,cdate(tempDate)) '...and if it falls on a Saturday, add two more days. If datepart("w",cdate(nextDate)) = vbSaturday Then nextDate = DateAdd("d",2,cdate(nextDate)) End If Case "weekly" nextDate = DateAdd("d",7,cdate(tempDate)) Case "biWeekly" nextDate = DateAdd("d",14,cdate(tempDate)) Case "monthly" intTotNumDaysInMonth = Day(DateSerial(Year(tempDate), Month(tempDate) + 1, 0)) intDtNumber = intTotNumDaysInMonth - Weekday(FormatDateTime(tempDate),intCurDtWeekdayNum)+1 dtmDate = FormatDateTime(tempDate) nextDate = DateAdd("d",intDtNumber,dtmDate) End Select arrDates(i) = nextDate tempDate = nextDate Next Tag: Vbscript to link access tables Tag: 141411
  - 21
    - Clear out IE Cache and Cookies Does anyone know how to clear out the IE cache and Cookies via VBScript? TIA, NB Tag: Vbscript to link access tables Tag: 141409
  - 22
    - Restarting a workstation How do you restart a workstation using vbscript. I need to restart the computer remotely. Tag: Vbscript to link access tables Tag: 141408
  - 23
    - Open a CGI Page in the Same Window? I would like to find a way to open one CGI page from another CGI page without opening a new window. What I am trying to do is: - I have multiple CGI programs that are written in Perl. - The first CGI program is an "options" page. Let's call it "ReportOptions.cgi". That construct a web page that the user can select options from the page, and clicks at the submit button to show a report based on the options that he has selected. - The second CGI program is the "report" page that shows a report. Because the user has a choice of many different reports, I actually have many different CGI programs that generate many different reports. In order to simplify the discussion, let assume we only have two CGI programs that generate two different reports. One is called "Report1.cgi", and the other one is called "Report2.cgi". - In order to calling the second CGI program dynamically, I decide to use VBScript as a traffic cop to re-direct the user to the appropriate report page. Currently, I can do this using the following VBscript statement: 'Here, strReportCgiName is like "Report1.cgi" or "Report2.cgi". strURL = "http://MyWebServe/cgi-bin/" & strReportCgiName & "?" & strParameters Top.open strURL, "wndReport" This works. But this will open a new window to show the report. I am wondering whether I can do this without opening another window. I have tried the following statements. But they don't open the report page. Instead, they simply open the same options page one more time: Top.navigate strURL ... or ... Top.Location.href = strURL I don't see any error in the error log file of the Apache web server. This problem doesn't seem to have anything to do with whether the second page is a CGI or a HTML page. I have tried the following to call a HTML page Top.navigate "test.html" ... or ... Top.Location.href = "test.html" Again, I end up getting the same options page. And I don't see any error in the error log file. Strangely, when I use Top.open to open the HTML page, I get this error message in Apache error log: c:/apache/cgi-bin/test.html is not executable; ensure interpreted scripts have "#!" first line couldn't spawn child process: c:/apache/cgi-bin/test.html Seem like Top.open is trying to "execute" the HTML page. Why? Can someone help me to open the second CGI page in the same window? BTW, I am using Internet Explorer 6.0. Thanks. Jay Chan Tag: Vbscript to link access tables Tag: 141404
  - 24
    - how to make a sourcecode illegible? hello forum. is there a program with which I can make a script illegible ? or convert it into another file wich is still executable on an windows xp system. however the sourcecode should be not more observable. thanks zuender. Tag: Vbscript to link access tables Tag: 141393
  - 25
    - create process on remote machine Hi, I'm trying to create a process on a remote machine. The process is a small exe I wrote in VB6 that simply displays a message, from a command line arg, in a message box and then exits. Here is an example of the commandline: >Message.exe "Hey you." I found this script on the internet for creating the process on a remote machine on your network. I Placed the exe on the client's C drive and used the commandline >cscript <scriptName>.vbs <machinename> c:\message.exe "Hey you". This does successfully create the process on the target machine, but the message box does not appear on the target machine. I have to go into Task Manager to kill the process. What gives? By the way, this is just gag to mess with a fellow employee, but I've probably wasted too much time on it now. So, I was hoping for some help. Dim sComputer 'computer name Dim sCmdLine 'command line of the process Dim sMessage 'working directory of the process Dim oProcess 'object representing the Win32_Process class Dim oMethod 'object representing the Create method Dim oInPar 'object representing input parameters of the method Dim oOutPar 'object representing output parameters of the method sComputer = WScript.Arguments(0) sCmdLine = WScript.Arguments(1) sMessage = WScript.Arguments(2) Set oProcess = GetObject("winmgmts://" & sComputer & _ "/root/cimv2:Win32_Process") Set oMethod = oProcess.Methods_("Create") Set oInPar = oMethod.inParameters.SpawnInstance_() oInPar.CommandLine = sCmdLine & " " & sMessage 'oInPar.CurrentDirectory = sCurDir Set oOutPar = oProcess.ExecMethod_("Create", oInPar) If oOutPar.ReturnValue = 0 Then WScript.Echo "Create process method completed successfully" WScript.Echo "New Process ID is " & oOutPar.ProcessId Else WScript.Echo "Create process method failed " End If Tag: Vbscript to link access tables Tag: 141387

To administer unto my latest database I need the guys to link to whatever
server they are putting the db on.
I tried writing a script to do this but just got errors.
Can anyone help?

Top