Odd 800A0046 Permission Denied error

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
    - cant append to string and use as object i build a collection by executing a wql query. i need to echo a specific property, of an instance in a class. this is fine if its all hardcoded. im passing args to the script so that i can grab any property, class, instance. the problem is that i cant seem to append anything to the "objItem." in my for loop consider this query: Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\somecomputer\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT someProperty FROM someClass WHERE Name = 'someName'") the below would work fine: For Each objItem In colItems wscript.echo objItem.AvgDiskReadQueueLength Next but if AvgDiskReadQueueLength was passed as an argument and stored in strProp, the below fails For Each objItem In colItems wscript.echo objItem. & strProp Next i really need this to work. any ideas? Tag: Odd 800A0046 Permission Denied error Tag: 205904
  - 2
    - Auto sizing control to display a path In an HTA, I need a control or other object that can grow and shrink based on its contents; I need this to stay on one line; the user cannot edit it, but it needs to be accessible for read/write from VBScript. The contents will be a string network path to a folder selected by the user (I can already do this part), thus the varying lengths needed. What is the best control/tool to use for this? Can an example for read/write please be included? Thank you very much. Tag: Odd 800A0046 Permission Denied error Tag: 205892
  - 3
    - cant make vbscript/outlook work hi everyone. VERY annoying problem. i have a script that has to run every 5 minutes and check the contents of an exchange inbox. the script cannot run on the exchange server so as far as i know i MUST have outlook installed on the computer that runs the script. (if this isnt true PLEASE tell me how to do this without outlook) so we installed outlook and created a profile for the mailbox in question. the script works fine... but ONLY if we stay logged in. im assuming its because the logged in user sees only the outlook profiles that THEY created. so when no one is logged in, it doesnt work. can someone please explain how i can do this? i either have to do it without outlook, or with outlook in such a way that when no one is logged on the script can still access the profile. and no... i cant leave the server logged on and locked :( Tag: Odd 800A0046 Permission Denied error Tag: 205891
  - 4
    - vbscript and domain credentials Using vbscript, is there a way to ask for username and password, and then run the rest of the task based on those credentials? What I'm doing exactly is this: I've created a script to allow me to add domain users to the local admin group on a remote machine or lab of machines. Unfortunately, in order to run it and have it run properly on the remote machine, it must be run by someone who already has their domain account in the machine's local admin group. What I'd like to do is have it ask me for the machine's local admin acct and password, then, using those credentials, add the new domain accounts to the local admin group. Any ideas? Thanks, Doug Tag: Odd 800A0046 Permission Denied error Tag: 205886
  - 5
    - Removing non-ASCII characters from a text file. Hello Everyone, I am new to VB Scripting. So, please forgive me, if this is basics. I would like to write a script, which will take a text file as input, read line by line, replace any non-ASCII characters with '' and send the result set into a different text file. I want to replace any character that is not in [A-Za-z 0-9 \.,\?'""!@#\ $%\^&\*-_=\+;:<>\/\\\|\}\{\[\]`~] How do I do that? Any pointers are appreciated. Thanks, -Pavan Tag: Odd 800A0046 Permission Denied error Tag: 205879
  - 6
    - What newsgroup to use? Hi I noticed that there is a "microsoft.public.programming.scripting.vbscript" group. There seemed to be no messages. I saw somewhere that those "programming" are prefererred or you get answers there. I have no problems with this group and Google supports only it too, so I really have no choice. But does someone know more of this. LM Tag: Odd 800A0046 Permission Denied error Tag: 205875
  - 7
    - vbScript on VISTA Problems? Are there major problems with using vbScripts in my application installation on VISTA systems? I've searched the net and basically found that the the vbscript.dll is included with that operating system, but is not registered. It seemed from the various posts that simply registering the .dll solved the problem. Is there a reason this .dll is included and not registered or was this just an oversight by Microsoft? If an oversight, are there plans to remedy this by registering it in the future or including registration of it in a hotfix or service pack? If there are any other problems outside of this information, which may cause problems with including vbScripts in installations that may be run on VISTA, please let me know. THANKS in advance for any and all information you may provide. Tag: Odd 800A0046 Permission Denied error Tag: 205873
  - 8
    - Embedded Media Player gives exception as HTA, not in HTML on Vista I'm trying to get an embedded media player in an HTA application. On Windows XP I was able to do this; now on Vista I get several exceptions when I start playing the wmv file: "Windows - Bad Image; Exception Processing Message 0xc000007b Parameters ........." The code below works without exceptions if I start it as HTML. When I run it as HTA, and start playing a video file (using mediaPlayer.URL="video.wmv"), first I get several exceptions, and the video starts playing. Exactly the same code works on Windows XP (as HTA and as HTML). Please help. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <body> <span id="mediaPlayerSpan" > <object id="mediaPlayer" height="348" width="658" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"> <param name="uiMode" value="none" /> <param name="stretchToFit" value="false" /> </object> </span> <script type="text/javascript">  </script> </body> </html> Tag: Odd 800A0046 Permission Denied error Tag: 205872
  - 9
    - WMI hi, i want to check WMI settings, with script, on remote pc but i get the error "access denied", please help me. Tag: Odd 800A0046 Permission Denied error Tag: 205869
  - 10
    - Get window click unless on a control I'm working on an HTA in which I would like to have a VBScript run if a user clicks anywhere on the window - unless a control (e.g. a button or list box) is clicked. Is this possible? If so, could an example be posted please? Thanks much! Tag: Odd 800A0046 Permission Denied error Tag: 205864
  - 11
    - Searching webpage table object I am searching a webpage table object in which neither the table nor the elements have been named. This has forced me to search all <TD>s on the page for a match. Once I have the match I can read any cell in that row by using parentElement and cell number. Is there an easy way to refer back to the parent row, row collection and table? I have tried nested parentElement but it does not seem to work. If I could get the parent table, and the row index of the cell I would be set. Tag: Odd 800A0046 Permission Denied error Tag: 205860
  - 12
    - need to check date on email in outlook inbox i need to run a script on a server that will look in a specific exchange mailbox, and find the date on the oldest message in the inbox. the server where the script will run is NOT an exchange server and does not have outlook installed. few questions... MUST i have outlook installed on the server where the script runs? we'd rather not if at all possible. and second... anyone have any idea, or example on how best to do this? :) thanks in advance! Tag: Odd 800A0046 Permission Denied error Tag: 205857
  - 13
    - VB Scripting and Databases... hi guys, i need some help with a database issue ... i have a module - Sub A - which opens a database and imports a text file into the database, - while the database is open it calls module -Sub B which also needs the same database and extracts data to a text file. following is the psuedo code sub A create object called objconnection create object called varconnection set objrecordset set varrecordset open objconnection open varconnection objrecordset.open (select * from table) varrecordset.open (select specific field from table) create filesystemobject start a recursive search for txt files store the file paths and parent folder in vardatabase do until end of text files go to the first text file and open for reading read the lines and store in objdatabase (when you meet a "tab" put into next field) update the recordset call sub B with path to file move to next text file close objconnection,varconnection,objrecordset,varrecordset End Sub A Sub B objectconnection to database1 objectrecordset.open select table.field from table1 where value.table1 = value.table2 objectFSO open file for appending select the fileds from the database write to file in the given path close recordset and connection and fso. End Sub B if i run this on 1 file then its fine ... but when i tried it on 30+ files it slowed down and missed some lines in the text files and didn't even create some text files ... i'm lost as to what is going on ... my best guess is that i've created too many connections to database and files and they are not opening and closing in time for the next process therefore misses things out ... anybody have any idea how i can sort this issue out... thanks, Tag: Odd 800A0046 Permission Denied error Tag: 205854
  - 14
    - Reposition and/or resize controls on the fly In an HTA, is it possible to re-position and/or resize controls, like buttons and list boxes on the fly? If so, could someone please post example code as to how to do it? Thanks for your help... Tag: Odd 800A0046 Permission Denied error Tag: 205846
  - 15
    - Dynamically Creating DAO Object I'm trying to determine what the version of DAO is and create an object for it. Code: -------------------- version=<Version property found here> Set objDAO = CreateObject("DAO.DBEngine." & version) -------------------- -- djp ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Odd 800A0046 Permission Denied error Tag: 205837
  - 16
    - excel i am making a program in excel/visual basic. it has a password. i'dont want that the first user makes a copy and gives it to somebody else (who can use the same password)..... idea anyone? sory for my bad english vanja from croatia Tag: Odd 800A0046 Permission Denied error Tag: 205833
  - 17
    - quick help with vbscript and outlook i need to run a script on a server that will look in a specific exchange mailbox, and find the date on the oldest message in the inbox. the server where the script will run is NOT an exchange server and does not have outlook installed. few questions... MUST i have outlook installed on the server where the script runs? we'd rather not if at all possible. and second... anyone have any idea, or example on how best to do this? :) thanks in advance! Tag: Odd 800A0046 Permission Denied error Tag: 205823
  - 18
    - trying to read a registry value DWORD Hi all I am trying to check what hardware profile this local machine is using. I want keep some drivers not running when they are not needed. This much I got. There is 4 profiles in my pc, and current profile was number 3. But there is no "hit", the last print command does not work. There is also a code in "http://cwashington.netreach.net/depo/view.asp? Index=570&ScriptType=vbscript" but it gives an error. This code is from MS. The code: Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SYSTEM\CurrentControlSet\Control\IDConfigDB\" strValueName = "CurrentConfig" oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue Wscript.Echo "CurrentConfig: " & dwValue strKeyPath = "SYSTEM\CurrentControlSet\Control\IDConfigDB\" strValueName = "CurrentConfig" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue Wscript.Echo "Current WSH Trust Policy Value: " & strValue 'dwValue=3 if dwValue=0 then Wscript.Echo "A hit" Tag: Odd 800A0046 Permission Denied error Tag: 205821
  - 19
    - Use script to navigate web page? There is a web site I get information from. The site displays pages of items with individual checkboxes to select each item. There is also a checkbox to select all the item checkboxes. And there is the page numbers with Next and Previous. What I would like to do is log in to the site and navigate to the page I need, then automate (by script??) going through each page and selecting the Select All Checkboxes On This Page box. On the page, I can use Find to get to Next, tab once and hit Enter to go to the next page. And I can use Find to get Select All, Shift+Tab gets the checkbox before the words, and the spacebar selects the checkbox. I can do this for a couple of pages - more than 10 and I start wondering if I missed any! Plus I can't help but feel that a script or other automatino can do this much faster than I can! I do a bit of VBA macros in Word and Excel, and a few VB scripts (with much help!). I'm wondering if a script would help here, or if another way would be better - or if I should drop the idea of automating this all together. Ed Tag: Odd 800A0046 Permission Denied error Tag: 205817
  - 20
    - SaveAs method not Working Hello all, Looking for a little help all the examples in MSDN have Doc.saveas("Myfile.doc") I want to use a variable and haveing tried such, it is just not working. doc.saveas(strMyDocs & "\" & ResID & ".doc") I have tried stuffing all into one variable and splitting it out into many but to no avail. but if I hardcode it .... All the variables have the correct data I am thinking that as soon as SAVEAS is called the Vars loose their ohhh whats the word.... "scope"/"meaning" .. There has to be a way around this Thanks in adavance to any and all that assist Tag: Odd 800A0046 Permission Denied error Tag: 205815
  - 21
    - WBemScripting.SWbemSink and Do Loop - Explained Hello all. Consider the following script, used for Monitoring Entry-Level Events, from: http://www.microsoft.com/technet/scriptcenter/guide/sas_reg_teyz.mspx?mfr=true strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default") Set wmiSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") wmiServices.ExecNotificationQueryAsync wmiSink, _ "SELECT * FROM RegistryValueChangeEvent WHERE Hive= " _ & "'HKEY_LOCAL_MACHINE' AND KeyPath= " _ & "'SOFTWARE\\Microsoft\\Windows NT\ \RegisteredOwner' AND " _ & "ValueName='CSDVersion'" Wscript.Echo "Listening for Registry Change Events ..." & vbCrLf Do While(1) WScript.Sleep 1000 Loop Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) Wscript.Echo "Received Registry Change Event" & vbCrLf & _ "------------------------------" & vbCrLf & _ wmiObject.GetObjectText_() End Sub I'm trying to understand how the script works. As for the the WMI Sink Event portion, I think I have a handle on it: (1) You instantiate a connector and a Sink: strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default") Set wmiSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") (2) You hook the connector to the Sink via an Asynchronous query: wmiServices.ExecNotificationQueryAsync wmiSink, _ "SELECT * FROM RegistryValueChangeEvent WHERE Hive= " _ & "'HKEY_LOCAL_MACHINE' AND KeyPath= " _ & "'SOFTWARE\\Microsoft\\Windows NT\ \RegisteredOwner' AND " _ & "ValueName='CSDVersion'" (3) You set up Event handlers: Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) Wscript.Echo "Received Registry Change Event" & vbCrLf & _ "------------------------------" & vbCrLf & _ wmiObject.GetObjectText_() End Sub What I can't understand exactly is the Do...Loop: Do While(1) WScript.Sleep 1000 Loop What is going on in the Loop other than sleeping for 1 second? Is the Subroutine SINK_OnObjectReady being called within the loop? If so, how? Any help with clarifying this would be greatly appreciated. Thanks. - Dave Tag: Odd 800A0046 Permission Denied error Tag: 205813
  - 22
    - Right click menu to call VBScript I copied this code from a MS website and it creates a nice right click menu; question: how can I alter the code in the line that reads: <SPAN ONCLICK="TestThis">Call VBScript</SPAN> to actually call a VBScript sub? The VBScript is between <Script> tags that preceed this code: <BODY oncontextmenu="contextMenu(); return false;"> <h1>Creating Custom Context Menus with the Popup Object</h1> Right-click anywhere on the document to see a customized popup navigation menu. <DIV ID="oContextHTML" STYLE="display:none;"> <DIV onmouseover="this.style.background='gold'" onmouseout="this.style.background='#e4e4e4'" <SPAN ONCLICK="TestThis">Call VBScript</SPAN> </DIV> </DIV> </BODY> Your help would be much appreciated... Tag: Odd 800A0046 Permission Denied error Tag: 205808
  - 23
    - Closing application properly I need some help w/ a possible VBScript for closing an application properly. Here is the situation: I need to do a backup of a very odd application. When backup's occur, all users must be out of that application. The only sticky part here is the application is very fussy as to how it has to be closed. If it is closed improperly, it will not allow the backups to occur. What I would like help with: vbs that warns users that they are going to be logged off of application 'Z' in 'x' minutes w/ a 5 minute reminder and then makes winoac.exe (application) active and starts sending the logout key sequence (just several esc keys). Because my knowledge of vbs (or any kind of scripting) is so minimal I'm embarrassed to post what I have thus far (which is actually wscript inside of vbs). Any help that you all can provide would be great! --script-- Option Explicit Dim objShell 'Time out option in seconds Set objShell = WScript.CreateObject("WScript.Shell") 'Bring application active objShell.AppActivate "winoac" 'Sending messages objShell.Popup "You will be logged off in 15 seconds", 5 wscript.sleep (1000) objShell.Popup "You will be logged off in 10 seconds", 5 wscript.sleep (1000) objShell.Popup "You will be logged off in 5 seconds", 5 wscript.sleep (1000) objShell.Popup "You Are being logged off!", 5 'Bring Application Active objShell.AppActivate "winoac.exe" 'Send 1st ESC key & Sleep objShell.SendKeys "{ESC}" wscript.sleep (1000) 'Send 2nd ESC key & Sleep objShell.SendKeys "{ESC}" wscript.sleep (1000) 'Send 3rd ESC key & Sleep objShell.SendKeys "{ESC}" wscript.sleep (1000) 'Send 4th ESC key & Sleep objShell.SendKeys "{ESC}" wscript.sleep (1000) 'Send 5th ESC key & Sleep objShell.SendKeys "{ESC}" wscript.sleep (1000) 'Send 6th ESC key & Sleep objShell.SendKeys "{ESC}" wscript.sleep (1000) 'Send 7th ESC key & Sleep objShell.SendKeys "{ESC}" wscript.sleep (1000) Set objShell = Nothing WScript.Quit 0 Thanks again, Tag: Odd 800A0046 Permission Denied error Tag: 205806
  - 24
    - serverxmlHTTP authentication on Windows Server 2003 x64 problem. I have a problem getting serverXMLHTTP to authenticate under Windows x64. If I run cscript test.vbs from the 64-bit command prompt. http.status = 200 If I run cscript test.vbs from the 32-bit command prompt. http.status = 401 (anonymous user tries to logon). I don't know if this is vbscript or MSXML or Windows x64. Anyone have any ideas? Here is my code for test.vbs: set http = wscript.createobject("MSXML2.ServerXMLHTTP") http.open "GET", "http://xxxxx/test/logon_user2.asp", false http.send *** Sent via Developersdex http://www.developersdex.com *** Tag: Odd 800A0046 Permission Denied error Tag: 205804
  - 25
    - Hide controls until needed Is it possible to hide a control until it is needed? Like a visible or hidden property? In particular I'm looking at a listbox and a button... Could someone please post example code that does it? Thanks a lot for your help. Tag: Odd 800A0046 Permission Denied error Tag: 205803
- Next
  - 1
    - Securing sdql connection string in old asp I have an old asp app that I am managing and I haven't been given the go ahead to rewrite the system. It has a db connection in directly in the asp with username and password. What steps can I take to secure this connection string? Thanks -- Tyler Tag: Odd 800A0046 Permission Denied error Tag: 205801
  - 2
    - Reading Binary File Hello all. I am in the process of converting some VB 6 code to a VB Script. One of the things this code does is read in a binary file and then return text to be put into a table. The function from the VB 6 code is this (watch for word wrap): Public Function GetMenuData(ByVal strTableName As String, nOffset As Integer, nLen As Integer) As String On Error Resume Next Dim strTableData As String Dim oFs As Scripting.FileSystemObject Set oFs = CreateObject("Scripting.filesystemobject") If oFs.FileExists(strTableName) Then Dim hFile As Integer hFile = FreeFile Open strTableName For Binary Access Read As #hFile strTableData = String$(nLen, " ") '&H0) Get #hFile, nOffset, strTableData Close #hFile Else g_oErr.AddMessage MODULE_NAME, "GetMenuData", "Missing " & strTableName, App Debug.Print "Table " & strTableName & " is missing." 'This will force the application to stop Debug.Assert (1 = 2) End If Set oFs = Nothing GetMenuData = strTableData End Function Not having worked with binary files, I did some research and found some code from the internet which seemed to do what I wanted. I made a couple of modifications. The new VB Script code is this: Function GetMenuData(strTableName,nOffset, nLen) Dim I, S, oInFile Dim oFs, Binary Set oFs = CreateObject("Scripting.filesystemobject") If oFs.FileExists(strTableName) Then Set oInFile = oFS.OpenTextFile(strTableName, 1) Binary = oInfile.ReadAll For I = nOffset To nlen S = S & Chr(AscB(MidB(Binary, I, 1))) Next msgbox S GetMenuData = S End If End Function The new code doesn't return anything. I know the binary files have data in them. Is there anything wrong with the script? Also, is there an easy way to see what is in the binary file? Thanks, Jennifer Tag: Odd 800A0046 Permission Denied error Tag: 205800
  - 3
    - Backup NT Security Log I am trying to use the below script to backup, compress and ship the local security log using MOM 2005. If I don't add in the compress logic it works fine. Can you one assist me? I want to accomplish two things that are not in the script by defult: compression and adding the time to the file name. Please ignore any references to MOM within the script. Original script came from Andrzej's @ http://blogs.technet.com/alipka/archive/2006/04/09/424757.aspx Thanks for your time and help in this matter. strComputer = "." 'place for temporary storage of backed up logs strLogTempPlace = ScriptContext.Parameters.Get("LogTemp") 'server SMB share to which you want to transfer backed up logs (MOM agent action account mast have write permissions on NTFs and share level strLogDestPlace = ScriptContext.Parameters.Get("LogDest") strError = 1 strInformational = 4 strEventMessage = "Backup of EventLogs has been done to files:" intEventErrorID = 112 intEventTypeError = 1 intEventTypeSuccess = 0 strEventSrc = "Backup Logs Script" strYear = DatePart("yyyy",DateAdd("d",-1,Date)) strMonth = DatePart("m",DateAdd("d",-1,Date)) If Len(strMonth) = 1 Then strMonth = "0" & strMonth strDay = DatePart("d",DateAdd("d",-1,Date)) If Len(strDay) = 1 Then strDay = "0" & strDay Set objWMIService = GetObject("winmgmts: {impersonationLevel=impersonate,(Backup,Security)}!\\" & strComputer & "\root\cimv2") ' Check computer name Set colName = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objName in colName strCompName = objName.Name Next ' get event logs Set colLogFiles = objWMIService.ExecQuery("Select * from Win32_NTEventLogFile where LogFileName='Security'") For Each objLogfile in colLogFiles ' create file name strFileName = strCompName & "_" & Left(objLogfile.LogfileName,3) & strYear & strMonth & strDay & ".evt" ' copy logs to file errBackupLog = objLogFile.BackupEventLog(strLogTempPlace & strFileName) If errBackupLog <> 0 Then CreateEvent intEventErrorID, intEventTypeError, strEventSrc, "Can not back up " & objLogfile.LogfileName & " EventLog." & "Check server for errors." ScriptContext.Quit Else strEventMessage = strEventMessage & Chr(13) & strFileName objLogFile.ClearEventLog() End If Next set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") set objFile = objWMI.Get("Cim_Datafile='" & strCompName & "_*" & strYear & strMonth & strDay & ".evt" & "'") WScript.Echo objFile.Name intRC = objFile.Compress If strLogDestPlace <> "" Then Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile strLogTempPlace & strCompName & "_*" & strYear & strMonth & strDay & ".evt", strLogDestPlace strEventMessage = strEventMessage & chr(13) & "Logs are copied to " & strLogDestPlace End If 'generate MOM event CreateEvent intEventErrorID, intEventTypeSuccess, strEventSrc, strEventMessage 'event create subroutine Sub CreateEvent(intEventNumber,intEventType,strEventSource,strEventMessage) Set objEvent = ScriptContext.CreateEvent() objEvent.EventNumber = intEventNumber objEvent.EventType = intEventType objEvent.EventSource = strEventSource objEvent.Message = strEventMessage ScriptContext.Submit objEvent End Sub Tag: Odd 800A0046 Permission Denied error Tag: 205799
  - 4
    - Establishing SMTP address to NT accounts Dear All. I have a task I am to eager to complete.... :) I have a number of not mail-enabled user accounts, and I need to assign external SMTP addresses to them. I can't find accounts' attributes to be updated.... Many thanks in advance for any feedbacks! Andriy Tag: Odd 800A0046 Permission Denied error Tag: 205797
  - 5
    - Multiple record retrieval and updating I am trying to write a web app to assist in our stock take. I need to know how to pull all our inventory out of SAP and display it on a page, with an input filed for each item where the count for that item can be entered. And then how to write that value back to the database once the data capturer has captured all the counts. Hope that makes sense. Tag: Odd 800A0046 Permission Denied error Tag: 205792
  - 6
    - List devices with ConfigManagerErrorCode = 1? How can I get a list of devices with error code 1? I've put together this small script which should be able to list devices with an errorcode <> 0, but for some reason it doesnt list devices with errorcode 1. Other errorcodes seem to be listed fine. ___________________________________________________________________________ set osvc = getObject("winmgmts:root\cimv2") Set devices = osvc.InstancesOf("Win32_PNPEntity Where ConfigManagerErrorCode <> 0") For Each device In devices wscript.echo "Device: " & device.ConfigManagerErrorcode & " " & device.name Next ___________________________________________________________________________ I've tried setting the selection to "Win32_PNPEntity Where ConfigManagerErrorCode = 1" but no luck with that either. If a user clicks the Cancel button when the "Found New Hardware" wizard appears the device ends up with error code 1, so it would be a great help if I could catch those devices as well, in a troubleshooting script. Any suggestions? /Robert Tag: Odd 800A0046 Permission Denied error Tag: 205790
  - 7
    - VB6 "unspecified automation error -2147467259 " I have a VB6 app and am trying to update the proxyAddresses (multi- value) attribute in our Active Directory and am getting the following error: 'run-time error "-2147467259 (80004005)': Unspecified error I can set single-value attributes (e.g., "description", "mail") just fine but not proxyAddresses. I can't see anything wrong and wonder if someone out there has the magic touch. The ultimate goal is to ADD or DELETE entries in this attribute. The preliminary code follows that does work for everything else, it seems, but this: Private Sub WriteAttributes() Dim adoCommand, adoConnection, strBase Dim objRootDSE, strDNSDomain, strQuery, adoRecordset, aryValues(1) Dim strName, strCN, colMail, strMail, objUser, strDN, strNewAddress As String Const ADS_PROPERTY_CLEAR = 1 Const ADS_PROPERTY_UPDATE = 2 Const ADS_PROPERTY_APPEND = 3 Const ADS_PROPERTY_DELETE = 4 Set adoCommand = CreateObject("ADODB.Command") Set adoConnection = CreateObject("ADODB.Connection") adoConnection.Provider = "ADsDSOObject" adoConnection.Open "Active Directory Provider" adoCommand.ActiveConnection = adoConnection Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") strBase = "<LDAP://" & strDNSDomain & ">" strFilter = "(&(objectCategory=Person)(objectClass=User)(homeMDB=*))" strAttributes= "distinguishedName,cn,sAMAccountName,employeeID,mail,proxyAddresses" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" adoCommand.CommandText = strQuery adoCommand.Properties("Page Size") = 10000 adoCommand.Properties("Timeout") = 30 adoCommand.Properties("Cache Results") = False Set adoRecordset = adoCommand.Execute Do Until adoRecordset.EOF colMail = adoRecordset.Fields("proxyAddresses") For Each strMail In colMail strDN = adoRecordset.Fields("distinguishedName") Set objUser = GetObject("LDAP://" & strDN) objUser.Description="My new description" '(this works fine) objUser.mail="MyNewMail.Address@company.com '(this works fine) '<<Failing code runs here - see examples below<< objUser.SetInfo Next Loop End Sub *** The failing code, which sits right after the objUser.mail attribute write, looks like this (all the following approaches failed with the same code): 1) Attempt 1: Set objUser = GetObject("LDAP://" & strDN) objUser.PutEx _ ADS_PROPERTY_UPDATE, "proxyAddresses", "MyEmail.Address@Company.com" 2) Attempt 2: strNewAddress="MyEmail.Address@Company.com" Set objUser = GetObject("LDAP://" & strDN) objUser.PutEx ADS_PROPERTY_UPDATE, "proxyAddresses", strNewAddress 3) Attempt3: strNewAddress="MyEmailAddressCompanycom" 'No special characters. Set objUser = GetObject("LDAP://" & strDN) objUser.PutEx ADS_PROPERTY_UPDATE, "proxyAddresses", strNewAddress 4) Attempt 4: Dim aryNewAddress(1) aryNewAddress(0)="MyEmail.Address@Company.com" Set objUser = GetObject("LDAP://" & strDN) objUser.PutEx ADS_PROPERTY_UPDATE, "proxyAddresses", aryNewAddress(0) Tag: Odd 800A0046 Permission Denied error Tag: 205785
  - 8
    - Script to change the secirity settings Hi, Is it possible to change all the settings under IE->Tools->Internet Options->Security Tab->Internet and Local Intranet to "Enable" using a Script? Thanks for the help. Harsh Tag: Odd 800A0046 Permission Denied error Tag: 205783
  - 9
    - Embed a file in an HTA; possible? Is is possible, using an HTA to embed a dll or vbs into a control or other object in the window? Like what happens when using Insert Object into an Excel file...the file itself is embedded and saved (and transferred) with the file... Then the next logical question, can you subsequently export the embedded file? If possible, examples? web sites with examples? I suspect this ain't happening, but I had to ask... Tag: Odd 800A0046 Permission Denied error Tag: 205781
  - 10
    - ignoring a wildcard statement We are trying to execute and if then part of our script against a wildcard, but it is not working and only executes the process if we enter the whole computer name and not the variable. We basically want the script to map a drive based on the first couple of letters in the computername which would dictate where the computer is located. comp=objShell.ExpandEnvironmentStrings("%ComputerName%") strComputer = "*.*" If InStr(UCase(comp), "EXT" & strComputer) Then WshShell.Run "\\SERVER\apps\script1.vbs" End if If InStr(UCase(comp), "047-C301") Then WshShell.Run "\\SERVER\apps\script2.vbs" End if If InStr(UCase(comp), "047-C302") Then WshShell.Run "\\SERVER\apps\script3.vbs" End if If InStr(UCase(comp), "047-C303") Then WshShell.Run "\\SERVER\apps\script4.vbs" End if If InStr(UCase(comp), "047-C304") Then WshShell.Run "\\SERVER\apps\script5.vbs" End if The computer EXTRA1 is not reading the wildcard. Any help would be appreciated. Tag: Odd 800A0046 Permission Denied error Tag: 205771
  - 11
    - Open Win Explorer to specified path Could someone please post example code that opens a New Windows Explorer window to a path stored in a variable? Thanks. Tag: Odd 800A0046 Permission Denied error Tag: 205757
  - 12
    - Script Error All, I am looking for some insight for a problem I am having in doing a series of calls to AD to populate a recordset. The error I receive is: (null): The server is not operational. On this line of code: Set objTarget = GetObject("LDAP://" & strDN & "," & Domain) This usually happens on the 1979 to 1984 call to AD. I have rebuilt the workstation (XP SP2) and the DC (WIN2K SP4) is a saved state virtual machine I can roll back to a baseline at will. Everything was running fine up to a couple days ago and I have reverted the code to a state that runs fine, but there is no functional difference in the current to the reverted code. ADUC will not pull up properties on a Group for a couple minutes after the error, displaying the "Server is not Operational" message on a blank object window. I have run traces on the workstation and server and nothing is out of the ordinary. I am stumped, in 6 years of ADSI this one is a new one on me. I am sure there is some boneheaded error or something I am overlooking. Any insight as to where I am going wrong is appreciated. Thanks, Jay Relevant Code: '****************************************************************** ' Takes in a Rollup dataset and populates AD Dataset ' With the groups updated data Sub Populate_AD_DS(ByRef DSClone, ByRef AD_DS) ' Globals: Domain Dim strDN, strSamName, sGroupName 'Dim objTarget Dim iCount, iGCount iCount = 0 iGCount = 0 If NOT DSClone.BOF = True Then DSClone.MoveFirst End If Do Until DSClone.EOF sGroupName = "" strSamName = "" strSamName = DSClone("SamName") 'Wscript.Echo strSamName strDN = Get_ADDN(strSamName) If strDN <> "" Then 'Wscript.Echo strDN ' Create Entry in AD_Recordset AD_DS.AddNew AD_DS("DN") = strDN AD_DS("OldDN") = DSClone("DN") AD_DS("SamName") = strSamName ' Attach to the Group Object 'Wscript.Echo strDN & "," & Domain Dim objTarget 'Set objTarget = GetObject(strLDAP & strDN & "," & Domain) Set objTarget = GetObject("LDAP://" & strDN & "," & Domain) ' Remove CN= from Name sGroupName = Mid(objTarget.Name, 4) AD_DS("Name") = sGroupName 'Wscript.Echo vbtab & sGroupName '****************************************************************** 'Get List of Members Dim sGroupMember, sGroupMemberDN, sMemberList Dim arrMembers, iMemberCount sGroupMember = "" sMemberList = "" iMemberCount = 0 '********************* On Error Resume Next '********************* arrMembers = objTarget.GetEx("member") 'Wscript.Echo vbtab & "Get Members" If Err.Number = 0 Then ' Group has members iMemberCount = Ubound(arrMembers) + 1 ' If count >=1000 need to process group membership differently If iMemberCount >= 1000 Then arrMembers = Get_LargeMembership(strSamName) iMemberCount = Ubound(arrMembers) + 1 End If ' iMemberCount >= 1000 For Each sGroupMemberDN in arrMembers ' Strip off the dc=... part of the DN for storage sGroupMember = Replace(sGroupMemberDN, "," & Domain, "") ' Build list of members If sMemberList = "" Then sMemberList = sGroupMember Else sMemberList = sMemberList & ";" & sGroupMember End If ' sMemberList = "" Next ' sGroupMemberDN in arrMembers End If ' Err.Number <> 0 Members Check '********************* Err.Clear On Error GoTo 0 '********************* AD_DS("MemberList") = sMemberList ' Save Changes to AD_Recordset AD_DS.Update Set objTarget = Nothing End If ' strDN <> "" iCount = iCount + 1 iGCount = iGCount + 1 Wscript.Echo iGCount ' Pause every 1000 transactions for AD to rest If iCount >= 1000 Then iCount = 0 Wscript.Sleep 20000 End If DSClone.MoveNext Loop ' Until DSClone.EOF End Sub ' Populate_AD_DS '****************************************************************** ' Connects to Groups with >= 1000 members and itterates all members ' Based on code by Richard L. Mueller ' Hilltop Lab web site - http://www.rlmueller.net Function Get_LargeMembership(strSamName) 'Globals: Domain, objADConn '****************************************************************** ' Create Active Directory Command Dim objCmd Set objCmd = CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objADConn '****************************************************************** ' Create dictionary object to store Members Dim oMemberList Set oMemberList = CreateObject("Scripting.Dictionary") oMemberList.CompareMode = vbTextCompare ' Create LDAP Search variables Dim strPath, strFilter, strAttr, strScope strPath = "<LDAP://" & Domain & ">;" strFilter ="(&(objectCategory=group)(sAMAccountName=" & strSamName & "));" strAttr = "member;" strScope ="subtree" objCmd.Properties("Page Size") = 100 objCmd.Properties("Timeout") = 60 objCmd.Properties("Cache Results") = False Dim boolLast, iRangeStep, iLowRange, iHighRange, iCount boolLast = False iRangeStep = 999 iLowRange = 0 iHighRange = iLowRange + iRangeStep Dim objRS, sQuery, boolSearch boolSearch = True Do While boolSearch If boolLast Then sQuery = strPath & strFilter & strAttr & _ "range=" & iLowRange & "-*;" & strScope Else sQuery = strPath & strFilter & strAttr & _ "range=" & iLowRange & "-" & iHighRange & ";" & strScope End If ' boolLast ' Do AD Search objCmd.CommandText = sQuery Set objRS = objCmd.Execute iCount = 0 Dim arrMemberDN, sMemberDN, sMember Dim objField While Not objRS.EOF For Each objField In objRS.Fields If (VarType(objField) = (vbArray + vbVariant)) Then For Each sMemberDN In objField.Value ' Strip off the dc=... part of the DN for storage sMember = Replace(sMemberDN, "," & Domain, "") If NOT oMemberList.Exists(sMember) Then oMemberList.Add sMember, sMemberDN iCount = iCount + 1 End If ' oMemberList.Exists(sMember) = False Next ' sMemberDN In arrMemberDN End If ' (VarType(objField) = (vbArray + vbVariant)) Next ' objField In objRS.Fields objRS.MoveNext Wend ' Not objRS.EOF If boolLast Then boolSearch = False End If ' boolLast If iCount = 0 Then boolLast = True Else iLowRange = iHighRange + 1 iHighRange = iLowRange + iRangeStep End If ' iCount = 0 Loop ' While boolSearch ' Close AD Objects Set objRS = Nothing Set objCmd = Nothing ' Wscript.Echo vbcrlf & "Large Group Count: " & oMemberList.Count Dim arrMemberList arrMemberList = oMemberList.Items Set oMemberList = Nothing ' Return Array of members Get_LargeMembership = arrMemberList End Function ' Get_LargeMembership Tag: Odd 800A0046 Permission Denied error Tag: 205754
  - 13
    - Script Power Shell Can VBScript script Power Shell? I have a couple of things I want to run in VBScript & PowerShell, but PowerShell cannot run all that I need. Tag: Odd 800A0046 Permission Denied error Tag: 205744
  - 14
    - Allowed characters in strFullName Hi all - I have written a script to create users, but am now in doubt about what (if any) limitations there are to strFullName? Google has been of little help. Kind regards Tag: Odd 800A0046 Permission Denied error Tag: 205741
  - 15
    - Script for inventory - will not pull Mac address?? OK I had posted earlier regarding an inventory script, which is now working great hurray! However once piece of the puzzle, in fact the last bit of information I need from the machines on our network, refuses to show up. Mac addresses keep coming back as blank - not even null, just blank! Heres the extremely basic script I'm using for that part of it (I set it to echo back at me so I can see what its getting and try to troubleshoot) Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration " & _ "Where IPEnabled = True") For Each objMac in objItem.MacAddress objrecordset("Mac") = objMac wscript.echo objMac Next just what in the world is wrong with this? I've used this same format over and over again, other than checking for IPenabled flag to be sure its a NIC thats in use. GAH! Help a noob again please :-) Tag: Odd 800A0046 Permission Denied error Tag: 205739
  - 16
    - USB - How can I ??? I have at least two USB devices providing service to/for at least two disk drives. One is an external drive plugged into one of the USB ports on my Koutech F7210 card reader: 4 types of memory cards = 4 drives being used, through just one (1) USB controller ( I think ). 2 USB ports 2 Firewire ports 1 external SATA port My basic problem is that when the PC boots up, my card reader uses/creates four (4) disk drives, one for each of the memory card types the system can deal with. I only have Compact Flash cards. Can I, and if so, HOW can I, disable three (3) out of the four (4) drives? ( BEFORE or AFTER the disk drives are created makes no differnece to me. I'd just like to be able to automate this process, if the capability exists. ) In fact, I want to **STOP** three (3) out of the four (4), so the three (3) "extras" will disappear. I've read elsewhere about disabling the external drive capability altogether, say for flash drives and such. But I don't want to get rid of ALL my USB drives, just "some" of them. Does anyone know? Any help would be greatly appreciated. Thanks in advance, Tom Tag: Odd 800A0046 Permission Denied error Tag: 205738
  - 17
    - Store passwords in scripts ("Best practice"?) Hi, We have a Terminal services serverfarm where users login to execute their ERP-applications. Each user has a loginscript in VBscript. The loginscript must access data in a MSSQL-database on each logon... The question: how do i connect to the MSSQL-server from the vbscript in a "secure" way? The "easy"(and IMO _wrong_) way is to store the connectionstring directly in the source of the script...But anyone who has a bit of computer knowledge will be able to view the source of the loginscripts and see the username/password for the SQL-server... How do you do it? Is it possible to save logon-scripts as "execute only/denie read"? Or is there a good way to store the "connection"(or login-credentials) when writing the VBscripts? Thanks! Kind regards Thomas Tag: Odd 800A0046 Permission Denied error Tag: 205735
  - 18
    - Specify icon for system modal msgbox If a system modal msgbox is displayed, a default application icons appears in the title bar. Is it possible to specifiy an icon to be displayed? iWarningResponse = MsgBox("Are you sure?",4096+32+4,"Reset") Tag: Odd 800A0046 Permission Denied error Tag: 205734
  - 19
    - WMI results in English How to "tell" WMI, I want the result of the WMI-query in English? If the computer has a not English (not MUI) Windows, the local(!) WMI query returns the result on the native language of the OS. The remote query (from an English Windows) returns the result of the same not English computer in English. I was setting the current task's CultureInfo in en-US, but the result is still not English. Tag: Odd 800A0046 Permission Denied error Tag: 205733
  - 20
    - Check if a file is used Hi, as the subject, I want to check- via vbscript - if a file is using from an user account or from another system process. Is anything about this issue. Be aware that I do not want check if the file is open, but used. Thanks a lot. Fr. Tag: Odd 800A0046 Permission Denied error Tag: 205730
  - 21
    - Upload to an sftp server using vbscript Hello All, I am going to try this again. I apparently posted this in the wrong group before and was 'politely' told to post it here. This question isn't simple and I have noticed often people ask for more information so I will give you the whole story upfront: I recently started a new job and in the past they have solved a lot of simple tasks by utilizing vbs files. I am pretty fluent in Visual Basic but a little new to vbs files so this has been an 'interesting' transition as it is. Currently I have a vbs file that runs a rather elaborate query against an SQL server, the data is exported to a csv file and then emailed to a client. This vbs file actually works really well, however the client has requested that we start uploading it to an sftp site instead. Instead of reinventing the wheel I assumed that I could replace a few email lines of code with a few ftp commands. I researched the web and found several examples utilizing ftp.exe. Through further research I found that ftp.exe offers no support for a port higher than 21. Therefore I assume that ftp.exe offers no support for sftp. Can anyone offer me a solution that will allow me to upload to an sftp server without rewriting this code in some other format! Thanks, tooMuchCode Tag: Odd 800A0046 Permission Denied error Tag: 205723
  - 22
    - VBScript and FileSystemObject I have a website that allows FileSystemObject to be used on files on the website itself. But when I use WriteLine to try and add to the file, nothing happens and the file has not been changed. It works when I have it modify the file on my hard drive, but when I try to have it modify the one on the website, it doesn't work. The two files, one called test.htm, and the one with the code that modifies test.htm, are both in the same folder. This is the code I use to open the file - I think this is where the problem is occuring... dim fso, thefile Set fso = CreateObject("Scripting.FileSystemObject") Set thefile = fso.OpenTextFile("test.htm", 8, False) Is there something I need to add in front of the "test.htm" to get it to look on the website itself instead of on the user's hard drive? Thanks! Tag: Odd 800A0046 Permission Denied error Tag: 205720
  - 23
    - Open "enter password" form in HTA At one point in my HTA I need the user to enter and then re-enter a password. I would like a separate form to popup to accept this information; once user enters and clicks okay, the password form closes and leaves the user on the first form. Has anyone got a generic example that does this? Thanks so much for your assistance. Tag: Odd 800A0046 Permission Denied error Tag: 205715
  - 24
    - Write Variable to .mdb Anybody have an example of how to write the contents of a variable to a field in a table in an Access database? Or a SQL database? Thanks in advance DG Tag: Odd 800A0046 Permission Denied error Tag: 205713
  - 25
    - Renaming mp3 files I have a top 100 list of audio files that I want to remove the number prefix from eg Original file name:- 001 - artist name - song tile Remove number prefix so it looks like this:- artist name - song title Thanks Charles Tag: Odd 800A0046 Permission Denied error Tag: 205707

OK, I am no scripting king, but I know when something doesn't make
sense. I have one Citrix server out of four that generates an
800A0046 errors on the CreateObject launching the login script. So I
created a simple script that has objFSO defined:

'On Error Resume Next
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
MsgBox "Hello World"
Set objFSO = nothing

When executed from the suspect citrix server as a testuser with basic
domain user rights, I get Permission denied: 'CreateObject'. Now just
to make sure it wasn't a local rights issue for filer permissions, I
granted the testuser local admin permissions to the server and I get
the same thing. I did install SP6 for for vb 6.0 and that didn't
help.

Got any ideas?

Thanks
Kevin

Top