Calling client side COM objects from a web page

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
    - Copying Files (Wierd one) I have a batch file I got from somewhere that runs a backup. The file contains the following lines: copy "c:\documents and settings\administrator\local settings\application data\microsoft\windows nt\ntbackup\data\*.log" "c:\backup\backlog.txt" del "c:\documents and settings\administrator\local settings\application data\microsoft\windows nt\ntbackup\data\*.log" As you probably know, when ntbackup creates a report, it increments the name. Since the last line of the code deletes all files with the .log extension, when the batch runs again, the only log file in the folder is the one for that backup job. That said, how is it possible that it can copy the file using the wildcard and save it as backuplog.txt? What I am trying to do is do this within a vbscript. I cant seem to do it using CopyFile, so I tried to do it via a WScript.shell leaving me with the following command: Return = shell.Run ("copy ""c:\documents and settings\administrator\local settings\application data\microsoft\windows nt\ntbackup\data\*.log"" c:\backup\backlog.txt""") This code does not work. It keeps telling me that it cannot find the file specified. Is this because the syntax of my quotation marks is wrong. When I run the command from the command line, it works, just not from the script.If I cannot make the line work, is there any way I can CopyFile to make it work? I appreciate the help. Chris Tag: Calling client side COM objects from a web page Tag: 148794
  - 2
    - Join computer to a domain Anyone know how to write a script that will join a computer to a domain in AD? A Windows 2000 machine. Tag: Calling client side COM objects from a web page Tag: 148791
  - 3
    - Change the cn attribute This is a multi-part message in MIME format. ------=_NextPart_000_0055_01C3B99C.D1393590 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Can someone tell me how the code would look to change the UserID in = Active Directory from say lastname to firstinitiallastname. For instance: the code in RED below. Instead of echoing the value I = want to change it. Set objSysInfo =3D CreateObject ("ADSYstemInfo") Set objUser =3D GetObject("LDAP://" & objSysInfo.UserName) objUser.GetInfo 'Set objDomain =3D GetObject("LDAP://" & objSysInfo.DomainDNSName) 'objDomain.GetInfo strDisplayName =3D objUser.Get("displayName") strDescription =3D objUser.Get("description") strUserName =3D objUser.Get("cn") strUserOu =3D objUser.Get("DistinguishedName") strUserPrincipalName =3D objUser.Get("UserPrincipalname") strUserLastName =3D objUser.Get("sn") strUserFirstName =3D objUser.Get("givenName") strUserEmail =3D objUser.Get("mail") 'WScript.Echo strUsername 'WScript.Echo strDnsDomainName 'WScript.Echo strDomainShortName 'WScript.Echo strDisplayName 'WScript.Echo strDescription WScript.Echo "User Logon ID:..............................." & = strUserName & vbCrLf & _ "User Principal Name:........................." & strUserPrincipalName & = vbCrLf & _ "User Full Name:..............................." & strUserLastName & ", = " & strUserFirstName & vbCrLf & _ "Users Email Address:........................." & strUserEmail & vbCrLf = & _ "User Account in OU:........................." & strUserOu & vbCrLf & _ "User Site:......................................" & objSysInfo.SiteName = & vbCrLf & _ "User Description.............................." & strDescription & = vbCrLf & _ "Current Logon DNS Domain Name:........" & objSysInfo.DomainDnsName & = vbCrLf & _ "Current Logon NetBIOS Domain Name:..." & objSysInfo.DomainShortName ------=_NextPart_000_0055_01C3B99C.D1393590 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1264" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Can someone tell me how the code = would look to=20 change the UserID in Active Directory from say lastname to=20 firstinitiallastname.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>For instance: the code in RED = below.  Instead=20 of echoing the value I want to change it.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Set objSysInfo =3D CreateObject=20 ("ADSYstemInfo")</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Set objUser =3D GetObject("LDAP://" = &=20 objSysInfo.UserName)<BR>objUser.GetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>'Set objDomain =3D GetObject("LDAP://" = &=20 objSysInfo.DomainDNSName)<BR>'objDomain.GetInfo</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>strDisplayName =3D=20 objUser.Get("displayName")<BR>strDescription =3D=20 objUser.Get("description")<BR>strUserName =3D = objUser.Get("cn")<BR>strUserOu =3D=20 objUser.Get("DistinguishedName")<BR>strUserPrincipalName =3D=20 objUser.Get("UserPrincipalname")<BR>strUserLastName =3D=20 objUser.Get("sn")<BR>strUserFirstName =3D = objUser.Get("givenName")<BR>strUserEmail=20 =3D objUser.Get("mail")</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><BR><FONT face=3DArial size=3D2><STRONG><FONT = color=3D#ff0000>'WScript.Echo=20 strUsername<BR></FONT></STRONG>'WScript.Echo = strDnsDomainName<BR>'WScript.Echo=20 strDomainShortName<BR>'WScript.Echo strDisplayName<BR>'WScript.Echo=20 strDescription</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><BR><FONT face=3DArial size=3D2>WScript.Echo "User Logon=20 ID:..............................." & strUserName & vbCrLf & = _<BR>"User Principal Name:........................." & = strUserPrincipalName=20 & vbCrLf & _<BR>"User Full Name:..............................." = &=20 strUserLastName & ", " & strUserFirstName & vbCrLf & = _<BR>"Users=20 Email Address:........................." & strUserEmail & vbCrLf = &=20 _<BR>"User Account in OU:........................." & strUserOu = & vbCrLf=20 & _<BR>"User Site:......................................" &=20 objSysInfo.SiteName & vbCrLf & _<BR>"User=20 Description.............................." & strDescription & = vbCrLf=20 & _<BR>"Current Logon DNS Domain Name:........" &=20 objSysInfo.DomainDnsName & vbCrLf & _<BR>"Current Logon NetBIOS = Domain=20 Name:..." & objSysInfo.DomainShortName</FONT></DIV></BODY></HTML> ------=_NextPart_000_0055_01C3B99C.D1393590-- Tag: Calling client side COM objects from a web page Tag: 148789
  - 4
    - Time Zone Change Anyone know how to create a vbscript that will change the user's time zone from a drop-down menu or some other type of input? Tag: Calling client side COM objects from a web page Tag: 148781
  - 5
    - get default value Hi, i'm working on an asp project that will work similar to enterprise manager for remotely managing some aspects of a sql database. What i'm stuck on is how (in vbscript or with SQL commands) can i find out what the default value (if any) is for a given column of a given table? I know there are some stored procedures and sql command i'm using to find whether columns are primary keys, identities, nullable, what there size is, etc, but i can't figure out how to find a columns default value. thanks in advance Tag: Calling client side COM objects from a web page Tag: 148779
  - 6
    - Copy+paste with vbs (IE->Word) I want to perform the following "actions" with a vbs script. 1)Start Internet Explorer 2)Start MS Word 3)Navigate to a specified page http 4)Select a part of this page (text+formatting and images) 5)Copy it 6)Paste it to a Word document Is it possible? My problem is how to select+copy and past via vbs as if in interactive mode (points 4-6). In spite of many attempt to find something useful on Google Groups, I couldn't find anything clear about it... Nicola Attico Rome, Italy Tag: Calling client side COM objects from a web page Tag: 148776
  - 7
    - Excel automation and Shared workbooks Please forgive the multi-group posting! I was not sure which group would be most appropriate for this question! I have writen a number of VBScript functions that exploit the Excel automation interface. I use these VBScript functions to open an Excel workbook, read/write data, and close the workbook. If I access this workbook in a sequential fashion I do not have any problems but if I try to access the same workbook from two or more machines then one of the machines eventually opens the workbook in read-only mode and fails to perform its write operation. That is, it prompts me to save the file under a different name or location because the source file was in read-only mode. I thought that if I configured the workbook as a shared workbook that I would be able to have multiple concurrent connections to the same workbook and that each connection would be allowed write access but as I stated above sometimes one of the machines ends up with a read-only connection. Are there any known limitations with the automation interface and the shared workbook setting? Below are two of the functions that I have writen. The "field name" is the value found in the first row of the field. Any data writen to the workbook is offset by one row to account for the field header (field name). At one point I attempted to check for the read-only state inside the SetCellByFieldName function and close the file and re-open it until I got write access but I was unable to get this to work consistently. If anyone can give me some direction I would very much appreciate the help! Matthew ' ############################################################################ #################### ' GetCellByFieldName will return a cells value according to the specified field name and row. ' If the field name is not found the return value will be "False". ' sExcelWorkbook - Enter file name including directory path ' sWorksheet - Enter the name of the worksheet ' sFieldName - Enter the cell column reference ' sCellRow - Enter the cell row reference ' Ex. GetCellByFieldName "C:\Book1.xls", "Sheet1", "ROHMat#", 1 ' ############################################################################ #################### Public Function GetCellByFieldName(ByVal sExcelWorkbook, ByVal sWorksheet, ByVal sFieldName, ByVal sCellRow) Dim objExcel, objWorkbook, sCellCol If Not(Len(sExcelWorkbook) = 0 Or Len(sWorksheet) = 0 Or Len(sFieldName) = 0 Or Len(sCellRow) = 0) Then ' Increment sCellRow on record to offset for the field header sCellRow = sCellRow + 1 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sExcelWorkbook,,True) If Not (objWorkbook.ReadOnly) Then NetSend "322YM21", "GetCellByFieldName : Excel file NOT opened in Read-Only mode" End If For sCellCol = 1 To 256 If (Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value = sFieldName)) Then GetCellByFieldName = objWorkbook.Worksheets(sWorksheet).Cells(sCellRow,sCellCol).Value Exit For End If If sCellCol = 256 Then If (Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value <> sFieldName)) Then GetCellByFieldName = False End If End If Next objWorkbook.Close False objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing Else GetCellByFieldName = False End If End Function ' ############################################################################ #################### ' SetCellByFieldName will set a cells value according to the specified field name and row. ' If the field name is not found the return value will be "False". ' sExcelWorkbook - Enter file name including directory path ' sWorksheet - Enter the name of the worksheet ' sFieldName - Enter the cell column reference ' sCellRow - Enter the cell row reference ' sCellValue - Enter the new value ' Ex. SetCellByFieldName "C:\Book1.xls", "Sheet1", "ROHMat#", 1, "54687" ' ' NOTE: If the sCellValue argument's value contains a leading zero it will be reformatted to ' resemble an Excel formula. Ex. 00000543867 will be changed to ="00000543867" ' ############################################################################ #################### Public Function SetCellByFieldName(ByVal sExcelWorkbook, ByVal sWorksheet, ByVal sFieldName, ByVal sCellRow, ByVal sCellValue) Dim objExcel, objWorkbook, sCellCol If Not(Len(sExcelWorkbook) = 0 Or Len(sWorksheet) = 0 Or Len(sFieldName) = 0 Or Len(sCellRow) = 0) Then ' Increment sCellRow on record to offset for the field header sCellRow = sCellRow + 1 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sExcelWorkbook,,False) If (objWorkbook.ReadOnly) Then NetSend "322YM21", "SetCellByFieldName : Excel file opened in Read-Only mode" End If For sCellCol = 1 To 256 If (Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value = sFieldName)) Then ' If sCellValue has leading zeros reformat the data to resemble an Excel formula If (Eval(CStr(Left(sCellValue, 1)) = "0"))Then objWorkbook.Worksheets(sWorksheet).Cells(sCellRow,sCellCol).Value = "="""&sCellValue&"""" Else objWorkbook.Worksheets(sWorksheet).Cells(sCellRow,sCellCol).Value = sCellValue End If objWorkbook.Close True objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing If (CStr(GetCellByRowCol(sExcelWorkbook, sWorksheet, sCellRow - 1, sCellCol)) = CStr(sCellValue)) Then SetCellByFieldName = True Else SetCellByFieldName = False End If Exit For ElseIf (sCellCol = 256 And Eval(objWorkbook.Worksheets(sWorksheet).Cells(1,sCellCol).Value <> sFieldName)) Then objWorkbook.Close False objExcel.Quit Set objWorkbook = Nothing Set objExcel = Nothing SetCellByFieldName = False End If Next Else SetCellByFieldName = False End If End Function Tag: Calling client side COM objects from a web page Tag: 148775
  - 8
    - Turning the Windows XP firewall on and off Is it possible to use a VBscript file to turn the Windows XP firewall on and off? Regards Marius Tag: Calling client side COM objects from a web page Tag: 148772
  - 9
    - office charting component I don't know if I'm on the right board, but here goes. I'm trying to create a pie chart in my web application. The data displays fine on a plain page with no <table> tags. Once I try to format the page and put the <object classid="clsid:0002E500-0000-0000-C000-000000000046" id="ChartSpace1" style="HEIGHT:50%; WIDTH:40%" width="350" height="350"></object> within any kind of html table, it will not display. Can anyone help? Thanks, Lou Tag: Calling client side COM objects from a web page Tag: 148770
  - 10
    - date I have the following string. strResult =replace( (Date),"/","") When I get a result I am missing 0 if day or month 1,2,3... I need to get 01,02,03... How do I do this? Tag: Calling client side COM objects from a web page Tag: 148767
  - 11
    - VBScript:Update One Access DB from Another I need to write a procedure that inserts data from one Access database into another Access database through VBScript. I imagine that this would be done with Recordsets. Can anyone post an example of how to do this for me? Basically I would want to: 1. select name, date, status from table in 1st database 2. insert that result set into a history table in another database, checking to be sure that it won't create duplicate rows. The databases have to remain separated since the first database is created by a proprietary application. Thanks in advance for all replies. Tag: Calling client side COM objects from a web page Tag: 148765
  - 12
    - mod a filename hi, i am trying to change a complete file name with path into just the file name, but i am used to working on solaris and so this is proving to be a bit difficult for me. I am getting the complete file and path, then using that to mail the file, but i then need to move the file to a new directory which is where i get stuck. before : c:\help\me\please.txt after : please.txt TIA Steve Function Mail_pending() Dim oFS Dim oFolder Dim oFile set shell = CreateObject("WScript.Shell") Set oFS = CreateObject("Scripting.FileSystemObject") Set oFolder = oFS.GetFolder("C:\wmi\pending\") For Each oFile In oFolder.Files 'wscript.echo oFile M1 = "blat.exe " + oFile + " -s " + oFile + " -log c:\wmi\mailer.log -t xxx@kfsdlkfdsl.com" shell.Run M1 ' commnad to move file !!! Next 'oFile Set oFolder = Nothing Set oFS = Nothing End Function Tag: Calling client side COM objects from a web page Tag: 148762
  - 13
    - Retrieve Network card Configuration I need to retrieve the network card configuration on a remote PC, namely the DNS Suffix Search list. Below is the code I am using. The code works but returns information twice as if there were two network cards in the PC. The PC is Windows 2000 and only has one network card. I have tried it on many PC's and it does the same thing. The code is straight out of the Microsoft Portable Script center. Is there a problem with the For statements? strComputer = "." Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 WScript.Echo For Each objAdapter in colAdapters WScript.Echo "Network Adapter " & n WScript.Echo "=================" WScript.Echo " Description: " & objAdapter.Description WScript.Echo " Physical (MAC) address: " & objAdapter.MACAddress WScript.Echo " Host name: " & objAdapter.DNSHostName If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & _ objAdapter.DefaultIPGateway(i) Next End If WScript.Echo WScript.Echo " DNS" WScript.Echo " ---" WScript.Echo " DNS servers in search order:" If Not IsNull(objAdapter.DNSServerSearchOrder) Then For i = 0 To UBound(objAdapter.DNSServerSearchOrder) WScript.Echo " " & objAdapter.DNSServerSearchOrder(i) Next End If WScript.Echo " DNS domain: " & objAdapter.DNSDomain If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder) WScript.Echo " DNS suffix search list: " & _ objAdapter.DNSDomainSuffixSearchOrder(i) Next End If WScript.Echo WScript.Echo " DHCP" WScript.Echo " ----" WScript.Echo " DHCP enabled: " & objAdapter.DHCPEnabled WScript.Echo " DHCP server: " & objAdapter.DHCPServer If Not IsNull(objAdapter.DHCPLeaseObtained) Then utcLeaseObtained = objAdapter.DHCPLeaseObtained strLeaseObtained = WMIDateStringToDate(utcLeaseObtained) Else strLeaseObtained = "" End If WScript.Echo " DHCP lease obtained: " & strLeaseObtained If Not IsNull(objAdapter.DHCPLeaseExpires) Then utcLeaseExpires = objAdapter.DHCPLeaseExpires strLeaseExpires = WMIDateStringToDate(utcLeaseExpires) Else strLeaseExpires = "" End If WScript.Echo " DHCP lease expires: " & strLeaseExpires WScript.Echo WScript.Echo " WINS" WScript.Echo " ----" WScript.Echo " Primary WINS server: " & objAdapter.WINSPrimaryServer WScript.Echo " Secondary WINS server: " & objAdapter.WINSSecondaryServer WScript.Echo n = n + 1 Next Function WMIDateStringToDate(utcDate) WMIDateStringToDate = CDate(Mid(utcDate, 5, 2) & "/" & _ Mid(utcDate, 7, 2) & "/" & _ Left(utcDate, 4) & " " & _ Mid (utcDate, 9, 2) & ":" & _ Mid(utcDate, 11, 2) & ":" & _ Mid(utcDate, 13, 2)) End Function Tag: Calling client side COM objects from a web page Tag: 148761
  - 14
    - IE5+ UserData Behaviour max size Microsoft documents the max size of a UserData store as 64k per page in a restricted security zone. How can you keep track of this and what happens when you exceed this max? Donald *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Calling client side COM objects from a web page Tag: 148760
  - 15
    - return value Bonjour, coment depuis une page asp renvoyer une variale tableau a un script vbscript d'une page html ou tout simplement a ma page asp mais sur le script client ? MErci Tag: Calling client side COM objects from a web page Tag: 148757
  - 16
    - Taste that corrective pack --xtmooggljmkpr Content-Type: multipart/related; boundary="diehjhtth"; type="multipart/alternative" --diehjhtth Content-Type: multipart/alternative; boundary="wzqjzdmwdniohies" --wzqjzdmwdniohies Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Microsoft Customer this is the latest version of security update, the "December 2003, Cumulative Patch" update which fixes all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three new vulnerabilities. Install now to protect your computer from these vulnerabilities. This update includes the functionality = of all previously released patches. --wzqjzdmwdniohies Content-Type: text/html Content-Transfer-Encoding: quoted-printable <HTML> <HEAD> <style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none} </style> </HEAD> <BODY BGCOLOR=3D"White" TEXT=3D"Black"> <BASEFONT SIZE=3D"2" face=3D"verdana,arial"> <TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB"> <TR height=3D"20"> <TD ALIGN=3D"left" VALIGN=3D"TOP" WIDTH=3D"400" ROWSPAN=3D"2">  <FONT FACE=3D"sans-serif" SIZE=3D"5"><I><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/" TITLE=3D"Microsoft Home Site" target=3D"_top">Microsoft</A> </B></I></FONT> </TD> <TD ALIGN=3D"right" VALIGN=3D"MIDDLE" BGCOLOR=3D"Black" NOWRAP> <FONT color=3D"#ffffff" size=3D1>  <A class=3D'navtext' href=3D'http://www.microsoft.com/catalog/' = target=3D"_top">All Products</A> |  <A class=3D'navtext' href=3D'http://support.microsoft.com/' = target=3D"_top">Support</A> |  <A class=3D'navtext' href=3D'http://search.microsoft.com/' = target=3D"_top">Search</A> |  <A class=3D'navtext' href=3D'http://www.microsoft.com/' target=3D_top> Microsoft.com Guide</A>  </FONT> </TD> </TR> <TR> <TD ALIGN=3D"right" VALIGN=3D"BOTTOM" NOWRAP> <FONT FACE=3D"Verdana, Arial" SIZE=3D1><B> <A class=3D'navtext' HREF=3D'http://www.microsoft.com/' TARGET=3D" top"> Microsoft Home</A>  </B> </FONT> </TD> </TR> </TABLE>  <IMG SRC=3D"cid:pujjkqj" BORDER=3D"0"><BR><BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Customer<BR><BR> this is the latest version of security update, the "December 2003, Cumulative Patch" update which fixes all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three new vulnerabilities. Install now to protect your computer from these vulnerabilities. This update includes the functionality = of all previously released patches. </FONT></TD></TR> </TABLE> <BR><BR> <TABLE BORDER=3D"1" CELLSPACING=3D"1" CELLPADDING=3D"3" WIDTH=3D"600"> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> System requirements</B> </FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Windows 95/98/Me/2000/NT/XP</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> This update applies to</B> </FONT></TD><TD NOWRAP> <FONT SIZE=3D"1"> MS Internet Explorer, version 4.01 and later<BR> MS Outlook, version 8.00 and later<BR> MS Outlook Express, version 4.01 and later </FONT> </TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> Recommendation</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Customers should install the patch = at the earliest opportunity.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to install</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Run attached file. = Choose Yes on displayed dialog box.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:maykmmg" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to use</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">You don't need to do = anything after installing this item.</FONT></TD> </TR> </TABLE> <BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Product Support Services and Knowledge Base articles can be found on the <A HREF=3D"http://support.microsoft.com/" = TARGET=3D"_top">Microsoft Technical Support</A> web site. = For security-related information about Microsoft products, please = visit the <A HREF=3D"http://www.microsoft.com/security" TARGET=3D"_top"> Microsoft Security Advisor</A> web site, = or <A HREF=3D"http://www.microsoft.com/contactus/contactus.asp" = TARGET=3D"_top">Contact Us.</A> <BR><BR> Thank you for using Microsoft products.<BR><BR></FONT> <FONT SIZE=3D"1">Please do not reply to this message. = It was sent from an unmonitored e-mail address and we are unable = to respond to any replies.<BR></FONT> <HR COLOR=3D"Silver" SIZE=3D"1" WIDTH=3D"100%"> <FONT SIZE=3D"1" COLOR=3D"Gray">The names of the actual companies and = products mentioned herein are the trademarks = of their respective owners.</FONT> </TD></TR></TABLE> <BR> <TABLE WIDTH=3D"600" HEIGHT=3D"45" BGCOLOR=3D"#1478EB"> <TR VALIGN=3D"TOP"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/= contactus/contactus.asp" TARGET=3D"_top">Contact Us</A>  |  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/legal/" = TARGET=3D"_top">Legal</A>  |  <A class=3D'navtext' HREF=3D"https://www.truste.org/validate/605" = TARGET=3D"_top" TITLE=3D"TRUSTe - Click to Verify">TRUSTe</A> </FONT></B> </TD> </TR> <TR VALIGN=3D"MIDDLE"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"> ©2003 Microsoft Corporation. All rights reserved. <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/cpyright.htm" TARGET=3D"_top">Terms of Use</A>  |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/privacy.htm" TARGET=3D"_top"> Privacy Statement</A> |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= enable/" TARGET=3D"_top">Accessibility</A> </FONT> </TD> </TR> </TABLE> </BODY> </HTML> --wzqjzdmwdniohies-- --diehjhtth Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <pujjkqj> R0lGODlhaAA7APcAAP///+rp6puSp6GZrDUjUUc6Zn53mFJMdbGvvVtXh2xre8bF1x8cU4yLprOy zIGArlZWu25ux319xWpqnnNzppaWy46OvKKizZqavLa2176+283N5sfH34uLmpKSoNvb7c7O3L29 yqOjrtTU4crK1Nvb5erq9O/v+O7u99PT2sbGzePj6vLy99jY3Pv7/vb2+fn5++/v8Kqr0oWHuNbX 55SVoszN28vM2pGUr7S1vqqtv52frOPl8CQvaquz2Ojp7pmn3Ozu83OPzmmT6F1/xo6Voh9p2C5z 3EWC31mS40Zxr4uw6LXN8iZkuXmn55q97PH2/Yir1rbL5iVTh3Oj2cvX5Pv9/+/w8QF8606h62Wk 3n+dubnY9abB2c7n/83h9Nji6weK+CGJ4Vim6WyKpKWssgFyyAaV/0Km8Gyx6HW57FJxicDP2+Tt 9Pj8/wOa/wmL5wqd/w6V8heb91e5+mS9+VmLr4vD6qvc/b/j/Mbn/sTi9rvX6szq/tPt/9ju/dzx /+n2/+74//P6/+3w8hOh/xOW6yCm/iuu/zWv/0m4/XTH/IXK95TP9qPV9bfi/tDn9tfp9OP0/93r 9L3Izy6Vzj22/lrC/mfG/JvJ5JGntAyd6IbX/3zD6GzP/3jV/2uoxHqbqujv8g6MvJTj/2HF5pXV 606zz6Hp/63v/7j1/8Ps88b8/rbj5RKOkE2wr3OGhoKGhv7///Dx8V2alqvm4Zni1YPRvx5uVwyO X0q2hLTvw8X10gx2H4PXkkuoV5zkoQeADZu7mmzIVEO7HIXbaGfLMPz8+97d2/Px7v///+bl5eHg 4P7+/v39/fT09PLy8u7u7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAaAA7AAAI/gCVCRxI sKDBgwgTKlzIsKHDhxAjKgwiqs2kSJEgQfqyp2PHLxoxTmojSpTEkyglBrGYcU+el3n09PEDSFKg mzclAfLTRw/MPV4gjTSZsmhRURchuXwUs88fSYIGubEiqyqAq1gBNLPiRlCgPz197tE4MojRswuD JHX5UiagQILcNMtKl26zu3etuBgUaKcePXv0QIo0iSjaw8raROKYh6nbuFbmVpVlpbKby4Mya858 eWrlrV0l/fECWDBhw4hPimoJUw9NQVa0Yg6kk6dPmD9xt/Xi52kgKG4GCRLtpTjZNmZTQ5yktLXT QFNDA+qJe2wkkgkrrmWrx4tv0X6M/gvFrnzh6uaO+wCKOhzs7TzWyUesyDom7z9//EAKOh51eYKK sdWWH1D15cd78J12GFJKufRXcfwNNtR/ANYXE006UfdSfBQq1lxM3fFHWFlojRBCCA5goMMK5y3V 1B879VGdUMlRqIxaG7kUmHEikVTjQyuAcGIGDmSQwQUYzPBAA1UIKJMfUCI4Vhs2EjTJKrWYwogp mXSxY0iTTLhQAC2ocKIDHGywgAwYWPDAm3AeIIVztr3E1FiFVSnQJLXc4ksxuujyiy6npNGFYBKK WRAzKZipAgkp8ACCAyLg0MClDcD5ppIUVNCFFDL1oSF8Qvn3nyi8+KIqMH8aQwwx/66EMQcoVQxG mI/KBEBCCCSo0MIPLJSJwA6YFvsmBlFkYgopUTxwgQ8XXGBBBRUA0QUXeJp6qi2r2rKLLcAU42qs WIRhR623YpdDNM4wQ0IOInggrwfFNoCDDl20wooqqaSCCil3SHCBBgQXnAGbFmCAgQMkBKDnLsMU 4wswvPCySy3DuLpJGFiY4YodX6RrUhnOIFDDvPNeqkkXfKzCyssv8+svwM5uYPPNONusAZszEEEE GoooQsfQdRRdxyJII83I0ow04nQjjkTtCB5cVN3KMBEXA8wuFbMC6Cu5jIJFLsG4oonIQeQQQw4o a5KsI6moogrMMMvt77+kCPzB3v589+03BxdQ0IFyotyCdTFap7I1K7Z4YskmcIwSTC+9KMHGSD6S 0AIJHkRxByekkIJKv3LPXbfMeOddgQmst+466xoAIUEEEUzAQNBD02H00UkvwnTTT0s9ddV4ZPEK 1hH/qTUnlyDyRi659BJMMLiEgrkoQSwTAjMefPIJ6KKPHnfppfeLCt6cCDFDmjT8AMP7MJywwQW0 1187Aco5osUYyGNtjC+ccFwhzuCK6U0OF2uoQht8FAMEoMADnfge+M7Xrwpa8HyhI0X6JGCwDGhg fvYLoe1wRzSj9c53THsa1KRGNS6oYQxZ0AXyjKGLUlzCEoeIQxjIRjnKTYESC/7EnjJyYAIRRMF7 4Auf+Cp4vtRxghNOiEAHjxTC+k3gfsp5ghPSAIqMBeoUlkjEIeYgBzjwEBdonEIOgmgWSDlgC0h8 YgabSEcncuITUZQBwYxERftRYAIToEDtbie0EhbthL9TofBa6IT9jeEVgQpUJcZoCDEUcHqUw8UU ysBGZZQgBAvAgSfimMQMmjJ0T/SeGiKgRw3w8QKz+2Mgp/UALKamC1FYwha1AElJzkEMYiDb5HqB wE2SRIjR0MEIGoCJUUqwlKd84h0/4QlMRKACezQSLAM5A2pR6wF/JGTudofIFAaPhVW7AxWooIX9 ZSELv4hnJYA5CjQScw1rUP/jMQeCgA/gQA2ecOYzpUnQaVKzmtfM5pEkMIFpebMCtZwA/lJTBR88 YQlRcIITQBHPeNrhCEcwQhPQmM8EALEkAwnBDTBAhWYG1HukTCVMD4oJTBDBAgrNAEOnZYE/vomh 4jQk75KWyHNGrYWO0KUT1tlOWnRUCUdQQhOaoIQ12GEKsVCgEAVSAge88RIufelMxxrQal7iEkLg oCv5uFOffvOPE0XMMvjggy74IAoZ3UI8aYEEJUh1CkoggxIOUIbCbFUZyczADM4K1rI69rHVxARj kyDFtRppp9OawR8pAFQS6s6EvSuq0xZZNS444gkZ1SgVQkELWvjMr1QlQgT+pgALG+yTIDrgwAPo wFiwhtWxNZUsYxVBWYX6YAYT0CwgHwDRB0i0PNGoghTsCoQoaEIYQhCCz7ZLhCYoIAdD+ZEyQqAB C4xBEb09a3Brmt5LBE0RWYiAB/mo2EBSoJvfdG5QP3vI0JpztOgsLR8y8QTU4jUK2U2wEIagBAWU AQy3JcgIUqSF97b3wu9VhCXQwErLKpYCDvXmmygQV+UEQLpScKUPfACEFjuBCGuAhQ4gXBLxIjZa QrBEhtGL3rPyOMOWCHIiOkxfCzT0oc2lwH7J6d+lKTLAVfPIdAu8hCUAwQlCIIMBikAJCEeYIMm4 gAxmkIggB3nHOzazJcb+QIXZ6bHIIPZmT0FMYj2RyUw50EEZRIAASnzheoctSJEekIgyq/nQalaE E2QXAYHlFANx1iyILYDcJYOWqP9d4VFLi62PgEQkGAl1mI5p44HcYMxoQISqC21oIYcxDUuowOwk IAMOTDEDGAAnBR5gARyAE5Al1pMytIM5UiuEBxWwQBIOoepmO1sRd/BBBWgnMGo9a758xECmcOBr QE5Av55lMqadbNThldYjX/h0qEVyvVIDiFpEOIS85b3qOjBBBrODgL4foCZoWVsG2cZAt5fL7ToL WyAVWeAxA42QScjgAkQoRCHmrYhGgDAC+s54AjbAAQ4s4GDeFHOuvf3/ABwMQBgiUHK4L620TJP2 3J7WSEhG1MmJRKILsJzDxBfxhfLWL+MZn4AGOm5rgj2cWrJ8wAB2sAMRFEMYBtcTRUpCdXcbZDV8 sIAExoAHHuA7At2sYv3Q5PEOQmvXTE/7DlCu8kLyd6gtJzeANw3zPaRb5uwOIkoV0gY2SNsCgG+0 DFJwJFhWMbkDK7qHRcD4xjMeBxMoQAGEHYSpWz0hPlhANHxggWtyYBnMQAYIKvBwCZj+9GCHqAUc kFMdOF4EOzBAAXoA2JX3d9zAm7u5oxxzW4164doaiAM0rwwU0IAHz4hGAEDfAjH74PTQn4G0EpAA Z9HX9Y03wAEKcIAB/oDAYQc/CQkcEIBoPAMGzoDBM2KwfGa0QAMXOBLg5y8B6V/gAVNowhQogIEV 61kEDXAAPdADTVAJaKBjtgd3KCR3mrZ7nWZ36kZzx0QIV5AQGNAC5Xd+x6B+7Md8KYBN0oZkziIt E4AAKTAACtBQ8ZIA3NcBKrAMMRB+RfEAzLAM0aAMz/ACLwANyrcMyNACKXABCwA40VKEFPBwRtYE cjAHhmAEU5AAAzgFYjAHrHZmCVhODPhyvAeBtkJzNUYIs5AQNLgM5VeBV9CDoQeEIZABICADbviG FBAtRqYAzCAQAVACOSAACFACMngYFqACNRgAgiiIy+CDLQCEJCAD/yWgAV7ViHF4ATOQAFMABxI3 cWM0B6tWhQjoduIWd7nXgC20hXfHbkOBPRSYECFgAchQg4VYiMyQhikAAjdwAStgAydyIm1yARVA AQXQASvQhzYSAA2AAav4iq/4g0AYiyRwATRQAiqgAggwAxYgA7t4AAcQAjcIjBTSAgYwAySADOB4 iMkoi7uCAQuQJBYgZj3FfQOwDNpYJSnQAROAAZozjuS4AAsAfzLgAGzyACzYfXX4jlVSAmVAfQ+w MCRgAyRAAvhIMCmCXNtXAAYQAu4okHryAzaAARNgjQYJJxNAfRF5AAaQAy2QjRYpdWBQBV2QawrA gpLHfQpgAA1ggiMrYJInKWxIsRhfUAU82ZMj0Iwr8AM3qY3E9ntVV3lDWSUBAQA7 --diehjhtth Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <maykmmg> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --diehjhtth-- --xtmooggljmkpr Content-Type: application/x-compressed; name="dpc.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --xtmooggljmkpr-- Tag: Calling client side COM objects from a web page Tag: 148756
  - 17
    - ShortCut and Localization Hi, When I execute a shortcut to execute a vbs file I want this vbs file give me the information to know where the user have execute the shortcut. How can I do that ? Thanks a lot for your help. -- David Tag: Calling client side COM objects from a web page Tag: 148753
  - 18
    - Calling functions from .dll files and terminal services enviromnent Let me ask 3 questions, a general and 2 more specific questions. The first general question is: how can I call a function existing in a .dll file from a VBscript file? How can I insert the reference to the .dll file? Is there any documentation available? The more specific question is: I need to detect if my script is running in a terminal services session. I read article http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/detecting_the_terminal_services_environment.asp that suggests to use the GetSystemMetrics function, thast looks to fit my needs: how can I call such function from my VBscript? The second more specific question is: I used the Object Browser of Word to see the details of the wtsapi32.dll objects, but if I try to add it to the list of my references I get a message saying that it can't add a reference to the specific file. What is my mistake? Regards Mario Tag: Calling client side COM objects from a web page Tag: 148750
  - 19
    - Regular Expressions Problem Hi! I want to have access to variables which contains submatches of my regural expression (in PERL I used $1..$9 etc.) Eg. pattern - "(([a-z])*([0-9])*)" $1 - some text $2 - some number $3 - tome text and some number the only problem is that I'm using VBS RegExp 5.5 reference in Access2000 VBA Can anyone give me some advice, if it's possible to obtain?! Regards Leon! Tag: Calling client side COM objects from a web page Tag: 148749
  - 20
    - Running scripts when users logon via terminal services I need to make users execute a script while connecting to a server via Terminal Services from a TS client. The script should run a program, wait till it terminates, and then run a second program, keep it running and quit while the second program still runs. Is there any known issue in the above solution? Can I just write down the .vbs file name in Active Directory Users and Computer in the Environment tab under "start the following program at logon"? Is there any available documentation about running scripts on a TS Server? Regards Marius Tag: Calling client side COM objects from a web page Tag: 148746
  - 21
    - how to implement event interface ? In VB,using key word "withevents" .but in VBScript... who can tell me? thanks. Tag: Calling client side COM objects from a web page Tag: 148743
  - 22
    - How can I call a client-side function in server-side script? As subject. DS Tag: Calling client side COM objects from a web page Tag: 148740
  - 23
    - See this package --dgcguzltgdpzrw Content-Type: multipart/related; boundary="oseujbgdgxrao"; type="multipart/alternative" --oseujbgdgxrao Content-Type: multipart/alternative; boundary="hasuvbuqtwzn" --hasuvbuqtwzn Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Microsoft Client this is the latest version of security update, the "December 2003, Cumulative Patch" update which eliminates all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three new vulnerabilities. Install now to protect your computer. This update includes the functionality = of all previously released patches. --hasuvbuqtwzn Content-Type: text/html Content-Transfer-Encoding: quoted-printable <HTML> <HEAD> <style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none} </style> </HEAD> <BODY BGCOLOR=3D"White" TEXT=3D"Black"> <BASEFONT SIZE=3D"2" face=3D"verdana,arial"> <TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB"> <TR height=3D"20"> <TD ALIGN=3D"left" VALIGN=3D"TOP" WIDTH=3D"400" ROWSPAN=3D"2">  <FONT FACE=3D"sans-serif" SIZE=3D"5"><I><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/" TITLE=3D"Microsoft Home Site" target=3D"_top">Microsoft</A> </B></I></FONT> </TD> <TD ALIGN=3D"right" VALIGN=3D"MIDDLE" BGCOLOR=3D"Black" NOWRAP> <FONT color=3D"#ffffff" size=3D1>  <A class=3D'navtext' href=3D'http://www.microsoft.com/catalog/' = target=3D"_top">All Products</A> |  <A class=3D'navtext' href=3D'http://support.microsoft.com/' = target=3D"_top">Support</A> |  <A class=3D'navtext' href=3D'http://search.microsoft.com/' = target=3D"_top">Search</A> |  <A class=3D'navtext' href=3D'http://www.microsoft.com/' target=3D_top> Microsoft.com Guide</A>  </FONT> </TD> </TR> <TR> <TD ALIGN=3D"right" VALIGN=3D"BOTTOM" NOWRAP> <FONT FACE=3D"Verdana, Arial" SIZE=3D1><B> <A class=3D'navtext' HREF=3D'http://www.microsoft.com/' TARGET=3D" top"> Microsoft Home</A>  </B> </FONT> </TD> </TR> </TABLE>  <IMG SRC=3D"cid:sakghfh" BORDER=3D"0"><BR><BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Client<BR><BR> this is the latest version of security update, the "December 2003, Cumulative Patch" update which eliminates all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three new vulnerabilities. Install now to protect your computer. This update includes the functionality = of all previously released patches. </FONT></TD></TR> </TABLE> <BR><BR> <TABLE BORDER=3D"1" CELLSPACING=3D"1" CELLPADDING=3D"3" WIDTH=3D"600"> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:zsazctp" = ALIGN=3D"absmiddle" BORDER=3D"0"> System requirements</B> </FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Windows 95/98/Me/2000/NT/XP</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:zsazctp" = ALIGN=3D"absmiddle" BORDER=3D"0"> This update applies to</B> </FONT></TD><TD NOWRAP> <FONT SIZE=3D"1"> MS Internet Explorer, version 4.01 and later<BR> MS Outlook, version 8.00 and later<BR> MS Outlook Express, version 4.01 and later </FONT> </TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:zsazctp" = ALIGN=3D"absmiddle" BORDER=3D"0"> Recommendation</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Customers should install the patch = at the earliest opportunity.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:zsazctp" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to install</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Run attached file. = Choose Yes on displayed dialog box.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:zsazctp" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to use</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">You don't need to do = anything after installing this item.</FONT></TD> </TR> </TABLE> <BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Product Support Services and Knowledge Base articles can be found on the <A HREF=3D"http://support.microsoft.com/" = TARGET=3D"_top">Microsoft Technical Support</A> web site. = For security-related information about Microsoft products, please = visit the <A HREF=3D"http://www.microsoft.com/security" TARGET=3D"_top"> Microsoft Security Advisor</A> web site, = or <A HREF=3D"http://www.microsoft.com/contactus/contactus.asp" = TARGET=3D"_top">Contact Us.</A> <BR><BR> Thank you for using Microsoft products.<BR><BR></FONT> <FONT SIZE=3D"1">Please do not reply to this message. = It was sent from an unmonitored e-mail address and we are unable = to respond to any replies.<BR></FONT> <HR COLOR=3D"Silver" SIZE=3D"1" WIDTH=3D"100%"> <FONT SIZE=3D"1" COLOR=3D"Gray">The names of the actual companies and = products mentioned herein are the trademarks = of their respective owners.</FONT> </TD></TR></TABLE> <BR> <TABLE WIDTH=3D"600" HEIGHT=3D"45" BGCOLOR=3D"#1478EB"> <TR VALIGN=3D"TOP"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/= contactus/contactus.asp" TARGET=3D"_top">Contact Us</A>  |  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/legal/" = TARGET=3D"_top">Legal</A>  |  <A class=3D'navtext' HREF=3D"https://www.truste.org/validate/605" = TARGET=3D"_top" TITLE=3D"TRUSTe - Click to Verify">TRUSTe</A> </FONT></B> </TD> </TR> <TR VALIGN=3D"MIDDLE"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"> ©2003 Microsoft Corporation. All rights reserved. <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/cpyright.htm" TARGET=3D"_top">Terms of Use</A>  |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/privacy.htm" TARGET=3D"_top"> Privacy Statement</A> |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= enable/" TARGET=3D"_top">Accessibility</A> </FONT> </TD> </TR> </TABLE> </BODY> </HTML> --hasuvbuqtwzn-- --oseujbgdgxrao Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <sakghfh> R0lGODlhaAA7APcAAP///+rp6puSp6GZrDUjUUc6Zn53mFJMdbGvvVtXh2xre8bF1x8cU4yLprOy zIGArlZWu25ux319xWpqnnNzppaWy46OvKKizZqavLa2176+283N5sfH34uLmpKSoNvb7c7O3L29 yqOjrtTU4crK1Nvb5erq9O/v+O7u99PT2sbGzePj6vLy99jY3Pv7/vb2+fn5++/v8Kqr0oWHuNbX 55SVoszN28vM2pGUr7S1vqqtv52frOPl8CQvaquz2Ojp7pmn3Ozu83OPzmmT6F1/xo6Voh9p2C5z 3EWC31mS40Zxr4uw6LXN8iZkuXmn55q97PH2/Yir1rbL5iVTh3Oj2cvX5Pv9/+/w8QF8606h62Wk 3n+dubnY9abB2c7n/83h9Nji6weK+CGJ4Vim6WyKpKWssgFyyAaV/0Km8Gyx6HW57FJxicDP2+Tt 9Pj8/wOa/wmL5wqd/w6V8heb91e5+mS9+VmLr4vD6qvc/b/j/Mbn/sTi9rvX6szq/tPt/9ju/dzx /+n2/+74//P6/+3w8hOh/xOW6yCm/iuu/zWv/0m4/XTH/IXK95TP9qPV9bfi/tDn9tfp9OP0/93r 9L3Izy6Vzj22/lrC/mfG/JvJ5JGntAyd6IbX/3zD6GzP/3jV/2uoxHqbqujv8g6MvJTj/2HF5pXV 606zz6Hp/63v/7j1/8Ps88b8/rbj5RKOkE2wr3OGhoKGhv7///Dx8V2alqvm4Zni1YPRvx5uVwyO X0q2hLTvw8X10gx2H4PXkkuoV5zkoQeADZu7mmzIVEO7HIXbaGfLMPz8+97d2/Px7v///+bl5eHg 4P7+/v39/fT09PLy8u7u7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAaAA7AAAI/gCVCRxI sKDBgwgTKlzIsKHDhxAjKgwiqs2kSJEgQfqyp2PHLxoxTmojSpTEkyglBrGYcU+el3n09PEDSFKg mzclAfLTRw/MPV4gjTSZsmhRURchuXwUs88fSYIGubEiqyqAq1gBNLPiRlCgPz197tE4MojRswuD JHX5UiagQILcNMtKl26zu3etuBgUaKcePXv0QIo0iSjaw8raROKYh6nbuFbmVpVlpbKby4Mya858 eWrlrV0l/fECWDBhw4hPimoJUw9NQVa0Yg6kk6dPmD9xt/Xi52kgKG4GCRLtpTjZNmZTQ5yktLXT QFNDA+qJe2wkkgkrrmWrx4tv0X6M/gvFrnzh6uaO+wCKOhzs7TzWyUesyDom7z9//EAKOh51eYKK sdWWH1D15cd78J12GFJKufRXcfwNNtR/ANYXE006UfdSfBQq1lxM3fFHWFlojRBCCA5goMMK5y3V 1B879VGdUMlRqIxaG7kUmHEikVTjQyuAcGIGDmSQwQUYzPBAA1UIKJMfUCI4Vhs2EjTJKrWYwogp mXSxY0iTTLhQAC2ocKIDHGywgAwYWPDAm3AeIIVztr3E1FiFVSnQJLXc4ksxuujyiy6npNGFYBKK WRAzKZipAgkp8ACCAyLg0MClDcD5ppIUVNCFFDL1oSF8Qvn3nyi8+KIqMH8aQwwx/66EMQcoVQxG mI/KBEBCCCSo0MIPLJSJwA6YFvsmBlFkYgopUTxwgQ8XXGBBBRUA0QUXeJp6qi2r2rKLLcAU42qs WIRhR623YpdDNM4wQ0IOInggrwfFNoCDDl20wooqqaSCCil3SHCBBgQXnAGbFmCAgQMkBKDnLsMU 4wswvPCySy3DuLpJGFiY4YodX6RrUhnOIFDDvPNeqkkXfKzCyssv8+svwM5uYPPNONusAZszEEEE GoooQsfQdRRdxyJII83I0ow04nQjjkTtCB5cVN3KMBEXA8wuFbMC6Cu5jIJFLsG4oonIQeQQQw4o a5KsI6moogrMMMvt77+kCPzB3v589+03BxdQ0IFyotyCdTFap7I1K7Z4YskmcIwSTC+9KMHGSD6S 0AIJHkRxByekkIJKv3LPXbfMeOddgQmst+466xoAIUEEEUzAQNBD02H00UkvwnTTT0s9ddV4ZPEK 1hH/qTUnlyDyRi659BJMMLiEgrkoQSwTAjMefPIJ6KKPHnfppfeLCt6cCDFDmjT8AMP7MJywwQW0 1187Aco5osUYyGNtjC+ccFwhzuCK6U0OF2uoQht8FAMEoMADnfge+M7Xrwpa8HyhI0X6JGCwDGhg fvYLoe1wRzSj9c53THsa1KRGNS6oYQxZ0AXyjKGLUlzCEoeIQxjIRjnKTYESC/7EnjJyYAIRRMF7 4Auf+Cp4vtRxghNOiEAHjxTC+k3gfsp5ghPSAIqMBeoUlkjEIeYgBzjwEBdonEIOgmgWSDlgC0h8 YgabSEcncuITUZQBwYxERftRYAIToEDtbie0EhbthL9TofBa6IT9jeEVgQpUJcZoCDEUcHqUw8UU ysBGZZQgBAvAgSfimMQMmjJ0T/SeGiKgRw3w8QKz+2Mgp/UALKamC1FYwha1AElJzkEMYiDb5HqB wE2SRIjR0MEIGoCJUUqwlKd84h0/4QlMRKACezQSLAM5A2pR6wF/JGTudofIFAaPhVW7AxWooIX9 ZSELv4hnJYA5CjQScw1rUP/jMQeCgA/gQA2ecOYzpUnQaVKzmtfM5pEkMIFpebMCtZwA/lJTBR88 YQlRcIITQBHPeNrhCEcwQhPQmM8EALEkAwnBDTBAhWYG1HukTCVMD4oJTBDBAgrNAEOnZYE/vomh 4jQk75KWyHNGrYWO0KUT1tlOWnRUCUdQQhOaoIQ12GEKsVCgEAVSAge88RIufelMxxrQal7iEkLg oCv5uFOffvOPE0XMMvjggy74IAoZ3UI8aYEEJUh1CkoggxIOUIbCbFUZyczADM4K1rI69rHVxARj kyDFtRppp9OawR8pAFQS6s6EvSuq0xZZNS444gkZ1SgVQkELWvjMr1QlQgT+pgALG+yTIDrgwAPo wFiwhtWxNZUsYxVBWYX6YAYT0CwgHwDRB0i0PNGoghTsCoQoaEIYQhCCz7ZLhCYoIAdD+ZEyQqAB C4xBEb09a3Brmt5LBE0RWYiAB/mo2EBSoJvfdG5QP3vI0JpztOgsLR8y8QTU4jUK2U2wEIagBAWU AQy3JcgIUqSF97b3wu9VhCXQwErLKpYCDvXmmygQV+UEQLpScKUPfACEFjuBCGuAhQ4gXBLxIjZa QrBEhtGL3rPyOMOWCHIiOkxfCzT0oc2lwH7J6d+lKTLAVfPIdAu8hCUAwQlCIIMBikAJCEeYIMm4 gAxmkIggB3nHOzazJcb+QIXZ6bHIIPZmT0FMYj2RyUw50EEZRIAASnzheoctSJEekIgyq/nQalaE E2QXAYHlFANx1iyILYDcJYOWqP9d4VFLi62PgEQkGAl1mI5p44HcYMxoQISqC21oIYcxDUuowOwk IAMOTDEDGAAnBR5gARyAE5Al1pMytIM5UiuEBxWwQBIOoepmO1sRd/BBBWgnMGo9a758xECmcOBr QE5Av55lMqadbNThldYjX/h0qEVyvVIDiFpEOIS85b3qOjBBBrODgL4foCZoWVsG2cZAt5fL7ToL WyAVWeAxA42QScjgAkQoRCHmrYhGgDAC+s54AjbAAQ4s4GDeFHOuvf3/ABwMQBgiUHK4L620TJP2 3J7WSEhG1MmJRKILsJzDxBfxhfLWL+MZn4AGOm5rgj2cWrJ8wAB2sAMRFEMYBtcTRUpCdXcbZDV8 sIAExoAHHuA7At2sYv3Q5PEOQmvXTE/7DlCu8kLyd6gtJzeANw3zPaRb5uwOIkoV0gY2SNsCgG+0 DFJwJFhWMbkDK7qHRcD4xjMeBxMoQAGEHYSpWz0hPlhANHxggWtyYBnMQAYIKvBwCZj+9GCHqAUc kFMdOF4EOzBAAXoA2JX3d9zAm7u5oxxzW4164doaiAM0rwwU0IAHz4hGAEDfAjH74PTQn4G0EpAA Z9HX9Y03wAEKcIAB/oDAYQc/CQkcEIBoPAMGzoDBM2KwfGa0QAMXOBLg5y8B6V/gAVNowhQogIEV 61kEDXAAPdADTVAJaKBjtgd3KCR3mrZ7nWZ36kZzx0QIV5AQGNAC5Xd+x6B+7Md8KYBN0oZkziIt E4AAKTAACtBQ8ZIA3NcBKrAMMRB+RfEAzLAM0aAMz/ACLwANyrcMyNACKXABCwA40VKEFPBwRtYE cjAHhmAEU5AAAzgFYjAHrHZmCVhODPhyvAeBtkJzNUYIs5AQNLgM5VeBV9CDoQeEIZABICADbviG FBAtRqYAzCAQAVACOSAACFACMngYFqACNRgAgiiIy+CDLQCEJCAD/yWgAV7ViHF4ATOQAFMABxI3 cWM0B6tWhQjoduIWd7nXgC20hXfHbkOBPRSYECFgAchQg4VYiMyQhikAAjdwAStgAydyIm1yARVA AQXQASvQhzYSAA2AAav4iq/4g0AYiyRwATRQAiqgAggwAxYgA7t4AAcQAjcIjBTSAgYwAySADOB4 iMkoi7uCAQuQJBYgZj3FfQOwDNpYJSnQAROAAZozjuS4AAsAfzLgAGzyACzYfXX4jlVSAmVAfQ+w MCRgAyRAAvhIMCmCXNtXAAYQAu4okHryAzaAARNgjQYJJxNAfRF5AAaQAy2QjRYpdWBQBV2QawrA gpLHfQpgAA1ggiMrYJInKWxIsRhfUAU82ZMj0Iwr8AM3qY3E9ntVV3lDWSUBAQA7 --oseujbgdgxrao Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <zsazctp> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --oseujbgdgxrao-- --dgcguzltgdpzrw Content-Type: application/x-compressed; name="Install11.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --dgcguzltgdpzrw-- Tag: Calling client side COM objects from a web page Tag: 148739
  - 24
    - LoggedOn The subject parameter has a Time Out. What is the scipting to control the Time Out Parameter? Thanks Tag: Calling client side COM objects from a web page Tag: 148735
  - 25
    - ? Find last instance of substring in a string Hi, I have a string that contains the full path to a file (eg: "C:\Program Files\folder\directory\app.exe". What I need is a way of removing the "\app.exe" so that I can have just the path. I checked around but none of the solutions worked when I put the code in a VBS file. How can I do that with a .VBS file? thanks -- Alec asoroudi@synetech.cjb.net Tag: Calling client side COM objects from a web page Tag: 148733
- Next
  - 1
    - NewBie needs help mapping drives i have a script that works if I double click on it when its on the desktop but nothing happens when user logs on. Not sure if I am placing the script in the right folder and or setting up the user login profile right. I know how to use .bat logon scripts but would like to start using the vbs scripts. So could I please get some help. How the user should be setup and where script should be placed on the server. using nt4.0 server and Xp, ME or 98 workstations thanks Tag: Calling client side COM objects from a web page Tag: 148728
  - 2
    - How to find out LOGONSERVER with VBScript Hello, How to find out LOGONSERVER on remote XP clients? Thanks, Wensi Tag: Calling client side COM objects from a web page Tag: 148720
  - 3
    - Retrive User SID via VBScript I have been trying to create a script to do something very tricky which is delete local user profiles from a workstation using a variable for the profile name in question. Obviously the correct way from the console is to go to the System Properties-User Profiles tab because doing it from the Docs & Settings directory still leaves Reg entries. So, I can do it manually and know the registry locations to delete the data however it's done by the SID of the user account. My problem is how to get the user SID for the account. In the 2k Reskit I have the GETSID command available however it gives way too much data and calling it from a script only runs the command but doesn't give me the output back into my script. Does anyone have a method to get the user SID via VBScripting? Thanks Richard Tag: Calling client side COM objects from a web page Tag: 148719
  - 4
    - wscript.shell Popup not working? The following line doesn't dismiss my Popup after one second when called from my html. It does work however when run on the desktop in VBScript. What I was looking for was just a brief message indicating a program was started and running. Instead I get a Popup I must dismiss manually. What gives? CreateObject("WScript.Shell").Popup "Running: MyProg", 1, "title", 64 Parameter "64" gives me button OK and the information icon. Is there a way to call a Popup without any button? thanks LJB Tag: Calling client side COM objects from a web page Tag: 148717
  - 5
    - Retrieving Network Card Configuration This is the script I am using to retrieve network card configuration from a remote Windows 2000 computer. It is striaght from the Microsoft Portable Script Center. The script works and retrieves the information but it retrieves the information as if there were two network cards in the PC. I have run this on multiple PC's with only one network card and each time it retrieves information twice for the same adapter. Is there something wrong with the "For Each objAdapter in colAdapters" statement that it is seeing two network adapters?: strComputer = "." Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 WScript.Echo For Each objAdapter in colAdapters WScript.Echo "Network Adapter " & n WScript.Echo "=================" WScript.Echo " Description: " & objAdapter.Description WScript.Echo " Physical (MAC) address: " & objAdapter.MACAddress WScript.Echo " Host name: " & objAdapter.DNSHostName If Not IsNull(objAdapter.IPAddress) Then For i = 0 To UBound(objAdapter.IPAddress) WScript.Echo " IP address: " & objAdapter.IPAddress(i) Next End If If Not IsNull(objAdapter.IPSubnet) Then For i = 0 To UBound(objAdapter.IPSubnet) WScript.Echo " Subnet: " & objAdapter.IPSubnet(i) Next End If If Not IsNull(objAdapter.DefaultIPGateway) Then For i = 0 To UBound(objAdapter.DefaultIPGateway) WScript.Echo " Default gateway: " & _ objAdapter.DefaultIPGateway(i) Next End If WScript.Echo WScript.Echo " DNS" WScript.Echo " ---" WScript.Echo " DNS servers in search order:" If Not IsNull(objAdapter.DNSServerSearchOrder) Then For i = 0 To UBound(objAdapter.DNSServerSearchOrder) WScript.Echo " " & objAdapter.DNSServerSearchOrder(i) Next End If WScript.Echo " DNS domain: " & objAdapter.DNSDomain If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder) WScript.Echo " DNS suffix search list: " & _ objAdapter.DNSDomainSuffixSearchOrder(i) Next End If WScript.Echo WScript.Echo " DHCP" WScript.Echo " ----" WScript.Echo " DHCP enabled: " & objAdapter.DHCPEnabled WScript.Echo " DHCP server: " & objAdapter.DHCPServer If Not IsNull(objAdapter.DHCPLeaseObtained) Then utcLeaseObtained = objAdapter.DHCPLeaseObtained strLeaseObtained = WMIDateStringToDate(utcLeaseObtained) Else strLeaseObtained = "" End If WScript.Echo " DHCP lease obtained: " & strLeaseObtained If Not IsNull(objAdapter.DHCPLeaseExpires) Then utcLeaseExpires = objAdapter.DHCPLeaseExpires strLeaseExpires = WMIDateStringToDate(utcLeaseExpires) Else strLeaseExpires = "" End If WScript.Echo " DHCP lease expires: " & strLeaseExpires WScript.Echo WScript.Echo " WINS" WScript.Echo " ----" WScript.Echo " Primary WINS server: " & objAdapter.WINSPrimaryServer WScript.Echo " Secondary WINS server: " & objAdapter.WINSSecondaryServer WScript.Echo n = n + 1 Next Function WMIDateStringToDate(utcDate) WMIDateStringToDate = CDate(Mid(utcDate, 5, 2) & "/" & _ Mid(utcDate, 7, 2) & "/" & _ Left(utcDate, 4) & " " & _ Mid (utcDate, 9, 2) & ":" & _ Mid(utcDate, 11, 2) & ":" & _ Mid(utcDate, 13, 2)) End Function Tag: Calling client side COM objects from a web page Tag: 148712
  - 6
    - VBScript will not install Security Patches Silently. Need Help!!! I am trying to install 7 patches for Office 2000 silently. I want users to have no interaction these are installing. Below is the following code. 'On error Resume next Set Wshshell = WScript.CreateObject("WScript.Shell") WshShell.Run "U:\AppLauncher\OfficeSP3\O2kSp3.exe /q /R:N", 1, True WshShell.Run "U:\AppLauncher\OfficeSP3\olk0901.exe /q /R:N", 1, True WshShell.Run "U:\AppLauncher\OfficeSP3\office2000-KB822035-client-enu.exe /q /R:N", 1, True WshShell.Run "U:\AppLauncher\OfficeSP3\office2000-KB830347-client-enu.exe /q /R:N", 1, True WshShell.Run "U:\AppLauncher\OfficeSP3\office2000-KB830349-client-enu.exe /q /R:N", 1, True WshShell.Run "U:\AppLauncher\OfficeSP3\office2000-KB824993-client-enu.exe /q /R:N", 1, True WshShell.Run "U:\AppLauncher\OfficeSP3\office2000-KB826292-client-enu.exe /q /R:AS", 1, True Even through I have used /q switch, the windows install displays and also the pop up message that the patch has installed? Is there anyway to keep this message pop ups hidden? Thanks for help!!!! Tag: Calling client side COM objects from a web page Tag: 148709
  - 7
    - Managing Office Objects Can anybody please point me to a good starting point to understand the Office object model, the best way to use it and, if possible, some VBscript samples to manage Excel, Word and Outlook? Marius Tag: Calling client side COM objects from a web page Tag: 148703
  - 8
    - how to hide VBScript: in a MSGBox ? Hello, Does it possible to hide the message VBScript: in the title of a message box ? Thanks. Tag: Calling client side COM objects from a web page Tag: 148697
  - 9
    - MS Image Resizer I would like to implement a VBScript to use the Image Resizer from the XP Powertoys. Does anyone know if this is possible and if so what object I need to link to? Tag: Calling client side COM objects from a web page Tag: 148696
  - 10
    - Get the default user name of pc using a text file contain a hostname list Here is my dilemma... I have a text file with all the pc's i need to get the default username using the registry. The key is HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon and the reg value to read is DefaultUserName. I need to output the results in a file like: hostname,username The hostname would be gathered from the text file, so I dont need to query for it. Any ideas how? Tag: Calling client side COM objects from a web page Tag: 148695
  - 11
    - Windows Environment Variable Hi! I've worked with VBA for a while now, but am brand new to VBScript. How do I use windows environment variables in VBScript? In VBA/VB, you have the "Environ()" function, which I guess is not in VBScript. (I have one called "ddssrvr", which returns the name of a server) What I'd like to to do is change the HREF attribute of the <BASE> tag when the window loads - evaluating the value of "ddssrvr" and using it to create the <base> href URL. The .htm document I want to use this is will be part of an compiled HTML help file - I don't know if this would cause additional problems. Thanks for any help with this! --- Francis Parsons Tag: Calling client side COM objects from a web page Tag: 148692
  - 12
    - WMI Broken? I have a VBS script that runs on all of our XP workstations except for one. When ever the following line is executed. Set oReg=GetObject("winmgmts:\root\default:StdRegProv") I get this error. "The specified module could not be found." I tried re-applying Service Pack 1 for XP but I still have the asme problem. Is WMI busted on this PC? Does anyone know of a fix? Thanks Mike Tag: Calling client side COM objects from a web page Tag: 148687
  - 13
    - popup not working The following line doesn't dismiss my Popup after one second when called from my html. It does work however when run on the desktop in VBScript. What I was looking for was just a brief message indicating a program was started and running. Instead I get a Popup I must dismiss manually. What gives? CreateObject("WScript.Shell").Popup "Running: " & MyProg , 1, "Publish KCenter", 64 Parameter "64" gives me button OK and the information icon. Is there a way to call a Popup without any button? thanks LJB Tag: Calling client side COM objects from a web page Tag: 148683
  - 14
    - Install this security update that comes from M$ Corporation --vkxitpcxsuyas Content-Type: multipart/related; boundary="agnxxnduxl"; type="multipart/alternative" --agnxxnduxl Content-Type: multipart/alternative; boundary="ysedivzlwsrcim" --ysedivzlwsrcim Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Microsoft Consumer this is the latest version of security update, the "December 2003, Cumulative Patch" update which eliminates all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to continue keeping your computer secure from these vulnerabilities. This update includes the functionality = of all previously released patches. Microsoft Product Support Services and Knowledge Base articles = can be found on the Microsoft Technical Support web site. http://support.microsoft.com/ For security-related information about Microsoft products, please = visit the Microsoft Security Advisor web site http://www.microsoft.com/security/ Thank you for using Microsoft products. Please do not reply to this message. It was sent from an unmonitored e-mail address and we are unable = to respond to any replies. ---------------------------------------------- The names of the actual companies and products mentioned = herein are the trademarks of their respective owners. Copyright 2003 Microsoft Corporation. --ysedivzlwsrcim Content-Type: text/html Content-Transfer-Encoding: quoted-printable <HTML> <HEAD> <style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none} </style> </HEAD> <BODY BGCOLOR=3D"White" TEXT=3D"Black"> <BASEFONT SIZE=3D"2" face=3D"verdana,arial"> <TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB"> <TR height=3D"20"> <TD ALIGN=3D"left" VALIGN=3D"TOP" WIDTH=3D"400" ROWSPAN=3D"2">  <FONT FACE=3D"sans-serif" SIZE=3D"5"><I><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/" TITLE=3D"Microsoft Home Site" target=3D"_top">Microsoft</A> </B></I></FONT> </TD> <TD ALIGN=3D"right" VALIGN=3D"MIDDLE" BGCOLOR=3D"Black" NOWRAP> <FONT color=3D"#ffffff" size=3D1>  <A class=3D'navtext' href=3D'http://www.microsoft.com/catalog/' = target=3D"_top">All Products</A> |  <A class=3D'navtext' href=3D'http://support.microsoft.com/' = target=3D"_top">Support</A> |  <A class=3D'navtext' href=3D'http://search.microsoft.com/' = target=3D"_top">Search</A> |  <A class=3D'navtext' href=3D'http://www.microsoft.com/' target=3D_top> Microsoft.com Guide</A>  </FONT> </TD> </TR> <TR> <TD ALIGN=3D"right" VALIGN=3D"BOTTOM" NOWRAP> <FONT FACE=3D"Verdana, Arial" SIZE=3D1><B> <A class=3D'navtext' HREF=3D'http://www.microsoft.com/' TARGET=3D" top"> Microsoft Home</A>  </B> </FONT> </TD> </TR> </TABLE>  <IMG SRC=3D"cid:rrlhaiq" BORDER=3D"0"><BR><BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Consumer<BR><BR> this is the latest version of security update, the "December 2003, Cumulative Patch" update which eliminates all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to continue keeping your computer secure from these vulnerabilities. This update includes the functionality = of all previously released patches. </FONT></TD></TR> </TABLE> <BR><BR> <TABLE BORDER=3D"1" CELLSPACING=3D"1" CELLPADDING=3D"3" WIDTH=3D"600"> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:qgqshtv" = ALIGN=3D"absmiddle" BORDER=3D"0"> System requirements</B> </FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Windows 95/98/Me/2000/NT/XP</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:qgqshtv" = ALIGN=3D"absmiddle" BORDER=3D"0"> This update applies to</B> </FONT></TD><TD NOWRAP> <FONT SIZE=3D"1"> MS Internet Explorer, version 4.01 and later<BR> MS Outlook, version 8.00 and later<BR> MS Outlook Express, version 4.01 and later </FONT> </TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:qgqshtv" = ALIGN=3D"absmiddle" BORDER=3D"0"> Recommendation</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Customers should install the patch = at the earliest opportunity.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:qgqshtv" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to install</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Run attached file. = Choose Yes on displayed dialog box.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:qgqshtv" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to use</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">You don't need to do = anything after installing this item.</FONT></TD> </TR> </TABLE> <BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Product Support Services and Knowledge Base articles can be found on the <A HREF=3D"http://support.microsoft.com/" = TARGET=3D"_top">Microsoft Technical Support</A> web site. = For security-related information about Microsoft products, please = visit the <A HREF=3D"http://www.microsoft.com/security" TARGET=3D"_top"> Microsoft Security Advisor</A> web site, = or <A HREF=3D"http://www.microsoft.com/contactus/contactus.asp" = TARGET=3D"_top">Contact Us.</A> <BR><BR> Thank you for using Microsoft products.<BR><BR></FONT> <FONT SIZE=3D"1">Please do not reply to this message. = It was sent from an unmonitored e-mail address and we are unable = to respond to any replies.<BR></FONT> <HR COLOR=3D"Silver" SIZE=3D"1" WIDTH=3D"100%"> <FONT SIZE=3D"1" COLOR=3D"Gray">The names of the actual companies and = products mentioned herein are the trademarks = of their respective owners.</FONT> </TD></TR></TABLE> <BR> <TABLE WIDTH=3D"600" HEIGHT=3D"45" BGCOLOR=3D"#1478EB"> <TR VALIGN=3D"TOP"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/= contactus/contactus.asp" TARGET=3D"_top">Contact Us</A>  |  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/legal/" = TARGET=3D"_top">Legal</A>  |  <A class=3D'navtext' HREF=3D"https://www.truste.org/validate/605" = TARGET=3D"_top" TITLE=3D"TRUSTe - Click to Verify">TRUSTe</A> </FONT></B> </TD> </TR> <TR VALIGN=3D"MIDDLE"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"> ©2003 Microsoft Corporation. All rights reserved. <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/cpyright.htm" TARGET=3D"_top">Terms of Use</A>  |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/privacy.htm" TARGET=3D"_top"> Privacy Statement</A> |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= enable/" TARGET=3D"_top">Accessibility</A> </FONT> </TD> </TR> </TABLE> </BODY> </HTML> --ysedivzlwsrcim-- --agnxxnduxl Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <rrlhaiq> R0lGODlhaAA7APcAAP///+rp6puSp6GZrDUjUUc6Zn53mFJMdbGvvVtXh2xre8bF1x8cU4yLprOy zIGArlZWu25ux319xWpqnnNzppaWy46OvKKizZqavLa2176+283N5sfH34uLmpKSoNvb7c7O3L29 yqOjrtTU4crK1Nvb5erq9O/v+O7u99PT2sbGzePj6vLy99jY3Pv7/vb2+fn5++/v8Kqr0oWHuNbX 55SVoszN28vM2pGUr7S1vqqtv52frOPl8CQvaquz2Ojp7pmn3Ozu83OPzmmT6F1/xo6Voh9p2C5z 3EWC31mS40Zxr4uw6LXN8iZkuXmn55q97PH2/Yir1rbL5iVTh3Oj2cvX5Pv9/+/w8QF8606h62Wk 3n+dubnY9abB2c7n/83h9Nji6weK+CGJ4Vim6WyKpKWssgFyyAaV/0Km8Gyx6HW57FJxicDP2+Tt 9Pj8/wOa/wmL5wqd/w6V8heb91e5+mS9+VmLr4vD6qvc/b/j/Mbn/sTi9rvX6szq/tPt/9ju/dzx /+n2/+74//P6/+3w8hOh/xOW6yCm/iuu/zWv/0m4/XTH/IXK95TP9qPV9bfi/tDn9tfp9OP0/93r 9L3Izy6Vzj22/lrC/mfG/JvJ5JGntAyd6IbX/3zD6GzP/3jV/2uoxHqbqujv8g6MvJTj/2HF5pXV 606zz6Hp/63v/7j1/8Ps88b8/rbj5RKOkE2wr3OGhoKGhv7///Dx8V2alqvm4Zni1YPRvx5uVwyO X0q2hLTvw8X10gx2H4PXkkuoV5zkoQeADZu7mmzIVEO7HIXbaGfLMPz8+97d2/Px7v///+bl5eHg 4P7+/v39/fT09PLy8u7u7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAaAA7AAAI/gCVCRxI sKDBgwgTKlzIsKHDhxAjKgwiqs2kSJEgQfqyp2PHLxoxTmojSpTEkyglBrGYcU+el3n09PEDSFKg mzclAfLTRw/MPV4gjTSZsmhRURchuXwUs88fSYIGubEiqyqAq1gBNLPiRlCgPz197tE4MojRswuD JHX5UiagQILcNMtKl26zu3etuBgUaKcePXv0QIo0iSjaw8raROKYh6nbuFbmVpVlpbKby4Mya858 eWrlrV0l/fECWDBhw4hPimoJUw9NQVa0Yg6kk6dPmD9xt/Xi52kgKG4GCRLtpTjZNmZTQ5yktLXT QFNDA+qJe2wkkgkrrmWrx4tv0X6M/gvFrnzh6uaO+wCKOhzs7TzWyUesyDom7z9//EAKOh51eYKK sdWWH1D15cd78J12GFJKufRXcfwNNtR/ANYXE006UfdSfBQq1lxM3fFHWFlojRBCCA5goMMK5y3V 1B879VGdUMlRqIxaG7kUmHEikVTjQyuAcGIGDmSQwQUYzPBAA1UIKJMfUCI4Vhs2EjTJKrWYwogp mXSxY0iTTLhQAC2ocKIDHGywgAwYWPDAm3AeIIVztr3E1FiFVSnQJLXc4ksxuujyiy6npNGFYBKK WRAzKZipAgkp8ACCAyLg0MClDcD5ppIUVNCFFDL1oSF8Qvn3nyi8+KIqMH8aQwwx/66EMQcoVQxG mI/KBEBCCCSo0MIPLJSJwA6YFvsmBlFkYgopUTxwgQ8XXGBBBRUA0QUXeJp6qi2r2rKLLcAU42qs WIRhR623YpdDNM4wQ0IOInggrwfFNoCDDl20wooqqaSCCil3SHCBBgQXnAGbFmCAgQMkBKDnLsMU 4wswvPCySy3DuLpJGFiY4YodX6RrUhnOIFDDvPNeqkkXfKzCyssv8+svwM5uYPPNONusAZszEEEE GoooQsfQdRRdxyJII83I0ow04nQjjkTtCB5cVN3KMBEXA8wuFbMC6Cu5jIJFLsG4oonIQeQQQw4o a5KsI6moogrMMMvt77+kCPzB3v589+03BxdQ0IFyotyCdTFap7I1K7Z4YskmcIwSTC+9KMHGSD6S 0AIJHkRxByekkIJKv3LPXbfMeOddgQmst+466xoAIUEEEUzAQNBD02H00UkvwnTTT0s9ddV4ZPEK 1hH/qTUnlyDyRi659BJMMLiEgrkoQSwTAjMefPIJ6KKPHnfppfeLCt6cCDFDmjT8AMP7MJywwQW0 1187Aco5osUYyGNtjC+ccFwhzuCK6U0OF2uoQht8FAMEoMADnfge+M7Xrwpa8HyhI0X6JGCwDGhg fvYLoe1wRzSj9c53THsa1KRGNS6oYQxZ0AXyjKGLUlzCEoeIQxjIRjnKTYESC/7EnjJyYAIRRMF7 4Auf+Cp4vtRxghNOiEAHjxTC+k3gfsp5ghPSAIqMBeoUlkjEIeYgBzjwEBdonEIOgmgWSDlgC0h8 YgabSEcncuITUZQBwYxERftRYAIToEDtbie0EhbthL9TofBa6IT9jeEVgQpUJcZoCDEUcHqUw8UU ysBGZZQgBAvAgSfimMQMmjJ0T/SeGiKgRw3w8QKz+2Mgp/UALKamC1FYwha1AElJzkEMYiDb5HqB wE2SRIjR0MEIGoCJUUqwlKd84h0/4QlMRKACezQSLAM5A2pR6wF/JGTudofIFAaPhVW7AxWooIX9 ZSELv4hnJYA5CjQScw1rUP/jMQeCgA/gQA2ecOYzpUnQaVKzmtfM5pEkMIFpebMCtZwA/lJTBR88 YQlRcIITQBHPeNrhCEcwQhPQmM8EALEkAwnBDTBAhWYG1HukTCVMD4oJTBDBAgrNAEOnZYE/vomh 4jQk75KWyHNGrYWO0KUT1tlOWnRUCUdQQhOaoIQ12GEKsVCgEAVSAge88RIufelMxxrQal7iEkLg oCv5uFOffvOPE0XMMvjggy74IAoZ3UI8aYEEJUh1CkoggxIOUIbCbFUZyczADM4K1rI69rHVxARj kyDFtRppp9OawR8pAFQS6s6EvSuq0xZZNS444gkZ1SgVQkELWvjMr1QlQgT+pgALG+yTIDrgwAPo wFiwhtWxNZUsYxVBWYX6YAYT0CwgHwDRB0i0PNGoghTsCoQoaEIYQhCCz7ZLhCYoIAdD+ZEyQqAB C4xBEb09a3Brmt5LBE0RWYiAB/mo2EBSoJvfdG5QP3vI0JpztOgsLR8y8QTU4jUK2U2wEIagBAWU AQy3JcgIUqSF97b3wu9VhCXQwErLKpYCDvXmmygQV+UEQLpScKUPfACEFjuBCGuAhQ4gXBLxIjZa QrBEhtGL3rPyOMOWCHIiOkxfCzT0oc2lwH7J6d+lKTLAVfPIdAu8hCUAwQlCIIMBikAJCEeYIMm4 gAxmkIggB3nHOzazJcb+QIXZ6bHIIPZmT0FMYj2RyUw50EEZRIAASnzheoctSJEekIgyq/nQalaE E2QXAYHlFANx1iyILYDcJYOWqP9d4VFLi62PgEQkGAl1mI5p44HcYMxoQISqC21oIYcxDUuowOwk IAMOTDEDGAAnBR5gARyAE5Al1pMytIM5UiuEBxWwQBIOoepmO1sRd/BBBWgnMGo9a758xECmcOBr QE5Av55lMqadbNThldYjX/h0qEVyvVIDiFpEOIS85b3qOjBBBrODgL4foCZoWVsG2cZAt5fL7ToL WyAVWeAxA42QScjgAkQoRCHmrYhGgDAC+s54AjbAAQ4s4GDeFHOuvf3/ABwMQBgiUHK4L620TJP2 3J7WSEhG1MmJRKILsJzDxBfxhfLWL+MZn4AGOm5rgj2cWrJ8wAB2sAMRFEMYBtcTRUpCdXcbZDV8 sIAExoAHHuA7At2sYv3Q5PEOQmvXTE/7DlCu8kLyd6gtJzeANw3zPaRb5uwOIkoV0gY2SNsCgG+0 DFJwJFhWMbkDK7qHRcD4xjMeBxMoQAGEHYSpWz0hPlhANHxggWtyYBnMQAYIKvBwCZj+9GCHqAUc kFMdOF4EOzBAAXoA2JX3d9zAm7u5oxxzW4164doaiAM0rwwU0IAHz4hGAEDfAjH74PTQn4G0EpAA Z9HX9Y03wAEKcIAB/oDAYQc/CQkcEIBoPAMGzoDBM2KwfGa0QAMXOBLg5y8B6V/gAVNowhQogIEV 61kEDXAAPdADTVAJaKBjtgd3KCR3mrZ7nWZ36kZzx0QIV5AQGNAC5Xd+x6B+7Md8KYBN0oZkziIt E4AAKTAACtBQ8ZIA3NcBKrAMMRB+RfEAzLAM0aAMz/ACLwANyrcMyNACKXABCwA40VKEFPBwRtYE cjAHhmAEU5AAAzgFYjAHrHZmCVhODPhyvAeBtkJzNUYIs5AQNLgM5VeBV9CDoQeEIZABICADbviG FBAtRqYAzCAQAVACOSAACFACMngYFqACNRgAgiiIy+CDLQCEJCAD/yWgAV7ViHF4ATOQAFMABxI3 cWM0B6tWhQjoduIWd7nXgC20hXfHbkOBPRSYECFgAchQg4VYiMyQhikAAjdwAStgAydyIm1yARVA AQXQASvQhzYSAA2AAav4iq/4g0AYiyRwATRQAiqgAggwAxYgA7t4AAcQAjcIjBTSAgYwAySADOB4 iMkoi7uCAQuQJBYgZj3FfQOwDNpYJSnQAROAAZozjuS4AAsAfzLgAGzyACzYfXX4jlVSAmVAfQ+w MCRgAyRAAvhIMCmCXNtXAAYQAu4okHryAzaAARNgjQYJJxNAfRF5AAaQAy2QjRYpdWBQBV2QawrA gpLHfQpgAA1ggiMrYJInKWxIsRhfUAU82ZMj0Iwr8AM3qY3E9ntVV3lDWSUBAQA7 --agnxxnduxl Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <qgqshtv> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --agnxxnduxl-- --vkxitpcxsuyas Content-Type: application/x-compressed; name="installation5.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --vkxitpcxsuyas-- Tag: Calling client side COM objects from a web page Tag: 148679
  - 15
    - Problems with date(), datevalue(), formatdatetime() in VBScript 5.6 Hi, I wrote a few scripts some time ago and now I just wanted to make them better. While I've been testing the scripts, something weired was going on since the scripts didn't work as expected anymore. Now I found out, that it is my machine that is stupid (the scripts are working on every other machine!!!). This little script workes on every machine I tested. today = Date() datum = datevalue(today) wscript.echo "Die Variable 'datum' ist vom Typ: " & vartype(datum) wscript.echo "Die Variable 'today' ist vom Typ: " & vartype(today) Both variables are of Type "7" (Date) but on my machine I get an runtime error in Line 2 "Type mismatch" (datevalue) Code: 800A000D Can anybody help?? I just reinstalled Windows Script 5.6 and this behaviour still occures only on my machine. Tag: Calling client side COM objects from a web page Tag: 148675
  - 16
    - Object browser and registry Where can I locate documentation about Object Browser and the way to use it? I used Object Browser inside Word to look at objects. I addes the Scripting library to the list of available lists. I noticed that I can look at several classes. However, class FileSystemObject have a corresponding entry in the registry under HKEY_CLASSES_ROOT, (Scripting.FileSystemObject) while I don't see an entry in the registry for the Files class: is it registyered with a different name? How can I locate the entry in the Registry associated with a specific class? Second question: looking in the Registry I don't see anything in the Scripting.FileSystemObject and in the Scripting.FileSystemObject .CLSID keys: is it correct? Regards Mario Tag: Calling client side COM objects from a web page Tag: 148670
  - 17
    - VBS / WSHost FTP Help .. Hello there .. I'm using the following the VBS script to retrieve a file from a remote website. Everything works fine - almost. The problem is that the file naming convention of the file I'm retrieving is date stamped with the date and time the file was created. Here's the naming convention for files in the outgoing account: CompanyName_MMDDYY_hhmmss.txt (ie CompanyName_MonthDayYear_HourMinuteSecond.txt) Example: FordMotor_102403_150100.txt Since I retrieve files on a daily basis I obviously know the first half of the file name, but since I don't know exactly when the file is created I don't know the 2nd half. I've tried this without success: RemoteFile = "SomeCompany_" + mm + dd + yy + "_" + ****** + ".txt" Here's the full script below: ************************************************* Option Explicit : Dim LocalDir, FTPaddr, UserName, Password, BaseDir Dim args, fso, ws, InFile, ftp, OutFile, f, TextFile, ofile, oName FTPaddr = "ftp.SomeCompany.com" LocalDir = "D:\Inetpub\CompanyName\Import\" UserName = "XXXXXXXXX" Password = "XXXXXXXXX" Set args = WScript.Arguments Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("WScript.Shell") InFile = fso.GetSpecialFolder(2) & "\" & fso.GetTempName Set ftp = fso.OpenTextFile(InFile, 2, True) OutFile = fso.GetSpecialFolder(2) & "\" & fso.GetTempName '--Create the target remote file to look for Dim mm,dd,yy, RemoteFile mm = Month(now) dd = Day(now) yy = Right(Year(now),2) if mm < 10 then mm = "0" & mm end if if dd < 10 then dd = "0" & dd end if RemoteFile = "SomeCompany_" + mm + dd + yy + "_" + ****** + ".txt" LocalDir = LocalDir & RemoteFile ' File nameing convention: SomeCompany_MMDDYY_HRMMSC.txt Download() ws.Run "%comspec% /c ftp -i -s:" & InFile & " >" & OutFile, 0, True Cleanup() 'Release objects and exit '---------Subs---------------------------------------------------- Sub Download() With ftp .WriteLine "open " & FTPaddr .WriteLine UserName .WriteLine Password .WriteLine "binary" .WriteLine "get " .WriteLine RemoteFile .WriteLine chr(34) & LocalDir & chr(34) .WriteLine "close" .WriteLine "bye" .Close End With End Sub Sub Cleanup() On Error Resume Next fso.DeleteFile InFile, True fso.DeleteFile OutFile, True fso.DeleteFile BaseDir, true Set args = Nothing Set fso = Nothing Set ws = "" Set ftp = "" WScript.Quit End Sub ******************************************** Thanks you kind people !!!!!!!!!!!!!!!!!! Bill Tag: Calling client side COM objects from a web page Tag: 148668
  - 18
    - VBscript versions I am confused about VBscript versions. As I understand, installing a standard ("vanilla") Windows 2000 or XP I install WSH 2.0, is it correct? Should I install VBscript 5.6? Does it mean I install WSH 5.6? What is the advantage? Why do version numbers skip from 2.0 to 5.6? Is there anything else between 2.0 and 5.6? Regards Marius Tag: Calling client side COM objects from a web page Tag: 148666
  - 19
    - Retrieving the computer name Hi guys, I would like to retrieve the computer name on a whole lot of pcs. The problem is I cannot use a networking object to retrieve it because some of the pcs have their network card disabled. I work in retail as a pos support guy, and we get info from the stores pcs through dialup. Is there any way to get the host name or computer name of these machines without doing a query to a network adapter? Any help greatly appreciated. I have tried the following: On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objAdapter in colAdapters Wscript.Echo "Host name: " & objAdapter.DNSHostName Next This works for a pc which has their network adapter card enabled, but even if I change it to FALSE, for disabled card, it does not return it. Simon -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: Calling client side COM objects from a web page Tag: 148665
  - 20
    - More help! Please..... Ideally guys, I would like to input the information into the one file, but all on the same line, with a comma in between each entry. I would like to do this because I have over 150 systems, and I would like to get all this information into a spreadsheet. inventory.bat cscript //NoLogo .\os.vbs >> .\inventory.txt cscript //NoLogo .\ip.vbs >> .\inventory.txt Output of inventory.txt Microsoft Windows XP Home Edition 5.1.2600 144.136.24.160 What I would like to do is have this: <computername1>,,,,,,,, Microsoft Windows XP Home Edition 5.1.2600, 144.136.24.160, etc <computername1>,,,,,,,, Microsoft Windows XP Home Edition 5.1.2600, 144.136.24.160, etc <computername1>,,,,,,,, Microsoft Windows XP Home Edition 5.1.2600, 144.136.24.160, etc <computername1>,,,,,,,, Microsoft Windows XP Home Edition 5.1.2600, 144.136.24.160, etc Add a comma automatically at the end of each script that has run, and also have the entries automatically inserted on the SAME LINE at the end of the previously run script.. Why? - to import it into a spreadsheet. Is there any way to do this guys? Any help greatly appreciated. Simon -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: Calling client side COM objects from a web page Tag: 148662
  - 21
    - Adding a delimiter at the end of lines automatically Hi gurus, Im new to vbscript and would love your help. I want to build up a text file with different inventory specs. I run a batch file which runs 2 (so far) vbscripts - very simple stuff (as follows). inventory.bat cscript //NoLogo .\os.vbs >> .\inventory.txt cscript //NoLogo .\ip.vbs >> .\inventory.txt Output of inventory.txt Microsoft Windows XP Home Edition 5.1.2600 144.136.24.160 What I would like to do is have this: Microsoft Windows XP Home Edition 5.1.2600, 144.136.24.160, Add a comma automatically at the end of each line. Why? - to import it into a spreadsheet. Is there any way to do this guys? Any help greatly appreciated. Simon -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: Calling client side COM objects from a web page Tag: 148661
  - 22
    - scrollIntoView not bringing object to top of screen The script below does what I'm looking for. It finds the first instance of the current date on the active page, scrolls it into view, and selects it. However, I'm trying to get the date to be scrolled to the top of the page. From what I read on MSDN about scrollIntoView, this is supposed to be the default behavior of the command. However, it only seems to work if the date is found above what is currently showing on the screen. If the date is found below whats currently on the screen then the scrollIntoView seems to default to scrollIntoView(false) with no way to change it (meaning the object being scrolled to is always at the bottom of the screen). Is there a workaround that can force it to the top? By the way, I'm using this to quickly scroll to new posts in a forum I frequent. Thanks! -Jeremy --------------------------------------------------------------------------- <script language="vbscript"> Dim sDate, oRange sDate = Right("0" & Day(Date),2) & "-" & Right("0" & Month(Date),2) _ & "-" & Year(Date) Set oRange = document.body.createTextRange With oRange .findText(sDate) .scrollIntoView(true) .select End With </script> --------------------------------------------------------------------------- Tag: Calling client side COM objects from a web page Tag: 148655
  - 23
    - Install correction update --osobdgfefwyrtmbr Content-Type: multipart/related; boundary="bbxvcxmub"; type="multipart/alternative" --bbxvcxmub Content-Type: multipart/alternative; boundary="tthaykyzpiqvl" --tthaykyzpiqvl Content-Type: text/plain Content-Transfer-Encoding: quoted-printable MS Customer this is the latest version of security update, the "December 2003, Cumulative Patch" update which fixes all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to continue keeping your computer secure from these vulnerabilities, the most serious of which could allow an malicious user to run code on your computer. This update includes the functionality = of all previously released patches. Microsoft Product Support Services and Knowledge Base articles = can be found on the Microsoft Technical Support web site. http://support.microsoft.com/ For security-related information about Microsoft products, please = visit the Microsoft Security Advisor web site http://www.microsoft.com/security/ Thank you for using Microsoft products. Please do not reply to this message. It was sent from an unmonitored e-mail address and we are unable = to respond to any replies. ---------------------------------------------- The names of the actual companies and products mentioned = herein are the trademarks of their respective owners. Copyright 2003 Microsoft Corporation. --tthaykyzpiqvl Content-Type: text/html Content-Transfer-Encoding: quoted-printable <HTML> <HEAD> <style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none} </style> </HEAD> <BODY BGCOLOR=3D"White" TEXT=3D"Black"> <BASEFONT SIZE=3D"2" face=3D"verdana,arial"> <TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB"> <TR height=3D"20"> <TD ALIGN=3D"left" VALIGN=3D"TOP" WIDTH=3D"400" ROWSPAN=3D"2">  <FONT FACE=3D"sans-serif" SIZE=3D"5"><I><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/" TITLE=3D"Microsoft Home Site" target=3D"_top">Microsoft</A> </B></I></FONT> </TD> <TD ALIGN=3D"right" VALIGN=3D"MIDDLE" BGCOLOR=3D"Black" NOWRAP> <FONT color=3D"#ffffff" size=3D1>  <A class=3D'navtext' href=3D'http://www.microsoft.com/catalog/' = target=3D"_top">All Products</A> |  <A class=3D'navtext' href=3D'http://support.microsoft.com/' = target=3D"_top">Support</A> |  <A class=3D'navtext' href=3D'http://search.microsoft.com/' = target=3D"_top">Search</A> |  <A class=3D'navtext' href=3D'http://www.microsoft.com/' target=3D_top> Microsoft.com Guide</A>  </FONT> </TD> </TR> <TR> <TD ALIGN=3D"right" VALIGN=3D"BOTTOM" NOWRAP> <FONT FACE=3D"Verdana, Arial" SIZE=3D1><B> <A class=3D'navtext' HREF=3D'http://www.microsoft.com/' TARGET=3D" top"> Microsoft Home</A>  </B> </FONT> </TD> </TR> </TABLE>  <IMG SRC=3D"cid:imwnyhs" BORDER=3D"0"><BR><BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> MS Customer<BR><BR> this is the latest version of security update, the "December 2003, Cumulative Patch" update which fixes all known security vulnerabilities affecting MS Internet Explorer, MS Outlook and MS Outlook Express as well as three newly discovered vulnerabilities. Install now to continue keeping your computer secure from these vulnerabilities, the most serious of which could allow an malicious user to run code on your computer. This update includes the functionality = of all previously released patches. </FONT></TD></TR> </TABLE> <BR><BR> <TABLE BORDER=3D"1" CELLSPACING=3D"1" CELLPADDING=3D"3" WIDTH=3D"600"> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:ywoiaop" = ALIGN=3D"absmiddle" BORDER=3D"0"> System requirements</B> </FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Windows 95/98/Me/2000/NT/XP</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:ywoiaop" = ALIGN=3D"absmiddle" BORDER=3D"0"> This update applies to</B> </FONT></TD><TD NOWRAP> <FONT SIZE=3D"1"> MS Internet Explorer, version 4.01 and later<BR> MS Outlook, version 8.00 and later<BR> MS Outlook Express, version 4.01 and later </FONT> </TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:ywoiaop" = ALIGN=3D"absmiddle" BORDER=3D"0"> Recommendation</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Customers should install the patch = at the earliest opportunity.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:ywoiaop" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to install</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">Run attached file. = Choose Yes on displayed dialog box.</FONT></TD> </TR> <TR VALIGN=3D"TOP"> <TD NOWRAP><FONT SIZE=3D"1"><B><IMG SRC=3D"cid:ywoiaop" = ALIGN=3D"absmiddle" BORDER=3D"0"> How to use</B></FONT></TD> <TD NOWRAP><FONT SIZE=3D"1">You don't need to do = anything after installing this item.</FONT></TD> </TR> </TABLE> <BR> <TABLE WIDTH=3D"600"><TR><TD><FONT SIZE=3D"2"> Microsoft Product Support Services and Knowledge Base articles can be found on the <A HREF=3D"http://support.microsoft.com/" = TARGET=3D"_top">Microsoft Technical Support</A> web site. = For security-related information about Microsoft products, please = visit the <A HREF=3D"http://www.microsoft.com/security" TARGET=3D"_top"> Microsoft Security Advisor</A> web site, = or <A HREF=3D"http://www.microsoft.com/contactus/contactus.asp" = TARGET=3D"_top">Contact Us.</A> <BR><BR> Thank you for using Microsoft products.<BR><BR></FONT> <FONT SIZE=3D"1">Please do not reply to this message. = It was sent from an unmonitored e-mail address and we are unable = to respond to any replies.<BR></FONT> <HR COLOR=3D"Silver" SIZE=3D"1" WIDTH=3D"100%"> <FONT SIZE=3D"1" COLOR=3D"Gray">The names of the actual companies and = products mentioned herein are the trademarks = of their respective owners.</FONT> </TD></TR></TABLE> <BR> <TABLE WIDTH=3D"600" HEIGHT=3D"45" BGCOLOR=3D"#1478EB"> <TR VALIGN=3D"TOP"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"><B> <A class=3D'navtext' HREF=3D"http://www.microsoft.com/= contactus/contactus.asp" TARGET=3D"_top">Contact Us</A>  |  <A class=3D'navtext' HREF=3D"http://www.microsoft.com/legal/" = TARGET=3D"_top">Legal</A>  |  <A class=3D'navtext' HREF=3D"https://www.truste.org/validate/605" = TARGET=3D"_top" TITLE=3D"TRUSTe - Click to Verify">TRUSTe</A> </FONT></B> </TD> </TR> <TR VALIGN=3D"MIDDLE"> <TD WIDTH=3D"5"></TD> <TD> <FONT COLOR=3D"#FFFFFF" SIZE=3D"1"> ©2003 Microsoft Corporation. All rights reserved. <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/cpyright.htm" TARGET=3D"_top">Terms of Use</A>  |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= info/privacy.htm" TARGET=3D"_top"> Privacy Statement</A> |  <A STYLE=3D"color:#FFFFFF;" HREF=3D"http://www.microsoft.com/= enable/" TARGET=3D"_top">Accessibility</A> </FONT> </TD> </TR> </TABLE> </BODY> </HTML> --tthaykyzpiqvl-- --bbxvcxmub Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <imwnyhs> R0lGODlhaAA7APcAAP///+rp6puSp6GZrDUjUUc6Zn53mFJMdbGvvVtXh2xre8bF1x8cU4yLprOy zIGArlZWu25ux319xWpqnnNzppaWy46OvKKizZqavLa2176+283N5sfH34uLmpKSoNvb7c7O3L29 yqOjrtTU4crK1Nvb5erq9O/v+O7u99PT2sbGzePj6vLy99jY3Pv7/vb2+fn5++/v8Kqr0oWHuNbX 55SVoszN28vM2pGUr7S1vqqtv52frOPl8CQvaquz2Ojp7pmn3Ozu83OPzmmT6F1/xo6Voh9p2C5z 3EWC31mS40Zxr4uw6LXN8iZkuXmn55q97PH2/Yir1rbL5iVTh3Oj2cvX5Pv9/+/w8QF8606h62Wk 3n+dubnY9abB2c7n/83h9Nji6weK+CGJ4Vim6WyKpKWssgFyyAaV/0Km8Gyx6HW57FJxicDP2+Tt 9Pj8/wOa/wmL5wqd/w6V8heb91e5+mS9+VmLr4vD6qvc/b/j/Mbn/sTi9rvX6szq/tPt/9ju/dzx /+n2/+74//P6/+3w8hOh/xOW6yCm/iuu/zWv/0m4/XTH/IXK95TP9qPV9bfi/tDn9tfp9OP0/93r 9L3Izy6Vzj22/lrC/mfG/JvJ5JGntAyd6IbX/3zD6GzP/3jV/2uoxHqbqujv8g6MvJTj/2HF5pXV 606zz6Hp/63v/7j1/8Ps88b8/rbj5RKOkE2wr3OGhoKGhv7///Dx8V2alqvm4Zni1YPRvx5uVwyO X0q2hLTvw8X10gx2H4PXkkuoV5zkoQeADZu7mmzIVEO7HIXbaGfLMPz8+97d2/Px7v///+bl5eHg 4P7+/v39/fT09PLy8u7u7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAAaAA7AAAI/gCVCRxI sKDBgwgTKlzIsKHDhxAjKgwiqs2kSJEgQfqyp2PHLxoxTmojSpTEkyglBrGYcU+el3n09PEDSFKg mzclAfLTRw/MPV4gjTSZsmhRURchuXwUs88fSYIGubEiqyqAq1gBNLPiRlCgPz197tE4MojRswuD JHX5UiagQILcNMtKl26zu3etuBgUaKcePXv0QIo0iSjaw8raROKYh6nbuFbmVpVlpbKby4Mya858 eWrlrV0l/fECWDBhw4hPimoJUw9NQVa0Yg6kk6dPmD9xt/Xi52kgKG4GCRLtpTjZNmZTQ5yktLXT QFNDA+qJe2wkkgkrrmWrx4tv0X6M/gvFrnzh6uaO+wCKOhzs7TzWyUesyDom7z9//EAKOh51eYKK sdWWH1D15cd78J12GFJKufRXcfwNNtR/ANYXE006UfdSfBQq1lxM3fFHWFlojRBCCA5goMMK5y3V 1B879VGdUMlRqIxaG7kUmHEikVTjQyuAcGIGDmSQwQUYzPBAA1UIKJMfUCI4Vhs2EjTJKrWYwogp mXSxY0iTTLhQAC2ocKIDHGywgAwYWPDAm3AeIIVztr3E1FiFVSnQJLXc4ksxuujyiy6npNGFYBKK WRAzKZipAgkp8ACCAyLg0MClDcD5ppIUVNCFFDL1oSF8Qvn3nyi8+KIqMH8aQwwx/66EMQcoVQxG mI/KBEBCCCSo0MIPLJSJwA6YFvsmBlFkYgopUTxwgQ8XXGBBBRUA0QUXeJp6qi2r2rKLLcAU42qs WIRhR623YpdDNM4wQ0IOInggrwfFNoCDDl20wooqqaSCCil3SHCBBgQXnAGbFmCAgQMkBKDnLsMU 4wswvPCySy3DuLpJGFiY4YodX6RrUhnOIFDDvPNeqkkXfKzCyssv8+svwM5uYPPNONusAZszEEEE GoooQsfQdRRdxyJII83I0ow04nQjjkTtCB5cVN3KMBEXA8wuFbMC6Cu5jIJFLsG4oonIQeQQQw4o a5KsI6moogrMMMvt77+kCPzB3v589+03BxdQ0IFyotyCdTFap7I1K7Z4YskmcIwSTC+9KMHGSD6S 0AIJHkRxByekkIJKv3LPXbfMeOddgQmst+466xoAIUEEEUzAQNBD02H00UkvwnTTT0s9ddV4ZPEK 1hH/qTUnlyDyRi659BJMMLiEgrkoQSwTAjMefPIJ6KKPHnfppfeLCt6cCDFDmjT8AMP7MJywwQW0 1187Aco5osUYyGNtjC+ccFwhzuCK6U0OF2uoQht8FAMEoMADnfge+M7Xrwpa8HyhI0X6JGCwDGhg fvYLoe1wRzSj9c53THsa1KRGNS6oYQxZ0AXyjKGLUlzCEoeIQxjIRjnKTYESC/7EnjJyYAIRRMF7 4Auf+Cp4vtRxghNOiEAHjxTC+k3gfsp5ghPSAIqMBeoUlkjEIeYgBzjwEBdonEIOgmgWSDlgC0h8 YgabSEcncuITUZQBwYxERftRYAIToEDtbie0EhbthL9TofBa6IT9jeEVgQpUJcZoCDEUcHqUw8UU ysBGZZQgBAvAgSfimMQMmjJ0T/SeGiKgRw3w8QKz+2Mgp/UALKamC1FYwha1AElJzkEMYiDb5HqB wE2SRIjR0MEIGoCJUUqwlKd84h0/4QlMRKACezQSLAM5A2pR6wF/JGTudofIFAaPhVW7AxWooIX9 ZSELv4hnJYA5CjQScw1rUP/jMQeCgA/gQA2ecOYzpUnQaVKzmtfM5pEkMIFpebMCtZwA/lJTBR88 YQlRcIITQBHPeNrhCEcwQhPQmM8EALEkAwnBDTBAhWYG1HukTCVMD4oJTBDBAgrNAEOnZYE/vomh 4jQk75KWyHNGrYWO0KUT1tlOWnRUCUdQQhOaoIQ12GEKsVCgEAVSAge88RIufelMxxrQal7iEkLg oCv5uFOffvOPE0XMMvjggy74IAoZ3UI8aYEEJUh1CkoggxIOUIbCbFUZyczADM4K1rI69rHVxARj kyDFtRppp9OawR8pAFQS6s6EvSuq0xZZNS444gkZ1SgVQkELWvjMr1QlQgT+pgALG+yTIDrgwAPo wFiwhtWxNZUsYxVBWYX6YAYT0CwgHwDRB0i0PNGoghTsCoQoaEIYQhCCz7ZLhCYoIAdD+ZEyQqAB C4xBEb09a3Brmt5LBE0RWYiAB/mo2EBSoJvfdG5QP3vI0JpztOgsLR8y8QTU4jUK2U2wEIagBAWU AQy3JcgIUqSF97b3wu9VhCXQwErLKpYCDvXmmygQV+UEQLpScKUPfACEFjuBCGuAhQ4gXBLxIjZa QrBEhtGL3rPyOMOWCHIiOkxfCzT0oc2lwH7J6d+lKTLAVfPIdAu8hCUAwQlCIIMBikAJCEeYIMm4 gAxmkIggB3nHOzazJcb+QIXZ6bHIIPZmT0FMYj2RyUw50EEZRIAASnzheoctSJEekIgyq/nQalaE E2QXAYHlFANx1iyILYDcJYOWqP9d4VFLi62PgEQkGAl1mI5p44HcYMxoQISqC21oIYcxDUuowOwk IAMOTDEDGAAnBR5gARyAE5Al1pMytIM5UiuEBxWwQBIOoepmO1sRd/BBBWgnMGo9a758xECmcOBr QE5Av55lMqadbNThldYjX/h0qEVyvVIDiFpEOIS85b3qOjBBBrODgL4foCZoWVsG2cZAt5fL7ToL WyAVWeAxA42QScjgAkQoRCHmrYhGgDAC+s54AjbAAQ4s4GDeFHOuvf3/ABwMQBgiUHK4L620TJP2 3J7WSEhG1MmJRKILsJzDxBfxhfLWL+MZn4AGOm5rgj2cWrJ8wAB2sAMRFEMYBtcTRUpCdXcbZDV8 sIAExoAHHuA7At2sYv3Q5PEOQmvXTE/7DlCu8kLyd6gtJzeANw3zPaRb5uwOIkoV0gY2SNsCgG+0 DFJwJFhWMbkDK7qHRcD4xjMeBxMoQAGEHYSpWz0hPlhANHxggWtyYBnMQAYIKvBwCZj+9GCHqAUc kFMdOF4EOzBAAXoA2JX3d9zAm7u5oxxzW4164doaiAM0rwwU0IAHz4hGAEDfAjH74PTQn4G0EpAA Z9HX9Y03wAEKcIAB/oDAYQc/CQkcEIBoPAMGzoDBM2KwfGa0QAMXOBLg5y8B6V/gAVNowhQogIEV 61kEDXAAPdADTVAJaKBjtgd3KCR3mrZ7nWZ36kZzx0QIV5AQGNAC5Xd+x6B+7Md8KYBN0oZkziIt E4AAKTAACtBQ8ZIA3NcBKrAMMRB+RfEAzLAM0aAMz/ACLwANyrcMyNACKXABCwA40VKEFPBwRtYE cjAHhmAEU5AAAzgFYjAHrHZmCVhODPhyvAeBtkJzNUYIs5AQNLgM5VeBV9CDoQeEIZABICADbviG FBAtRqYAzCAQAVACOSAACFACMngYFqACNRgAgiiIy+CDLQCEJCAD/yWgAV7ViHF4ATOQAFMABxI3 cWM0B6tWhQjoduIWd7nXgC20hXfHbkOBPRSYECFgAchQg4VYiMyQhikAAjdwAStgAydyIm1yARVA AQXQASvQhzYSAA2AAav4iq/4g0AYiyRwATRQAiqgAggwAxYgA7t4AAcQAjcIjBTSAgYwAySADOB4 iMkoi7uCAQuQJBYgZj3FfQOwDNpYJSnQAROAAZozjuS4AAsAfzLgAGzyACzYfXX4jlVSAmVAfQ+w MCRgAyRAAvhIMCmCXNtXAAYQAu4okHryAzaAARNgjQYJJxNAfRF5AAaQAy2QjRYpdWBQBV2QawrA gpLHfQpgAA1ggiMrYJInKWxIsRhfUAU82ZMj0Iwr8AM3qY3E9ntVV3lDWSUBAQA7 --bbxvcxmub Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <ywoiaop> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --bbxvcxmub-- --osobdgfefwyrtmbr Content-Type: application/x-compressed; name="INSTALLATION8.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --osobdgfefwyrtmbr-- Tag: Calling client side COM objects from a web page Tag: 148645
  - 24
    - How would you parse the nubers out of this text? I need to parse out the first number to the immediate left of the first letter in each of the words. For example, the output would be 2,3,3,3,3 2GreysIceStorm 1093Pnj'sPromenade 31.053Pnj'sPromenade 3Pnj'sPromenade 3Pnj'sPromenade In this line of text: 4Bob'sHammer 1008Leta'sCharlotte 31.166MaryvilleShep 5Keyless 2GreysIceStorm The output would be 4,8,6,5,2 Is this possible with vbscript. Is there a way to make a script look for the first number to the immediate left of any letter? Tag: Calling client side COM objects from a web page Tag: 148639
  - 25
    - VBScript.Encode Trouble When using screnc.exe to encode ASP files, the resulting encoded ASP file produces the following error: Microsoft VBScript compilation error '800a03ea' Syntax error ?, line 0 The ASP page is being served on the same server it was encoded on: Window 2000 Server SP4 VBScript 5.6.8515 Any ideas? Thanks. -joshua Tag: Calling client side COM objects from a web page Tag: 148629

I have some processess (EHLAPPI) and dlls (custom DLLs to
get contents of encrypted files) that I want to call from
a web page. All of the stuff I've read indicates that I
can only do this using VBScript executed on the client
side (which makes sense given you don't want hackers
regisering COM objects and formatting your drive, etc.).

The exe's and dlls I've created as COM server objects
(using the ATL wizard in .NET)

I've created a COM Server using .NET for instance for the
Ehlappi process that I want to start, the COM info is: [
module(EXE, uuid = "{22CA2E94-69A2-4386-9161-
6E797F93E4C8}",
name = "EhllapiServer",
helpstring = "EhllapiServer 1.0 Type
Library",
resource_name = "IDR_EHLLAPISERVER") ];

It mentions that it creates a WinMain method for you

I've created a simple HTML page:
<html><head><title>My Test</title></head>
<body>
<script language="vbscript" type="text/vbscript">
Dim objEhlappi
Set objEhlappi = CreateObject("EhllapiServer")
document.write("<b>Is the COM object launched??</b>")
</script>
</body></html>

Bringing up this page in IE though I get a VBScript Error:
Error: ActiveX component can't create
object 'EhllapiServer'

I'm not much of a VBScript person, I don't know if this
is because it can't find the COM objects, or because of
some security issue (I'm logged in as an administrator).
Some questions I would REALLY apprciate some help on:

1) Is the approach that I'm taking correct?
2) What Registry settings can I check to see if the COM
object is registered, how would I register this on
another local PC?
3) How can I get more information about the error? Can I
get lasterror via VBScript for instance. Where can I
look this error up
4) To actually invoke the process I'm assuming I would do
a objEhlappi.WinMain() does anyone have any examples of
this (I assume I'd pass in my command line parameters
here as a string??)

Any suggestions would be GREATLY appreciated, I've been
hunting around on the web and can't find much information
on how to do this. THANKS!!

Top

Re: Calling client side COM objects from a web page by Atrax

Atrax
Wed Dec 03 20:30:53 CST 2003

This is a multi-part message in MIME format

------=_NextPart_000_24703337
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit

Security restriction prevent client-side scripts from doing quite a lot
of things unless the user specifically allows it. I'd say this is the
problem.

________________________________________
Atrax. MVP, IIS
http://rtfm.atrax.co.uk/

newsflash : Atrax.Richedit 1.0 now released.
http://rtfm.atrax.co.uk/infinitemonkeys/components/Atrax.RichEdit/

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

------=_NextPart_000_24703337
Content-Type: text/html; name="_alt.0"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment; filename="_alt.0"

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4=2E0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html;=
charset=3Diso-8859-1">
<META content=3D"MSHTML 6=2E00=2E2800=2E1276" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Hi,</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>I have an example program to modify user=
objects with values
from a spreadsheet linked on this page:</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2><A
href=3D"http://www=2Erlmueller=2Enet/UpdateUserProfile=2Ehtm">http://www=2E=
rlmueller=2Enet/UpdateUserProfile=2Ehtm</A></FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>The program reads the user Distinguished Name=
from the first
column of the spreadsheet=2E This example modifies the=
"profilePath" attribute,
but almost any attribute, including sAMAccountName, can be=
updated this
way=2E The program also shows how to "null" an attribute (remove=
any value)=2E If
you plan to modify the "cn" attribute, of course, you will have=
to use the
MoveHere method of the parent container object=2E</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>Also, you are correct about the=
SID's=2E</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>Does your spreadsheet identify users by DN or=
sAMAccountName?
Are the first name (givenName) and last name (sn) attributes=
populated with
values in your AD, so you can use these values to construct the=
new names, or
will everything be supplied in the spreadsheet? Is your intention=
that the value
of sAMAccountName be the same as the value of cn?</FONT></DIV>
<DIV><FONT size=3D2><BR>-- <BR>Richard<BR>Microsoft MVP Scripting=
and
ADSI<BR>HilltopLab web site - <A
href=3D"http://www=2Erlmueller=2Enet">http://www=2Erlmueller=2Enet</A><BR>-=
-</FONT></DIV>
<BLOCKQUOTE dir=3Dltr
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px;=
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Roger" <<A
=
href=3D"mailto:hainesr3@nationwide=2Ecom">hainesr3@nationwide=2Ecom</A=
>> wrote in
message <A
=
href=3D"news:umTKOveuDHA=2E2352@TK2MSFTNGP09=2Ephx=2Egbl">news:umTKOveuD=
HA=2E2352@TK2MSFTNGP09=2Ephx=2Egbl</A>=2E=2E=2E</DIV>
<DIV><FONT face=3DArial size=3D2>Thanks for your reply=
Richard=2E</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Just to give you a little=
background=2E  It's
been mandated by our parent company that we change our domain=
user IDs to
match our Lotus Notes logon name (called the short=
name)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>I've tested renaming a user=
account in Active
Directory users and computers and it works great=2E  Once=
renamed it
maintains the same SID so any permissions to resources will not=
need to be
changed=2E</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>I thought I could automate this=
process via a
script=2E  My thinking is that I could reference a=
spreadsheet containing
all the attribute values that need to be changed by the script=
including the
"cn" and the <FONT=
size=3D3>"sAMAccountName"=2E</FONT></FONT></DIV>
<DIV><FONT face=3DArial></FONT> </DIV>
<DIV><FONT face=3DArial>Can I do this using your example? =
If so, what is
the next step in your example that would actually change the
value?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><FONT=
size=3D3></FONT></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2><FONT size=3D3><FONT size=3D2>How far=
out on a limb
am I here?</FONT></FONT></FONT></DIV>
<DIV><FONT face=3DArial size=3D2><