retrieving SQL-server data

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
    - computers showing up in "User List" I cobbled together a script that writes to an Excel spreadsheet with the users name, logon ID, OU, and logon script, naming each page with the main OU name. I know that it is ugly, but it works. The main problem I am having is that it also puts the computer and group names on the sheets, and I only want users. Obviously I need to filter it better, but I am having trouble finding the proper information. Anyone able to help? Thanks much in advance! And, thanks to Richard Mueller for the base script! Randy Reimers ' CreateUserList3.vbs ' VBScript program to create a Microsoft Excel spreadsheet documenting ' all users in the domain. ' ' ---------------------------------------------------------------------- ' Copyright (c) 2002 Richard L. Mueller ' Version 1.0 - November 12, 2002 ' Version 1.1 - February 19, 2003 - Standardize Hungarian notation. ' This program enumerates all users in the domain and writes each user's ' LDAP DistinguishedName to a Microsoft Excel spreadsheet. ' ' You have a royalty-free right to use, modify, reproduce, and ' distribute this script file in any way you find useful, provided that ' you agree that the copyright owner above has no warranty, obligations, ' or liability for such use. Option Explicit Dim strExcelPath, oDomain, oContainer, strName, strScriptPath, strSam, usr, usrDN Dim objRecordSet, strDN, objExcel, objSheet, oObj, sClass, subPath, NTDomain Dim intIndex, k, sheet, strSheet, objWorkBook, i k = 2 sheet = 1 ' Spreadsheet file to be created. strExcelPath = "F:\UserList.xls" ' Bind to Excel object. Set objExcel = CreateObject("Excel.Application") Set objWorkBook = objExcel.Workbooks.Add 'new If objWorkBook.Sheets.Count < 25 then For i = objWorkBook.Sheets.Count to 25 objWorkBook.Sheets.Add() Next End if Set oDomain = GetObject("LDAP://ou=cc,dc=corp,dc=tcc,dc=inet") EnumOU(oDomain) ' Save the spreadsheet. objExcel.ActiveWorkbook.SaveAs strExcelPath objExcel.ActiveWorkbook.Close ' Quit Excel. objExcel.Application.Quit ' Clean up. Set objRecordSet = Nothing Set objSheet = Nothing Set objExcel = Nothing MsgBox "Done" Wscript.Quit Function EnumOU(oContainer) For Each oObj In oContainer For Each sClass in oObj.ObjectClass If LCase(sClass) = "organizationalunit" Then subPath=oObj.AdsPath Call newSheet(subPath, sheet) getUser(subPath) EnumOUT(oObj) sheet = sheet + 1 If k = 2 Then sheet = sheet - 1 End If k = 2 End If Next Next End Function Function EnumOUT(oContainer) For Each oObj In oContainer For Each sClass in oObj.ObjectClass If LCase(sClass) = "organizationalunit" Then subPath=oObj.AdsPath getUser(subPath) EnumOUT(oObj) End If Next Next End Function ' Enumerate all users. Write each user's information to the ' spreadsheet. Function getUser(subPath) Set NTDomain = GetObject(subPath) NTDomain.Filter = Array("user") For Each usr In NTDomain strName="" strScriptPath="" strSam="" usrDN = "" On Error Resume Next usrDN = usr.distinguishedName intIndex = InStr(usrDN, "OU=") usrDN = Mid(usrDN, intIndex) ' wscript.echo usr.name strName = Mid(usr.name,4) strName = Replace(strName, "\,", ",") ' wscript.echo usr.sAMAccountName strsam = usr.sAMAccountName ' WScript.Echo usr.LoginScript strscriptpath = usr.LoginScript objSheet.Cells(k, 1).Value = strName objSheet.Cells(k, 2).Value = strSAM objSheet.Cells(k, 3).Value = strScriptPath objSheet.Cells(k, 4).Value = usrDN k = k + 1 Next End Function 'Create, set up new page in spreadsheet Function newSheet(subPath, sheet) strSheet = Mid(subPath,11) intIndex = InStr(strSheet, "OU=") strSheet = Left(strSheet, intIndex - 2) ' Bind to worksheet. wscript.Echo sheet & " " & strSheet wscript.Echo sheet Set objSheet = objExcel.ActiveWorkbook.Worksheets(sheet) objSheet.Name = strSheet objSheet.Cells(1, 1).Value = "User Distinguished Name" objSheet.Cells(1, 2).Value = "Logon ID" objSheet.Cells(1, 3).Value = "Logon Script" objSheet.Cells(1, 4).Value = "User's OU" ' Format the spreadsheet. objSheet.Range("A1:D1").Font.Bold = True objSheet.Select objSheet.Range("A2").Select objExcel.ActiveWindow.FreezePanes = True objExcel.Columns(1).ColumnWidth = 45 objExcel.Columns(2).ColumnWidth = 26 objExcel.Columns(3).ColumnWidth = 15 objExcel.Columns(4).ColumnWidth = 65 End Function Tag: retrieving SQL-server data Tag: 160610
  - 2
    - Scripting solution needed for DHCP and trusted PDC/DHCP servers. I have to obtain scope information from a large number of remote DHCP servers that are also NT4 PDC servers. WMI is installed on each server but I can't locate a method to get the scope information. I would really appreciate someone's help to get this information. Thanks in advance, Scott Cooper Tag: retrieving SQL-server data Tag: 160607
  - 3
    - Delete an application pool Hi, I want to delete the application pool I created using vbscript. How can i find it and how to delete it? Thanks. Yang ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: retrieving SQL-server data Tag: 160606
  - 4
    - Netscape LDAP directory I would like to search a Netscape LDAP directory for information. I have a SMTP address I would like to see if it exists in the LDAP directory. If it does exists, then retrieve some information(name, address, userid,etc). I don't know how to connect to the LDAP server. I know the server name and even the base to start the search from. Can someone provide me with the code to connect to the server/base? TIA Dave Tag: retrieving SQL-server data Tag: 160603
  - 5
    - Query OU membership Hi everybody, I'm a newbie in scripting and i would like to know if i can query the OU of a user to map the appropriated drives in his login script. Eric Tag: retrieving SQL-server data Tag: 160601
  - 6
    - Presence of Server 2003 DC? How might one determine if a Windows 2003 domain controller has been installed on a Windows 2000 network? -- jbfields@msn.com www.jbfields3.com "Dogs may have kept us company on the hunt, but it was the cats who insisted we invent houses and discover fire." -- Khiem Tran (Follow-up set to: microsoft.public.scripting.wsh, microsoft.public.windows.server.networking, microsoft.public.windows.server.scripting, microsoft.public.windows.server.security ) Tag: retrieving SQL-server data Tag: 160598
  - 7
    - Help with Registry Modification I am trying to use the following script to adjust the mouse sensativity - we want to include this on the desktop of all the laptops in the org so while attached to the dockingstation w/ a external mouse the mouse sensativity is 20 - and when on the road a simple click will turn it down to 1, making the mouse pointer easier to control.. Using regmon the only key that needs to be changed is MouseSensitivity; and doing it via the cpl applet changes the key and immediatly adjusts the sensativity. I wrote the following script and it does change the key but a reboot is required to commit the change - can someone point me in the direction that will make the setting take effect when set in the script? Set WSHShell = WScript.CreateObject("WScript.Shell") RegKey = "HKEY_CURRENT_USER\Control Panel\Mouse\MouseSensitivity" WSHShell.RegWrite RegKey,"1","REG_SZ" WScript.Quit Thanks David Tag: retrieving SQL-server data Tag: 160596
  - 8
    - Monitoring Script Hi all, I need to create a script to monitor the performance / state of a win 2003 server. The script must create a file with information about the CPU (temperature, ..), HD (partitions, free space, ..) Memory (free memory, ...), Users connected, Opened files, Swap file use, precesses (and resources used by each one) .... all useful information I can get from the system. ¿Do you know how can I make that ? ¿A link to a web page about that issue? Thanks for your help. Tag: retrieving SQL-server data Tag: 160592
  - 9
    - Problem in retrieving data from SQL server 2000 I use a SQL server 2000 to store data in local language (gb and Shift-JIS). I can successfully store the data into database, but when i retrieve back from database, i only get "?" in my asp program. Is there any solution? Thx for help. Tag: retrieving SQL-server data Tag: 160590
  - 10
    - ExecWB - Stop Print Prompt FUNCTION VBprintItemMy(toFrame) toFrame.focus WebBrowser="<OBJECT ID='WebBrowser1' WIDTH=0 HEIGHT=0 CLASSID='CLSID:8856F961-340A-11D0-A96B-00C04FD705A2'>" document.body.insertAdjacentHTML "beforeEnd",WebBrowser document.body.insertAdjacentHTML "beforeEnd",WebBrowser WebBrowser1.Silent = TRUE WebBrowser1.ExecWB 6,2 WebBrowser1.outerHTML="" END FUNCTION Im Using the above function to Print a specified Div of frame.... Even i specified the parameter as 2 for WebBrowser1.ExecWB, still it prompts the print window to me to print... Y is this and how can i avoid...?? Tag: retrieving SQL-server data Tag: 160584
  - 11
    - string comparison to string array How do I check if a given string is contained within either a string array or a delimited list of strings? eg: strLevel = "red" ' i want to see if strLevel is one of the following, using either an array: arrLevels = Array("red","yellow","blue") ' or a delimited list: strLevels = "red,yellow,blue" I just want to return a simple true/false or 1/0. Cheers Ben Tag: retrieving SQL-server data Tag: 160580
  - 12
    - how to include other vbs file in one vbs file? hi I'm executing one vbs file (abc.vbs) and wanna inlucde another vbs file (xyz.vbs) in abc.vbs file... How can i do this? thanx dave Tag: retrieving SQL-server data Tag: 160579
  - 13
    - OutlookExpress How can I read the messages received via O.E. as well as its attachment via code, i.e. from a script? Thanks Sandrobi Tag: retrieving SQL-server data Tag: 160577
  - 14
    - Using Array as Argument in Custom Function This should be straightforward, but ... What is the correct way to pass an array as a function argument in VBScript? For example, I have a call in an ASP:  Dim strPjCode Dim intVal Dim arrValue(50) intVal = ProjectSort(strPjCode, arrValue()) The custom function is: Function ProjectSort(strPjS, arrV()) ProjectSort = 0 etc. The ASP generates the following error: Microsoft VBScript runtime error '800a0009' Subscript out of range If I remove the () after the array in the ASP and Function I get a different error: Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'ProjectSort' Any suggestions? Thanks. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: retrieving SQL-server data Tag: 160574
  - 15
    - Trying to backup Security Event Logs I have this script that is running on a couple of servers on a daily basis. It's supposed to check and see if the security event log is greater than 20MB and if so, back it up and clear the log if the backup was successful. Otherwise do nothing. It works fine on one of the computers, however on the other it only "kind of" works. On the computer I'm having trouble with I will see a .evt file that was backed up (and is over 20 megs), then after that there are several more .evt files that are created on a daily basis which are 1KB in size. If I open these in event viewer nothing shows up (although it will say there are a couple hundred thousand events). Then after a few days of creating these 1KB files there will be a successfully backed up .evt file which is about 50 megs by this time. I suspect the problem has something to do with the log not being "locked" properly or what ever needs to be done. The server that is having this problem can get dozens of events per second at times (mostly b/c it's the domain controller and it's logging all the login/logout stuff). At anyrate, here is the portion of my script that does the work. Any ideas on how to make it backup correctly every time? Oh, and a small side note. I have an If to test the size to see if it's big enough. I tried making a constant variable for the comparison but that never worked, for some reason I had to type the literal value into the if expression. I'd also appreciate any insight on why that is. -mike -------------------- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Backup,Security)}!\\" & Computer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NTEventLogFile WHERE LogFileName='Security'") For Each objLogfile in colLogFiles If (objLogFile.FileSize > 20000000) Then errBackupLog = objLogFile.BackupEventLog(SavePath & Computer & "\" & Computer & "Security" & Today(1) & Today(0) & Today(2) & ".evt") If errBackupLog <> 0 Then if (DEBUG) then Wscript.Echo "The Security event log could not be backed up." end if Else if (DEBUG) then wscript.echo "Clearing Log" end if objLogFile.ClearEventLog() End If else if (DEBUG) then wscript.echo "Filesize not big enough: " & objLogFile.FileSize end if End If ' if filesize Next ' for each objLogfile Tag: retrieving SQL-server data Tag: 160573
  - 16
    - Delete unwanted subfolders bum - Shadrac ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: retrieving SQL-server data Tag: 160566
  - 17
    - Enumerate Directory listings I would like to run a script or batch file that will:\ for each directory go down two directory levels and print the full path (\\servername\dir1\dir2\dir3) where dir3 matches a specific pattern.... This is how my file servers store user directories and I will need to populate the HOME FOLDER field in AD. Thansk Carl Tag: retrieving SQL-server data Tag: 160557
  - 18
    - Windows 2003 and WMI question Hello All, I have a script that utilize wmi to get the local Administrators group name in different OS languages (Administrators group names differently in different language). The script works fine with Windows 2000/XP. However, the WMI call failed without a trace when running on Windows 2003 box (english, german, sweden, neitherland so far...). Does Windows 2003 make WMI calls different than 2K/XP? Any help would be greatly appreciated. Here is a portion of my script which do the above mentioned. sComputer = "." sGroupSID = "S-1-5-32-544" ' Well Known SID of the local Administrators group ' --- THIS IS WHERE IT FAILED ON WINDOWS 2003 --- Set objWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") If Err.Number <> 0 Then msgbox Err.Number msgbox Err.Description End If Set colItems = objWMIService.ExecQuery ("Select * from Win32_Group WHERE SID = '" & sGroupSID & "'") If Err.Number <> 0 Then msgbox Err.Number msgbox Err.Description End If For Each objItem in colItems sAdminGrp = objItem.Name ' Get local Administrators group name Wscript.Echo "Name of the local Administrators group: " & sAdminGrp Next Tag: retrieving SQL-server data Tag: 160556
  - 19
    - Script to set Archive location in Outlook 2003 Does anyone know a way to set the default Archive location in Outlook 2003? Group policy allows you set the limits but not the location. We want to change this from the local profile to a network location. Right now the only way to do it is to manually configure each machine. thanks roger Tag: retrieving SQL-server data Tag: 160555
  - 20
    - What I'm I doing wrong? I get error "SWbemServicesEx: Invalid object path" when I run the script below. Can anyone help me, what I'm I doing wrong. should I be using collections instead of of a single instance? strComputer = InputBox ("Enter Computer Name","Local or remote",".") strHotFix = InputBox ("Enter Hotfix Number","Local Or Remote Machine",".") Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set ObjHotFix = ObjSWbemServices.Get("Win32_QuickFixEngineering.HotFixID=strHotFix") If ObjHotFix = False Then WScript.Echo "HotFix is not Installed" Else WScript.Echo "HotFix is installed" End If Tag: retrieving SQL-server data Tag: 160547
  - 21
    - Wait for 10 sec in scripts Sorry for the cross post but I don't know which is the right group. I need to halt the execution of the vbscript for 10 sec till the application launched becomes ready to accept further commands. It is shell commands to be run in dos mode. Is it possible with vbscripts? Or by some other way? Regards, Shetty. Tag: retrieving SQL-server data Tag: 160544
  - 22
    - Form textarea doesn't migrate to next page with other form elements User types text into RFO.asp <body> <textarea name="special_inst" id="special_inst" cols="50" rows="6"></textarea> </body> All other fields are passed to the next page except this one in the neworder.asp <body> <span class="regSoft"><%=Request.Form("special_inst")%></span> </body> I don't see a problem...all the other fields are going fine? Any help? thanks Abby Tag: retrieving SQL-server data Tag: 160543
  - 23
    - HTMLEncode gives incorrect unicode Hi I have a strange problem From exchange server I get the data to ASP page using the webdav technlogy. There are mail which contains Western Europian characters. These western Europian characters returned properly to ASP pages. In one server(IIS) when I do Server.HTMLEncode of that europian characters it gives me the wrong unicode and also it displays some junk charecters , but the same code on the other server gives me proper unicode and displays the characters properly. I have found a work around for that using ADODB.Stream and reading the charecters by setting charset property to "utf-8". After that it works properly. But its a problem in only one server(IIS), the other one gives properly. Is there any setting needs to be done at IIS. Any answer on this will be highly appreciated Thanks Afzal Tag: retrieving SQL-server data Tag: 160535
  - 24
    - Selecting a value in a list box. Strange IF THEN problem. Hi, I have a simple list box on an a ASP page which is populated by a recordset named rsThemes. Depending on from where the user browses into the page the Selected value is either taken from a field in a recordset named rsChosenEvent (Method A) or from passed value in the URL named txtTheme (Method B). Method A works perfectly, but for some reason that I just cant find Method B will not work. If I simply response.write("txtTheme") I get the correct value but if I try to use that value in an IF statement it just wont work. Can anyone see why? I'm absolutely baffled. Thanks, Luke. <select name="txtTheme"> <option>Select Theme</option> <% While (NOT RsThemes.EOF)%> <option <% ' Method A %><% If Not rsChosenEvent.EOF Or Not rsChosenEvent.BOF Then %><% If (RsThemes.Fields.Item("ThemeID").Value) = (RsChosenEvent.Fields.Item("Theme").Value) Then Response.write("SELECTED ") %><% End IF %><% ' Method B %><% If (RsThemes.Fields.Item("ThemeID").Value) = (Request("txtTheme")) Then Response.write("SELECTED ") %> value="<%=(RsThemes.Fields.Item("ThemeID").Value)%>"><%=(RsThemes.Fields.Item("ThemeName").Value)%></option> <% RsThemes.MoveNext() Wend If (RsThemes.CursorType > 0) Then RsThemes.MoveFirst Else RsThemes.Requery End If %> Tag: retrieving SQL-server data Tag: 160533
  - 25
    - Encoding problem in asp Is there any method to convert &xxxx; back to a character?? Thx for help Tag: retrieving SQL-server data Tag: 160531
- Next
  - 1
    - Determining if ActiveX is enabled Is there a property in the DOM or the Request object that indicates whether or not the user's browser has been set to enable, disable, or notify if an ActiveX component is required on the viewed page. I'm using DHTML and I want to use one of two different style sheets based on this setting. Thanks in advance. Tag: retrieving SQL-server data Tag: 160529
  - 2
    - GetObject("WinNT://Machinename") Hi, I run the code GetObject("WinNT://Machinename") on a windows 2000 pro workstation and it works fine. However, when i run it on a windows NT 4.0 Server it doesn't recognise it. Is there another (or equivalent) way of doing the same thing. I plan to list all of the Server's groups. Thanks, Jesse Tag: retrieving SQL-server data Tag: 160528
  - 3
    - WinHttpRequest question of POST.....asyncronous mode... I find that there are a few samples on the asyncronous mode. I have problem in code when is in asyncronous mode. I'm not so sure what should be put in my Function ManageStateChange(). In fact I have a similar code in VB and actually I'm doing some sort of conversion from VB to VB script. My code is as follows (VB script). Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5") objWinHttp.Open "POST", "http://localhost/bankislam/Trx.asp", true objWinHttp.onreadystatechange = ManageStateChange objWinHttp.Send objReceive.xml if Err.Number = 0 Then Response.Write( "Status: " & objWinHttp.Status & " " & objWinHttp.StatusText) strHTML = objWinHttp.ResponseText else Response.Write Err.Description end if Set objWinHttp = Nothing Function ManageStateChange() select case (objWinHttp.readyState) case 2, 3: ===> put what code??? case 4: ==>> put what code, which should have same meaning in my VB code exit function end select End Function My code in VB. objXH.Open "POST", m_URL, True objXH.send ObjDoc.XML objTimer.Interval = 60 objTimer.Enabled = True ===>> do we need to put timer in VB script? nTimeCount = 0 While nTimeCount < 60 If objXH.readyState = 4 Then ==>>>> How to do this in Vbscript? GoTo exitloop End If DoEvents ===>>> and this??? Wend objTimer.Enabled = False If nTimeCount = 60 Then MsgBox TIME_OUT '("Time out") End If I'm not sure how to handle the asyncronous mode in VB script, as we do not have timer and Events, am I right? Can someone pls edvise me.....thanks. Tag: retrieving SQL-server data Tag: 160525
  - 4
    - Inventory I have an access database that has our inventory. There is one table that has the computer name and the memory column. I've also created a script in the past to read the computer name from a file, get inventory from it (like hd size and total memory) and write it to a file. Well, what I would like to do now, is use the access database in a similar fashion. Instead of reading from a file, I would like to read from the computer name column and update the memory column. The part I'm having trouble with is getting the computer name from the DB. I don't have a clue how to do it. Thanks in advance, RK. Tag: retrieving SQL-server data Tag: 160523
  - 5
    - Power management settings I am trying to find a script to turn the power options off in the control panel. Is there a way to do that with a script? Thanks Tag: retrieving SQL-server data Tag: 160518
  - 6
    - Getting NIC Info. Anyone know how to get access to bytes sent / received for a nic? If you can't do that in VBS (Not WSH) is there a com that anyone knows of ? Thx in advance everyone. Tag: retrieving SQL-server data Tag: 160514
  - 7
    - Getting NIC Info. Anyone know how to get access to bytes sent / received for a nic? If you can't do that in VBS (Not WSH) is there a com that anyone knows of ? Thx in advance everyone. Tag: retrieving SQL-server data Tag: 160513
  - 8
    - permission w2k staff, necessary to write one script that he makes the following one, in a machine W2K: - to remove permission of "All" of the root of unit "C:"; - to add to total permission for the group "administrators"; - to add to partial permission for the group "userss" any aid is obliged coming well Tag: retrieving SQL-server data Tag: 160512
  - 9
    - Exposing Object Models I was wondering if anyone knows the object models for the following, or if they are even visible. Adobe Acrobat Reader v 6.0 PhotoEd Winzip QuickTime Player Paint WordPad i can use obj.run, but I was hoping to keep the script in line with the Office products and use: set objXL = CreateObject( "Excel.Application" ) Thanks Tag: retrieving SQL-server data Tag: 160509
  - 10
    - Remotely running a program from the Command Line Is it possible to run Wscript.Shell remotely. I am running a .exe to change the Windows Update server. I would access them through the IP Addresses. I have a code that runs it on the computer. Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run sFile 'where sFile= c:\susconf.exe servername Another Question is there anyway to copy to the .exe to another computer without having a share name? Angela Tag: retrieving SQL-server data Tag: 160497
  - 11
    - Win key with Sendkeys How can I send the WIN key from a Sendkeys statement? I want to try the Win+M function. Sandrobi Tag: retrieving SQL-server data Tag: 160493
  - 12
    - Loading the ITC control in script Hi, I have following question. Loading the ITC control in script I am using XMLHTTP (which I load dynamically from within client side script on an HTML page) to do file transfers. However, I need to use some of the capabilities of the Internet Transfer Control (MSINET.OCX). How can I load this DLL dynamically (from within JScript or VBScript) and call its functions? Any help is greately appreciated...... Thanks Mayur Tag: retrieving SQL-server data Tag: 160490
  - 13
    - use fso to create text file each time form is reposted Hi All. I have an asp page that creates a recordset and displays it in a table. At the end of my asp page is script that uses the FileSystemObject to create a text file. I want to delete and recreate the text file each time the user changes the recordset data. Here is part of the code I'm using: Set fs = Server.CreateObject("Scripting.FileSystemObject") If fs.FileExists (fileName) Then fs.DeleteFile (fileName) End If Set MyFile = fs.CreateTextFile(filename, True) The text file never changes after the first form post. Thanks in advance for any help, Andy Tag: retrieving SQL-server data Tag: 160486
  - 14
    - Making IE Internet Option setting changes using VBScript Hello: I am a VBScript newbee and I am trying to put together a script to make some changes to the IE Internet Option settings: Tools>Internet options> General Tab>Temporary Internet Files>Settings>select option "Every visit to the page" and make sure "Amount of disk space to use" is set to 1mb. General Tab>Temporary Internet Files> Click the "Delete Files" button and "Delete Cookies" button. Security Tab>Trusted Sites> verify a website and if it is not there add one Security Tab>Trusted Sites> and enable Download signed ActiveX controls enable Download unsigned ActiveX controls enable Initialize and script ActiveX controls marked as safe This is in a W2K environment. Any suggestions? Thanks Tag: retrieving SQL-server data Tag: 160485
  - 15
    - How to find the first "," (comma) in a row?? Hi all, I have a question about vbscript. This is my code: -------------------------- searchGroups = rs.fields("member") Response.Write("<td>") If Not IsNull(searchGroups) then For i = 0 to UBound(searchGroups) Response.Write("" & (Mid(searchGroups(i),4))) Response.Write("<br>") Next End If -------------------------- This code returns the following "<name>,OU=<OUname,DC=xxxxxx,DC=xx" The problem is that I only want the <name>, or the real problem is that the number of characters is different in the <name> field. The name field is both username and group name. Is there a way to find the first "," (comma) in the row? Thanks in advanced. Fredrik Tag: retrieving SQL-server data Tag: 160483
  - 16
    - how to rename a user account inNT4.0 domain via sripct or batch? I have to rename a few hundred users, before migrating to W2K3 domain, but i don't know how to do this in a sript or batch. The NET USER command doesn't have a parameter for renaming. Any ideas?? Thanks in advance Tag: retrieving SQL-server data Tag: 160482
  - 17
    - collecting more than 24 hours in seconds and converting it to hh:mm:ss Hi All, I got this function from here to convert seconds into hh:mm:ss, the only problem I have is that sometimes my number of seconds "91800: goes over 24 hours thus I loose the first 24 h and get returned 01:30:00, I am using this function in an ASP page. Any ideas on how I can get round my problem? Cheers Mark Function GetTime(A) Dim cSEC if A > 0 Then cSEC = A Dim strADD strADD = DateAdd("s",cSEC,Date()) Dim intHRS intHRS = DatePart("h",strADD) intHRS = Right("0" & CStr(intHRS),2) Dim intMIN intMIN = DatePart("n",strADD) intMIN = Right("0" & CStr(intMIN),2) Dim intSEC intSEC = DatePart("s",strADD) intSEC = Right("0" & CStr(intSEC),2) ConHHMMSS = intHrs & ":" & intMin & ":" & intSec else ConHHMMSS = "00:00:00" End IF GetTime = ConHHMMSS End Function Tag: retrieving SQL-server data Tag: 160481
  - 18
    - Delete unwanted subfolders Here is what I have figured out so far.. Set oFS = CreateObject("Scripting.FileSystemObject") Set oFolder = oFS.GetFolder("C:\Somefolder\Programs\") For Each oFolder In oFolder.SubFolders WScript.Echo oFolder.name If oFolder.name <> "FolderA" Then End If If oFolder.name <> "FolderB" Then End If If oFolder.name <> "FolderC" Then ' Else filesys.DeleteFolder "c:\Somefolder\Programs\" & oFolder.name End If Nex - Shadrac ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: retrieving SQL-server data Tag: 160480
  - 19
    - Delete unwanted subfolders Well.. I am totally lost in the logic of a project, maybe someone ca help me... I have a folder with 3 or more subfolders. I want to keep only 3 that know should be in the folder. TopFolder - FolderA - FolderB - FolderC Delete every other folder that is not A, B, or C. What I know about scripting, I am going to have to enumerate what is i the folder, then do if statements to say if not A, B, or C then delete Can someone help? Is my logic correct and how would I begin - Shadrac ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: retrieving SQL-server data Tag: 160479
  - 20
    - Windows 98 Computer Name Is there anyway using VBscript to programmatically set the computer name on a Windows 98 system? Jim Gregg Tag: retrieving SQL-server data Tag: 160474
  - 21
    - Running VBS (VB Scripts) from cmdlines.txt 2003 server Sorry for the cross post...I am at a loss with this one. I have some VB scripts that I use to patch systems while building them. I run it from cmdlines.txt to put the patches down in text mode setup. The scripts work great on Windows 2000. I am putting together a builds of 2003 server and the scripts are not running completely. Here are 2 samples: With this one I am trying to see what services are running for troubleshooting... Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service") For Each objService in colRunningServices msgbox objService.DisplayName & VbTab & objService.State Next I can't get the collection of services... This is the section of my patching script that tanks... const HKEY_LOCAL_MACHINE = &H80000002 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:S tdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AccPatchLevel" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strValueName = "DisplayName" strValue = "Anadarko Canada Corporation - Patch Management" oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue strValueName = "DisplayVersion" strValue = strPatchLevel oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue For some reason, I can't create the registry key. There are also a couple of home grown exe's that don't behave either. I have tried to disable the IE Hardening for all users and still no joy. Is any one else having any issues like this? Is thee any way to fix this behavior? Thanks, Dan Tag: retrieving SQL-server data Tag: 160470
  - 22
    - Regular Expressions : AlphaNumeric Requirement Problem Hello, We're TRYING to write a regular expression to enforce this password rule: - Must be 7-15 characters - Must contain only [a-zA-Z 0-9] - Must have at least one alpha and one numeric in any order But we're not coming up with any one expression that solves all those problems, but know it's possible. Any helpers? THANK YOU! /bw wetchman at hotmail dot com Tag: retrieving SQL-server data Tag: 160469
  - 23
    - Batch file to copy large files I have a server that creates a large (1.7G) data file that needs to be moved to a production server for analysis every morning. Every morning I manually copy it over. Granted it only takes a few minutes but if I get busy, it may be a few days until I can get to it. I tried writing a batch file to copy the file across the network to the storage server but it always failed. Can anyone give me some suggestions? Tag: retrieving SQL-server data Tag: 160465
  - 24
    - How to get the newest file in a Directory? Hey guy's I need to get the latest file in a directory. Backup softwar creates a file called backup01.log the second file backup02.log. I onl need to check the lastone. Then I need to email to a pop3 account. Thn - ilisof ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: retrieving SQL-server data Tag: 160464
  - 25
    - read exchange address book hello NG how can i read the exchange addressbook and store those addresses in a textfile or in a access database? has anybody a idea? thanks markus früh Tag: retrieving SQL-server data Tag: 160463

Hi,

I have several .vbs script to inspect my database with queries like
select count(*) as 'count' from tb_data where err_count > 0
select id, folder from tb_data where date > '2004-07-01'
I always use an ADODB.Connect en .Recordset to get the information. But
now I want to query
select e.id, e.folder, d.folder from tb_error e, tb_data d
where e.id = d.id

Works in ISQL, but I could not find any information in the SQL-server
books-online except for ASP programming. I don't have a webserver.

Any hints on how to use ADODB.Connect (or maybe ADODB.Command)??

Tnx
Rob

Top

Re: retrieving SQL-server data by Viatcheslav

Viatcheslav
Fri Jul 16 05:54:52 CDT 2004

dim connStr, SQL, rs

connStr = "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=XXX;"
SQL = "select e.id ..... where e.id = d.id"
rs.Open SQL, connStr, 2, 3, 1
'2 - adOpenDynamic, 2 - adLockOptimistic, 1 - adCmdText

//------------------------------------
Regards,
Vassiliev V. V.
http://www-sharp.com -
Scripting/HTA/.Net Framework IDE

"Rob Moerland" <rob.moerland@hetnet.nl> ???????/???????? ? ????????
?????????: news:cd6np8$l3n$1@reader08.wxs.nl...
> Hi,
>
> I have several .vbs script to inspect my database with queries like
> select count(*) as 'count' from tb_data where err_count > 0
> select id, folder from tb_data where date > '2004-07-01'
> I always use an ADODB.Connect en .Recordset to get the information. But
> now I want to query
> select e.id, e.folder, d.folder from tb_error e, tb_data d
> where e.id = d.id
>
> Works in ISQL, but I could not find any information in the SQL-server
> books-online except for ASP programming. I don't have a webserver.
>
> Any hints on how to use ADODB.Connect (or maybe ADODB.Command)??
>
> Tnx
> Rob

Top