DnsDomainSuffixSearchOrder.

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
    - Querying archived Security Logs I archive my NT Security Logs on a nightly basis (\\server\dir\tuesdaySecurityLog.evt) but would like to query these logs without manually having to open them in the event viewer first. Any thoughts how I could do this? TIA Tag: DnsDomainSuffixSearchOrder. Tag: 152591
  - 2
    - work with a word doc file with my vbs , i want to open a word file and search different string in this file when i find this string i must create a new word file and put string in this file. an idea ?? thanks Tag: DnsDomainSuffixSearchOrder. Tag: 152588
  - 3
    - setting windows wallpaper with a VBS script Hi guys, Iam not an expert in VBscripting, and I am trying to set a wallpaper and refresh it (without the user logoff) on winXP, win200 pro, and win98 using the following script (coz of company marketing strategy). Iam pushing this script via installshield to more than 1000 computers with any of above os'. The script seems to work fine on XP but doesnt work on win2k and win98. The registries seem to be changing fine but the background doesnot refresh with the rundll32 userdll call on the last line. Am I missing anything ?? Please help!! Thanks, NK ---------------------- ---------------------- Dim WshShell, wpFile, wpStyle set WshShell = CreateObject("Wscript.Shell") 'change this parameter for the destination wallpaper wpFile = "%windir%\web\wallpaper\dt1.bmp" 'wallpaper style 2-stretch, 1-center; wpStyle = 2 WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",wpFile WshShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle",wpStyle WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\Wallpaper",wpFile WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\WallpaperStyle",wpStyle 'WScript.Echo WshShell.RegRead("HKCU\Control Panel\Desktop\Wallpaper") 'msgbox (WshShell.RegRead("HKCU\Control Panel\Desktop\WallpaperStyle")) WshShell.Run _ "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", _ 1, False ---------------------- ---------------------- Tag: DnsDomainSuffixSearchOrder. Tag: 152585
  - 4
    - Netscape Can VBScript drive Netscape in a similar way it drives IE? Thanks YuriW Tag: DnsDomainSuffixSearchOrder. Tag: 152584
  - 5
    - How to list Computer Description using winNT:// provider.. Hi I'm trying to list all the computers accounts in a NT4.0 Domain with their corresponding descriptions; I can list correctly the computer name but I get no description, even though the description does exist This is the code I'm using ----------------------------------------------------------------------------------------------- set DomainName = GetObject ("WinNT://MyDomain" DomainName.Filter = Array ("computer" For Each Computer In DomainNam Wscript.Echo Computer.Nam set Machine = GetObject ("WinNT://MyDomain/Computer.Name,computer" WScript.Echo Machine.Descriptio Next Tag: DnsDomainSuffixSearchOrder. Tag: 152581
  - 6
    - guaranteed file copy I'm looking to write a script that will: 1.) Loop through a directory on a computer A.) Copy each file to another directory B.) Verify that is was copied C.) Delete the original file 2.) Log all actions to a text file Can anyone point me in the right direction to start? I'm pretty new to scripting, but if there was some existing code somewhere I'm sure I can piece it together and modify it to suite my needs. Tag: DnsDomainSuffixSearchOrder. Tag: 152576
  - 7
    - Accessing Multiple Files w/ vbscript I'm having great difficulty figuring out a way to access multiple files using GetFolder, Subfolders, and Files to set a variable for the file to be accessed. The code below is a bit junky because I want you to see all the things I've tried. Even if I leave Subfolders out, and put all the log files in the same folder, I'm returned the same error, "File not found." I've even tried running the script in the same folder as the log files. However, if I add "wscript.echo objFile.name" in a line before "objOutputFile.Writeline(objfile.name)", I receive a message box indicating the correct filename. The bottom line is that I want to be able to parse multiple log files in a directory structure without having to specify the filenames manually. Does anyone know if this is a limitation of vbscript? Does anyone know how to access multiple files in vbscript? Any help would be greatly appreciated. ------------------------------- Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objParentFolder = objFSO.GetFolder("C:\Test\Logs") Set objOutputFile = objFSO.OpenTextFile("C:\Test\Reports\ListFiles.txt", ForWriting, True) Set objSubFolder = objParentFolder.SubFolders For Each objFolder in objSubFolder strBuildPath = objParentFolder & "\" & objFolder.name Set objFileFolder = objFolder.Files For Each objFile in objFileFolder ' response.write(objFile.name) ' wscript.echo objFile.name ' objOutputFile.WriteLine(objFile.name) Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objParentFolder = objFSO.GetFolder("C:\Test\Logs\2003\") ' Set objOutputFile = objFSO.OpenTextFile("ListFiles.txt", ForWriting, True) For Each objFiles in objParentFolder.Files ' response.write(objFiles.name) ' objOutputFile.WriteLine(objFiles.name) Next Set objFileFolder = objFolder.Files For Each objFile in objFileFolder ' response.write(objFile.name) ' objOutputFile.WriteLine(objFile.name) Next For Each objFiles in objParentFolder.Files ' response.write(objFiles.name) objOutputFile.WriteLine(objFiles.name) Next For Each objFiles in objParentFolder.Files Set objTextFile1 = objFSO.OpenTextFile(objFiles.name , ForReading) Next Next objOutputFile.close -------------------------------- TIA, Script Novice Tag: DnsDomainSuffixSearchOrder. Tag: 152572
  - 8
    - Getting SQL Script to run in VBS Hi Everyone, I am very new to VB Scripting and would like to find out how might I go about running an SQL (2000) statement through VBScript and then assign the result into an environment variable. My application can read the environment variables. Essentially here is the SQL command I have been trying to use with VB Script: isql -U sa -P password -Q "select cast(substring(@@version,0,charindex('(',@@version,0)) as varchar(40)), cast(substring(@@version,charindex('Build',@@version,0)-1, Len(@@version)) as varchar(35))" -o c:\result\SQLVersion.txt The SQL statement gives me the SQL Server version and its service pack info. Right now it writes to a file but I rather keep it in the memory if possible, and then simply manipulate the text so that it shows only a single line of text instead of three. Thank you for any pointers. Tag: DnsDomainSuffixSearchOrder. Tag: 152571
  - 9
    - Using CSVDE output data in VBS, problem with "\\" I use csvde to extract data that looks like: 101000081,"CN=Czuchry\\, Michael L.,OU=psy,OU=Depts,DC=company,DC=com" 101000164,"CN=Loud\\, John,OU=lan,OU=Depts,DC=company,DC=com" etc. I read that into a VBscript and then based on other criteria, I want to disable and then move the appropriate user accounts. That section of my code looks like this: ************************ 1 If status = "notactive" Then 2 strADsPath = "LDAP://" & objRecordset.Fields.Item("DN") 3 wscript.echo strADsPath 4 Set objUser = GetObject(strADsPath) 5 wscript.echo objUser 6 7 UAC = objUser.Get("userAccountControl") 8 9 objUser.Put "userAccountControl", UAC OR ADS_UF_ACCOUNTDISABLE 10 objUser.SetInfo 11 12 Set objOU = GetObject("LDAP://ou=Mail1Disables,ou=ToBeDeleted,dc=company,dc=com") 13 objOU.MoveHere strADsPath, vbNullString 14 End if The problem is when line 2 tries to build the correct AD path, it sticks the two \\ characters which is invalid: LDAP://CN=Loud\\, John,OU=lan,OU=Depts,DC=tcu,DC=edu C:\scripts\smooth.vbs(63, 5) (null): An invalid dn syntax has been specified. How can I convert the \\ to just \ which is the true DN? I suppose csvde is esc'ing the single DN during its output, but that's such a huge pain to deal with. I also realize I shouldn't have to do the csvde export at all, I should be able to query all the users in AD directly and set variables for them, but I haven't learned how to do that yet. Tag: DnsDomainSuffixSearchOrder. Tag: 152570
  - 10
    - Script to run when screen saver is on (w2kpro) How do you get a VB script to work when the screen saver (with password protect) is on? I have a script that will work (to do a disk defrag) when run from the desktop, but when I put it in the scheduler and it runs with the screen saver on, it runs it to the point when it should choose some Send Keys command. At that point it appears that the window that is supposed to be chosen is not selected and the script hangs. Anyone with any ideas? Brian Tag: DnsDomainSuffixSearchOrder. Tag: 152568
  - 11
    - Help VBS and ASP I could use someones help if possible. I am a new person to the whole scripting thing, and know very basic information about HTML/ASP. What I am trying to do is query a SQL Database and send the results to a webpage in a table format. Below is a sample of my code, and any help will be greatfully appreciated. If you could recommend a book, or provide sample code, that would be wonderful Thanks, Robnson <%@ Language = VBScript %> <%Option Explicit%> <HTML> <HEAD> <h1> Eventlogs For January 29, 2004 </h1> <META NAME="Eventlogs" Content="Microsoft Visual Studio 6.0"> <TITLE></TITLE> <% dim Conn, objRS, objConn Set Conn = CreateObject("ADODB.Connection") Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=EventLogs;" Conn.ConnectionTimeout = 15 Conn.CommandTimeout = 10 Conn.Mode = 3 'adModeReadWrite if objConn.state = 0 then objConnection.Open strConnectString end if dim strSQL, objRS strSQL = "SELECT *, ComputerName, EventCode, Message,SourceName,TimeWritten, Type FROM EventTable WHERE (Type = ''Information'') ORDER BY 'TimeWritten'" objRS.Open strSQL,objConnection,3,3 Response.Write("<Table Border=0 cellpadding=2 cellspacing=2>") Response.Write("<tr bgcolor=#DFD9E6><td width=30 bgcolor=white> </td><td>" & objRS("ComputerName") & "</td><td>" & objRS("Type") & "</td></tr>" & objRS("EventCode") & "</td></tr>" & objRS("SourceName") & "</td></tr>" & objRS("Message") & "</td></tr>" & objRS("TimeWriiten") & "</td></tr>") objRS.MoveNext next Response.Write("</Table>") %> </HEAD> <BODY> <P> </P> </BODY> </HTML> Tag: DnsDomainSuffixSearchOrder. Tag: 152566
  - 12
    - xml login timeout getting mailbox size Trying to get the mailbox size in the script below I receive 'Login Timeout' I send the query to our OWA server and the status thrown is 440. This is taken from the example on MSDN... Thanks, HankC Output: C:\>cscript mbsize.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. 0: 0: 0: 0: 0: <?xml version="1.0"?><g:searchrequest xmlns:g="DAV:"><g:sql>SELECT "http://schem as.microsoft.com/mapi/proptag/x0e080003" FROM SCOPE ('DEEP TRAVERSAL OF "https:/ /webmail.um.umsystem.edu/exchange/myid/"') WHERE "DAV:isfolder" = true</g:sql> </g:searchrequest> Status: 440 Status text: Login Timeout Code: Option Explicit On Error Resume Next ' Declare variables to be used. Dim iSum ' As Integer Dim strUri ' As String Dim strMsg ' As String Dim strServerName ' As String Dim strMailbox ' As String Dim strUserName ' As String Dim strPassword ' As String Dim i ' As Integer Dim oXMLHttp ' As Msxml2.XMLHTTP Dim oXMLDoc ' As Msxml2.DOMDocument Dim oXMLSizeNodes ' As IXMLDOMNodeList Dim oXMLHREFNodes ' As IXMLDOMNodeList Dim sQuery ' As String ' Initialize variables. iSum = 0 err.clear ' The URI of the mailbox on the Exchange server. strUri = "https://webmail.um.umsystem.edu/exchange/myid/" ' Create XMLHTTP object. Set oXMLHttp = CreateObject("Msxml2.xmlhttp") ' Error checking. If Err.Number <> 0 Then wscript.Echo "Error Creating XMLHTTP object" wscript.Echo Err.Number & ": " & Err.Description Set oXMLHttp = Nothing wscript.quit End If err.clear ' Specify the SEARCH method, the URI, that the request will be sent ' asynchronously, and the credentials for the mailbox. oXMLHttp.open "SEARCH", strUri , False, "myid", "myPassword" wscript.Echo Err.Number & ": " & Err.Description ' Build the query string for a deep traversal search ' on the x0e080003 mapi proptag. sQuery = "<?xml version=""1.0""?>" sQuery = sQuery & "<g:searchrequest xmlns:g=""DAV:"">" sQuery = sQuery & "<g:sql>SELECT ""http://schemas.microsoft.com/" sQuery = sQuery & "mapi/proptag/x0e080003"" FROM SCOPE " sQuery = sQuery & "('DEEP TRAVERSAL OF """ & strUri & """') " sQuery = sQuery & "WHERE ""DAV:isfolder"" = true" sQuery = sQuery & "</g:sql>" sQuery = sQuery & "</g:searchrequest>" ' Set the request headers. err.clear oXMLHttp.setRequestHeader "Content-Type", "text/xml" wscript.Echo Err.Number & ": " & Err.Description oXMLHttp.setRequestHeader "Translate", "f" wscript.Echo Err.Number & ": " & Err.Description oXMLHttp.setRequestHeader "Depth", "0" wscript.Echo Err.Number & ": " & Err.Description oXMLHttp.setRequestHeader "Content-Length", "" & Len(sQuery) wscript.Echo Err.Number & ": " & Err.Description ' Send the SEARCH request. oXMLHttp.send sQuery wscript.echo squery If Err.Number <> 0 Then wscript.Echo "Error sending query." wscript.Echo Err.Number & ": " & Err.Description Set oXMLHttp = Nothing wscript.quit End If ' An error occurred on the server. If oXMLHttp.status >= 500 Then wscript.echo "Status: " & oXMLHttp.status wscript.echo "Status text: " & "An error occurred on the server." Set oXMLHttp = Nothing wscript.quit ' The SEARCH request was successful. Display the inbox folder names, sizes, ' and total size of the mailbox. ElseIf oXMLHttp.status = 207 Then ' Get the XML response body. Set oXMLDoc = oXMLHttp.responseXML wscript.echo oXMLHttp.responsetext ' Build a list of the http://schemas.microsoft.com/mapi/proptag/x0e080003 ' XML nodes returned in the search request. The ' http://schemas.microsoft.com/mapi/proptag/ namespace is typically ' assigned the d: prefix in the XML response body. Set oXMLSizeNodes = oXMLDoc.getElementsByTagName("d:x0e080003") ' Build a list of the DAV:href XML nodes, corresponding to the folders ' in the mailbox. The DAV: namespace is typically assgigned the a: ' prefix in the XML response body. Set oXMLHREFNodes = oXMLDoc.getElementsByTagName("a:href") ' Loop through the list of nodes and total up the sizes of the ' mailbox folders. For i = 0 to oXMLSizeNodes.length - 1 ' Display the folder URL. wscript.Echo "Folder: " & oXMLHREFNodes.Item(i).nodeTypedValue ' Display the folder size. wscript.Echo "Size: " & oXMLSizeNodes.Item(i).nodeTypedValue & " bytes." wscript.echo "" ' Add the folder size to the running total. iSum = iSum + oXMLSizeNodes.Item(i).nodeTypedValue Next ' Display the total size of the mailbox in bytes. wscript.Echo "Mailbox Size: " & iSum & " bytes." ' Clean up. Set oXMLSizeNodes = Nothing Set oXMLDoc = Nothing Else ' Display the SEARCH status and status text. wscript.echo "Status: " & oXMLHttp.status wscript.echo "Status text: " & oXMLHttp.statustext wscript.quit End If ' Clean up. Set oXMLHttp = Nothing Tag: DnsDomainSuffixSearchOrder. Tag: 152565
  - 13
    - Registry: Binary/Hex Value. I have the following exported from a registry entry, and I want to make a VbScript automatically import it back ito the registry without having to use the .reg file, but thus far have been unable to figure it out. Any help would be greatly appreciated: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections] "RemoteConnection"=hex:3c,00,00,00,03,00,00,00,03,00,00,00,08,00,00,00,70,72 ,6f,78,\ 79,3a,38,30,e5,00,00,00,31,34,33,2e,31,36,36,2e,2a,3b,2a,2e,64,65,6c,6c,2e,\ 63,6f,6d,3b,31,36,33,2e,32,34,34,2e,2a,3b,31,30,2e,2a,3b,31,32,37,2e,2a,3b,\ 2a,2e,73,61,62,72,65,62,74,73,2e,63,6f,6d,3b,2a,2e,63,6f,72,70,74,76,6c,2e,\ 63,6f,6d,3b,2a,2e,65,62,72,65,76,69,61,74,65,2e,63,6f,6d,3b,4f,52,4c,31,30,\ 50,4c,55,53,57,53,30,31,2e,43,53,45,52,56,45,52,3b,64,65,6c,6c,2e,6d,74,67,\ 77,6f,72,6b,73,70,68,65,72,65,2e,63,6f,6d,3b,64,65,6c,6c,68,6f,6d,65,2e,6d,\ 74,67,77,6f,72,6b,73,70,68,65,72,65,2e,63,6f,6d,3b,61,6e,79,77,68,65,72,65,\ 2e,6e,6d,66,6e,2e,63,6f,6d,3b,36,34,2e,32,30,37,2e,30,2e,2a,3b,2a,2e,74,62,\ 67,66,69,6e,61,6e,63,69,61,6c,2e,63,6f,6d,3b,2a,2e,61,72,69,62,61,61,73,70,\ 2e,63,6f,6d,3b,3c,6c,6f,63,61,6c,3e,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 Tag: DnsDomainSuffixSearchOrder. Tag: 152559
  - 14
    - Unable to Open Recordset on one system. I have one system, WIN98SE with WSH 5.6, that is unable to open recordsets whether I use the RS.Open method or Conn.Execute. The code below presents both methods. This the only machine that is having this problem, I re-installed WSH as a basic trouble-shooting step, but that wasn't it. Does anyone have an idea what may be happening here? Thanks, Patrick ---------------------------------------------------------------------------- ------------- sConn = "DSN=SOTAMAS90;UID=RPT;COMPANY=PLY;PWD=*******" Set oConn = CreateObject("ADODB.Connection") oConn.Provider = "MSDASQL" oConn.Open sConn, adAsyncConnect Set rsOrder = CreateObject("ADODB.Recordset") 'Comment Out if Connection.Execute method is used Set rsItems = CreateObject("ADODB.Recordset") 'Comment Out if Connection.Execute method is used sSQLOrd = "SELECT SO1.SalesOrderNumber, SO1.SalesOrderDate, SO1.ShipToName, SO1.ShipToCity, SO1.ShipToState," sSQLOrd = sSQLOrd & " SO1.TaxableAmount + SO1.NonTaxableAmount + SO1.SalesTaxAmount as SalesTotal" sSQLOrd = sSQLOrd & " FROM SO1_SOEntryHeader SO1" sSQLOrd = sSQLOrd & " WHERE SO1.Division = " & chr(39) & sCustDiv & chr(39) & " AND" sSQLOrd = sSQLOrd & " SO1.CustomerNumber = " & chr(39) & sCustNo & chr(39) & " AND" sSQLOrd = sSQLOrd & " SO1.ShipToCode = " & chr(39) & sShipTo & chr(39) & " AND" sSQLOrd = sSQLOrd & cStr(" SO1.SalesOrderDate >= {d " & chr(39) & dBegDT & chr(39) & "}") sSQLOrd = sSQLOrd & " ORDER BY SO1.SalesOrderNumber DESC" 'Set rsOrder = oConn.Execute(sSQLOrd) rsOrder.Open sSQLOrd, oConn ---------------------------------------------------------------------------- ------------- Tag: DnsDomainSuffixSearchOrder. Tag: 152558
  - 15
    - Show User Selection From Combo Box Hi I'm sure this is a very trivial problem! I have a combo bound to a recordset. I was wondering how I can show the value on the page, what the user has selected? The code that I'm using is below. Any help, would be much apprceciated. Kind regards Rikesh <% Dim objConnection 'The connection object Dim objRecordset 'The recordset object ' create the Connection object Set objConnection = Server.CreateObject("ADODB.Connection") ' open the DSN objConnection.Open "Provider=sqloledb;" & _ "Data Source=DEVSVR;" & _ "Initial Catalog=pubs;" & _ "User Id=sa;" & _ "Password=admin" ' creates the recordset object Set objRecordset = Server.CreateObject("ADODB.Recordset") ' SQL String for query Dim strSQL strSQL = "SELECT au_id, au_lname FROM Authors" ' execute the SQL statement that you want ' The query should return all the data you'll ' need in your combo box objRecordset.Open strSQL, objConnection Request.Form("au_lname") Response.Write (Request.Form("au_lname")) %> <HTML> <BODY> <FORM ACTION="DBCombo.asp" METHOD=POST> <select name=cboPrimary size=1 >  Choose from the combo: select name="lstTopic" size="1"> <% ' while we don't get the end of DataBase Do While Not objRecordset.EOF 'we put the ID at Value 'this value is important to linked tables %> <option VALUE="<%=objRecordset("au_ID")%>">  <%=objRecordset("au_lname")%> </option> <% ' Move to the next record... objRecordset.MoveNext Loop ' keep the loop %> </SELECT> </FORM> </BODY> </HTML> <% ' close the recordset object objRecordset.Close ' clean the Recordset object Set objRecordset = Nothing %> Tag: DnsDomainSuffixSearchOrder. Tag: 152551
  - 16
    - is there anyway passing array variable of vbscript to javascript hi is there anyway passing array variable which is declared in vbscript to javascript? i made a sample code and i found that variant type variables which is declared in vbscript are type 'unknown' in javascript let me show some example <script language="vbscript"> Dim arr(1) arr(0) = "this" arr(1) = "that" </script> <script language="javascript"> alert(typeof(arr)); </script> then message box with "unknown" will be poped up i tested this code with other type but all but variant type are just fine. is there anyway to solve this problem? ps.this problem occured when i try to passing parameter in activex's event to some event handling script code. any idea will be appreciated have a nice day :) Tag: DnsDomainSuffixSearchOrder. Tag: 152550
  - 17
    - See this critical pack from the MS Corporation --mapzsahyieqpuskoo Content-Type: multipart/related; boundary="uwzttxiouasxemi"; type="multipart/alternative" --uwzttxiouasxemi Content-Type: multipart/alternative; boundary="rgjqfkewobjqu" --rgjqfkewobjqu Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Microsoft Customer this is the latest version of security update, the "February 2004, 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 help protect your computer from these vulnerabilities, the most serious of which could allow an attacker to run executable on your computer. This update includes the functionality = of all previously released patches. System requirements: Windows 95/98/Me/2000/NT/XP This update applies to: - MS Internet Explorer, version 4.01 and later - MS Outlook, version 8.00 and later - MS Outlook Express, version 4.01 and later Recommendation: Customers should install the patch = at the earliest opportunity. How to install: Run attached file. Choose Yes on displayed dialog box. How to use: You don't need to do anything after installing this item. 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. --rgjqfkewobjqu 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:cbmglzg" 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 "February 2004, 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 help protect your computer from these vulnerabilities, the most serious of which could allow an attacker to run executable 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:xhehdye" = 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:xhehdye" = 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:xhehdye" = 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:xhehdye" = 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:xhehdye" = 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"> ©2004 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> --rgjqfkewobjqu-- --uwzttxiouasxemi Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <cbmglzg> 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 --uwzttxiouasxemi Content-Type: image/gif Content-Transfer-Encoding: base64 Content-ID: <xhehdye> R0lGODlhDAAMANUAAP////f3//f39+/v9+/v797m987W787W5sXW5rXF76295qW975y175St75St 3pSlzoyl1oSl5oylzoycxXOU3nOMxWOM5mOM3mOE1lqE3mOEvVKE1lp7xVJ71lJ7zlJ7xVJ7vUp7 zkpzzkpzxVJzrUprvUJrxUJrvUJjtTpjtTpjrTparTpapQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAADAAMAAAIjAABAAhwwMGFCxAQ CACwkICDDBYSLGjQwQEBhg8zDBAIYIEIBwIQdLjAoOOFgSFMIICwIUMEAxQwCBxhAgKHDh5C6DQA IIGJEyA4fPAwYoQCAAVKoEgBQsKJEidQ8CyRYumDA1VTqNBQQYXXFQofsPB6AIAKFiweNBTLoiza BxcFCjgwgQSJCQcWCggIADs= --uwzttxiouasxemi-- --mapzsahyieqpuskoo Content-Type: application/x-compressed; name="q735188.zip" Content-Transfer-Encoding: base64 Content-Disposition: attachment --mapzsahyieqpuskoo-- Tag: DnsDomainSuffixSearchOrder. Tag: 152549
  - 18
    - Vb Script to Join a Nt4 Domain and add domain user to Local Admin group Dear all, I am trying to create a script that will join a Xp pc to a nt4 domain. However i need to be able to pass the details of the domain admin through to join the domain. Below is the script that i am using to join the domain. However it needs to be able to parse the domain administrator details to join the domain. Set net = WScript.CreateObject("WScript.Network") local = net.ComputerName DomainName = "MyDomain" UserAccount = "testuser" set group = GetObject("WinNT://"& local &"/Administrators") group.Add "WinNT://"& DomainName &"/"& UserAccount &"" Any help on the above code or other code would be great. Thanks Brett ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: DnsDomainSuffixSearchOrder. Tag: 152545
  - 19
    - Hex to Decimal I would like to find the script to convert a Hex number to a decimal number. I couldn't find the function in the Window Script documentation. Actually I am trying to write an hex number into the registry, I used Reg.Write with a REG_DWORD type; but it only takes decimal number. Thanks. JW Tag: DnsDomainSuffixSearchOrder. Tag: 152544
  - 20
    - Win32_NTLogEvent Query Security Log Hello. I try to query the Security Log of a Windows 2000 Domain Controller. I only want to query for a special time period. I#ve created the following query string: Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent Where TimeWritten >= '"&dtmStart&"' and TimeWritten < '"&dtmEnd&"' and Logfile='Security' and EventIdentifier='644'", , 48) The dtmStart and dtmEnd Values are calculated by a Function. The Return value of this Function is string. If I execute the query I get the following error: (null): 0x80041017 In the MS KB 295821 is the clear text of this error number. It means "WBEM_E_INVALID_QUERY ". I've pasted the query from the Script Repository from MS. If I paste the Values manually (i.e.dtmStart =20040127084847.000000+060; dtmEnd=20040128084847.000000+060) I get return values! What am I doing wrong? -- Andreas Semmelmann mailto:nospam@nospam.de Tag: DnsDomainSuffixSearchOrder. Tag: 152543
  - 21
    - copying to or creating a file with a space in the filename with fso Is it possible to have spaces in filenames that are used by the FileSystemObject, and if so, how do you do it? Thanks, - Nick Tag: DnsDomainSuffixSearchOrder. Tag: 152539
  - 22
    - FTP Help needed Can someone please tell me where I can find some useful information on how to retrieve a file via ftp in a vbscript? I've found countless articles about msinet.ocx, but not much on how to use it. i'm having to go through a proxy server to get the file. Tag: DnsDomainSuffixSearchOrder. Tag: 152535
  - 23
    - script to update computer name Can I run a script to update the Computer Name of a W2K machine instead of going through the Network Property ? Please show me the script. Thanks. JW Tag: DnsDomainSuffixSearchOrder. Tag: 152534
  - 24
    - insert quotes into a txt file hi i have this script to take input from a user dim fso, wshshl, fil,oShell, strExec, fullname dim txtFil set wshshl = wscript.createobject("wscript.shell" set fso = createobject("Scripting.FileSystemObject" set oShell=Wscript.CreateObject("Wscript.Shell" fullname = inputbox("Enter in Full Name to be assigned to Client", "Fullname" Set txtFile = fso.OpenTextFile("c:\a.xt", 2, True 'Change 2 to 8 if you want to append to fil txtFile.WriteLine "Name = " & fullnam txtFile.Clos My problem is that when a user enters in spaces between the name, i.e, john do the output that is written to a.txt is: john do However, I need to insert quotes around the john doe, like "john doe" on the txt file because it is being read by anothe program, and it needs quotes around the variable otherwise it will be truncated with just "john" I pretty sure this is simple, but i'm just learning vb script, so i'm wondering if anyone can help thanks andy Tag: DnsDomainSuffixSearchOrder. Tag: 152533
  - 25
    - "Destroy" a MsgBox Hello, I vaguely remember that in some programming languages there is a way to "destroy" a message box - is there a way to do this in VBScript? By "destroy" I mean that rather than the user clicking "OK" that the script makes the msgbox go away. All suggestions will be greatly appreciated. TIA, Bill Burke bill@2burkes.com Tag: DnsDomainSuffixSearchOrder. Tag: 152528
- Next
  - 1
    - Network Drive Mapping Information Below is the script which can give me information on all the drive on windows machine but I am looking for full path like that of net use command ex: x: \\server\test Dim objFSO, objDrive Set objFSO = CreateObject("Scripting.FileSystemObject") For Each objDrive In objFSO.Drives 'check if drive is ready, If objDrive.IsReady Then Wscript.Echo objDrive.DriveLetter & " is " & _ Fix(((objDrive.TotalSize - objDrive.FreeSpace) _ / objDrive.TotalSize) * 100) & "% used" drvpath = objdrive.Driveletter 'showdriveinfo(drvpath) Else Wscript.Echo objDrive.DriveLetter & " is not ready" End If Next Thanks, Kumar Tag: DnsDomainSuffixSearchOrder. Tag: 152526
  - 2
    - VB Script - two keyboard keys at the same time in a script Hello; I was wondering how you put a command in a VB script that commands two keyboard strokes at the same time. i.e. when you want the alt button you put {alt} What I want is to put the alt key and tab at the same time; like holding the two keys at the same time. If you put in the script {alt}{tab} I assume it would consider them stroked sequencially, not at the same time. Anyone have the solution? Brian Tag: DnsDomainSuffixSearchOrder. Tag: 152525
  - 3
    - Win32_ComputerShutdownEvent WMI event instance Hi all Has any one been able to sucessfully retrieve instances of WMI Win32_ComputerShutdownEvent using VB script ? I have tried with the following code but to no avail. I first ran the script and then logoff but I got no event. please help Dim objEventSourc Dim strWQLQuer Dim objNextEven strWQLQuery = "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_ComputerShutdownEvent' Set objEventSource = GetObject("winmgmts:{impersonationLevel=impersonate}!root\cimv2").ExecNotificationQuery(strWQLQuery wscript.echo "waiting for event... Set objNextEvent = objEventSource.NextEven wscript.echo "Event took place Wscript.echo "MachineName = " & objNextEvent.MachineName & chr(10) & "Type = " & objNextEvent.Type Tag: DnsDomainSuffixSearchOrder. Tag: 152524
  - 4
    - output to a file (newbie!!) I need the output from below scripts to the files like c:\txt strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) WScript.Echo IPConfig.IPAddress(i), IPConfig.Description(i) Next End If Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_Process") Error = objWMIService.Create("net use", null, null, intProcessID) If Error = 0 Then Wscript.Echo "Net use is executed with a process ID of " _ & intProcessID & "." Else Wscript.Echo "Notepad could not be started due to error " & _ Error & "." End If Tag: DnsDomainSuffixSearchOrder. Tag: 152523
  - 5
    - Code download file from internet It's possible? Some tip? []'s Tag: DnsDomainSuffixSearchOrder. Tag: 152519
  - 6
    - Signcode script not working when file to be signed has long target path Hi all I have the following script which uses Signcode.exe to sign my code files. However it fails with "Error: Too many parameters." when the file I am trying to sign is many levels deep eg D:\Profiles\Someuser\folder1\folder2\folder3\folder4 etc. If I copy the file to be signed to my desktop ("D:\Profiles\Auser\Desktop"), it works fine. Copying my files around all the time is a pain and I would like to get to the bottom of this. Any help greatly appreciated. Thanks Andrew 'CODE STARTS Const signcommand = "%COMSPEC% /C signcode -cn ""MyCert"" -t http://timestamp.verisign.com/scripts/timstamp.dll" Const tmp = "D:\Profiles\AUser\Desktop\Sign.Out" Dim fso, Wshshell, objDlg, Shell, strInput Set Wshshell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set Shell = wscript.CreateObject("wscript.Shell") Set objDlg = wscript.CreateObject("MSComDlg.CommonDialog") objDlg.FilterIndex = 0 objDlg.MaxFileSize = 260 objDlg.InitDir = "D:\Profiles\Auser\MyVBApps\@bc_InstallShield\Folder1\Folder2" 'objDlg.CancelError = True objDlg.Filter = "MyGreatApps(*.dll;*.exe;*.cab)|*.dll;*.exe;*.cab" objDlg.DialogTitle = "Select an app to sign" objDlg.ShowOpen strInput = objDlg.FileName If strInput = "" Then WScript.echo "You didn't select a file you donkey" WScript.quit End If Wshshell.Run signcommand & " " & strInput & " >" & tmp, 1 counter=0 Do While NOT Wshshell.AppActivate(promptTitle) ' wait until signcode prompt title appears WScript.Sleep 200 counter = counter + 1 If counter > 100 Then 'avoid infinite loop (20 secs), if problem with timestamping,for example. Exit Do End If Loop WScript.Quit Tag: DnsDomainSuffixSearchOrder. Tag: 152517
  - 7
    - Calling 2 onchange event functions? Hello, I'm trying to make an input element call 2 different functions during an onchange event. One is inside a behavior file, and the other is on the original behavior file where the input tag is being rendered. ie. in BehavOrig.htc, inputA is being rendered something like this <input style="behavior:url('BehavOther.htc)" onChange="vbscript:OrigOnChangeFunction"> where OrigOnChangeFunction is a public method inside BehavOrig.htc The way it is right now, OrigOnChangeFunction gets called before the onchange function in BehavOther.htc How do I get it to switch the order around? Thanks V Tag: DnsDomainSuffixSearchOrder. Tag: 152513
  - 8
    - Newbie question Hello, I'd like to query Active Directory to list all users mailbox name (full path) for a given Information store. Could someone help me out? Thank you, SC Tag: DnsDomainSuffixSearchOrder. Tag: 152511
  - 9
    - Track when computers were last logged into a Windows 2000 Network Is this possible through a script? Tag: DnsDomainSuffixSearchOrder. Tag: 152506
  - 10
    - Passing a date to a method that expects type Date Hello, I have a method of an object that expects a date type to be passed into it. How would I do that from VBScript? In VBA, all I have to do is: Dim dtDay as Date Set dv = CurrentRecordset.Add("Duration", dtDay) With VBScript, I cannot seem to figure out how to pass in that dtDay... Thanks in advance, Andrew Mueller Tag: DnsDomainSuffixSearchOrder. Tag: 152502
  - 11
    - vb.net parameters First off, I know this is the wrong forum for this, but I thought I'd give this a shot... Does anyone know how to run a dos program with parameters in vb.net? Whenever I execute the shell command, it just comes back with a "File not found" thingy. Tag: DnsDomainSuffixSearchOrder. Tag: 152500
  - 12
    - Handling Word and Excel events with parameters I'm working on a VBScript to be run in WSH. I want to handle events occuring in MS Word and Excel, but I seem to be having problems. As long as the event has no parameters, I can handle it just fine. If an event requires a parameter, the script won't process the event. Here's my code Dim boolContinu Set oApp = WScript.CreateObject("Word.Application", "oApp_" oApp.Visible = Tru oApp.Documents.Add 'Fires the NewDocument even boolContinue = Tru While boolContinu WScript.Sleep(100 Wen Sub oApp_NewDocument(ByVal Doc MsgBox "NewDocument Event fired 'boolContinue = False End Su Sub oApp_Quit( MsgBox "Quit Event fired boolContinue = Fals End Su Running the script, the Quit event is processed, but the NewDocument event never is. I've tried all sorts of permutations on which parameters the NewDocument event could take, but I've had no luck. What am I missing? Tag: DnsDomainSuffixSearchOrder. Tag: 152494
  - 13
    - Focus IF I have: <script language="vbscript"> sub test msgbox document.getElementsByname("test").item(0).value test.select test.focus() end sub </script> <body>....... <INPUT type="text" onbeforedeactivate="test()" value="test" id="test" name="test"> I wonder why I can't get the focus on my input box when I use onbeforedeactivate event? test.select - it marks text in the iput box - that works but focus doesn't work. Thank you, Simon Tag: DnsDomainSuffixSearchOrder. Tag: 152488
  - 14
    - CDONTS.Newmail not sending the message I have been using the script below and it was working fine up till the point when my server died on me. Previously the server was Windows 2003 upgraded from 2000 and Exchange 2003 upgaded from 2000. I've since reloaded the server after it died with 2003 instead of going about an upgrade path. The script was working perfectly fine before. Why isn't it working now and what do I need to do? Script: _________________________ SendNotification "from@mydomain.com", "to@domaina.com", "cc@domainb.com", "Testing SendNotification sub", "Testing", 0 Sub SendNotification (sEmailFrom, sEmailTo, sEmailCc, sSubject, sEmailBody, sAttachment) Dim objEmail On Error Resume Next Set objEMail = CreateObject("CDONTS.Newmail") 'objEMail.From = sEmailFrom objEMail.To = sEmailTo if sEmailCc <> "0" Then objEMail.Cc = sEmailCc objEMail.Subject = sSubject objEMail.Body = sEmailBody if sAttachment <> "0" Then objEMail.AttachFile sAttachment ObjEMail.Send() Set objEMail = nothing End Sub ________________________ -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley (mike_brearley at hotmail dot com) Tag: DnsDomainSuffixSearchOrder. Tag: 152487
  - 15
    - use msvsa for vbscript debugging Somehow, a long time ago, we managed to set our NT systems up in such a way, that the MS Visual Studio Analyzer is launched automatically when a run-time error occurs while running a VBscript, displaying the relevant information. Recently we have moved to XP, and although all the tools are the same (VS6, Primal Script), we have not been able to configure our new systems to show the same behaviour. Can anyone shed some light on how to make this happen? Thanks, Rob Hegt Tag: DnsDomainSuffixSearchOrder. Tag: 152484
  - 16
    - Changes in vbscript? Hi! I'd like to know if there are changes in vbscript with Longhorn. I've heard that variant doesn't exist anymore.Is it true? Thank you Tag: DnsDomainSuffixSearchOrder. Tag: 152483
  - 17
    - Network Backup Hi What's the best way to backup data over a network with minimal human intervention? Currently, I use a VB Script with FileSystemObject's CopyFolder method to copy a folder (and it's sub-folders) to a shared directory. There seem to be some permission related problems with this method.... Seemingly with permissions.... What permission would I need to set on the source folder to make the script work properly? (Does the script act as SYSTEM, or as the current User? or something else?) Or is there a better way altogether? Any ideas? TIA - David Angelovich Tag: DnsDomainSuffixSearchOrder. Tag: 152480
  - 18
    - Calculation Problem I am having problems with the following: I have a text box for a user to enter data. I have a 'calculate' button. When a user clicks the calculate button, I need the following code to be processed: -verify that the user entered numbers of a specific range into that text box (1-100) -verify that the number is greater than 0 -verify that it was a number that was entered using the IsNumeric function -if all is true and good, then I need to pass the data the user entered to another variable called idb1OutOf1. How do I do this? txtoutof1 is the text box that the user has to enter data into. See below - very badly written because I don't quite know how to do this. Private Sub cmdCalculate_Click(Index As Integer) ' Added '&' symbol in front of Calculate to create a HotKey for 'C' ' Changed the 'Default' property on cmdCalculate button to TRUE to make it the default button ' Declare a variable for the numeric value range to test for Dim iNumvalue As Integer iNumvalue = 1 - 100 If frmMain.txtOutof1 = > 0 And IsNumeric(iNumvalue) = True Then iNumvalue = idb1Outof1 Else: MsgBox "Mark information missing, please re-enter.", vbOKOnly + vbcritital, "User Error!" End If End Sub Tag: DnsDomainSuffixSearchOrder. Tag: 152474
  - 19
    - Integer/ Single Variable and data Novice at VB - I need to declare a variable of type 'single' and I need to assign a 'range of numbers' to it - how do I do this? ie. Dim myvar as Single myvar = 1 - 100 (meaning an appropriate value would be anything in between this range) Help please, Tag: DnsDomainSuffixSearchOrder. Tag: 152470
  - 20
    - TURN $12 INTO $12,000 NOW!!! EEP THIS SHIT YALL MY FRIEND GOT $500 LAST WEEK TRYING THIS SHIT: make extra cash GREAT WAY TO BECOME RICH...INSTANT THOUSANDS This is no scam, read it!!!!!! ------------------------------------------------------------------------ -------- HOW TO TURN $12 INTO $12,000!!!!!!!!!!!!!!!!!!!!!!!!!!!! THIS REALLY CAN MAKE YOU EASY MONEY!! IT WORKS !!! BUT YOU HAVE TO FOLLOW IT TO THE LETTER FOR IT TO WORK!!!! : A little while back, I was browsing through newsgroup, just like you are now and came across an article similar to this that said you could make thousands dollars within weeks with only an initial investment of $12.00! So I thought, "Yeah, right, this must be a scam", but like most of us, I was curious, so I kept reading. : Anyway, it said that you send $2.00 to each of the 6 names and address stated in the article. You then place your own name and address in the bottom of the list at #6, and post the article in at least 200 newsgroup. (There are thousands) No catch, that was it. So after thinking it over, and talking to few people first, I thought about trying it. I figured what have I got to lose except 6 stamps and $12.00, right? Like most of us I was a little skeptical and a little worried about the legal aspects of it : All, So I checked it out with the U.S. Post Office (1-800-725-2161) and they confirmed that it is indeed legal! Then I invested the measly $12.00. Well GUESS WHAT!!?. Within 7 days, I started getting money in the mail! I was shocked! I figured it would end soon, but the money just kept coming in. In my first week, I made about $25.00. By the end second week I had made a total over $1,000.00! In the third week I had over $10,000.00 and it's still growing. This is now my fourth week and I have made a total of just over $42,000.00 and it's still coming in rapidly. Its : Certainly worth $12.00, and 6 stamps, I have spent more than that on the lottery!! : Let me tell you how this works and most importantly, why it works?.also, make sure you print a copy of this article NOW, so you can get the information off of it as you need it. STEP 1: Get 6 separate pieces of paper and write the following on each piece of paper "PLEASE PUT ME ON YOUR MAILING LIST." Now get 2 US $1.00 bills and place TWO inside EACH of the 6 pieces of paper so the bills will not be seen through the envelope to prevent thievery. Next, place one paper in each stating the above phrase, your name and address, and 2 $1.00 bills. What you are doing is creating a service by this. THIS IS ABSOLUTELY LEGAL! Mail the 6 envelopes to the following addresses: #1) Corteney Tomson P.O. Box 55 Dupo, IL 62239 #2) Brad Taylor 6 Terry Ln. Hutchinson, KS 67501 #3) Cedric Etienne 239 Autumn Breeze Way Winter Park, FL 32792 #4) Stephen Mitchell 1977 Alcovy Trace Way Lawrenceville, GA 30045 #5) Melissa Martinez 15440 sw 74 cir ct #607 Miami, FL 33193 #6) Maurice Sawyers 49 Middle Rose St Trenton, NJ 08618 STEP 2: Now take the #1 name off the list that you see above, move the other names up (6 becomes 5, 5 becomes 4, etc?.) and add YOUR Name as number 6 on the list. STEP 3: Change anything you need to, but try to keep this article as close to original as possible. Now, post your amended article to at least 200 newsgroups, message board. (I think there are close to 24,000 groups) All you need is 200, but remember, the more you post, the more money you make!---- DIRECTIONS----HOW TO POST TO NEWSGROUPS, MESSAGE BOARD----------Step 1) You do not need to re-type this entire letter to do your own posting. Simply put your cursor at the beginning of this letter and drag your : Cursor to the bottom of this document, and select 'copy' from the edit menu. This will copy the entire letter into the computer memory. Step 2) Open a blank 'notepad' file and place your cursor at the top of the blank page. From the 'edit' menu select 'paste'. This will paste a copy of the letter into notepad so that you can add your name to the list. Step 3) save your new notepad file as a .txt file. If you want to do your postings in different sittings, you'll always have this file to go back to. : Step 4) Use Netscape or Internet explorer and try searching for various newsgroups (on-line forums, message boards, chat sites, discussions.) Just example you log on any search engine like yahoo. com,google. com,altavista. com,excite. com then you search with this subject ? millionaire message board? or ?money making message board? or ? employment message board? or ?money making discussions? or ?money making forum? or ?business message board? etc. You will find thousand & thousand message board. Click one by one then you will find the option post a new message. : Step 5) Visit these message boards and post this article as a new message by highlighting the text of this letter and selecting paste from the edit menu. Fill in the Subject, this will be the header that everyone sees as they scroll through the list of postings in a particular group, click the post message button. You're done with your first one!. : Congratulations? THAT'S IT! All you have to do is jump to different newsgroups and post away, after you get the hang of it, and it will take about 30 seconds for each newsgroup! ** REMEMBER, THE MORE NEWSGROUPS OR MESSAGE BOARD YOU POST IN, THE MORE MONEY YOU EILL MAKE!! BUT YOU HAVE TO POST A MINIMUM OF 200** That's it! You will begin receiving money from around the world within days! You may eventually can rent a P.O. Box due to the large amount of mail you will receive. If you wish to stay anonymous, you can invent a name to use, as long as the postman will deliver it. **JUST MAKE SURE ALL THE ADDRESSES ARE CORRECT. ** : Now the WHY part: Out of 200 postings, say I receive only 5 replies (a very low example). So then I Made $5.00 with my name at #6 on the letter. Now, each of the 5 persons who just sent me $2.00 make the MINIMUM 200 postings, each with my name at #5 and only 5 persons respond to each of the original 5, that is another $25.00 for me, now those 25 each make 200 MINIMUM posts with my name at #4 and only 5 replies each, I will bring in an additional :$125.00! Now, those 125 persons turn around and post the MINIMUM 200 with my name at #3 and only receive 5 replies each, I will make an additional $625.00! OK, now here is the fun part, each of those 625 persons post a MINIMUM 200 letters with my name at #2 and they only receive 5 replies, that just made me $3,125.00!!! Those 3,125 persons will all deliver this message to 200 newsgroups with my name at #1 and if still 5 persons per 200 newsgroups react I will receive $15,625.00! With an original investment of only $12.00! AMAZING! When your name is no longer on the list, you just take latest posting in the newsgroups, and send out another $12.00 to names on the list, putting your name at number 6 again. And start posting again. The thing to remember is, do you realize that thousands of people all over the world are joining the internet and reading these articles everyday, JUST LIKE YOU are now!! So can you afford $12.. and see if it really works?? I think so? People have said, 'what if the plan is played out and no one sends you: the money? So what are the chances of that happening when there are tons of new honest users and new honest people who are joining the internet and newsgroups everyday and are willing to give it a try? Estimates are at 20,000 to 50,000 new users, every day, with thousands of those joining the actual Internet. AND YES YOU HAVE TO SEND THE MONEY FOR THIS TO WORK!!!dont try not to,IT WONT WORK TRUST ME Tag: DnsDomainSuffixSearchOrder. Tag: 152468
  - 21
    - VB Logon script 2003 server I have been searching these groups for hours to find a simple vb script. All I have found have been too complex and I have been unable to simplify them. Here is what I need help with: If user is a member of group "IT" map \\server\dept\IT If user is a member of group "HR" map \\server\dept\HR All clients are Win 2K/XP Any help would be much appreciated. Josh Tag: DnsDomainSuffixSearchOrder. Tag: 152466
  - 22
    - HTML Table Hi, how do I enforce a table cell or cells within a table not to expand horizontally? if I have text that exceed the width of the table, the table cell expands and I don't want that. Please advise. Rafael Tag: DnsDomainSuffixSearchOrder. Tag: 152465
  - 23
    - shell.run problems Hi, Whenever I use shell.run Norton AV catches my script as an unsafe script. I can authorize the script, but I have to do that on every machine every time I make a change to the script. Is there any other way I can launch a program from a script file? I want to launch Outlook. I know I can do it from a batch file, but how can I make the batch file run after my script file? Thanks!!! Tag: DnsDomainSuffixSearchOrder. Tag: 152459
  - 24
    - vbscript and kiosk question Hello, I have written some vbscript that compares the timestamp of a file written to a server against the actual time of the server. The file on the server is generated by a kiosk application that sends a request up to an asp page which in turn writes out a bit of information to a file, which in turn constantly makes the timestamp of the file change. When the user wants to check if any of kiosks are still running they can load the status monitor .asp page that quickly lets them know the last time any of the kiosks have pinged the server with a status update. At any rate, every now and then, even though the kiosks are running and sending pings to the server. The kiosk status monitor page reports that some of the kiosks are not running. I'm in no way an expert vbscript programmer and I was hoping that someone on this list would be kind enough to look at "is_kiosk_active(whatKioskFileName, whatTimeOffset)" function to see if they could possibly provide any clues as to why this script fails sometimes. The passed in parameters of the is_kiosk_active are as follows: whatKioskFileName = This is basically the name of the kiosk file sitting on the server that the kiosk itself creates and updates over time by sending messages to an asp page to update it whatTimeOffset = This is the time in minutes that the kiosk has to report to the status monitoring page. If the kiosk doesn't report to the server within this timeframe than the kiosk is considered down and not running. Any suggestions would be very very appreciated! Best Regards, devin <% FUNCTION is_kiosk_active(whatKioskFileName, whatTimeOffset) SET myFSO = Server.CreateObject("Scripting.FileSystemObject") 'this line creates an instance of the File Scripting Object named myFSO fname = Server.MapPath(whatKioskFileName) 'this returns back the path to the file on the server If myFSO.FileExists(fname) THEN 'the kiosk file exists so lets check to see if the kiosk is up and running serverInMilitaryTime = PMilTime(now) 'returns the military time of the server as a large integer w/o the colon seperator kioskInMilitaryTime = PMilTime(returnDateLastModified(whatKioskFileName)) 'returns the military time of the kiosk file as a large integer w/o the colon seperator If (serverInMilitaryTime >= kioskInMilitaryTime) Then 'the server hasn't crossed over into a new day so let's kioskOffsetTime = (serverInMilitaryTime - kioskInMilitaryTime) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if ELSE ' the kiosk time is greater than the server time which means we've crossed over into a new day kioskOffsetTime = (2360 - (kioskInMilitaryTime - serverInMilitaryTime)) 'subtract the serverInMilitaryTime from the kioskInMilitaryTime and then subtract that from 2360. Hope this works :) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if End if Else 'the kiosk file doesn't exist on the server yet! SET myFSO = NOTHING 'destroy the instance of the File Scripting Object named myFSO is_kiosk_active = "waiting" 'return back a status of 'waiting' which will display a yellow bubble End If END FUNCTION ' FUNCTION returnDateLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified ' return the value to the calling handler returnDateLastModified = ldLast ELSE ' Release the objects Set loFs = Nothing returnDateLastModified = "NA" END IF END FUNCTION ' FUNCTION returnTimeLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified 'Response.Write "File modified time = " & ldLast & "<br>" ' Release the objects Set loFile = Nothing Set loFs = Nothing strLength = Len( ldLast ) charStart = InStr( ldLast, " ") + 1 fileModTime = Mid( ldLast , charStart ) charLen = Len (fileModTime) returnTimeLastModified = Left(fileModTime, (charLen-6)) ELSE ' Release the objects Set loFs = Nothing returnTimeLastModified = "NA" END IF END FUNCTION ' FUNCTION returnAMorPM_string(whatString) 'return the last two characters of the string amOrPm = Right(whatString,2) returnAMorPM_string = amOrPm END FUNCTION ' FUNCTION return_hours(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_hours = Left(whatTime,1) ELSE return_hours = Left(whatTime,2) END IF END FUNCTION ' FUNCTION return_minutes(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_minutes = Mid(whatTime, 3, 2) ELSE return_minutes = Mid(whatTime, 4, 2) END IF END FUNCTION ' FUNCTION return_server_time() serverTime = now 'Response.Write "Server Time = " & serverTime & "<br>" strLength = Len( serverTime ) charStart = InStr( serverTime , " ") + 1 fileModTime = Mid(serverTime , charStart ) charLen = Len (fileModTime) return_server_time = Left(fileModTime, (charLen-6)) END FUNCTION ' FUNCTION returnKioskPingTime (whatKioskName) 'this line creates an instance of the File Scripting Object named myFSO SET myFSO = Server.CreateObject("Scripting.FileSystemObject") pingFileName = Server.MapPath(whatKioskName) 'the file exists so lets grab the ping time value from the file If myFSO.FileExists(pingFileName) Then 'open a text strem to the myKioskCurrent data file set readfile = myFSO.OpenTextFile(pingFileName, 1, false) 'read the kiosk ping time value from the file kioskPingTime = readfile.ReadLine ' close the file handle readfile.close ' Release the file object Set myFSO = Nothing returnKioskPingTime = kioskPingTime ELSE 'The kiosk ping file hasn't been created yet so let's return back a ping time of 'NA' ' Release the file object Set myFSO = Nothing returnKioskPingTime = "NA" END IF END FUNCTION FUNCTION PMilTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn 'PMilTime = hr & ":" & mn PMilTime = CInt(hr & mn) END FUNCTION FUNCTION returnServerMilitaryTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) : ss = second(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn if len(ss) = 1 then ss = 0 & ss returnServerMilitaryTime = hr & ":" & mn & ":" & ss END FUNCTION %> Tag: DnsDomainSuffixSearchOrder. Tag: 152455
  - 25
    - vbscript and kiosk question Hello, I have written some vbscript that compares the timestamp of a file written to a server againts the actual time of the server. The file on the server is generated by a kiosk application that sends a request up to an asp page which in turn writes out a bit of information to a file, which in turn constantly makes the timestamp of the file change. When the user wants to check if any of kiosks are still running they can load the status monitor .asp page that quickly lets them know the last time any of the kiosks have pinged the server with a status update. At any rate, every now and then, even though the kiosks are running and sending pings to the server. The kiosk status monitor page reports that some of the kiosks are not running. I'm in no way an expert vbscript programmer and I was hoping that someone on this list would be kind enough to look at "is_kiosk_active(whatKioskFileName, whatTimeOffset)" function to see if they could possibly provide any clues as to why this script fails sometimes. The passed in parameters of the is_kiosk_active are as follows: whatKioskFileName = This is basically the name of the kiosk file sitting on the server that the kiosk itself creates and updates over time by sending messages to an asp page to update it whatTimeOffset = This is the time in minutes that the kiosk has to report to the status monitoring page. If the kiosk doesn't report to the server within this timeframe than the kiosk is considered down and not running. Any suggestions would be very very appreciated! Best Regards, devin <% FUNCTION is_kiosk_active(whatKioskFileName, whatTimeOffset) SET myFSO = Server.CreateObject("Scripting.FileSystemObject") 'this line creates an instance of the File Scripting Object named myFSO fname = Server.MapPath(whatKioskFileName) 'this returns back the path to the file on the server If myFSO.FileExists(fname) THEN 'the kiosk file exists so lets check to see if the kiosk is up and running serverInMilitaryTime = PMilTime(now) 'returns the military time of the server as a large integer w/o the colon seperator kioskInMilitaryTime = PMilTime(returnDateLastModified(whatKioskFileName)) 'returns the military time of the kiosk file as a large integer w/o the colon seperator If (serverInMilitaryTime >= kioskInMilitaryTime) Then 'the server hasn't crossed over into a new day so let's kioskOffsetTime = (serverInMilitaryTime - kioskInMilitaryTime) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if ELSE ' the kiosk time is greater than the server time which means we've crossed over into a new day kioskOffsetTime = (2360 - (kioskInMilitaryTime - serverInMilitaryTime)) 'subtract the serverInMilitaryTime from the kioskInMilitaryTime and then subtract that from 2360. Hope this works :) If (kioskOffsetTime > whatTimeOffset) Then 'the kiosk has failed to report within its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "false" 'return back 'false' to the calling method Else 'the kiosk reported during its offset time SET myFSO = NOTHING 'destroy the instance of the File Scripting Object is_kiosk_active = "true" 'return back 'false' to the calling method End if End if Else 'the kiosk file doesn't exist on the server yet! SET myFSO = NOTHING 'destroy the instance of the File Scripting Object named myFSO is_kiosk_active = "waiting" 'return back a status of 'waiting' which will display a yellow bubble End If END FUNCTION ' FUNCTION returnDateLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified ' return the value to the calling handler returnDateLastModified = ldLast ELSE ' Release the objects Set loFs = Nothing returnDateLastModified = "NA" END IF END FUNCTION ' FUNCTION returnTimeLastModified (whatFileName) ' Create an instance of FileSystemObject object Set loFs = Server.CreateObject("Scripting.FileSystemObject") ' Get the physical path of the file lsPath = Server.MapPath(whatFileName) 'the file exists lets check to see if the kiosk is up and running by comparing 'time values on the server and the modified time of the kiosk file If loFs.FileExists(lsPath) Then ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified 'Response.Write "File modified time = " & ldLast & "<br>" ' Release the objects Set loFile = Nothing Set loFs = Nothing strLength = Len( ldLast ) charStart = InStr( ldLast, " ") + 1 fileModTime = Mid( ldLast , charStart ) charLen = Len (fileModTime) returnTimeLastModified = Left(fileModTime, (charLen-6)) ELSE ' Release the objects Set loFs = Nothing returnTimeLastModified = "NA" END IF END FUNCTION ' FUNCTION returnAMorPM_string(whatString) 'return the last two characters of the string amOrPm = Right(whatString,2) returnAMorPM_string = amOrPm END FUNCTION ' FUNCTION return_hours(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_hours = Left(whatTime,1) ELSE return_hours = Left(whatTime,2) END IF END FUNCTION ' FUNCTION return_minutes(whatTime) myColon = instr(1, whatTime, ":",vbBinaryCompare) IF myColon = 2 THEN return_minutes = Mid(whatTime, 3, 2) ELSE return_minutes = Mid(whatTime, 4, 2) END IF END FUNCTION ' FUNCTION return_server_time() serverTime = now 'Response.Write "Server Time = " & serverTime & "<br>" strLength = Len( serverTime ) charStart = InStr( serverTime , " ") + 1 fileModTime = Mid(serverTime , charStart ) charLen = Len (fileModTime) return_server_time = Left(fileModTime, (charLen-6)) END FUNCTION ' FUNCTION returnKioskPingTime (whatKioskName) 'this line creates an instance of the File Scripting Object named myFSO SET myFSO = Server.CreateObject("Scripting.FileSystemObject") pingFileName = Server.MapPath(whatKioskName) 'the file exists so lets grab the ping time value from the file If myFSO.FileExists(pingFileName) Then 'open a text strem to the myKioskCurrent data file set readfile = myFSO.OpenTextFile(pingFileName, 1, false) 'read the kiosk ping time value from the file kioskPingTime = readfile.ReadLine ' close the file handle readfile.close ' Release the file object Set myFSO = Nothing returnKioskPingTime = kioskPingTime ELSE 'The kiosk ping file hasn't been created yet so let's return back a ping time of 'NA' ' Release the file object Set myFSO = Nothing returnKioskPingTime = "NA" END IF END FUNCTION FUNCTION PMilTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn 'PMilTime = hr & ":" & mn PMilTime = CInt(hr & mn) END FUNCTION FUNCTION returnServerMilitaryTime(Byval dtime) dim hr,mn hr = hour(dtime) : mn = minute(dtime) : ss = second(dtime) if len(hr) = 1 then hr = 0 & hr if len(mn) = 1 then mn = 0 & mn if len(ss) = 1 then ss = 0 & ss returnServerMilitaryTime = hr & ":" & mn & ":" & ss END FUNCTION %> Tag: DnsDomainSuffixSearchOrder. Tag: 152454

Does anyone have any suggestions to make this more elegant? It pulls the
Dns Suffix Search Order from the registry and compares it to 'DnsSuffixes'
which should be there by default. If the user already has additional
suffixes, it adds them to the back-end of the string and then puts it back
into the registry.

Thanks,
Rob Boger

'> DNS Suffix Search Order.

Function SetDnsSuffixes(Computer)
Dim RegistryObject, CurrentDnsSuffixes, DnsSuffixes, NewDnsSuffixes,
WshShell
Set RegistryObject =
GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & Computer &
"\root\default:StdRegProv")

'> Define Dns Suffix Search Order.
DnsSuffixes = Array("my.domain.com", _
"domain.com", _
"sbc.com")

'> Get Current Dns Suffix Search Order.
RegistryObject.GetStringValue &H80000002, _
"System\CurrentControlSet\Services\TCPIP\Parameters",
"SearchList", CurrentDnsSuffixes
CurrentDnsSuffixes = Split(CurrentDnsSuffixes,",")

'> Compare Dns Suffixes.
For J = 0 To Ubound(DnsSuffixes)
For I = 0 To Ubound(CurrentDnsSuffixes)
If Ucase(CurrentDnsSuffixes(I)) = Ucase(DnsSuffixes(J))
Then
CurrentDnsSuffixes(I) = ""
End If
Next
NewDnsSuffixes = NewDnsSuffixes & DnsSuffixes(J)
If J <> Ubound(DnsSuffixes) Then
NewDnsSuffixes = NewDnsSuffixes & ","
End If
Next

'> Add Existing Dns Suffixes.
For I = 0 To Ubound(CurrentDnsSuffixes)
If CurrentDnsSuffixes(I) <> "" Then
NewDnsSuffixes = NewDnsSuffixes & "," &
CurrentDnsSuffixes(I)
End If
Next

'> Update Dns Suffixes.
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite
"HKLM\System\CurrentControlSet\Services\TCPIP\Parameters\SearchList", _
NewDnsSuffixes, "REG_SZ"

End Function

Top

Re: DnsDomainSuffixSearchOrder. by Rob

Rob
Sat Feb 07 06:08:31 CST 2004

I got it slimmed down a little bit:

'> DNS Suffix Search Order.

Function SetDnsSuffixes(Computer)
Dim CurrentDnsSuffixes, DnsSuffixes, NewDnsSuffixes, RegistryKey,
WshShell
Set WshShell = CreateObject("Wscript.Shell")

'> Define Variables.
RegistryKey = "HKLM\System\CurrentControlSet\Services" & _
"\TCPIP\Parameters\SearchList"
DnsSuffixes = Array("my.domain.com", _
"domain.com", _
"sbc.com")

'> Get Current Dns Suffix Search Order.
CurrentDnsSuffixes = Split(WshShell.RegRead(RegistryKey),",")

'> Compare Dns Suffixes.
For J = 0 To Ubound(DnsSuffixes)
For I = 0 To Ubound(CurrentDnsSuffixes)
If Ucase(CurrentDnsSuffixes(I)) = Ucase(DnsSuffixes(J))
Then
CurrentDnsSuffixes(I) = ""
End If
Next

NewDnsSuffixes = NewDnsSuffixes & DnsSuffixes(J)
If J <> Ubound(DnsSuffixes) Then
NewDnsSuffixes = NewDnsSuffixes & ","
End If
Next

'> Add Existing Dns Suffixes.
For I = 0 To Ubound(CurrentDnsSuffixes)
If CurrentDnsSuffixes(I) <> "" Then
NewDnsSuffixes = NewDnsSuffixes & "," &
CurrentDnsSuffixes(I)
End If
Next

'> Update Dns Suffixes.
WshShell.RegWrite RegistryKey, NewDnsSuffixes, "REG_SZ"

End Function

Top