NT 4.0 and Exchange 5.5 send e-mail

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
    - Cannot read HKEY_USERS subkeys Hi all, I cannot use "EnumKey" for the HKEY_USERS. The script below was working smoothly with windows 2000 sp3. However, after installing sp4, it does not run correctly; it enumerates HKEY_CURRENT_USER, instead of HKEY_USERS. How can I enumerates HKEY_USERS? const HKEY_CURRENT_USER = &H80000001 const HKEY_LOCAL_MACHINE = &H80000002 const HKEY_USERS = &H80000003 const strIEHomePageKeyPath = "\Software\Microsoft\Internet Explorer\Main" const strIEHomePageValue = "Start Page" const strLogonKeyPath = "\Software\Microsoft\Windows\CurrentVersion\Explorer" strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "" oReg.EnumKey HKEY_USERS, "", arrSubKeys Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140053
  - 2
    - Have VBScript save a downloaded CSV file from a link I have several shortcuts that link to an asp page which creates a CSV file (based on the arguments that I provide to the ASP page). Running these shortcuts and saving the files to my disk is now a manual operation, which I would like to combine in a script, which would execute each of the ASP pages, and save the resulting files. However, I do not know how to tell my VBScript that it should press the "Save this file to disk" button once the dialogue box pops up. What would be the best technique to solve this problem (if possible at all). I am familiar with VBScript, object oriented programming, retrieving html pages in a script by using Microsoft.XMLHTTP and adodb.stream. Thanks in advance. Bert Geenen - Belgium Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140051
  - 3
    - sms Hi at all! Could anyone to say me how to send SMS using ASP/VBSCRIPT page? Thanks Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140045
  - 4
    - Stop / start service Hello, I want to do something like this: >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Set objServiceset = GetObject("winmgmts:").InstancesOf ("Win32_Service") for each Service in objServiceset if (Service.Name = NameService) AND (Service.State = "Running") then Service.stopService do while Service.State <> "Stopped" Wscript.sleep 1000 loop Service.startService do while Service.State <> "Running" Wscript.sleep 1000 loop End If next Set objServiceset = Nothing <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< This script stops the Service, but it seems that the Service.State is not changing. So the script never start the service again. Why is this and what must I do to get this script working, so the service is stopt and started. F.Reijsbergen Koninklijke Bibliotheek fons.reijsbergen@kb.nl Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140044
  - 5
    - Why doesn't my cdonts script send a msg?? Win 2K Do I need to enable a service? Dim MyBody Dim MyCDONTSMail Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= "jpmgt@NoSpamsbcglobal.net" MyCDONTSMail.To= "jpmgt@NoSpamsbcglobal.net" MyCDONTSMail.Subject="This is a Test" MyBody = "bla bla bla bla bla " & vbCrLf MyBody = MyBody & "bla bla bla bla bla " & vbCrLf MyBody = MyBody & "bla bla bla bla bla " MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing TIA JeffP.... Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140043
  - 6
    - Worksheets("Sheet1").Copy Before:= Hello, I'm trying to figure out how to use the worksheet.copy function in a vbs script but it generates an error saying expected statement. The code is below XLFile = "c:\scripts\test\book1.xls" Set objExcel = WScript.CreateObject("EXCEL.application") objExcel.Visible = True objExcel.Workbooks.Open XLFile objExcel.Worksheets.Add.Name ="USERSLIST" objExcel.Workbooks(XLFile).Worksheets("USERSLIST").Copy After:=Workbooks(XLFile).Worksheets(2) Any help at all would be greatly appreciated. Thanks. Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140021
  - 7
    - code signing I have never done this before so I may be way off base... If I am, please direct me :) My understanding of the scripting.Signer sign method is as follows: ---- Dim Signer, UnsignedText, SignedText, fso, SignedFile Set FSO = CreateObject("Scripting.FileSystemObject") Set Signer = CreateObject("Scripting.Signer") UnsignedText = InputBox("Enter the text of the code to be signed.","Code Signer") SignedText = Signer.Sign(".vbs",UnsignedText,"Code Signature","Personal") 'Code Signature is the friendly name on my code signing certificate. Set SignedFile = fso.CreateTextFile ("C:\SignedCode.vbs",true) SignedFile.WriteLine(SignedText) SignedFile.Close ---- I keep getting an error on the InptBox line. I think it has to do with accessing the certificate but none of the documentation I have found on this object is very clear as to how to access the certificate. It just says "a string designating the name of the certificate store." What method do I use to access the certificate or where do I find the name of the certificate that was issued. The friendly name is seeming not to be so... Thanks for any assistance! Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140017
  - 8
    - IPConfig Can I run ipconfig remotely and perform an ipconfig /renew on a remote workstation Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140013
  - 9
    - Read each line of a text file in an array Help I have a text file which has file locations within it e.g C:\Windows\Installer\12314.msi C:\Windows\Installer\12224.msi C:\Windows\Installer\13434.msi I would like to read this text file a line at a time and do something with each line. I have a function to do what I want, however I do not know how to read the line act upon it and then get the next line and act upon it. Can anyone help? Thanks Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140011
  - 10
    - Remote Server.CreateObject? I would like to create an instance of a COM object in an ASP script where the COM object is installed on a remote machine. Is this possible? If so, can someone point me in the right direction? Thanks. Craig Buchanan ______________________________________________________________________________ Crystal Decisions USENET forums at http://www.cogniza.com/support/forums Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140008
  - 11
    - continue after reboot... I'm writing a script that gets the client name, creates a folder of the client name on a server, then disable the key and mouse and then I reboot the machine for the mouse and keyboard to be disabled. now what i want to do is allow the script to continue from where it left off at. how can i accomplish this task? thanks for your help thomas Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 140002
  - 12
    - Help with adding "username adusiting to this script I know this can be done but I havn't got a clue as to how. I want this script to check for the user currently logged in to the remote machine and insert it into the excel document. I wold like the username column next to the serial number column. Thanks in advance for any help you could give me. Ben CONST ForReading = 1 CONST ForWriting = 2 CONST DEV_ID = 0 CONST FSYS = 1 CONST DSIZE = 2 CONST FSPACE = 3 CONST USPACE = 4 CONST TITLE = "SMS Script" Dim fso, f, fsox, fx, objXL, wmiPath Dim computerIndex, wscr, adsi, intbutton, strStart Dim inputFile, outputFile, objKill, strAction, strComplete Dim strPC, intRow, strFilter, RowNum, strCompName Dim strSN, strDEV_ID, strFSYS, strDSIZE, strFSPACE, strUSPACE Dim strRAM, strVir, strPage, strOS, strSP, strProdID, strStatic Dim strNIC, strIP, strMask, strGate, strMAC, strProc, strSpeed set adsi = CreateObject("ADSystemInfo") set wscr = CreateObject("WScript.Network") inputFile = "C:\scripts\Input.txt" outputFile = "C:\scripts\output.txt" Call KillFile() set fso = CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile(inputFile, ForReading, True) set fsox = CreateObject("Scripting.FileSystemObject") set fx = fsox.OpenTextFile(outputFile, ForWriting, True) computerIndex = 1 '****************** '**[ FUNCTIONS ]*************** Function Ask(strAction) intButton = MsgBox(strAction, vbQuestion + vbYesNo, TITLE) Ask = intButton = vbNo End Function '**[ MAIN SCRIPT ]************* If Ask("Would you like to start inventory run") Then Wscript.Quit Else strStart = "Inventory run started: " & Date & " at " & time End If Call BuildXLS() Call Connect() Call Footer() objXL.ActiveWorkbook.SaveAs "c:\scripts\sms.xls" MsgBox "Inventory run is complete!", vbInformation + vbOKOnly, TITLE '****************** '**[ SUB ROUTINES ]************ '*** Subroutine Connect *** Sub Connect() Do While f.AtEndOfLine <> True strPC = f.ReadLine Call Error() On Error Resume Next strCompName = UCase(strPC) set BIOSSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select SerialNumber from Win32_BIOS") for each BIOS in BIOSSet strSN = BIOS.SerialNumber Next set MemorySet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select TotalPhysicalMemory, TotalVirtualMemory, TotalPageFileSpace from Win32_LogicalMemoryConfiguration") for each Memory in MemorySet strRAM = FormatNumber(Memory.TotalPhysicalMemory/1024,1) & " Mbytes" strVir = FormatNumber(Memory.TotalVirtualMemory/1024,1) & " Mbytes" strPage = FormatNumber(Memory.TotalPageFileSpace/1024,1) & " Mbytes" Next set OSSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select Caption, CSDVersion, SerialNumber from Win32_OperatingSystem") for each OS in OSSet strOS = OS.Caption strSP = OS.CSDVersion strProdID = OS.SerialNumber Next set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select ServiceName, IPAddress, IPSubnet, DefaultIPGateway, MACAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") Count = 0 for each IPConfig in IPConfigSet Count = Count + 1 Next ReDim sName(Count - 1) ReDim sIP(Count - 1) ReDim sMask(Count - 1) ReDim sGate(Count - 1) ReDim sMAC(Count - 1) Count = 0 for each IPConfig in IPConfigSet sName(Count) = IPConfig.ServiceName(0) strNIC = sName(Count) sIP(Count) = IPConfig.IPAddress(0) strIP = sIP(Count) sMask(Count) = IPConfig.IPSubnet(0) strMask = sMask(Count) sGate(Count) = IPConfig.DefaultIPGateway(0) strGate = sGate(Count) sMAC(Count) = IPConfig.MACAddress(0) strMAC = sMAC(Count) Count = Count + 1 Next set ProSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select Name, MaxClockSpeed from Win32_Processor") for each Pro in ProSet strProc = Pro.Name strSpeed = Pro.MaxClockSpeed Next Call Disk_C() Call Disk_D() Call Disk_E() Loop End Sub '*** Subroutine Build XLS *** Sub BuildXLS() intRow = 1 Set objXL = Wscript.CreateObject("Excel.Application") objXL.Visible = True objXL.WorkBooks.Add '** Set Row Height objXL.Rows(1).RowHeight = 40 '** Set Column widths objXL.Columns(1).ColumnWidth = 14 objXL.Columns(2).ColumnWidth = 15 objXL.Columns(3).ColumnWidth = 7 objXL.Columns(4).ColumnWidth = 7 objXL.Columns(5).ColumnWidth = 11 objXL.Columns(6).ColumnWidth = 11 objXL.Columns(7).ColumnWidth = 11 objXL.Columns(8).ColumnWidth = 12 objXL.Columns(9).ColumnWidth = 12 objXL.Columns(10).ColumnWidth = 12 objXL.Columns(11).ColumnWidth = 32 objXL.Columns(12).ColumnWidth = 13 objXL.Columns(13).ColumnWidth = 24 objXL.Columns(14).ColumnWidth = 10 objXL.Columns(15).ColumnWidth = 12 objXL.Columns(16).ColumnWidth = 12 objXL.Columns(17).ColumnWidth = 12 objXL.Columns(18).ColumnWidth = 17 objXL.Columns(19).ColumnWidth = 24 objXL.Columns(20).ColumnWidth = 7 '*** Set Cell Format for Column Titles *** objXL.Range("A1:T1").Select objXL.Selection.Font.Bold = True objXL.Selection.Interior.ColorIndex = 9 objXL.Selection.Interior.Pattern = 1 'xlSolid objXL.Selection.Font.ColorIndex = 2 objXL.Selection.WrapText = True objXL.Columns("A:T").Select objXL.Selection.HorizontalAlignment = 3 'xlCenter '*** Set Column Titles *** Call AddLineToXLS("Computer Name","Serial Number","Device ID","File System","Disk Size","Free Space","Used Space","Physical Memory","Virtual Memory","Page File","Operating System","Service Pack","Product ID","Network Card","IP Address","Subnet Mask","Default Gateway","MAC Address","Processor","Speed") End Sub '*** Subroutine Add Lines to XLS *** Sub AddLineToXLS(strCompName, strSN, strDEV_ID, strFSYS, strDSIZE, strFSPACE, strUSPACE, strRAM, strVir, strPage, strOS, strSP, strProdID, strNIC, strIP, strMask, strGate, strMAC, strProc, strSpeed) objXL.Cells(intRow, 1).Value = strCompName objXL.Cells(intRow, 2).Value = strSN objXL.Cells(intRow, 3).Value = strDEV_ID objXL.Cells(intRow, 4).Value = strFSYS objXL.Cells(intRow, 5).Value = strDSIZE objXL.Cells(intRow, 6).Value = strFSPACE objXL.Cells(intRow, 7).Value = strUSPACE objXL.Cells(intRow, 8).Value = strRAM objXL.Cells(intRow, 9).Value = strVir objXL.Cells(intRow, 10).Value = strPage objXL.Cells(intRow, 11).Value = strOS objXL.Cells(intRow, 12).Value = strSP objXL.Cells(intRow, 13).Value = strProdID objXL.Cells(intRow, 14).Value = strNIC objXL.Cells(intRow, 15).Value = strIP objXL.Cells(intRow, 16).Value = strMask objXL.Cells(intRow, 17).Value = strGate objXL.Cells(intRow, 18).Value = strMAC objXL.Cells(intRow, 19).Value = strProc objXL.Cells(intRow, 20).Value = strSpeed intRow = intRow + 1 objXL.Cells(1, 1).Select End Sub '*** Subroutine Add Lines to XLS for Disk Info. *** Sub AddLineToDisk(strDEV_ID, strFSYS, strDSIZE, strFSPACE, strUSPACE) objXL.Cells(intRow, 3).Value = strDEV_ID objXL.Cells(intRow, 4).Value = strFSYS objXL.Cells(intRow, 5).Value = strDSIZE objXL.Cells(intRow, 6).Value = strFSPACE objXL.Cells(intRow, 7).Value = strUSPACE intRow = intRow + 1 objXL.Cells(1, 1).Select End Sub '*** Subroutine to parse C: Partition *** Sub Disk_C() set DiskSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select DeviceID, FileSystem, Size, FreeSpace from Win32_LogicalDisk where DeviceID = 'C:' and DriveType = '3'") ReDim strDisk(RowNum,4) for each Disk in DiskSet strDisk(RowNum,DEV_ID)= Disk.DeviceID strDisk(RowNum,FSYS)= Disk.FileSystem strDisk(RowNum,DSIZE)= FormatNumber(Disk.Size/2^30,1) & " Gbytes" strDisk(RowNum,FSPACE)= FormatNumber(Disk.FreeSpace/2^30,1) & " Gbytes" strDisk(RowNum,USPACE)= FormatNumber((Disk.Size-Disk.FreeSpace)/2^30,1) & " Gbytes" Call AddLineToXLS(strCompName, strSN, strDisk(RowNum,DEV_ID), strDisk(RowNum,FSYS), strDisk(RowNum,DSIZE), strDisk(RowNum,FSPACE), strDisk(RowNum,USPACE), strRAM, strVir, strPage, strOS, strSP, strProdID, strNIC, strIP, strMask, strGate, strMAC, strProc, strSpeed) Next End Sub '*** Subroutine to parse D: Partition *** Sub Disk_D() set DiskSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select DeviceID, FileSystem, Size, FreeSpace from Win32_LogicalDisk where DeviceID = 'D:' and DriveType = '3'") On Error Resume Next ReDim strDisk(RowNum,4) for each Disk in DiskSet strDisk(RowNum,DEV_ID)= Disk.DeviceID strDisk(RowNum,FSYS)= Disk.FileSystem strDisk(RowNum,DSIZE)= FormatNumber(Disk.Size/2^30,1) & " Gbytes" strDisk(RowNum,FSPACE)= FormatNumber(Disk.FreeSpace/2^30,1) & " Gbytes" strDisk(RowNum,USPACE)= FormatNumber((Disk.Size-Disk.FreeSpace)/2^30,1) & " Gbytes" If IsNull(strDisk(RowNum,FSYS)) Then Exit Sub End If Call AddLineToDisk(strDisk(RowNum,DEV_ID), strDisk(RowNum,FSYS), strDisk(RowNum,DSIZE), strDisk(RowNum,FSPACE), strDisk(RowNum,USPACE)) Next End Sub Sub Disk_E() set DiskSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select DeviceID, FileSystem, Size, FreeSpace from Win32_LogicalDisk where DeviceID = 'E:' and DriveType = '3'") On Error Resume Next ReDim strDisk(RowNum,4) for each Disk in DiskSet strDisk(RowNum,DEV_ID)= Disk.DeviceID strDisk(RowNum,FSYS)= Disk.FileSystem strDisk(RowNum,DSIZE)= FormatNumber(Disk.Size/2^30,1) & " Gbytes" strDisk(RowNum,FSPACE)= FormatNumber(Disk.FreeSpace/2^30,1) & " Gbytes" strDisk(RowNum,USPACE)= FormatNumber((Disk.Size-Disk.FreeSpace)/2^30,1) & " Gbytes" If IsNull(strDisk(RowNum,FSYS)) Then Exit Sub End If Call AddLineToDisk(strDisk(RowNum,DEV_ID), strDisk(RowNum,FSYS), strDisk(RowNum,DSIZE), strDisk(RowNum,FSPACE), strDisk(RowNum,USPACE)) Next End Sub '*** Delete file if exists *** Sub KillFile() Set objKill = CreateObject("Scripting.FileSystemObject") If (objKill.FileExists("c:\sms.xls")) Then objKill.DeleteFile("c:\sms.xls") End If If (objKill.FileExists("c:\PC_Inv_NA.txt")) Then objKill.DeleteFile("c:\PC_Inv_NA.txt") End If Set objKill = Nothing End Sub '*** Sub to add footer when speadsheet is complete *** Sub Footer() strFooter1 = "blah" strFooter2 = "Script provided for creating PC Hardware Inventory" strComplete = "Inventory run completed: " & Date & " at " & time intRow = intRow + 5 '** Set Cell Format for Row objXL.Cells(intRow, 1).Select objXL.Selection.Font.ColorIndex = 1 objXL.Selection.Font.Size = 8 objXL.Selection.Font.Bold = False objXL.Selection.HorizontalAlignment = 2 'xlLeft objXL.Cells(intRow, 1).Value = strFooter1 intRow = intRow + 1 '** Set Cell Format for Row objXL.Cells(intRow, 1).Select objXL.Selection.Font.ColorIndex = 1 objXL.Selection.Font.Size = 8 objXL.Selection.Font.Bold = False objXL.Selection.HorizontalAlignment = 2 'xlLeft objXL.Cells(intRow, 1).Value = strFooter2 intRow = intRow + 1 '** Set Cell Format for Row objXL.Cells(intRow, 1).Select objXL.Selection.Font.ColorIndex = 1 objXL.Selection.Font.Size = 8 objXL.Selection.Font.Bold = False objXL.Selection.HorizontalAlignment = 2 'xlLeft objXL.Cells(intRow, 1).Value = strStart intRow = intRow + 1 '** Set Cell Format for Row objXL.Cells(intRow, 1).Select objXL.Selection.Font.ColorIndex = 1 objXL.Selection.Font.Size = 8 objXL.Selection.Font.Bold = False objXL.Selection.HorizontalAlignment = 2 'xlLeft objXL.Cells(intRow, 1).Value = strComplete intRow = intRow + 1 End Sub '*** ErrorHandler *** Sub Error() On Error Resume Next set CompSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strPC & "/root/cimv2").ExecQuery("select Name from Win32_ComputerSystem") If Err Then fx.WriteLine(strPC) End If computerIndex = computerIndex + 1 End Sub Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139998
  - 13
    - Automate Source Control I need to write a vbscript that opens a solution from source control in VS.Net 2003. I can't figure out what object to even use for scripting purposes. Any help please? ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139996
  - 14
    - Almost there but missing a few things I've currently got this script working to give me several variables that I need to see. This will be added to our login script and will be captured into a dump file. I'm still missing two pieces of information: 1) username of user logging in and 2) cpu/processor output that's better than what I've got coming back: (Processor: x86 Family 6 Model 8 Stepping 6 CurrentClockSpeed: 993) And finally, I need to have it dump out to a text file, and have said file append to have all the data in one file. Thanks in advance!! ;-) Script follows: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colSettings Wscript.Echo "OS Name: " & objOperatingSystem.Name Wscript.Echo "Service Pack: " & _ objOperatingSystem.ServicePackMajorVersion _ & "." & objOperatingSystem.ServicePackMinorVersion Next Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colSettings Wscript.Echo "System Name: " & objComputer.Name Wscript.Echo "System Model: " & objComputer.Model Wscript.Echo "Total Physical Memory: " & _ objComputer.TotalPhysicalMemory Next Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_Processor") For Each objProcessor in colSettings Wscript.Echo "Processor: " & objProcessor.Description Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48) For Each objItem in colItems Wscript.Echo "CurrentClockSpeed: " & objItem.CurrentClockSpeed Next Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_BIOS") For Each objBIOS in colSettings Wscript.Echo "BIOS Version: " & objBIOS.Version Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("c:\program files\microsoft office\office\msaccess.exe") Wscript.Echo "Name: " & objFile.Name Wscript.Echo "Path: " & objFile.Path Wscript.Echo "Size: " & objFile.Size WScript.Echo "Version: " & objFSO.GetFileVersion("c:\program files\microsoft office\office\msaccess.exe") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("c:\program files\microsoft office\office\winword.exe") Wscript.Echo "Name: " & objFile.Name Wscript.Echo "Path: " & objFile.Path Wscript.Echo "Size: " & objFile.Size WScript.Echo "Version: " & objFSO.GetFileVersion("c:\program files\microsoft office\office\winword.exe") Wscript.Echo objFSO.GetFileVersion("c:\program files\internet explorer\iexplore.exe") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("c:\program files\internet explorer\iexplore.exe") Wscript.Echo "Name: " & objFile.Name Wscript.Echo "Path: " & objFile.Path Wscript.Echo "Size: " & objFile.Size WScript.Echo "Version: " & objFSO.GetFileVersion("c:\program files\internet explorer\iexplore.exe") On Error Resume Next next Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139995
  - 15
    - Framesets: How to change frames depending on content Hi, How do you change the src of a frame depending upon what the main page displays. I have a banner top named banner, a left Column named menu and a right column named main. When the contents of Main change, I would like to have in the OnLoad event a way to change the contents of the frame menu. How do I do this? I tried to use window.frames() but I don't know where to go from here. Thank you, Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139993
  - 16
    - table hello, I have a table made up of column and of line, I would like to assign to a whole of line a value (example: table.rows(4).cells(1 with 4).innerhtml = "ABC") currently I manage to isolate a cell but not a unit from cell. How to make thank you? Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139990
  - 17
    - Automated Enable of XP Firewall after Sysprep Hello all- It seems that, after sysprepping, Windows turns off the internet connection firewall, which we use quite extensively here at UW-Milwaukee. However, we want to roll out Windows XP to our campus computer labs. Is there a way, either through GPO, VBScripting a WMI call, or some other magic that will let us re-enable this? Also, are there ways to programmatically control the firewall (such as add new rules, enable or disable existing rules, etc.)? Thanks, chris. / Chris Hota (cghota@uwm.edu) | ITPS Supervisor - (R&D) | CSC/IT Purchasing & Support | I&MT/Student Technology Services | UW-Milwaukee | Bolton 218 - (414)229-3186 \ Cell Phone - (414)840-4682 Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139981
  - 18
    - Login Script NetWare network with XP and Windows ME clients. Not using client32 due to client request. I want to create a script that will automatically populate the logon script property of the logged on user. The clients are in a workgroup environment. -- Michael Bell Bell Consulting Services, Inc. No emails please. Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139978
  - 19
    - delprof utility within vbscripts This is a multi-part message in MIME format. ------=_NextPart_000_003B_01C3569C.E29EA300 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi All, I was helping someone in another newsgroup and got a little stuck = and it is becoming a scripting issue, so I suggested we discuss the = issue here. Background Basically, the writer has about 500 workstation and 2000 users. = They for various reasons don't use network profiles and everyone uses = local profiles. What he wants to do is delete from all the workstations = any profiles that are number and leave any profiles that are letters = (numeric profiles are the profiles that he wants removed). I came up = with a script that would look at the subfolders of documents and = settings and if the folder is a number to delete it and if not to not = delete it. The problem is that unless the user logs in as an = admistrator, he doesn't have the permissions to delete the folders. = Plus as a microsoft person said, "Profiles shouldn't be deleted by = whacking the "c:\document and settings\UserName" directory". =20 Now DELPROF is a command line utility that could do it. And he can = even do it remotely. However, there is no way to specify which users = profiles gets zapped. The Question Obviously you can do shell.run to run delprof. There is an option = (/p) to prompt before deleting each profile. What I was wondering if = there is a way to take the output and put it into a string and respond = to the question. For example, if the thing asks should it delete a = profile, vbscript can see what profile it is asking and then do an = IsNumeric function and answer y or n at the command line accordingly Or is there some other scripting solution? I don't know if WMI can = delete folders like below (which is the script I suggested), but still = that doesn't solve the problem that supposedly you shouldn't delete = profiles by goign after the user's in document and settings. Robert =20 --=20 --=20 Regardless of whether my signature is long or short, I still welcome = e-mails if you know my address but won't post it. But on the positive = side, I don't try and impress by quoting others. --=20 ------=_NextPart_000_003B_01C3569C.E29EA300 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.1106" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi All,</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    I was helping = someone in another=20 newsgroup and got a little stuck and it is becoming a scripting issue, = so I=20 suggested we discuss the issue here.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Background</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Basically, the = writer has about=20 500 workstation and 2000 users.  They for various reasons don't use = network=20 profiles and everyone uses local profiles.  What he wants to do is = delete=20 from all the workstations any profiles that are number and leave any = profiles=20 that are letters (numeric profiles are the profiles that he wants=20 removed).  I came up with a script that would look at the = subfolders of=20 documents and settings and if the folder is a number to delete it and if = not to=20 not delete it.  The problem is that unless the user logs in as an=20 admistrator, he doesn't have the permissions to delete the = folders.  Plus=20 as a microsoft person said, "<FONT face=3D"Times New Roman" = size=3D3>Profiles=20 shouldn't be deleted by whacking the "c:\document and settings\UserName" = directory".  </FONT></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>    Now DELPROF is a = command line=20 utility that could do it.  And he can even do it remotely.  = However,=20 there is no way to specify which users profiles gets = zapped.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>The Question</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>    Obviously you can do = shell.run=20 to run delprof.  There is an option (/p) to prompt before deleting = each=20 profile.  What I was wondering if there is a way to take the output = and put=20 it into a string and respond to the question.  For example, if the = thing=20 asks should it delete a profile, vbscript can see what profile it is = asking and=20 then do an IsNumeric function and answer y or n at the command line=20 accordingly</FONT></DIV> <DIV><FONT face=3DArial size=3D2>    Or is there some = other scripting=20 solution?  I don't know if WMI can delete folders like below (which = is the=20 script I suggested), but still that doesn't solve the problem that = supposedly=20 you shouldn't delete profiles by goign after the user's in document and=20 settings.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Robert</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><BR>-- <BR>-- <BR>Regardless of whether = my=20 signature is long or short,  I still welcome e-mails if you know my = address=20 but won't post it.  But on the positive side, I don't try and = impress by=20 quoting others.<BR>-- <BR></FONT></DIV></BODY></HTML> ------=_NextPart_000_003B_01C3569C.E29EA300-- Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139974
  - 20
    - wsh upload puzzle :: fails when accessing server file Hi Guys, I would appreciate some help in my age-long struggle to wsh (ftp upload) a small file (access .mdb) to our remote web host... It works great when I do the upload from the local drive. BUT, when I try to upload the file from across the networked server machine the script hanges WITHOUT generating an error with the cmd.exe line showing: ftp> ftp> _ Now, I know from past experience that this could be permissions error. But, If I check the SECURITY for the parent folder I see: Adminsistrator Authenticated Everyone G Cuadros Full Contol = yes/ticked Modify = yes Read and execute = yes etc etc INHERITABLE PERMISSIONS =yes = allow inheritable permissions is enabled and ticked Thus, what is causing the script to hange and not upload the file when I attempt this across the network towards our remote web host....?? This has been an ongoing battle for me and I really need somebody knowledgeable to help me get a handle on this. I have posed my short, full . VBS code below: '//---------------------------------------- set fso=createobject("scripting.filesystemobject") set sll=createobject("wscript.shell") set f=fso.createTextfile("c:\inetpub\wwwroot\catamaranco\upload\put.txt", true) with f .writeline "open site.maximumasp.com" .writeline "username" .writeline "password" .writeline "put F:\Mydocu~1\MARKETING\imagine\databases\Inquiry.mdb" end with sll.run "ftp -s:c:\inetpub\wwwroot\catamaranco\upload\put.txt", 1, true f.close That's it - but something is making it unstuck and I am receiving no error - it just hanges towards the end with the cmd.exe remaining open. I would appreciate your help in solving this problem. - Jason Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139973
  - 21
    - Vbscript question in SQL DTS In trying to make some changes to a file extract (we are pulling a text file from another domain into the one our SQL server is in, and then loading a database from it), we will have the need to "bind" the sets of text files together. In other words, for me to know which orderfile goes with which credit file and shipment files, they'll all have the date appended to the files. The way it is now, we get: orderfile.txt which would be named orderfile20030731.txt in the proposed changes. tomorrows would be named orderfile20030801.txt and so on. The other text files would be named in a corresponding manner, so that a load of creditfile0731 isn't mixed with an orderfile of 0801. I need to put a step into our existing DTS jobs to take the file, no matter what the name is, and to rename it (or copy it) to our old filename and have it be input to the DTS job. Either that, or make the DTS job pick up the appropriate name. To complicate matters, we run one database server on monday-wednesday & friday, and another on tuesday-thursday-saturday. Is there a way to do this in VBscript from within the DTS job? If so, how? Any advice appreciated. Thanks, Steve Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139969
  - 22
    - Regular Expression Hi NG! I am searching for a regular expression that matches if a specific string only contains a-z, A-Z, -, _, and 0-9. Could anyone please tell me how to do that and, may be, give me a little explanation? I am not very good at regular expressions, yet. :) Thanks in advance for any help. Best regards, Michael -- Michael Kremser business http://www.earthtv.com/ private http://great.dynu.com/ Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139968
  - 23
    - Batching emails from a newsletter system Hi Guys Wonder if you can help me. To give you some form of background info, I have created a web-based newsletter system using ASP, ADO, Access 2000 and your JMail 4.3 component. This newsletter system has been created so that I can send 1 newsletter to 300+ subscribers every 1 or 2 months. I wouldn't say this was really hammering an SMTP server - would you? Our ISP (FastHosts) will only allow 10 emails every 30 seconds or 50 emails every 10 mins. I've checked with FastHosts and they don't support JMail's '.nq' queuing option, so do you know any other way round this? Is it possible to page the subscribers into say batches of 10 and send these out every 30 secs without me having to do this manually? Regards Robbie Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139963
  - 24
    - Outlook and Email Hello, I know how to do an href to send an email to the person, but I would like to know how to do this with vbscript. I have a client table that appears in a form. I would like to be able to send an email to the client by double clicking in the field. Thank you, Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139953
  - 25
    - Update Windows with a script Any know how to run Windows Update (just Critical Updates actually) on a client machine automatically by a script? Of course you can set autoupdates to run everynight, only problem is that users are often logged on as users, and Updates won't install. I suppose I could just logon as an admin every night at ~3:00 AM, but that seems like a kluge. Must be some elegant (oops, sorry, I almost forgot - this is vbscript...there is no elegance) way to push updates. Thanks, Jerry Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139951
- Next
  - 1
    - (XPost) does anyone have a script to list location of the databases for exchange I run perfwiz often, due to fluctuating drive space. I cant remember on which server which drive contains which database. Registry searching is a pain. Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139949
  - 2
    - VBS Class Issues In c# this seems to work fine but in VBS it chucks errors, can anyone explain why and how to correct please. Class MyClass Private tall Private fat Private Sub Class_Initialize tall = 100 fat = 100 End Sub Public Property Get Height Height = tall End Property Public Property Get Weight Weight = fat End Property Public Property Set Height( temp ) If Not IsNumeric( temp ) Then tall = CInt( temp ) Else tall = temp End If End Property Public Property Set Weight( temp ) If Not IsNumeric( temp ) Then fat = CInt( temp ) Else fat = temp End If End Property End Class Set test = new MyClass test.Height = 190 WScript.Echo "Test's Height is: " & test.Height & vbCrlf &_ "Test's Weight is: " & test.Weight Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139948
  - 3
    - Get stored text file from access database Hi ! In vbScript and ASP pages: I have some code to store files in a database. now i need to read the binary from the database. The file is a text file and i need to be able to parse the file, like do until EOF some parsing here... loop It's easy to save the file to harddisk or display it in a browser. but how can i place the text file in say an Array and programmatically loop the array? I hope it's possible, Thanks!! Best regards Jesper Harder jh-spamremove-at-gts-dk Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139947
  - 4
    - Install of VBScript components causing problem? I recently installed and began using VBScript. Now when I boot I get a cryptic message XAUpdate.exe Cannot find entry SHGetSpecialFolderPathA ... not in SHELL32.dll ... It appears not to affect the system (after clicking OK), but I wonder if the install of Scripting caused this? I noted a post from Michael Harris that IE4 Desktop Update must be done. Checking on that in KB, it appears that it can't be done without uninstalling IE5.5 and reinstalling. I truly don't want to bother. My shell32.dll is version 4.00 and this appears to be too old. Any lazy way out? -- Gary Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139944
  - 5
    - How to use DateLastModified for individual TABLE I am writing a small program using MS Access. I want to let the users know that when the datasource is last updated. Is it possible to use DateLastModified for the individual TABLE instead of the entire databse. If yes, please show me how. Thank you in advance! Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139941
  - 6
    - Adding a Windows Service I found the script located at Microsoft's Script Center titled "Install a Service". When I run the script on Windows XP it adds the service fine. But when I run the service on Windows 2000 it fails and generates an error 22 in a dialog box. What do I need to do to get it to work on Windows 2000? The script I am using is below. Thanks, Michael Const OWN_PROCESS = 16 Const NOT_INTERACTIVE = False Const NORMAL_ERROR_CONTROL = 2 strComputer = "corpimage01" Set objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2") Set objService = objWMIService.Get("Win32_BaseService") errReturn = objService.Create("Eclipse", _ "Eclipse Database", _ "C:\Program Files\4D\4D Server 6.8\4DServer.exe", _ OWN_PROCESS, _ NORMAL_ERROR_CONTROL, _ "Manual", _ NOT_INTERACTIVE, _ "NT AUTHORITY\LocalService", "") Wscript.Echo errReturn Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139930
  - 7
    - unicode I need to select data from an nchar field in a sqlserver database, persist it to XML, then transform it using XSL, (all in COM component called from ASP - returning HTML ), outputting HTML (Response.Write the string returned from COM+). The data may contain european characters such as ? é and also chinese characters such as ???? (it looks like SQLserver stores these as 两个月前) There seem to be a lot of stages along the way where the encoding can be set and/or will default to a certain encoding (COM defaults to UTF-16?) What do I need to set to be able to see (and input) both Eurpoean and Chinese (Simplified) characters? So far I'm using; XML FROM RECORDSET------------------------------------------------------------- In the recordset the Chinese char is 个 but when persisted to XML the ampersand at the front is shown as & <data>&#20010;</data> So I'm replacing "&#" with "&# " to output 个 in the XML XML HEADER---------------------------------------------------------------------- --------- I grab the documentElement.xml of the XML from several recordsets and build up a 'master' XML string. The header that I use on this string is; <?xml version='1.0' encoding='ISO-8859-1'?> (should I change this to <?xml version='1.0' encoding='utf-8'?>) XSL TRANSFORMATION-------------------------------------------------------------- I then transform the XML using XSL. - no encoding specified that I can think of.. ASP------------------------------------------------------------------------- --------------------- The resulting HTML string is returned to the ASp from the COM component. At the moment I have no codepage set in the ASP..what effect would setting this have? HTML------------------------------------------------------------------------ ---------------------- The Meta tag in the HTML is set to ; <META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/> Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139929
  - 8
    - Reading ini file on remote computer We have a program that is run on the client user's computers. At times we need to change the host ip address. I created a web page to do this via the File Scripting Object. It works great. Problem is that it will modify and save the ini file on the web server, but I need to read in and write out to the client computer. We are using IIS 5 and client machines are Win98, Win2K and WinXP. Any help is appreciated. Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139916
  - 9
    - Reading files on a remote computer Here is the situation. We have an abc.ini file in the C:\windows directory on users machines that have the parent program running locally. I want to create a web page that will display a section and its values in a web page that the user can modify the values and then save the file. In this case its for switching host ip addresses for the parent program. I have successfully created the page and using the file system object, I can change and save the file on the web server\windows folder. I need to get the values from the remote users ini file and save to the remote users Windows folder. Any help would be appreciated. Thanks, Kim Poellot Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139907
  - 10
    - newbie question i would like to create a message box that would prompt a user to input a machine name and as well create a folder on a network share that will place the machine name that the user input in the message box. i don't know where to begin. please help thanks Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139906
  - 11
    - what is the command for adding an attachment????? Hi, My ISP only supports the SMTPsvg.Mailer and I have the following code which works great except for adding attachments. An exhaustive googe search for an example has produced nothing useful and trying to guess what the command might be took a lot of time and yielded nothing. The file - GPC Assessment - Ronnie Bates.xls is a file on the server in the root path. This code runs error free, it just doesn't do what I need it to do. I tried some of the following format as well - Mailer.addAttachment upload.file("GPC Assessment - Ronnie Bates.xls").path and all variations of parenthesis and quotes to no avail. Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") Mailer.FromName = "Web Mail Test" Mailer.FromAddress = "apc_assess@engconcepts.net" Mailer.Subject = "Upward Assessment " & MailByWeb.fields.item("supervisor").value Mailer.BodyText = "The Supervisor is - " & MailByWeb.fields.item("supervisor").value & " the rater is - " & MailByWeb.fields.item("rater").value Mailer.RemoteHost = "mail-fwd" Mailer.AddRecipient "test", "george@engconcepts.net" Mailer.addAttachment "GPC Assessment - Ronnie Bates.xls" if Mailer.SendMail then Thanks in advance George Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139900
  - 12
    - remap drives reading from text file I use this to write to a text file. I would like to read the resulting text file and remap the drives (usually 8 or so) listed in it. But alas, I don't know how. Thanks, Jerry Set Wrt = ws.CreateTextFile("H:\Drive Map\" & DOMAIN & WshNetwork.UserName & ".txt") 'Get User Informaion and write to text file Wrt.WriteLine Wrt.WriteLine "Computer Name = " & WshNetwork.ComputerName Wrt.WriteLine "User Name = " & WshNetwork.UserName Wrt.WriteLine "Domain = " & WshNetwork.UserDomain Wrt.WriteLine Wrt.WriteLine 'Get Mapped drive information and write to text file. Wrt.WriteLine "Mapped Network Drives:" For i = 0 To oDrives.Count - 1 Step 2 Wrt.WriteLine vbTab & "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i + 1) Next 'Get printer information and write to text file. Wrt.WriteLine Wrt.WriteLine Wrt.WriteLine "Printers:" For i = 0 To oPrinters.Count - 1 Step 2 Wrt.WriteLine vbTab & "IP Address, Printer Name & Path " & oPrinters.Item(i) & " = " & oPrinters.Item(i + 1) Next Wrt.WriteLine Wrt.WriteLine Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139881
  - 13
    - New IE window Hello, Is there a way to, on a dblClick event, open a new I.E. window and display contents. I also want to control the size of the window. Thank you, Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139871
  - 14
    - Permssions error Hi All, I am running the following vbs on my machine and it works perfectly when I run it locally. ie, specify strComputer = "." however, when I specify another machine in the network, I get permission denied 'GetObject'. I am an admin on the remote machine I am calling. What could mbe the problem? Thanks in advance strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery _ ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Computer: " & objQuickFix.CSName Wscript.Echo "Description: " & objQuickFix.Description Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID Wscript.Echo "Installation Date: " & objQuickFix.InstallDate Wscript.Echo "Installed By: " & objQuickFix.InstalledBy Next Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139858
  - 15
    - Returning arrays from a .vbs file My question is: how is it possible for a .vbs file to return a variant array of strings when called from another .vbs file? I have a .vbs file which consists of about 20 calls to independent Functions, each of which returns an array of 4 strings. After this a short section disseminates the returned information. Each Function is about 30 lines long. For maintainability, instead of one huge Main.vbs file, I'd like to have a small Main.vbs and have each function call go out to its own small standalone .vbs file. These calls could be synchronous or asynchronous, but after all the results are in, I need to summarize the returned arrays. Can you suggest a way that's better than my overkill IE idea which follows? By the way, each .vbs file, including Main.vbs, utilizes an OCX that I have written and this OCX would be happy to cooperate. Can you do better than?: Main.vbs creates and prepares an instance of IE. Each Function (located in its own .vbs file) finds this same instance and when the Function is done, it writes its array somewhere into this IE instance which the caller (Main.vbs) can then access. In a better version, each FunctionN.vbs file would do something like Set myOcxInstance = GetObject(,"myOcx.Tool") and then I could accumulate the variant array of strings into the OCX, but upon searching, I have read that this GetObject does not like to work with OCXs (the OCX contains forms, but they are not shown when accessed in this manner) so I thought I'd ask before chasing after the wrong tree to bark up. Thanks, Csaba Gabor from New York Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139855
  - 16
    - Problems Using UPDATE to modify multiple and non sequential records - a giant conundrum from a total novice.... The records in my database are displayed in a form as follows: %> <form action="report-ammend1.42.asp" method="post"name="form"> <table border=1> <% x = 1 while RS.EOF=false %> <tr><td><input type="hidden" name="SprogNo<%= x %>" value="<%Response.Write RS.Fields("SprogNo")%>"><% response.write (RS.Fields("SprogNo"))%></td> <td><input type="text" name="Report<%= x %>" value="<%Response.Write RS.Fields("Report")%>"></td> <td><input type="text" name="rep2<%= x %>" value="<%Response.Write RS.Fields("rep2")%>"></td></tr> <% x = x + 1 RS.movenext Wend By specifying integer values for x in the form action file, the correct data is always udated to the correct record: Dim DB Set DB = Server.CreateObject ("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\test\test.mdb") 'Dim rs Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open "SELECT * FROM SprogTbl", DB, 2, 2 rs.movefirst for x = 1 to 3 rs.Fields("SprogNo") = Request.Form("SprogNo" & x) rs.Fields("Report") = Request.Form("Report" & x) rs.Fields("rep2") = Request.Form("rep2" & x) rs.update RS.movenext Next rs.movefirst However, I need this to work for any (undefined) no. of records and the records may have been queried to display non-sequential records for the database. I can't make any of the three solutions I can think of work: 1. If I could make the field SprogNo (which contains the unique ID no.) rs.response write into x as an integer, then each record would be automatically numbered. I would then need some kind of "for each x" loop before the rs.update statements. Just putting: Response.Write RS.Fields("SprogNo")=x in place of x = x+1 doesn't do it........ 2. I've also tried tying the update to a WHERE statement. But, the following will work for a databse of one record only: Dim strSQL strSQL = "UPDATE SprogTbl SET Report = '" & Report & _ "', rep2 = '" & rep2 & _ "' WHERE ((SprogTbl.SprogNo)='" & SprogNo & "');" DB.execute(strSQL) .... however, I've had no success trying to iterate it's functions starting with rs.movefirst and then a while rs.EOF=false 'rs.movenext loop. 3. Finally, I thought it might be worth trying to get the WHERE statement (above) into the rs.Fields("SprogNo") = Request.Form("SprogNo" & x) statement. So far all attempts have fallen foul of syntax errors. e.g. rs.update WHERE ((SprogTbl.SprogNo)='" & SprogNo & "'); The last two solutions would still require making the update repeat for each of the fields in some kind of a loop. Any help gratefully recieved...... Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139854
  - 17
    - Why does Createobject work on one computer but not another? I have the following code in a Visual Basic 6 standard exe project. On my computer, the development computer, it works fine. Dim ObjH as variant Set objH = CreateObject ("Shell.Application") However, when the same line of code is executed on another computer, it gets a run time error "object variable or with block variable not set". This line of code is basically instantiating an object variable to point to an object application in the class named shell. Is there a Visual Basic reference or dll required to use this line? Does anyone know why this is occurring and what I can do to fix it. Thanks in advance. Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139846
  - 18
    - For Next iterations Hi all, Is there any 'trick' anyone knows to control a For Next to pass to the next iteration in VBScript? ..Similar to the 'continue' keyword of C and C++? Thanks in advance.. -BB Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139845
  - 19
    - win32_print* on clusters Hi there, It seems that the win32_printer and win32_printjob classes are not directly available on clusters. So what approach should be used in enumerating those instances on clustered printservers? Thanks, -- SLE Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139844
  - 20
    - detect occurrence of two words in a text with regexp Hi, I'm searching for a pattern allowing to detect if a text has occurrence of two words (say word1 and word2), consecutive or not. I don't want a logical OR where (word1)|(word2) would be the solution. I want the two words being simultaneously in the text. So the text could be "some words word1 some other words word2 or word1word2 or word1 word2" I accept to not detect word2 being before word1 like word1...word2...word2...word1 I almost found a pattern with : re.global=true (word1)\s*(word2)|(word1)(\s+\w+)+\s+(word2) and why not be more complex with testing word1 and word2 being at the beginning of words like word1abc and word2xyz so the pattern will be (word1\w*)\s*(word2\w*)|(word1\w*)(\s+\w+)+\s+(word2\w*) If I dump the matchcol, I find each word1 and word2 listed but the matchcol.count doesn't give the right number of (word1, word2) pair occurrence. That's because the expression word1 words word2 words word1 words word2 is counted for one single occurrence as if it was : word1 (all words including word1 and word2 ignored) word2 Only the first word1 and the last word2 are taken into account. But the returned submatch content is word1 words word2 words word1 words word2 so any word1 and word2 is catched. I get also the same result with : (word1)(\s\w+)*\s*(word2) So I'm happy to know the two words are in the text but I can't use the result for replacing the words because I don't know where they are. Since I want to change the color of word1 and word2 in red, I must know the exact location. Is there any other way? or I must use the following process : - detect the presence of the two words (wherever they are) - do a re.replace(text, "word1", "<font fontcolor=red>word1<font> - do the same with word2 Thanks for any help Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139834
  - 21
    - Using queried date to serach for data I'm having a problem with my asp pages. I have the first page set up to search for data by date and shift. The dates are retrieved by a query of all dates that are in the database, meaning that if a date has no data, then that date will not show up in the select box. The shift is a simple select box with three options in it. When I hit submit, if there's a date that has the same shift as another date, the date and the data from that date that posted first will show up, even if I selected another date. Here's the code below and do you all have any ideas how this might be happening and ways to correct it. Thanks for any help I can get. First Page <% 'Sets up the connection between the page and the database Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = 3 dbDir = Server.MapPath("fpdb/sacshifttest.mdb") Connection.Open "DBQ=" & dbDir &"; Driver={Microsoft Access Driver (*.mdb)}; DriverID=25;FIL=MS Access;" 'Queries for the data from that day SQLStmt = "SELECT DISTINCT dateRecord FROM SacShiftTest " Set RS = Connection.Execute(SQLStmt) %> .. <td><select name="dateRecord"> <% do while not RS.EOF daDate = RS.Fields("dateRecord").Value%> <option value="dateRecord"><% = daDate %> <% RS.MoveNext Loop %> <% Connection.close %> Next Page: <% dateRecord = Replace(Request("dateRecord"), "'", "''") sacShift = Replace(Request("sacShift"), "'", "''") 'Sets up the connection to the database Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = 3 dbDir = Server.MapPath("fpdb/sacshifttest.mdb") Connection.Open "DBQ=" & dbDir &"; Driver={Microsoft Access Driver (*.mdb)}; DriverID=25;FIL=MS Access;" SQLStmt1 = "SELECT * FROM SacShiftTest WHERE dateRecord = " & dateRecord & " AND sacShift='" & sacShift & "' AND testnum='1' " Set RS1 = Connection.Execute(SQLStmt1) %> -- Posted via http://dbforums.com Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139827
  - 22
    - nt 4 user list I need to generate a list of every user in their domain, and the home directory listed for each user. This is a (large) Windows NT 4.0 domain. Thanks, Jay Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139824
  - 23
    - Formatting or inserting breaks into Textarea using innerHTML AAAAARRRGGGHHHHHHH!!!!!!!!!!!!!!!! Sorry, but thats how much I was frustrated when I could not get a simple thing to work on a static html page using javascript. I just wanted to insert a line break into the textarea dynamically. Here is the piece of code that will not work... but will give you a "unknown runtime error". If you remove the "<br>"s, it will work. <html> <head> <script language="JavaScript"> function writeText() { document.all.myTextArea.innerHTML = "Hello<br>" + "sometext" + "<br>Hello"; //THIS WONT WORK EITHER: //document.all.myTextArea.innerHTML = // "Hello\n" + "sometext" + "\nHello"; } </script> </head> <body> <table> <tr><td id="mytd"><textarea id="myTextArea"></textarea></td></tr> <tr><td><input type="submit" name="submit" value="submit" onClick="writeText();"/></td></tr> </table> </body> </html> But Internet Explorer did not like it. I visited a lot of newsgroups and tried different things. I've tried replacing line breaks ("\n") with <br>s and what not... but we wont go into it. What I am trying to say here is that I could not find a way to format the text inside a text area. After hours of research, I just ended up doing something like this... which by the way occured to me when I was finishing up my Dominos pineapple pizza. The workaround was to include the whole textarea inside the javascript and write them into the TD using the innerHTML of the TD at runtime. I sincerely hope that this will help someone solve a similar issue and save them a lot of trouble. ========= SOLUTION: ========= Here is the code that I came up with to work around this situation... //THIS IS THE WORKAROUND: (result is the id of TD, so you are basically inserting html that CONTAINS the textarea into the TD instead of writing text to the textarea. i.e., you are writing the whole textarea into the TD at runtime) <html> <head> <script language="JavaScript"> function writeText() { var rslt; rslt = "<textarea id=\"myTextArea\">"; rslt += "Hello\n" + "sometext" + "\nHello"; document.all.mytd.innerHTML = rslt + "</textarea>"; } </script> </head> <body> <table> <tr><td id="mytd"> <textarea id="myTextArea"></textarea> </td></tr> <tr><td><input type="submit" name="submit" value="submit" onClick="writeText();"/></td></tr> </table> </body> </html> GOOD LUCK!!! You are welcome. Jawad Shaik Mohammed Stryker Instruments Kalamazoo, MI Ph: (269) 323-7700 x3500 Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139812
  - 24
    - georgian date I need to generate a georgian(julian ) date. How do I do this? Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139802
  - 25
    - Learnig VB Script Hello, I´am a good VB 6 programer and now I will learn differences between VB and VBS. Has somebody a good tip for a book or internet based learning? THX Thomas mailto:twohlgemuth@hilcom-online.de Tag: NT 4.0 and Exchange 5.5 send e-mail Tag: 139800

I need to send an e-mail from an NT 4.0 server running exchange 5.5. I've
tried a few various things that work fine on windows 2000, but not at all on
the NT 4.0 box. Can someone point me in the right direction?

--
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

Top