Make SQL connection with Windows Auth?

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
    - Proper Syntax for Variable Name in RecordSet.Find I'm trying to use a variable in a text string for the RecordSet.Find command. My script looks something like this. strKeyDiscerningCharacteristicData=objMDRDataDictionary.item("Compound")strSearchCriteria = "Compound = '"& strKeyDiscerningCharacteristicData & "'"" objRecordSet.Find strSearchCriteria When I run this, I get the error 'Microsoft VBScript compilation error: Unterminated string constant'. What's the correct way to set up the string for the search criteria? TIA Ernie Tag: Make SQL connection with Windows Auth? Tag: 176782
  - 2
    - E-mails sent from script are only sent after the script finishes I put together a script that combined the services change of state script from here: http://www.microsoft.com/technet/scriptcenter/resources/qanda/sept04/hey0903.mspx with an e-mail sending script from here: http://www.paulsadowski.com/WSH/cdo.htm The script seems to run fine. If i start up the script and then go and stop a service a message will be sent. And if i do it for multiple servies multiple messages will be sent. Or at least I think they are getting sent. The problem is that as far as I can tell the messages sort of queue up and will only actually send when i close the script. If i don't close the script i never get the e-mails. The moment I close the script all the e-mails show up in my e-mail box all at once. '----#Script: strComputer = "." Set objMessage = CreateObject("CDO.Message") '-----Configure for remote mail server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "cokmail1" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '-----End Configure objMessage.Sender = "e-mail@address.com" objMessage.To = "e-mail@address.com" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServices = objWMIService. _ ExecNotificationQuery("Select * from __InstanceModificationEvent " _ & "within 30 where TargetInstance isa 'Win32_Service'") i = 0 Do While i = 0 Set objService = colServices.NextEvent If objService.TargetInstance.State <> _ objService.PreviousInstance.State Then objMessage.Subject = "Service State Change: " & objService.TargetInstance.Name objMessage.TextBody = "The service, " & objService.TargetInstance.Name & ", has changed state." _ & "The current state is " & objService.TargetInstance.State & ". It was previously " & objService.PreviousInstance.State & "." objMessage.Send End If Loop '--------#End Script Any help would be greatly appreciated. Tag: Make SQL connection with Windows Auth? Tag: 176781
  - 3
    - IWebBrowser2 Interface and Reset Default IE Settings Greetings: Two quick questions: 1. Is there a way to tap into IWebBrowser2 Interface from VBScript? How would I go about doing this? 2. Is there a way to reset all IE settings back to "factory settings" using VBScript. I mean security settings, homepage, cookies, etc etc Thanks Tag: Make SQL connection with Windows Auth? Tag: 176780
  - 4
    - Newbie Common Dialog question writing a script to go through a collection of MS Project files in a folder and muck around with them in Project. Need to be able to have the user specify which file is the shared resource pool file...preferably through a dialog box rather than manually typing in the path/file name. Problem is that some of the users have Win2K and the others have XP. Which means that I can't exclusively use the XP specific common dialog way of doing business. I've tried plowing through the various script pages on MSDN and Technet to no avail for how to do a "select a file" dialog box on a Win2K system. Any advice/suggestions would be very helpful. Tag: Make SQL connection with Windows Auth? Tag: 176779
  - 5
    - renaming the last file written Is it possible in vbs to make windows explorer or stritcly by vbs to reanme the last file written to a specfic name I got this app that writes a funky extension .inf.1 inf.2 inf.3 etc... adding them up each time you enter in this curse of a text editor it's giving me the info i need from the main app... but i don't know what filename.inf.? number will be there if I could rename it to a standard ext then I could access it a lot better with automation so file <last one > rename to anything.txt ??? Tag: Make SQL connection with Windows Auth? Tag: 176777
  - 6
    - Automation of IE and detection of popups using VBScript I am working on a simple VBScript that instantiates IE 6. My script then proceeds to â??driveâ?? IE by reading urls from a text file. I use this script for testing various websites. The problem is that from time to time I come across sites with popups of various forms. Can I detect new IE windows being fired up by these sites and either kill them off or do a KeySend (or is it SendKey) to simple click CANCEL? I have seen another script that fetches off the window handles as in win.HWND. Would this be a way? And if so, once I fetch of the handle, how do I manipulate (i.e. kill ) the new window by using its handle? Thanks P.S. can something similar be done for Firefox? Is there a vbscript that "drives" firefox? Tag: Make SQL connection with Windows Auth? Tag: 176776
  - 7
    - multiprocessors and hyperthreading I'm trying to determine the number and speed of the processors in a server. My results are being skewed by those servers that have hyperthreading turned on. A 2-CPU server appears to be a 4-CPU server, etc. Is there a way to distinguish between a physical and a virtual processor? TIA, Seymour Tag: Make SQL connection with Windows Auth? Tag: 176774
  - 8
    - unbind QoS and File and Print Sharing Hey all, I have the situation where I need to unbind QoS and FIle and Print Sharing on my computers. Is there a way to accomplish this via a vbscript. I have looked on microsoft and the web and have come up short. It seems that if you remove QoS from XP and sysprep it, it puts it back. Thanks Matt Tag: Make SQL connection with Windows Auth? Tag: 176765
  - 9
    - Is this to Complicated? Hi All, Wonder if somebody could kindly help me? Im fairly new to this so please excuse me if I sound daft. I have a VBS script that copies a file from 1 Directory to Aanother each night. The file is Approx 290megs and grows about 2meg per day. Currently all is working well however im deleting the previous weeks files manual each monday. (Its a backup, and we need seven days worth) as they are starting to take up a fair amount of space. Is there a way to get the VBS script to check the earlist file and delete it if it is over a week old? Any Help much appriciated Many Thanks Regards Si Tag: Make SQL connection with Windows Auth? Tag: 176762
  - 10
    - Efficient way to access list of folders? Hi, I have a requirement to access over 100,000 folders and collect information like date created , last accessed etc. These folders could be spanned across the network on multiple servers. Can you please comment on which way is efficient to acheive this 1.FileSystemObject 2.WMI Classed 3. ADSI Interface Thanks and Regards, Parag Tag: Make SQL connection with Windows Auth? Tag: 176760
  - 11
    - function works inline but not when placed in include file hi i have a function function change(txt) change=replace(txt,"-","~") end function this works fine when i place it inline in a ASP page but when i  a file with it in - it gives me a type mismatch error. any ideas? D Tag: Make SQL connection with Windows Auth? Tag: 176759
  - 12
    - Calling an OLE method but continuing a timer within VBS Hi VBS gurus, I have a problem which I am trying to get resolved in time for a probation review for a new job (Good marks = Continue to get paid)... Basically, I have written a VBS script to do an unattended test of an application called OPP over a Citrix environment. The script is included at the end of this post in all its glory. All works well when the username/password variables function correctly to log in: success = OPPApplication.Login(loginname, password) If all works, success is returned as TRUE and away we go. Problem is, when the username/password don't function, the .Login OLE method just opens a window on the Citrix server and awaits user entry. Since this is meant to function unattended, the window just sits there waiting and never returns to the VBS script to return success = FALSE. You can see I have tried to set a timer to return success = FALSE if no luck after 10 secs but the problem I have is that control is never returned back to the VBS script from the application call, so the timer never continues counting. If anybody has advice on how I can do this (Somebody I asked mentioned calling the OLE method asynchronously - I have google'd it unsuccessfully so far) I'd be eternally grateful... Thanks for reading this far, sorry about the wordiness Matt ---- VBS script below ---- OPTION EXPLICIT Function DateTime (d) DateTime = Day(d) & "/" & Month(d) & "/" & Year(d) & " " & Hour(d) & ":" & Minute(d) & ":" & Second(d) & ".00" End Function 'Declare OPP application object and variables Dim OPPApplication Dim success Dim loginname Dim password 'Parameters passed from command line Dim OPPArgs 'Timer to check for time-out of login attempts Dim OPPTimer Dim OPPTimer2 'Availability of the application Dim availability 'Set OPPApplication Set OPPApplication = CreateObject("opp.application") Set OPPArgs = WScript.Arguments 'Set variables to command line parameters loginname = OPPArgs.Item(0) password = OPPArgs.Item(1) availability = "0.0" 'Set timer OPPTimer = Timer() 'Will give the monitor 10 seconds to successfully login to Open Plan OPPTimer2 = OPPTimer + 10 'Attempt login to Open Plan While OPPTimer < OPPTimer2 success = OPPApplication.Login(loginname, password) <-- This is my problem OPPTimer = Timer() <-- Never gets back to here Wend 'Test if able to login successfully If success = "True" Then 'OPP has successfully logged in availability = "1.0" 'Output final results and availability of test WScript.stdOut.WriteLine DateTime(Now) & ",""General.Availability"",""" & availability & """" Else 'OPP has failed to login - availability will be "0.0" WScript.stdOut.WriteLine DateTime(Now) & ",""General.Availability"",""" & availability & """" End If WScript.Quit Tag: Make SQL connection with Windows Auth? Tag: 176755
  - 13
    - ADO securitywarning Hi Need help. In a project where I use a connection to a access database, I get the following security warning: "This web site is using a data provider that's possibly insecure. If you trust this web site push OK otherwise push CANCEL." The first message is displayed and the warning shows up. After pushing OK nothing happens. Here is the code: <SCRIPT Language = VBscript> Sub Aendern_OnClick() Message1 = MsgBox("Testmessage",0,"Test") Set conn_tlf = CreateObject("ADODB.Connection") conn_tlf.Open "dsn=Telefonverzeichnis" SQL_Edit = "UPDATE Anschluesse SET Kurzwahl=9999 WHERE Anschluss_ID = 1" conn_tlf.Execute(SQL_Edit) Set conn_tlf = Nothing Message2 = MsgBox("Another testmessage",0,"Test") end sub </SCRIPT> What is wrong? Thanks Michael Tag: Make SQL connection with Windows Auth? Tag: 176746
  - 14
    - VBScript and HTA Question is ther a way to pass a veriable to the <span> area from a VB script. I would like to pass todays date to a cell in a table. VBScript; Sub Window_Onload fDate = Date End Sub How do I display fDate in the <span> TIA Mike microsoft.public.scripting.vbscript Tag: Make SQL connection with Windows Auth? Tag: 176744
  - 15
    - Comma in AD object name is causing error In our Active Directory, user objects are represented as "lastname, firstname" This causes a problem for me in connecting to the user object to change properties. Using the Getobject("LDAP://cn=USERNAME,cn=Users," & _ objrdse.get("defaultNamingContext")) returns an 0x80005000 error because it is reading the "," between the user's last and first name. Does anyone know how I can get around this problem? Tag: Make SQL connection with Windows Auth? Tag: 176741
  - 16
    - Checking services on remote machine I am getting error in below listed script. Can anyone help me in identifying the problem strComputer = "192.168.1.2" strUserName = "admin" strPassword = "test" Set objLocator = CreateObject("WbemScripting.SWbemLocator") Set objService = objLocator.ConnectServer(strComputer, "root\cimv2",strUserName, strPassword) Set wbemServices = objService.Get("Win32_Service") Set StdOut = WScript.StdOut Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service") For Each wbemObject In wbemObjectSet WScript.Echo "Display Name: " & wbemObject.DisplayName & vbCrLf & _ " State: " & wbemObject.State & vbCrLf & _ " Start Mode: " & wbemObject.StartMode Next Thanks in advance, DK Tag: Make SQL connection with Windows Auth? Tag: 176737
  - 17
    - Access/VBScript filter bug, won't display proper # of filtered ite I have the following code: [code] ' Clone the recordset. Dim rs Set rs = MSODSC.DataPages(0).Recordset.Clone On error resume next 'Determines which field is selected, then searches it for the value if selectsearch.value = "ID" then rs.find "ID ='" & cStr(InputBox("Enter your search","Find")) & "'" if selectsearch.value = "ID" then id.disabled = "false" MSODSC.DataPages(0).Recordset.Bookmark = rs.Bookmark MSODSC.Datapages(0).FirstSection.HTMLContainer.Children("id").Focus MSODSC.Datapages(0).ApplyFilter id.disabled = "true" [/code] Which searches for a specific entry in a certain field, finds it, stores the "bookmark" then uses the bookmark to focus on the specific field, and filter the value, which has the effect of finding all entries with the value searched for. Unfortunately, when first searched for, the proper amount of filtered items is not collected. If the filter is toggled, it adds the missing entries as the filter is reapplied, until finally the correct amount is filtered. I was wondering what may be the problem and how can I fix it. We have about 1100 entries, if you are curious. Tag: Make SQL connection with Windows Auth? Tag: 176736
  - 18
    - managing other users on a local computer I'm trying to write a script to change the location of some specialfolders when installing the OS (windows XP Pro). But I can only reach the specialfolders of the user which is logged on. How can I get and use information of the other users' specialfolders; or is this impossible ? Tag: Make SQL connection with Windows Auth? Tag: 176735
  - 19
    - AD User Accounts I have a script that reads user information from an Excel Spreadsheet... When I am creating the accounts everything works just as I expect... However the name displayed in the AD management console shows the saMAccountName and not a full name display as if I created the account by hand... I have tried several differnet fields, but... no luck... Can someone tell me what field to populate to get the AD display to show a full name... Thanks, SB Tag: Make SQL connection with Windows Auth? Tag: 176733
  - 20
    - Searching for MySQL servers on the network Hi, I do some work for several companies and I got a request to list all the database servers with al the databases they contain. I know how I can list the databases. However I never had to search the network for databases. I know that this company is only using MySQL servers on Windows. Can somebody tell me how I can retrieve them on the network with a script or an app? Wkr, Arjan. Tag: Make SQL connection with Windows Auth? Tag: 176731
  - 21
    - DataGrid HELP! I am getting some strange results when trying to access data thrown into a DataGrid. Perhaps someone can shed some light and provide a solution to my issues.... Process: Load DataGrid1 with an ADOrs - no problem Click a cell to retrieve it's value - some problems When clicked, I am *trying* to set the Row number like this, Dim RowValue RowValue = DataGrid1.RowContaining(Y) What I get for the value is actually +1 from the ADOrs value (so, clicking a cell in the first row will give me a RowValue = 1). No problem, just subtract 1 ( -1) from the actual row number to access the correct row (0) in the ADOrs, right? Well, this works for rows 1 thru 3 in the DataGrid1. Here's what happens past row 3: Clicking a cell in row #4 in the DataGrid returns a RowValue = 5!!!! So, by subtracting 1 from this, gives me row 4 in the ADOrs which is the inncorect value from where I clicked. It should be giving me a RowValue = 4 (which in turn would select row 3 in the ADOrs). Also -- when clicking on or past row 5 in the DataGrid, it returns a RowValue = -1 which of course totally throws everything off and bombs out the app. Any insight as to this behavior and how to remedy would be greatly appreciated. Code below. Thanks, j Private Sub dataGrid1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS) Dim RowValue, ColValue Dim cellVal As String Dim pos As Integer ColValue = DataGrid1.ColContaining(X) RowValue = DataGrid1.RowContaining(Y) pos = RowValue - 1 cellVal = DataGrid1.Columns("ID").CellText(DataGrid1.RowBookmark(pos)) End Sub Tag: Make SQL connection with Windows Auth? Tag: 176730
  - 22
    - Server Side Code Returning Invalid XML error Hi fellows, I am a newbie, so new to these discussion groups. I had put this question in Sqlserver.xml group. May be this question is related to ASP group. So, putting it here. I am facing following problem: I am passing a XML to SP, and SP in return send XML back. When I comment out sp_xml_preparedocument (XML reading block) in SP, ASP is taking returning XML as valid, but, if I uncomment input XML reading block, ASP is giving following error: -------------------------------------- Microsoft OLE DB Provider for SQL Server error '80040e21' XML parsing error: Invalid at the top level of the document. /../../MailListFixErrors.asp, line 124 -------------------------------------- I am using XP v2002 SP2, Sql-Server 2K Pro. Edition SP3 and using classic ASP. Here is my code snippet: Store Proc: ------------- CREATE PROC [dbo].[spValidateMList_MLST] @XMLDoc text AS BEGIN DECLARE @InputList TABLE ( [MailListName] [varchar] (40) , [guid] [varchar] (40) ) DECLARE @MailListName [varchar] (40) , @CustomerID [varchar] (40) , @ShipperID [varchar] (40) , @ServerID [varchar] (40) EXEC sp_xml_preparedocument @idoc OUTPUT, @XMLDoc SELECT @MailListName= MailListName, @CustomerID= CustomerID, @ShipperID= ShipperID, @ServerID= ServerID FROM OPENXML (@idoc, '/maillist',2) WITH (maillistname [varchar] (40) , customerid [varchar] (40) , shipperid [varchar] (40) , serverid [varchar] (40) ) INSERT INTO @InputList ( MailListName, guid ) SELECT @MailListName, guid FROM OPENXML (@idoc, '/maillist/row',2) WITH (guid [varchar] (40) ) EXEC sp_xml_removedocument @idoc ...... ...... SELECT 1 AS Tag, NULL AS Parent, NULL AS [Error!1!], NULL AS [row!2!Code!element], NULL AS [row!2!Message!element] UNION ALL SELECT 2 AS Tag, 1 AS Parent, NULL AS [Error!1!], 0 AS [row!2!Code!element], (SELECT COUNT(*) AS ErrCount FROM @MailListShipment WHERE CheckedStatus in (1,2)) AS [row!2!Message!element] FOR XML EXPLICIT END ASP code is as : ------------------- Dim strExStoredProcedure Const MSSQLXML_DIALECT = "{5d531cb2-e6ed-11d2-b252-00c04f681b71}" Const adExecuteStream = 1024 Const adWriteChar = 0 Dim conDB Dim cmdXML Dim stmXMLin Dim stmXMLout strExStoredProcedure= " [dbo].[spValidateMList_MLST] @XMLDoc = " &_ "'<maillist><maillistname>ml14</maillistname><customerid>ABC</customerid> " &_ "<shipperid>ABC</shipperid><serverid>s400</serverid><row> " &_ "<guid>D3EA3AA2-49EC-4455-8D25-6D32BAD3D6DB</guid></row></maillist>' " Set conDB = CreateObject("ADODB.Connection") With conDB .Provider = "SQLOLEDB" .ConnectionString = connstr .Open End With Set cmdXML = CreateObject("ADODB.Command") Set cmdXML.ActiveConnection = conDB Set stmXMLin = CreateObject("ADODB.Stream") Set stmXMLout = CreateObject("ADODB.Stream") With stmXMLin .Open .WriteText "<root xmlns:sql='urn:schemas-microsoft-com:xml-sql'>", adWriteChar .WriteText "<sql:query>", adWriteChar .WriteText "EXEC " & strExStoredProcedure, adWriteChar .WriteText "</sql:query></root>", adWriteChar .Position = 0 End With 'Open Stream for output stmXMLout.Open With cmdXML Set .CommandStream = stmXMLin .Dialect = MSSQLXML_DIALECT .Properties("Output Stream") = stmXMLout 'Output Stream .Execute, ,adExecuteStream 'Execute ADO Command End With str=stmXMLout.ReadText 'get the XML as string This SP runs fine in Query Analyzer and the returning XML seems to be OK. But when we use â??Responseâ?? Object to get returning XML, and pass it back to client side, it is working OK. But if I use "stmXMLout" Object Stream to get returning XML, and want to process XML on server side code, it is giving me the error I mentioned above. Need help ASAP. Thanks. Tag: Make SQL connection with Windows Auth? Tag: 176726
  - 23
    - how to: hey all, i hope i'm in the right place, i need to find all files that have an extention .txt, in all subfolders of a particular folder open that file, change 1 line, move to the next file is this possible? thanks, rodchar Tag: Make SQL connection with Windows Auth? Tag: 176717
  - 24
    - time server script Hi I need to know if anyone has written or knows of a script that forces a computer logging on to a network to use the time on the domain controller as the client computers time. danny m Tag: Make SQL connection with Windows Auth? Tag: 176710
  - 25
    - Changing login desktop color I need to write a logon script that can change the background colour of the login screen for a Windows XP / 2000 machine. I know i can change the desktop colour using SetSysColor except that that's an API call and vbscript dosn't allow those.. at least not that i've found. I also suspect that it's the system account's desktop colour that i need to change, but i'm not sure. I have a requirement to change the desktop background of the login screen to give an admin some basic system status so he can see at a glance if he needs to log in at all, and i'm not allowed to use wallpaper. I'd rather not have to write a small app to call the API and then call that app from vbscript. I've looked at WMI and other places but i just cannot seem to find what i need. I expected this to be simple. If anyone know how to do this i'd be very grateful. I suspect i've just looked in the wrong place. Thanks a lot, Martin Tag: Make SQL connection with Windows Auth? Tag: 176708
- Next
  - 1
    - filename How can I get the filename and drop everything after the dot. For example, Execute test.vbs that calls this statement inside of script: test=Wscript.ScriptName Output is : test.vbs Now all I want is the filename test. How can I always drop the .vbs in this case. Tag: Make SQL connection with Windows Auth? Tag: 176700
  - 2
    - Variable references I read in other posts that there are no references in VBScript - however, it's possible to use this.... foo = "bar" bar = "blah" msgbox eval(foo) How would this apply to getting variables from fields? I've got a form which has various fields (in an HTA), lets say they are called "fld1", "fld2" etc.... how would I get the values from these fields using a variable reference.... If I were to do this to display "fld1", it would work.... Msgbox fld1.Value But I actually want to do it like this (but it doesn't work obviously!)... foo = "fld1" msgbox eval(foo).Value Is there a way of writing the above, or a workaround so I can grab the field values using a variable reference instead of direct variable name?? Please end my hours of brainfry!!! Cheers, Simon Tag: Make SQL connection with Windows Auth? Tag: 176699
  - 3
    - hta-map drive-start explorer-prob I have the following code in an hta... (btw- put together from you good guys in this forum) Basically its a dropdown that lets you select a user name which then maps a drive to their c$ and then opens "explorer z:" 'Map networkDrive______________________ Dim WSHNetwork Dim NextAvailableLetter NextAvailableLetter = strDrive Set WSHNetwork = CreateObject("WScript.Network") WSHNetwork.MapNetworkDrive NextAvailableLetter , "\\" & D1.value & "\c$" 'Start Explorer________________________ Dim wShell Dim s set wShell=CreateObject("Wscript.Shell") s = Chr(34) & "%windir%\explorer.exe" & Chr(34)& Chr(34) & strDrive & Chr(34) & Chr(34) wShell.run s only prob is i get an error because explorer opens just before the drive has a chance to connect! any ideas! thanks in advance *** Sent via Developersdex http://www.developersdex.com *** Tag: Make SQL connection with Windows Auth? Tag: 176694
  - 4
    - Registry handling Hi, I want to know how can I use VBscript to create a folder in the registry? Thanks in advance Tag: Make SQL connection with Windows Auth? Tag: 176693
  - 5
    - repost - 100/full auto?? repost from microsoft.public.programming.vbscript (Due to lack of posts in that NG) Anyway of scripting all servers in the domain to determine nic speed? (Mostly Broadcom nic's but some others NICS apply such as 3com and Intel) I am using 2000 Server and 2003 server. We need to set our cards to 100/full and I am worried I might have missed a few. (There are hundreds of them..) It seems to only show up in a GUID so I was wondering if there was some way to determine which GUID both nics are in on each server. An additional help would be if you knew of a way to determine the 'linked' or 'active' nic. (Perhaps WMI? or remote reg queries?) Thank you in advance. Tag: Make SQL connection with Windows Auth? Tag: 176684
  - 6
    - Dir Script Looking for a VBSCRIPT Script to scan a shared directory not below one level to provide a count, trying to script a round-robin affect for creating home directories. Ex: \\Virtural1\Home1 4 \\Virtural2\Home2 3 \\Virtural3\Home3 3 \\Virtural4\Home4 3 The \\Virtural2\Home2 would be the next server to add a new home directory Thanks Tag: Make SQL connection with Windows Auth? Tag: 176677
  - 7
    - Open IE instance remotely Need help!!...(Here is the situation): There is a web application/page that requires the installtion of active x locally on workstations but since regular users don't have permission, they are unable to load this web application Is there any way to start an instance of IE remotely or from a share and that instance can use the administrator credential and install the active x and quit or is there any other way... Please help.. Thanks in advance Tag: Make SQL connection with Windows Auth? Tag: 176674
  - 8
    - active directory scripting question.... in active directory users and computers, on a user object, there is a "profile" tab. on this tab is the option to map a drive to a path on a server share. i have 6,000 users that all have the same server name in that box and i need to change them all to a different server. for the time being im using a DNS workaround to point the old name to the new server, but i have to do it right. so... anyone have a quick fix? any help is appreciated. thank you Tag: Make SQL connection with Windows Auth? Tag: 176673
  - 9
    - userAccountControl Up until this point I really haven't had to definitely determine the options set by the userAccountControl. What I'm actually trying to do is determine accounts that are enabled vs disabled. I would expect the value of userAccountControl to be 514 for a disabled account (http://support.microsoft.com/?id=305144). However, I can set the account to Never Expire and the value changes to 66050 (514+65536). I'm not sure that I can determine every possible scenario with certainty. Should I be trying to brake the number down? If I were to determine it manually, I would subtract the largest listed number I can from it over and over until I can't any more. But I'm not certain that will get me where I need either. Does anyone have an example of working thoroughly with this property? Bart Perrier Tag: Make SQL connection with Windows Auth? Tag: 176668
  - 10
    - For fun: a VBS alarm clock Greetings, In order to learn how to use the AT scheduler from VBS I set myself the task of creating an alarm clock (more acurately - an alarm). It seems borderline useful so I give it here. Is there a better way to have one script turn off another than the way I do it? Going through text files seems too round-about for me. I've done things along this line in Excel VBA using DoEvents and public variables and I couldn't think of anything better than text files to play the role of publc variables *between* scripts. On my desktop I have the following two scripts: Script 1: 'SetAlarm.vbs Set ws = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") when = InputBox("When do you want to wake up?") 'needs to be in military time! e.g. 14:15 for 2:15 PM Set f = fso.OpenTextFile("C:\AlarmFlag.txt",2,true) f.Write "On" f.close ws.Run("at " & when & " ""C:\Alarm.vbs""") __________________________________________ Script 2: 'AlarmOff.vbs Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\AlarmFlag.txt",2,true) f.Write "Off" f.close ____________________________________________ Finally, in my C directory I have: Script 3: 'Alarm.vbs Set ws = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\AlarmFlag.txt",1,true) Do ws.Run "%comspec% /c echo " & Chr(07), 0, True 'beep! WScript.sleep 1000 Set f = fso.OpenTextFile("C:\AlarmFlag.txt",1,true) If f.ReadAll = "On" Then StopNow = False Else StopNow = True End If f.close Loop Until StopNow ________________________________ I hope you find the above at least entertaining -John Coleman Tag: Make SQL connection with Windows Auth? Tag: 176667
  - 11
    - Downloading SagSAS.chm This is a multi-part message in MIME format. ------=_NextPart_000_00AD_01C5774C.623AFCE0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello: I am looking for a file called SagSAS.chm. This file, I believe = contains Microsoft Windows 2000 Scripting Guide.=20 This file is also a searchable Help file containing scripts. Just wondering if this file is available for download from Microsoft (or = other) web site.=20 Thanks, Jo. ------=_NextPart_000_00AD_01C5774C.623AFCE0 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.2900.2668" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Hello:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am looking for a file called=20 SagSAS.chm.    This file, I believe contains Microsoft = Windows=20 2000 Scripting Guide. </FONT></DIV> <DIV><FONT face=3DArial size=3D2>This file is also a searchable = Help file=20 containing scripts.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Just wondering if this file is = available for=20 download from Microsoft (or other) web site. </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks,</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Jo.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML> ------=_NextPart_000_00AD_01C5774C.623AFCE0-- Tag: Make SQL connection with Windows Auth? Tag: 176664
  - 12
    - Delete Network Bridge I'm trying to delete a network bridge if present on a computer. The following script was intended to disable sharing and delete the network bridge, but only the former works correctly. I've included excerpts from the script below. Any help (new approaches, fixes to this one, etc.) would be appreciated. The portion that is commented is the commands that produce the error. Error: Object required --Begin Script-- Dim objShare Dim objEveryColl Dim objNetConn Set objShare = Wscript.CreateObject("HNetCfg.HNetShare.1") If(IsObject(objShare) = True ) then Set objEveryColl = objShare.EnumEveryConnection If (IsObject(objEveryColl) = TRUE) then For Each objNetConn in objEveryColl Dim objShareCfg Set objShareCfg = objShare.INetSharingConfigurationForINetConnection(objNetConn) If (IsObject(objShareCfg) = TRUE) then If objShareCfg.SharingEnabled Then objShareCfg.DisableSharing End If Dim objNCProps Set objNCProps = objShare.NetConnectionProps(objNetConn) If (IsObject(objNCProps) = TRUE) then If objNCProps.MediaType = 7 Then wscript.echo objNCProps.Name 'objNetConn.Disconnect 'objNetConn.Delete End If End If End If Next End If End IF Tag: Make SQL connection with Windows Auth? Tag: 176661
  - 13
    - Lock CD Drive via script The button on my laptop is situated so that I periodically touch it accidentally and open the drive bay. If I am in the middle of watching a video, it is annoying. If I am installing software it can be disasterous. Is there any command I can run from a script that will disable the button, effectively locking the drive shut? Obviously I would also like to be able to unlock it. Tag: Make SQL connection with Windows Auth? Tag: 176656
  - 14
    - ADO RecordSet Is there a recordcount limitation with an ADO RecordSet in vbScript? Every AD query I perform with results greater than 1000 returns 1000; even the recordSet.RecordCount. Bart Tag: Make SQL connection with Windows Auth? Tag: 176649
  - 15
    - ADO RecordSet Is there a limitation with an ADO RecordSet in vbScript? It seems as though every variation I try (results greater than 1000) totals 1000; even the 'recordSet.RecordCount'. Bart Tag: Make SQL connection with Windows Auth? Tag: 176647
  - 16
    - AD Replication via a Script I need to have an easy way for our Help Desk to initiate AD replication. Thus far I have been unable to find any script that will do this. When our Help Desk creates new Exchange Mailboxes it sometimes takes 30 minutes or so for things to show up. Ideally, I would like to just give our Help Desk users a VBS script to run from their desktop that would initiate AD replication on demand. Thanks, Fred Tag: Make SQL connection with Windows Auth? Tag: 176645
  - 17
    - download a file Hi. Is it possible to download a file from an url and save it to C:\temp with a vbs script? Thanks, Shawn Tag: Make SQL connection with Windows Auth? Tag: 176644
  - 18
    - Script to get my public ip address How can i get my public ( firewalls public ) ip address with vbscript? I mean if i connect any local area network how can i get those lan's public ip? Tag: Make SQL connection with Windows Auth? Tag: 176640
  - 19
    - get script name How can I get the name of the script I am running? FOR EXAMPLE, Lets say I execute DeployAll.vbs and when this script is running I want to be able to get the name if script and I store in memory. If I were to Wscript.Echo Filename, I would expect DeployAll.vbs. Thanks! Tag: Make SQL connection with Windows Auth? Tag: 176631
  - 20
    - Using VB Script to install software - Need insight - I was hoping with the wealth of knowledge here that someone could shed some light on using Vbscript to install software. Using vbscript to install msi based applications is not a problem, but where the problem begins is when installing an application or driver package that does not use the windows installer or uses a setup.exe which does the preliminary prep work then launches another executable for the installation. I'm trying to prevent the script from assuming the application is installed when its not, and kicking off the next application install and fouling up the process. Any help would be appreciated! Thanks in advance, Jeff Millar Tag: Make SQL connection with Windows Auth? Tag: 176630
  - 21
    - Drive Mapping The problem i have is i have a logon script that map's network drives. The mapping is done correctly but you display the network drive on a remote computer the drive shows as being disconnected. You can click on the drive and it will open up but it stills shows as disconnected. the script is listed below: Can anyone help and let me know what i'm doing wrong danny Option Explicit Dim objNetwork Dim strDriveLetter, strRemotePath strDriveLetter = "F:" strRemotePath = "\\server\Vol1" ' Purpose of script to create a network object. (objNetwork) ' Then to apply the MapNetworkDrive method. Result F: drive Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive strDriveLetter, strRemotePath WScript.Quit Tag: Make SQL connection with Windows Auth? Tag: 176629
  - 22
    - Joing computer script I have a site with about 160 users. None of the computers are members of the domain. Most are XP & 2000 clients. I know little about scripting and looking for some guidance or script that could join computers to the domain. Make it easy : ) Thanks Tag: Make SQL connection with Windows Auth? Tag: 176628
  - 23
    - AD and Login Scripts Is there a way to get Active Directory to stop running login scripts at the computer level? I work for a college. I want to give students a particular profile when they are in our computer lab. And another if they are working in one of our offices. I suppose I could build an IF statement into the user script that if computer ismember of dn=computers then quit. Or is there a better way? Tag: Make SQL connection with Windows Auth? Tag: 176627
  - 24
    - Roaming Profiles & Defalut Printer I am trying to enable an automated method of setting the default printer for roaming profiles depending on site. I.E user logs on in Site A they will have PR100 as default when they log on in Site B they will have PR400. Each site has 50 odd printers so printers will vary per user... Any ideas or pointers would be appreciated Rick Tag: Make SQL connection with Windows Auth? Tag: 176625
  - 25
    - How to list all the reg keys under a key Hi all, Can anyone tell me if it is possible, and if so how i can read all the reg keys under a key. We have a large number of printers and i need to often run a report on the status and set up of the printers. Rather than keeping a list of the printers and reading from a text file i would like to just script it to perform certain tasks on all the printer keys in SYSTEM\CurrentControlSet\Control\print\printers\ Thanks in advance Tag: Make SQL connection with Windows Auth? Tag: 176621

Here is my SQL snippet:

Set connect = CreateObject("ADODB.Connection")
strDSN =
"Provider=SQLOLEDB;Server=servername;uid=username;pwd=password;database=dbname"
connect.Open strDSN

If I use a local SQL account, no problems.
How do I pass it a windows account and password?
I have tried domain\username and it doesnot like that (using an account that
is a dbowner)
Any help?
Thanks and appreciated
TC

Top

Re: Make SQL connection with Windows Auth? by Jason

Jason
Fri Jun 24 15:31:36 CDT 2005

You can use a trusted connection. But there is no way to pass another
domain\username to it.
If you have it in a VBScript, you can run that script as another user using
a RunAs command.

Use Integrated Security=SSPI;
in place of uid and pwd

Regards,

Jason

"TEC" <tcolgrove.nospam.@remove.ent-exchange.nospam.com> wrote in message
news:ugmu7YPeFHA.1404@TK2MSFTNGP09.phx.gbl...
> Here is my SQL snippet:
>
> Set connect = CreateObject("ADODB.Connection")
> strDSN =
>
"Provider=SQLOLEDB;Server=servername;uid=username;pwd=password;database=dbna
me"
> connect.Open strDSN
>
> If I use a local SQL account, no problems.
> How do I pass it a windows account and password?
> I have tried domain\username and it doesnot like that (using an account
that
> is a dbowner)
> Any help?
> Thanks and appreciated
> TC
>
>

Top