Error Connecting to the database

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
    - find multiple logons hi, does anyone have a utility or script to check if a domain ID is logged onto which computer on the network? thanks Tag: Error Connecting to the database Tag: 180695
  - 2
    - Possible bug with VB Scripting Dictionary Hard to know how to classify this question so apologies for the cross-post. I am writing an application using VBA Retail 6.4.9972 over VB 6.3 inside AutoCAD 2002 (Wait! Don't abandon this question VB programmers - you really don't need to know anything about AutoCAD in order to help). It's a fairly sizeable application (10,000+ lines) and is working quite well but this thing has had me pulling my hair out since yesterday. I am using a Dictionary to store information about roof struts but I've found that modifying the Item for a particular key modifies not only the intended item, but also another (seemingly unrelated) item!! It's true! I've stepped through line by line and can see in the Watch window that they *both* change when the one assignment line is executed. Now the data structure is not straightforward and it may be related to that but I've tried various modifications on the theme and the same problem keeps happening. Here's the relevant code: In a class module named Strut2DClass ------------------------------------ Public MaxPosition Public MinPosition Public MinHalfSpread As Double Public ActualPosition Public ActualHalfSpread As Double Public LineHandle As String Public StrutLength As Long Public ParentDetails As New Dictionary In the standard AutoCAD module named ThisDrawing ------------------------------------------------ Private Sub Strutting2DTree(Strut2DDict As Dictionary) Dim Strut2D As New Strut2DClass Dim CurrentBranch As String Dim StrutLength As Double . . . Strut2DDict.Add CurrentBranch, Strut2D . . . Strut2DDict(CurrentBranch).StrutLength = StrutLength Struts may be Vertical or Fan struts and the Dictionary key CurrentBranch contains the series of struts at the current level, eg "FF", "FVFV". When the last line of code above is executed for CurrentBranch "FFF", the .StrutLength is changed for both "FFF" *and* "FFV" (as witnessed in the Watch window). How can this be?? The other point that *may* be relevant (although I don't see how) is that this procedure Strutting2DTree can recursively call itself in certain circumstances (hence the references to "tree" and "branch"). I would very much appreciate any suggestions. Thanks Wayne Ivory Senior Analyst Programmer Electronic Business Development Wespine Industries Pty Ltd Tag: Error Connecting to the database Tag: 180694
  - 3
    - unable to uncheck Disable Script Debugging I want to enable script debugging, but IE won't let me uncheck the Disable Script Debugging setting. When I do, and then apply the change, the next time I look at the setting, it is still checked. How do I fix this? Thanks Tag: Error Connecting to the database Tag: 180688
  - 4
    - ShellExecute - permission denied I get "Permission Denied" error code when execute the following script from HTML page. The error happened on ShellExecute call. I have tried it on Win 2000 PRO, WIn XP Home SP2 with the latest version of IE and SPacks. What is the problem?? The test file c:/aaa.txt is OK and I have administrator account <P><INPUT type=button value="test button" id=button4 name=button4></P> <SCRIPT LANGUAGE="VBScript">  </SCRIPT> Tag: Error Connecting to the database Tag: 180687
  - 5
    - Recordset.Close() vs. dropping out of scope Some colleagues and I are debating the absolute necessity of executing the Close() method on a recordset once you're done with it. I have always heard it recommended that you should always execute the Close() method, and that failure to do so could result in the recordset remaining open and never closed and unloaded until it falls out of scope. But my argument is that there is a handy word "could" in the above statement. I have perused documentation and web sites and I can see no specific evidence of this happening except: a) the garbage collector is too slow to keep up (i.e. on a multi-threaded web site hosting millions of people at once), or b) the recordset is passed into another scope context, such as the Session object. I have NEVER heard of this problem outside of these two criteria. Has anyone else??? My position is that if you only have a few hundred users pounding on a connection pool at once, and you've got a local subroutine going on, and you aren't putting the Recordset or its Connection anywhere else (a global or static collection), even if it is a healthy, good idea to Close() it and mark it for destruction, it's nonetheless 100% safe to just forget about it and let the garbage collector handle it. Why specifically am I wrong? Is there a known defect within ADO that proves me wrong? What is the KB #? Thanks, Jon Tag: Error Connecting to the database Tag: 180676
  - 6
    - arry int question how to declare an array and initialize in one step similar to c string myarry() = {"a", "b",....} instead of element by element or devious split string? Tag: Error Connecting to the database Tag: 180675
  - 7
    - Parsing files I need to parse a | pipe-delimited text file to exclude lines which contain a certain numerical value Here is a sample: #90053 | 6480| 90000| 100000| | 343| 0| 0| | |#90665 | 8| 0| 102400| | 2| 0| 0| | | Now, assuming I can figure out how to parse this file, I need to factor in a *nix password file which will take the #90xxx number and give me a text user name. I need to take these excluded users and remove their entries in an excel file. I am lost. Any help out there? I've gotten some good stuff from here in the past... Tag: Error Connecting to the database Tag: 180668
  - 8
    - Learning VBScript Could some tell me good books or resources to use in learning to write VBScripts. Thanks Tag: Error Connecting to the database Tag: 180665
  - 9
    - running an application in a VB script What would the command be to run the following program in a VB script: "C:\program files\Norton SystemWorks\Norton CleanSweep\Qdcsfs.exe" I honestly don't know a whole lot about VB scripts, and I have one that calls up disk defragmenter with the following command: WshShell.Run "dfrg.msc" and the script automatically finds disk defragmenter in the following location %systemroot%\System32\dfrg.msc I even tried using the same command after putting the file Qdcsfs.exe In the System32 folder and changing the command to WshShell.Run "Qdcsfs.exe" But even that did not work. I tried putting the file via the path name both thru the network \\brian\program files\norton systemworks\... etc and also C:\program files\norton systemworks\...etc to no avail. BTW this is Norton Clean Sweep Fast&Safe cleanup if you're curious. Brian Tag: Error Connecting to the database Tag: 180664
  - 10
    - remove a remote pcs specific printer I am looking for some help on a quick script to remove a printer on about 100 pcs can anyone help me out. Anything appreciated Thanks Tag: Error Connecting to the database Tag: 180658
  - 11
    - wmi property Below is a script to check if a LAN cables is plugged in. I run the script on XP and it works great. I found out when running on a Windows 2000 box I get an error. It appears that there are additional wmi properties. Does anyone know if there is a WMI update or download to WMI for Windows 2000? I am not sure what version of WMI is installed otherwise, I would have posted. ' connect to WMI and retrieve collection. Set objSet = GetObject("WinMgmts:").ExecQuery _ ("select * from Win32_NetworkAdapter WHERE DeviceID = '1' ") 'Get final value and display result. For Each obj in objSet strStatus = obj.NetConnectionStatus 'Err.Number = obj.NetConnectionStatus Next WScript.Echo strStatus If strStatus = 2 Then WScript.Echo "connected" Wscript.Quit 0 elseif strStatus = 7 Then WScript.Echo "Not Connected" WScript.Quit 1 End if Tag: Error Connecting to the database Tag: 180657
  - 12
    - Problem with TargetPath while creating desktop shortcut My problem is this. Iam trying to create a shortcut for a Client Access session (.ws file). However when I add the path to the actual .ws file into the TargetPath part, it seems the shortcut doesnt recognize the path unless I manually edit a piece of the target path. Once I delete and recreate a character it works just fine. Any help will be greatly appreciated. Here is the script: Dim WSHShell Dim Shortcut, Desktop, DesktopPath Set WSHShell = WScript.CreateObject("WScript.Shell") DesktopPath = WSHShell.SpecialFolders("Desktop") Set fso = CreateObject("Scripting.FileSystemObject") Set objNetworkPrinter = CreateObject("WScript.Network") Set objNetworkDrive = Createobject("Wscript.Network") set oParent = getObject (oUser.parent) Dim gDomainName, gUsername, gFullname Dim oNetwork Dim oGroupList Dim strQuotationmark Dim WSPath Dim CAPath Dim Space Dim PPath gUsername = "" gDomainName = "domain" strQuotationmark = """" WSPath = Chr(34) + "g:\CAccess\%clientname%\caccess1.ws" CAPath = "C:\Program Files\IBM\Client Access\Emulator\pcsws.exe" + Chr(34) PPath = Chr(34) + "g:\CAccess\%clientname%\caccessp.ws" Space = " " Set ONetwork = createObject("wscript.network") Set oGroupList = CreateObject("Scripting.Dictionary") Call LoadNTGroups() 'also assigns gUsername If InGroup("domain users") Then 'Wscript.Echo End if If InGroup("Session_users") Then Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\Session.lnk") Shortcut.TargetPath = CAPath & Space & WSPath Shortcut.WorkingDirectory ="C:\Program Files\IBM\Client Access\Emulator" Shortcut.WindowStyle = 4 Shortcut.IconLocation = "C:\Program Files\IBM\Client Access\Emulator\pcsws.exe,0" Shortcut.Save 'Else 'fso.delete (DesktopPath & "\Session.lnk") End If If InGroup("Session_users") Then Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\Printer.lnk") Shortcut.TargetPath = CAPath & Space & PPath Shortcut.WorkingDirectory ="C:\Program Files\IBM\Client Access\Emulator" Shortcut.WindowStyle = 4 Shortcut.IconLocation = "C:\Program Files\IBM\Client Access\Emulator\pcsws.exe,0" Shortcut.Save 'Else 'fso.delete (DesktopPath & "\Printer.lnk") End If '======================== Sub LoadNTGroups() ' ' Load oGroupList (Dictionary) with user's NT group membership... ' '======================== Dim oUser Dim oGrp On Error Resume Next While gUsername = "" Err.Clear: gUsername = oNetwork.username If Err Then WScript.Sleep 100 Wend On Error Goto 0 Set oUser = GetObject("WinNT://" & gDomainName & "/" & gUsername) gFullname = oUser.Fullname oGroupList.CompareMode = vbTextCompare For Each oGrp In oUser.Groups oGroupList(oGrp.name) = True Next End Sub '======================== ' Function InGroup(sGroup) ' ' Emulates the KIX InGroup function... ' '======================== InGroup = oGroupList.Exists(sGroup) End Function Tag: Error Connecting to the database Tag: 180654
  - 13
    - Setting permissions on a folder tree Hi all, I'm hoping to get some help from someone who knows this stuff better than I... I need to set permissions on all of the files and folders in a directory tree. I would guess that this is the sort of thing that I need WMI to do, but I always get lost trying to figure out how to deal with WMI. I want to set this permission set on the root folder, whose path is stored in a string variable: Administrators: Full control Authenticated users: Read and Execute I want to recursively set all of the contents of the root folder to inherit privileges from their parent folder. TIA! - Bob Tag: Error Connecting to the database Tag: 180651
  - 14
    - Script Engine [WILDPACKET] when I run a small test vbscript on my XPP with SP2 pc this is what I get .... CScript Error: Can't find script engine "VBScript" for script c:\test.vbs. Advise please. Thanks in advance. Tag: Error Connecting to the database Tag: 180633
  - 15
    - Error opening file ....... [WILPACKET] Running a WMI via GPO to collect hardware inventory at logon - A small VBScript. Most of it is working but few PCs not running the script. When I connect to sysvol and run the script manually on those pcs ...........it gives me this error message Error opening script file. Any thoughts? Thank you in adv. Tag: Error Connecting to the database Tag: 180631
  - 16
    - diskpart Is there a way in VBScripting to perform the same function as diskpart? Or is there a way to scan a formatted document and pull the value from a line? I can take diskpart and output its "Disk List" command to a text document but it goes in as one line with characters to delineate the lines and fields. If I use wordpad I can read it correctly but I need to then save it to a text document to loose the formatting. -- Andrew C. Madsen Network Specialist Harley-Davidson Motor Company Tag: Error Connecting to the database Tag: 180629
  - 17
    - Change DNS I need a script to change the primary DNS and the Secondary DNS for pcs Windows Professional XP SP2. Do you help me to build it?. I don't have a lot of idea of VB. Thank you. Tag: Error Connecting to the database Tag: 180628
  - 18
    - VB Script an update in access Hello all. First, thanks for any assistance. Now to the problem, I'm trying to run an SQL update to an access db through vb script. Getting the following error: An error was flagged objAccessdbRecordset.Open "select * from DBBackup_Query [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 5. Here's the syntax: Set objAccessdbConnection = CreateObject("ADODB.Connection") Set objAccessdbRecordset = CreateObject("ADODB.Recordset") 'Hard Coded DSN of the Access DB objAccessdbConnection.Open "DSN=DBA_2000;" 'WScript.Echo objAccessdbConnection.ConnectionString If Err.Number <> 0 Then WScript.Echo "An error was flagged opening the DSN=DBA_2000;." WScript.Echo Err.Description Err.Clear End If 'objAccessdbRecordset.CursorLocation = adUseClient objAccessdbRecordset.Open "update DBBackup_Query set last_back = ""01/01/2005"" where servername = [FHECOMDB] And dbname = [CMDB]", objAccessdbConnection, adOpenStatic, adLockOptimistic If Err.Number <> 0 Then WScript.Echo "An error was flagged objAccessdbRecordset.Open ""select * from DBBackup_Query" WScript.Echo Err.Description Err.Clear End If wscript.echo "Thanks again!" Tag: Error Connecting to the database Tag: 180627
  - 19
    - Limiting number of chars in a TEXTAREA Hi If I want to limit the numbers in a chars in a "input type=text"-control I use the maxlength property. However there doesn't seem to exist such a property for the textarea control. Can anyone please tell me how to limit the number of chars entered in a TEXTAREA control? Regards PO Tag: Error Connecting to the database Tag: 180626
  - 20
    - how do I change this vbscript so that I can use it remotely? Hi all...the following is a local script that displays 'software update services' settings on a Windows machine. I need to run this script remotely against a list of machines in order to determine if the users have fiddled with their SUS/WUS settings. Can someone help me convert this to a remotely runnable script? Or post a vbs example of how to get the same results? Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate") Wscript.Echo "Service enabled: " & objAutoUpdate.ServiceEnabled Set objSettings = objAutoUpdate.Settings Wscript.Echo "Notification level: " & objSettings.NotificationLevel Wscript.Echo "Read-only: " & objSettings.ReadOnly Wscript.Echo "Required: " & objSettings.Required Wscript.Echo "Scheduled Installation Day: " & _ objSettings.ScheduledInstallationDay Wscript.Echo "Scheduled Installation Time: " & _ objSettings.ScheduledInstallationTime Tag: Error Connecting to the database Tag: 180623
  - 21
    - Set Permission for User Hi , I could write a script to create a newuser but unable to deny the permissions like "Read & Execute","List Folder Contents","Read" Permisions for this User.Please Help. Thanks, Kathy Tag: Error Connecting to the database Tag: 180619
  - 22
    - Error Code! Hello Everybody.... When I need to force logoff for a user, after the disabling of the account, nothing is work. I mean the user can logon again even that his account is disabled. The error of the script: Object not a collection Code:800A01C3 Can anyone tell me how can I force the logoff of the user without letting him enter th domain again; because of the disabling of the account??? Tag: Error Connecting to the database Tag: 180618
  - 23
    - script for ping and ipconfig Hello, My 2003 server loses Internet connectivity frequently which I can get back by ipconfig/release and ipconfig/renew. I am looking for a script to ping an internet address and if it receives no reply to run ipconfig release and renew. Preferably the script would check at regular intervals like every hour, other wise I could schedule it with task scheduler. Thanks for any help. Tag: Error Connecting to the database Tag: 180616
  - 24
    - Rookie needs help I have a file "VSSetup.exe" that need to be installed with local admin rights. I want to install through a script, but there is no way I am going to give the users elevated rights. How can I install the (McAfee Antivirus Product) with elevated permisions? Thank you all, Tag: Error Connecting to the database Tag: 180612
  - 25
    - rookie needs help I have a file "VSSetup.exe" that need to be installed with local admin rights. I want to install through a script, but there is no way I am going to give the users elevated rights. How can I install the (McAfee Antivirus Product) with elevated permisions? Thank you all, Tag: Error Connecting to the database Tag: 180611
- Next
  - 1
    - Session Variables between 2 servers Hi, is there a way to pass a session variable between 2 servers? Tag: Error Connecting to the database Tag: 180603
  - 2
    - Validate Username / Password on Active Directory ? Help !!! I am looking or some assistance on how to validate a user name and password that our onsite engineers enter to initiate a build. The username is used to add the workstation to its OU after the build is complete, but if the password is incorrect this fails. They all have accounts set up in our AD. Can't find anything at all. We have resorted to doing a temporary mapping to a test folder to validate the credentials, which will fail is username of password is incorrect. Crude approach but it works. Does anybody have any suggestion on how I can validate, via VBS these credentials. Cheers. PB to initiate a build. The username is used to add the workstation to its OU after the build is complete, but if the password is incorrect this fails. They all have accounts set up in our AD. Can't find anything at all. We have resorted to doing a temporary mapping to a test folder to validate the credentials, which will fail is username of password is incorrect. Crude approach but it works. Does anybody have any suggestion on how I can validate, via VBS these credentials. Cheers. PB Tag: Error Connecting to the database Tag: 180599
  - 3
    - Validate Username / Passowrd on Active Directory ? Help !!! I am looking or some assistance on how to validate a user name and password that our onsite engineers enter to initiate a build. The username is used to add the workstation to its OU after the build is complete, but if the password is incorrect this fails. They all have accounts set up in our AD. Can't find anything at all. We have resorted to doing a temporary mapping to a test folder to validate the credentials, which will fail is username of password is incorrect. Crude approach but it works. Does anybody have any suggestion on how I can validate, via VBS these credentials. Cheers. PB Tag: Error Connecting to the database Tag: 180598
  - 4
    - logon script, username and registry edit I'm trying to modify a registry key in HKLM to receive the value of the currently logged on user (%username%). I need this to run as part of the normal user logon script...whether it is embedded in the current script or called separately. My logon script is simply a *.bat file that synchronizes the time, maps some drives and copies files to the local machine. I'm not a scripter so I tried Scriptomatic and Tweakomatic with similar (negative) results. The key in question is a string value. I'm running a W2K3 domain if this matters. Thanks! Tag: Error Connecting to the database Tag: 180589
  - 5
    - Urgent Script PLEASE Problem that I have now, like I can by means of GPO to make Replace permission on existing subkeys in the key HKEY_CLASSES_ROOT\TypeLib that is the one that gives the failure?? Or can you tell me as making a script? Tag: Error Connecting to the database Tag: 180587
  - 6
    - Exchange Server WMI Instance problem Anyone know of a reason whereby using the Exchange_Server WMI instance from the ExchangeServerV2 namespace might not work? I have tried running remotely and locally on the Exchange Server itself, just doing reads. All the other instances under V2 work just fine (verified with Scriptomatic), but even the basic scriptomatic "reads" fail when the Exchange_Server instance is selected. The scripts just hang with no errors. (on error resume is off) Greg Tag: Error Connecting to the database Tag: 180584
  - 7
    - sheet protection in excel with editable range Hi, I've created a script to enumerate critical security groups (Domain Admins, Enterprise Admins, etc etc) in Active Directory for manager review on a regular basis. Since this is a control we're putting in place for SOX compliance, one of the specifications was that the data in the report be unalterable. I was able to get protection working but I've got a new feature request for a editable "comments" column for the managers to use during their review. I can't seem to get the Sheet.Protection.AllowEditRange.Add functionality to work. I get the following error: Microsoft VBScript runtime error: Object doesn't support this property or method: 'sheet.Protection.AllowEditRange' Can anyone help? Code: FOR EACH sheet IN myworkbook.sheets sheet.activate SET objRange = sheet.columns("F:F") Sheet.Protection.AllowEditRange.Add objRange 'initially tried the following instead of objRange, 'cc from macro and gives a compilation error ' Title:="Range1", Range:=sheet.Columns("F:F") 'this works by itself but not with any other arguments Sheet.Protect strmypassword NEXT Tag: Error Connecting to the database Tag: 180583
  - 8
    - Script to write Info to MS access file. I need script that I can attached to Group policy where users on login will be asked to type in there Extension NO and Department and write all this in to the MS Access file for me to publish in the intranet. Script should read Users name from the login ID and write that to file too without allowing user to amend there name. Tag: Error Connecting to the database Tag: 180582
  - 9
    - Deleting a Contact from AD Please help! I have been trying to get the following code to work, which should loop through two OU's and delete any duplicates from the 2nd OU. It is failing on the objOU2.Delete line with "An Invalid dn syntax has been specified". This error normally indicates an invalid LDAP string has been used, but I can echo the contents of objContact1.cn and objContact2.cn as it iterates through the loops just fine. Can anyone help me understand why the delete will not work, and suggest another way I might can make this work. Thanks! Code starts here: Set objOU1 = GetObject("LDAP://OU=Pager,OU=Users,OU=Divisions,DC=MyDomain,DC=com") objOU1.Filter = Array("contact") Set objOU2 = GetObject("LDAP://OU=PagerOther,OU=Users,OU=Divisions,DC=MyDomain,DC=com") objOU2.Filter = Array("contact") For Each objContact1 In objOU1 For Each objContact2 In objOU2 If objContact1.cn = objContact2.cn then objOU2.Delete "contact", "cn=" & objContact2.cn Exit For End If Next Next Tag: Error Connecting to the database Tag: 180578
  - 10
    - Waiting if TermService is started Hallo, i have the following problem, i have a Windows TS 2003 with 3 Clients. On startup the 3 clients autoconnect to the TS2003. But the problem is, when all 4 machines start at the same time, the 3 Clients start faster than the TS, the get an errormessage, when the try to connect to the TS. So i tried to write a script, which waits if the TermService is startet (Status=4), and afterwars connects to the Server. But the problem is, if the TS is down, the Script can't create the Object "objComputer" and it jumps in the IF (see below). Is there a way to ask if the Object "objComputer" is created correctly? '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' strComputername="server1" strServiceName="TermService" strProgram="mstsc.exe" ' ******************************************************************************************** Do Set objComputer = GetObject("WinNT://" & strComputername) Set objService = objComputer.GetObject("Service",strServiceName) If objService.status = 4 Then Set objProgram = CreateObject("WScript.Shell") objProgram.Run strProgram Exit Do End If Loop ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' thanks for help mfg martin Tag: Error Connecting to the database Tag: 180577
  - 11
    - CDO Question I want to use CDO to send the contents of a text file. Here is the framework: Create textfile (objfile) Do some stuff and write that to objfile email objfile using cdo I tried this but it did not work: objMessage.TextBody = objfile any ideas are appreciated. Thanks. Tag: Error Connecting to the database Tag: 180573
  - 12
    - errReturn RUNAS and SendKeys Hi I need to send a CD out to some home users with software updates. The updates need to run under the local admin account but there are 2 possible local admin passwords in use. I need my script to attempt installation with the first admin password and if this fails then use the second (and if for some reason the second fails then to popup an error. I've tried writing it like below but the errReturn doesn't seem to work and the script just waits for the password input, it doesn't seem to get the input automatically from SendKeys. I know I can get round this by specifiying FALSE in my errReturn but if I specifiy FALSE then errReturn will always be 0 so it will never attempt the second admin password. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set WshShell = CreateObject("WScript.Shell") Set objStdOut = Wscript.StdOut strCommandLine = "runas" & " " & ("/u:administrator c:\temp\go.bat") errReturn = WshShell.Run(strCommandLine, 1, True) Wscript.Sleep "300" WshShell.SendKeys "password1~" If errReturn = "0" Then Wscript.Echo "" Else errReturn = WshShell.Run(strCommandLine, 1, True) Wscript.Sleep "300" WshShell.SendKeys "password2~" If errReturn = "0" Then Wscript.Echo Else DoPopup End If End If Function DoPopup Call WshShell.Popup("This computer has a non-standard Administrator password. Cannot continue, please contact the helpdesk quoting this message.", 0, "Error", 16) End Function Can anyone help at all, this has been driving me loopy all day! :) Thanks Steve Tag: Error Connecting to the database Tag: 180568
  - 13
    - Checking for empty directory I've done a lot of unix shell scripting and awk/sed work but I'm new to the vbscript world. I need to create a script that checks a list of directories and reports which contain no files. In the following example, dir3, dir4 and dir5 are under dir2. The script should report if any of dir3,4, or 5 have no files in them. c:\dir\dir1\dir2 dir3 dir4 dir5 TIA. Larry Tag: Error Connecting to the database Tag: 180567
  - 14
    - local groups Good morning, 1- In a nutshell I am looking for a script that will permit me to itemize all the groups that are local to a specific computer and then enumerate the user which comprised each group. 2- I am also looking to find out how I can a) delete a local user group b) add an individual to a specific group c) remove an individual from a specific group Please note that active directory is not install on this computer/domain. Any help is appreciated including refences to good websites or examples. Thank you, Daniel Tag: Error Connecting to the database Tag: 180565
  - 15
    - deleta ALL network printers without knowing their names Hi there, I have a script that runs at logon in a computers OU (with loopback processing) -----shareprinter.vbs----------- Set WshNetwork =CreateObject("WScript.Network") PrinterPath ="\\servername\printershare" WshNetwork.AddWindowsPrinterConnection PrinterPath WshNetwork.SetDefaultPrinter PrinterPath ------------------------------ Now I know that I can use the following line to remove a specific printer: WshNetwork.RemovePrinterConnection (PrinterPath, true, true) But you have to know the printer name for this to work. Is there a line I can use to remove ALL network printers without specifying the name? Thanks for your help! Tag: Error Connecting to the database Tag: 180563
  - 16
    - ManagePC - An HTA for remotely managing PCs in a forest Hi all, I've written an HTA that can retrieve information on and allow you to manage any machine in a forest (assuming you have the rights of course!) The software uninstallation part is rudimentary but works well enough and, as yet, there's nothing you can do to the local users but I've had (mostly) positive feedback from the people that have used it. I thought it might get a wider audience here as well some good suggestions on how to improve it (and what bits of my code are shockingly poor!) The tool can be downloaded here :- http://users.pandora.be/mattwilliams/ManagePC/ManagePC1.3final.zip Tag: Error Connecting to the database Tag: 180561
  - 17
    - vbscript for texthandling WinXP Hi, I've some textfiles (Text.cfg) with a lot of sections (sectionA.1, sectionA.2, sectionA.3, sectionB1 and so on). Im only interested in the sectionA! Euch section have a headline like this: [sectionA.x] What I want to do: 1. Find out how many sections A are present in the Text.cfg. (Can vary between 1 and 20) 2. Copy the last section A to the end of the Text.cfg file 3. Rename the headline of the copied section to a new number (for example: If the Text.cfg has five sections A so I need the headline [sectionA.6] Thank you for your help Detlef Germany Tag: Error Connecting to the database Tag: 180559
  - 18
    - Drag folder onto script to get folder's path I'm a newbie to scripting, so please be gentle. I place the script below in my SendTo folder, and use it to get the full name + path of files, i.e., I right click the file and then select "send to", and then select the script below. The script puts the full name + path into the Windows clipboard. I can't figure out how to modify the script so that I could right click on a folder (instead of a file), in order to get the folder's path reported into the Windows clipboard. I'd appreciate any tips on: [1] how to modify the script, and [2] where I could find documentation that would show me how to modify the script / to give me more info to help me understand your answer about how to modify the script. Thanks, Marc ee poo Tag: Error Connecting to the database Tag: 180556
  - 19
    - C# Interview question help Hi All I am fresh college graduate who has done C and C++ during college times.After that i had done a C# course from one of our local computer institute.The course is BCM which ran for 1 year.But now when i am looking for job the questions asked in interview are really very very weird and does not match any where near to what my institute taught. My faculty has give me following links for preparation of interview http://www.geocities.com/dotnetinterviews/ http://www.techninterviews.com http://www.brainbench.com http://www.crackinterviews.com with that he has said to do small project which will make me confident. But i need a job soon and can not really wait to do dummy projects do you really think those upper links can be helpful in getting a job I am new comer so please excuse for asking in this way.Any good website for interview question please help me Tag: Error Connecting to the database Tag: 180549
  - 20
    - E-Mail Attachment Script Problem Hello everyone, and thank you in advance for any assistance you can provide with this query. I've been trying to put together a script which when run will create an e-mail message and attach all the files residing in a specific folder. However, currently I'm getting an error and was hoping for some insight and suggestions. The script looks like this .... Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) Set fso = CreateObject("Scripting.FileSystemObject") Set myfolder = fso.GetFolder("C:\emailfolder\") Set myfiles = myfolder.files myItem.Subject = "This is the Subject" Set myRecipient = myItem.Recipients.Add("myemail@myemail.co.uk") Set myAttachments = myItem.Attachments For Each MyFile in MyFiles myAttachments.Add files(MyFile.Name), olByValue Next myItem.Display I get a scripting error on Line: 10, Char: 3, Error: Type mismatch: 'files' which I'm assuming is referring to the files(MyFile.Name) section of the script. I originally produced the script with just a single attachment and this was fine but upon inserting the code to look to add all the files in the 'emailfolder' location then the error appeared. Any suggestions would be most appreciated. Darren Hermes darreninwarrington at hotmail dot co dot uk Tag: Error Connecting to the database Tag: 180547
  - 21
    - file version If I run sigcheck.exe from the system internals site I get something like this: C:\> sigcheck %SystemRoot%\system32\notepad.exe Sigcheck v1.0 Copyright (C) 2004 Mark Russinovich Sysinternals - www.sysinternals.com C:\WINDOWS\system32\notepad.exe: Verified: Signed Signing date: 5:03 AM 8/4/2004 Publisher: Microsoft Corporation Description: Notepad Product: Microsoft=AB Windows=AB Operating System Version: 5.1.2600.2180 File version: 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158) where there are Version: and File version: fields. I can use fso.GetFileVersion(pathspec) to get the Version: but how do I get the File version: ? Tag: Error Connecting to the database Tag: 180546
  - 22
    - Protect Site/Webserver My website has no protection at all at this moment. 1.- If someone wants to access my website just need a browser and the link to my web server, and this is something that I like to keep it as it is. 2.- In the same way any user can create a network place and see all the files and even change them. How do I protect my website with password for the second scenario. -- ___________ Thanks, German Saer Orlando, FL Tag: Error Connecting to the database Tag: 180545
  - 23
    - string array initial value assignment I searched on line help but I did not see anything about assigning string literals en mass to an array. is there such construct like Dim mystrs() mystrs = {"element1", "ele2", "e3"} instead of something devious ; like Const YEAR_NAME = "year" Const MONTH_NAME = "month" Const DAY_NAME = "day" YEARRef = "?<" & YEAR_NAME & ">" MONTHRef = "?<" & MONTH_NAME & ">" DAYRef = "?<" & DAY_NAME & ">" YEARPart = "$(" & YEAR_NAME & ")" MONTHPart = "$(" & MONTH_NAME & ")" DAYPart = "$(" & DAY_NAME & ")" Const DatePart_yy = "(1[7-9]|[23][0-9])[0-9][0-9]" Const DatePart_y = "d{2}" DatePart_Year = DatePart_yy & "|" & DatePart_y ' "(([1[7-9])|([23][0-9])){0,1}[0-9][0-9]|[0-9][0-9]" Const DatePart_mmm = "JAN|FEB|MAR|APR|MAY|JUN|JUL|AUG|SEP|OCT|NOV|DEC|JANUARY|FEBRUARY|MARCH|APRIL|MAY|JUNE|JULY|AUGUST|SEPTEMBER|OCTOBER|NOVEMBER|DECEMBER" Const DatePart_m = "10|11|12|0{0,1}[1-9]" DatePart_Month = DatePart_mmm & "|" & DatePart_m Const DatePart_d = "31|30|0{0,1}[1-9]|[12][0-9]" DatePatrn_d = "(" & DAYRef & DatePart_d & ")" DatePatrn_mmm = "(" & MONTHRef & DatePart_mmm & ")" DatePatrn_m = "(" & MONTHRef & DatePart_m & ")" DatePatrn_month = "(" & MONTHRef & DatePart_mmm & "|" & DatePart_m & ")" DatePatrn_y = "(" & YEARRef & DatePart_y & ")" ' 19 something thru 30xx DatePatrn_yy = "(" & YEARRef & DatePart_yy & ")" DatePatrn_year = "(" & YEARRef & DatePart_Year & ")" '0 m/d/Year '1 M d, Y '2 d mmm yy '3 y-M-d '4 y.M.d '5 yy/m/d DATE_PatternsString = "(" & DatePatrn_m & "/" & DatePatrn_d & "/" & DatePatrn_year & ")(?=\s)#" & _ "\b(" & DatePatrn_Month & " " & DatePatrn_d & ", " & DatePatrn_year & ")(?= )#" & _ "\b(" & DatePatrn_d & " " & DatePatrn_mmm & " " & DatePatrn_Year & ")(?=\s)#" & _ "\b(" & DatePatrn_Year & "-" & DatePatrn_Month & "-" & DatePatrn_d & ")(?=\s)#" & _ "\b(" & DatePatrn_Year & "\." & DatePatrn_Month & "\." & DatePatrn_d & ")(?=\s)#" & _ "\b(" & DatePatrn_yy & "/" & DatePatrn_m & "/" & DatePatrn_d & ")(?=\s)" Dim DATE_Patterns DATE_Patterns = Split("\b" &DATE_PatternsString, "#") the 1st form does not work for vbscript ( I don't think it work for VB.net either. The devious way of splitting works Tag: Error Connecting to the database Tag: 180541
  - 24
    - How to change permissions on folders Hello , Is there anybody out there : that has experience on changing the persmissions on folders using vbscript ? The reason I am asking this : I need to make script that puts the permission on a folder for user to read/write. At this stage the user can only view docs but he can't change anything. I know there is something like ' xcals.exe ' but I must I don't have any experience and I don't know if I can trust it because the script need to be run on a domain with a 1000 pc's on it.So I need to be sure that everything works perfectly. All suggestions are more than welcome !! -- regards , Dimitri Dhr. Janssens Dimitri Akkerstraat 8/2 8310 Brugge St.- Kruis Belgium Tel. 050/37.05.96. email : dimitri.janssens@tiscali.be Tag: Error Connecting to the database Tag: 180539
  - 25
    - Render Reporting services report with Soap toolkit and vbscript/jscript Hi, I wonder if someone can help me with a problem. I'm trying to use the Web Service in Microsoft Reporting Services to generate a report to PDF on a file share. I'm using server side vbscript (or jscript) to do this, and using Microsoft Soap Toolkit 3.0 to access the Web Service. I have made a start on the vbscript (see below), and have an RSS scripting batch file to work from to build the rest of the script. Most of this batch file script looks straightforward to convert. However my problem is more to do with knowing how to make soap calls, in particular to create a variable of a datatype that (I'm assuming) is not available on the client but on the server where RS is installed. In this case I need to create variables of type ParameterValue in the vbscript, as shown in the RSS file. How do I do this? With some sort of soap call? e.g. is it along the lines of: dim parameters (2) = rs.CreateParameterDataTypes() . . results = rs.Render(reportPath, format, historyID, deviceInfo, parameters, Nothing, Nothing, encoding, mimeType, nothing, warnings, streamIDs) Would really appreciate some help. Thanks Greg -------------------- vbscript as it exisits --------------------- Option Explicit Dim rs, items, item Set rs = CreateObject("MSSOAP.SoapClient30") CALL rs.MSSoapInit("http://sv01/ReportServer/ReportService.asmx?wsdl","","","") rs.Credentials = System.Net.CredentialCache.DefaultCredentials -------------------------------------------------------------------------------------------- RSS scripting batch file - values inn upper case are global strings passed into the script -------------------------------------------------------------------------------------------- '#### Example Values of Variables ' Dim format as string = "PDF" ' Dim fileName as String = "C:\Reportd\yyyy.pdf" ' Dim reportPath as String = "/CNSOfficeSystem/Quote" '#### Create and initialise variables Dim ParamSplitStr as string = "," ' Typically FILEFORMAT is "PDF" Dim format as string = FILEFORMAT Dim fileName as String = OUTPUTFILE Dim reportPath as String = RPATH Dim ReportParamNames() as String = REPORTPARAMETERNAMES.Split(ParamSplitStr) Dim ReportParamValues() as String = REPORTPARAMETERVALUES.Split(ParamSplitStr) '#### Prepare Render arguments Dim historyID as string = Nothing Dim deviceInfo as string = Nothing Dim showHide as string = Nothing Dim results() as Byte Dim encoding as string Dim mimeType as string Dim warnings() AS Warning = Nothing Dim reportHistoryParameters() As ParameterValue = Nothing Dim streamIDs() as string = Nothing '#### Report Parameters into Array Dim parameters(ReportParamNames.GetUpperBound(0)) As ParameterValue For idx As Integer = 0 To ReportParamNames.GetUpperBound(0) parameters(idx) = New ParameterValue() parameters(idx).Name = ReportParamNames(idx) parameters(idx).Value = ReportParamValues(idx) Next idx '#### Render Report results = rs.Render(reportPath, format, historyID, deviceInfo, parameters, Nothing, Nothing, encoding, mimeType, reportHistoryParameters, warnings, streamIDs) '#### Open a file stream and write out the report Dim stream As FileStream = File.OpenWrite(filename) stream.Write(results, 0, results.Length) stream.Close() Tag: Error Connecting to the database Tag: 180534

Dear experts,

I'm a newbie to vbscript. Currently, I am trying to connect to an Access
Database using DSN-less connection. I tested to run the script, the following
error message prompt. I have added my own workgroup to the .mdw file. I
manage to open the access database manually, but not through the script.

Error Type:
Microsoft JET Database Engine (0x80004005)
You do not have the necessary permissions to use the
'C:\Inetpub\wwwroot\SeokBee\Leave\DB\leaves.mdb' object. Have your system
administrator or the person who created this object establish the appropriate
permissions for you.

The script that I wrote is as follow:

<%
dim dbConnection, mdbFilePath, DSNtest, strConnection
strConnection= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
Server.MapPath("/leave/DB/leaves.mdb")
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbconnection.open strConnection
%>

Please assist me on the solving this problem. Many thanks in advance.

Regards,
Seok Bee

Top