get files from source control

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
    - Icon Links and Session Objects Is there a way to use an icon hyperlink and set a session object? Let's say we have a page with 3 icons. Each icon is a hyperlink to 3 seperate pages. I would like to link to a single page and pass a session object value (let's say 1, 2, or 3). The new, single page would read this session object value and act accordingly. Currently I use: <a href="page1.asp> <img ... src="icon1.gif" ... > </a> three times. I'm sure there's a simple solution ... but I can't figure it out! Thanks. Tag: get files from source control Tag: 140068
  - 2
    - Query remote computer Model number Is there a way to query a remote computers Model number?? Thanks, Ben Tag: get files from source control Tag: 140064
  - 3
    - GetRef memory leak I've trying to use VBScript's GetRef in CE.NET 4.1 in order to dynamically change the onkeypress handler of the window depending on the current situation. While I have got the system working, I've noticed a rather significant memory leak during repetitive testing, and by commenting out the GetRef lines it goes away. Does anyone know of a leak in GetRef, or do I somehow need to free the memory? I'm not setting anything to "nothing" (and that doesn't seem to do anything anyhow) as it's the window.onerror and pagebody.onkeypress handlers I'm overriding -- or am I mistaken and that can be done? Any help is GREATLY appreciated! Richard Boggs Tag: get files from source control Tag: 140061
  - 4
    - ADODB and Blobs in asp In article Q258038 it shows how to read a blob from a database using ADODB.Stream. I need to do this from asp without writing a file. Any help would be appreciated. Tag: get files from source control Tag: 140060
  - 5
    - NT 4.0 and Exchange 5.5 send e-mail 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 Tag: get files from source control Tag: 140057
  - 6
    - 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: get files from source control Tag: 140053
  - 7
    - 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: get files from source control Tag: 140051
  - 8
    - sms Hi at all! Could anyone to say me how to send SMS using ASP/VBSCRIPT page? Thanks Tag: get files from source control Tag: 140045
  - 9
    - 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: get files from source control Tag: 140044
  - 10
    - 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: get files from source control Tag: 140043
  - 11
    - 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: get files from source control Tag: 140021
  - 12
    - 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: get files from source control Tag: 140017
  - 13
    - IPConfig Can I run ipconfig remotely and perform an ipconfig /renew on a remote workstation Tag: get files from source control Tag: 140013
  - 14
    - 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: get files from source control Tag: 140011
  - 15
    - 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: get files from source control Tag: 140008
  - 16
    - 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: get files from source control Tag: 140002
  - 17
    - 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: get files from source control Tag: 139998
  - 18
    - 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: get files from source control Tag: 139996
  - 19
    - 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: get files from source control Tag: 139995
  - 20
    - 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: get files from source control Tag: 139993
  - 21
    - 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: get files from source control Tag: 139990
  - 22
    - 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: get files from source control Tag: 139981
  - 23
    - 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: get files from source control Tag: 139978
  - 24
    - 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: get files from source control Tag: 139974
  - 25
    - 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: get files from source control Tag: 139973
- Next
  - 1
    - 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: get files from source control Tag: 139969
  - 2
    - 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: get files from source control Tag: 139968
  - 3
    - 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: get files from source control Tag: 139963
  - 4
    - 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: get files from source control Tag: 139953
  - 5
    - 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: get files from source control Tag: 139951
  - 6
    - (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: get files from source control Tag: 139949
  - 7
    - 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: get files from source control Tag: 139948
  - 8
    - 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: get files from source control Tag: 139947
  - 9
    - 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: get files from source control Tag: 139944
  - 10
    - 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: get files from source control Tag: 139941
  - 11
    - 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: get files from source control Tag: 139930
  - 12
    - 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: get files from source control Tag: 139929
  - 13
    - 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: get files from source control Tag: 139916
  - 14
    - 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: get files from source control Tag: 139907
  - 15
    - 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: get files from source control Tag: 139906
  - 16
    - 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: get files from source control Tag: 139900
  - 17
    - 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: get files from source control Tag: 139881
  - 18
    - 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: get files from source control Tag: 139871
  - 19
    - 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: get files from source control Tag: 139858
  - 20
    - 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: get files from source control Tag: 139855
  - 21
    - 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: get files from source control Tag: 139854
  - 22
    - 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: get files from source control Tag: 139846
  - 23
    - 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: get files from source control Tag: 139845
  - 24
    - 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: get files from source control Tag: 139844
  - 25
    - 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: get files from source control Tag: 139834

I'm trying to automate the process to get files from source control in visual studio. I'm trying to find a way method to do this in any language that I can use to create an executable for and call from my main vbScript. Anyone have any insight on this subject? Thanks.

**********************************************************************
Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources...

Top