VBScript to search external LDAP

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
    - IE Proxy setting script for a nOOb please!! HELP I am new to the Win 2K server and need to set the proxy in the client machines (XP). I have been doing it handraulically and it takes time and dosnt set it for the users just the admin. I work volunteer in a small school, my main work is electronics tech so I am in over my head. Please help me...btw I am going back to school to learn networking so one day I might be able help here. TIA Michael Tag: VBScript to search external LDAP Tag: 145522
  - 2
    - Script for Copying profile Hello, We created script to upgrade pc to winxp and automatically add it to new domain, now we need to figure out how to copy old users profile to new one. Any ideas ? Thank you Eimis Tag: VBScript to search external LDAP Tag: 145520
  - 3
    - Capturing IE window content to text file I have a web page that displays statistics which I would like to periodically save. If I open the web page and hit CTRL+A to highlight the text and then copy and paste it to a text document I get exactly what I want. However, I would like to automate this with a vbscript. Can anyone give me some idea of how to do this? Thank you. Ralph Tag: VBScript to search external LDAP Tag: 145519
  - 4
    - Monitor Registry Entry Level Events Hey all Im trying to monitor a registry key HKEY_CURRENT_USER\Control Panel\Desktop to find when a user is changing the wallpaper (win 2000 network). Can someone tell me whats wrong with this script? The script was taken from microsoft and modified to my needs. 1. can i monitor HKEY_CURRENT_USER??? 2. the script is returns an error - "invalid query" *********************************** Original script Set wmiServices = GetObject("winmgmts: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\\CurrentVersion' AND ValueName='CSDVersion'" WScript.Echo "Listening for Registry Change Events..." & vbCrLf While(1) WScript.Sleep 1000 Wend Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) WScript.Echo "Received Registry Change Event" & vbCrLf & _ "------------------------------" & vbCrLf & _ wmiObject.GetObjectText_() End Sub ***********************************My script Set wmiServices = GetObject("winmgmts:root/default") Set wmiSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") wmiServices.ExecNotificationQueryAsync wmiSink, _ "SELECT * FROM RegistryValueChangeEvent WHERE Hive='HKEY_CURRENT_USER' AND " & _ "KeyPath='Control Panel\\Desktop' AND ValueName='Wallpaper'" WScript.Echo "Listening for Registry Change Events..." & vbCrLf While(1) WScript.Sleep 1000 Wend Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) WScript.Echo "Received Registry Change Event" & vbCrLf & _ "------------------------------" & vbCrLf & _ wmiObject.GetObjectText_() End Sub *********************************** Thanks, ITman Tag: VBScript to search external LDAP Tag: 145516
  - 5
    - RUN/execute a Command-Line command from an ASP page. Hi, I need to RUN/execute a Command-Line command from an ASP page. This is the command: sse45.exe -i k:\o\2.wmv -o k:\o\2.shh -w 128 -df 0 -m 2 -p Can you show me a code how to run this command from an ASP page? I need to run it from an ASP/VBscript? Thank you very much for your help! Tag: VBScript to search external LDAP Tag: 145513
  - 6
    - Select variable "column name" I'm having this code in VBscript and I want to select a column name which is variable. <%@Language="VBScript"%> <% Link = Request.QueryString("link") oRS.Open "SELECT 'Link' FROM snowzone", oConn, 2, 3 %> How should the SELECT statement be written correctly? Tag: VBScript to search external LDAP Tag: 145510
  - 7
    - Spaces and parameters query for VB Script Hi all - I need to run an application off a shared network drive. I am having problems with writing the script that will access the network drive (since I need to specify parameters and the network drive name has a space in it). I have no problems running it off the command line, but with the spaces and quotes in VBScript, things get messed up. I need to run this line with VB Script, anyone with any ideas ? (All on one line) \\Software share\Clients\W32Intel\Setup.exe -s -f1 \\Software share\Clients\W32Intel\setup.iss" I'm looking for something like this : set ws = wscript.createobject("wscript.shell") ws.run("\\Software share\Clients\W32Intel\Setup.exe -s -f1 ... etc") I have tried several combinations of """, "", and " with no luck :-) Thanks for your help. Tag: VBScript to search external LDAP Tag: 145497
  - 8
    - CDONTS - What happens to bad mail? When you use CDONTS to send mail through an active server page... what happens to the email if the email address is bad. Is there a way to capture the bad email address and forward it somewhere so we can tell the email was returned? Tag: VBScript to search external LDAP Tag: 145491
  - 9
    - msgbox alternative IE window Hello, How can I display a custom dialog using IE with 2 or 3 buttons? I need to output the html code from running script including the input buttons. Schematic example: <HTML> "This is what happened, do you want to proceed?" <form> <input buttons YES NO CANCEL> </form> </HTML>(please ignore the bad syntax) I want to loop the IE window function until the user clicks the button. Then I want the button clicked value returned back to the script where I can perform other actions based on the clicked button value. If I have to pre-output the HTML file, this is acceptable but on the fly output solution would be much better. Many thanks, Dave Tag: VBScript to search external LDAP Tag: 145480
  - 10
    - How to found out the local printer to connect or not Does anyone know how to check whether the local printer is attach to a workstation or not using vb script or WMI ? The workstation (w2000) may have boths the network printer and a local printer attach or just the network printer. The Printer Driver(local/network) may be install already, but the local printer may have remote from the workstation, so check the driver exist or not is not a good idea. Thanks! Tag: VBScript to search external LDAP Tag: 145478
  - 11
    - default printer Hi there I use this code to set the default printer Dim WSHNetwork set wshnetwork = createobject("wscript.network") on error resume next WshNetwork.SetDefaultPrinter "\\server\hp1" if err<>0 Then wshNetwork.AddWindowsPrinterConnection "\\server\hp1" WshNetwork.SetDefaultPrinter \\server\hp1 End if it works fine for all my win2000 pro and XP pro computers. But not on the NT4 worksstation. it's the SetDefaultPrinter that fails. any good ideas? Thanks Brian Tag: VBScript to search external LDAP Tag: 145473
  - 12
    - How To: Disable Selections with OnSelectStart I have observed several samples in JavaScript such as: <BODY onselectstart="return false"> But, I am having troubles in VBScript. I want to avoid mixing Java and VBScript in this page so as not to have to load both scripting engines. Anyone been able to successfully do this? Thanks -Tom Tag: VBScript to search external LDAP Tag: 145468
  - 13
    - Oct 31st-Nov 14th - Totaldicks Rock Tokyo - check WindowsMedia d1fV3tvLw Totaldicks (aka Total Dicks) starring Anand Bhatt and James Buban of the popular tribal hardcore group Anand clique are in Tokyo this October 31st thru November 15th 2003. rvGKu69 Tag: VBScript to search external LDAP Tag: 145467
  - 14
    - Externally Reading a Form Input Field I am trying to consistently read a hidden Input field in a Form located in a HTML that was opened with the objExplorer.Navigate statement. Sometimes I can read the field after the Submit button is clicked, sometimes I can't and I get the error: "Object doesn't support this property or method: 'myForm'" Here is the VB script statement (external to the HTML file): Do While TRUE strTemp = objDocument.myForm.bWaiting.value If strTemp <> "TRUE" Then Exit Do End If Loop Help.......... Thanks in advance. Russell-S Russell-S Tag: VBScript to search external LDAP Tag: 145463
  - 15
    - WMI call for files in a specific folder not modified in the past 7 days? Hello all I'm writting a script that renames files on a daily basis, and I want to delete any files (in a specific folder) that have not been modified in the past seven days. I'm thinking that the query string should look like this: Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile _ where LastModified < convert(datetime,'10/21/03 21:00:00')") but I don't seem to get anything back. If someone knows how I can fix this, it would be greatly appreciated. I can't seem to find anything on the Internet that addresses this issue. any help is greatly appreciated! --Gene Tag: VBScript to search external LDAP Tag: 145462
  - 16
    - Vbs populate ie web form with frames Hello, We have a website on our intranet that has frames and text boxes that we need to populate with data automatically with VBScript. I have been able to populate other web pages with VBScript when they don't have frames, but cannot figure out how to populate them when they have frames. I have been trying to search the existing posts, but I still can't seem to get this to work. I found a website on the Internet that has frames and input boxes that are similar to our intranet web page. http://www.iopus.com/iim/demo/frames Does anybody know how I could use VBScript to populate these text boxes within the frames? This is the code I have figured out so far: Const URL = "http://www.iopus.com/iim/demo/frames" With WScript.CreateObject("InternetExplorer.Application") .Visible = True .Navigate URL Do Until .ReadyState = 4 WScript.Sleep 50 ' wait for page to load Loop With .document.forms(1) ' I DON'T KNOW WHAT ELSE GOES HERE TO REFERENCE TO FRAME .T1.value = "Hello" ' enter company into a textbox End With Would anybody be willing to show me what I am missing in my code? Thank you in advance, Shawn Tag: VBScript to search external LDAP Tag: 145455
  - 17
    - QUESTION ON SESSION VARIABLES Hi there.... i got a quick one for you guys. i've this session variable that is updated by calling a server method (i set this value when the user hits a submit button in my form. The server method is called when i load all my asp forms.). I'd like to be able to update this session variable, without being forced to submit my form or refresh my form (something that will call my server method each 2 min lets say, without refreshing my page or submit)...is there anyway to do this??? Maybe a remote scripting with the setinterval() method?? but i'm having trouble using this with XP and IE 6 !! Your help is with this matter is higly appreciated!! Tag: VBScript to search external LDAP Tag: 145449
  - 18
    - adding and deleting printers Ok I'm trying to get my scripts to work and it's just not. I do have the one for adding a printer working but for deleting is a different story. Here is my adding a printer script. (It works) Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\tpl\plu1" WshNetwork.SetDefaultPrinter "\\tpl\plu1" Here is my deleting script. Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.RemovePrinterConnection "\\tpl\plu1" The deleting script runs with no errors but the printer stays. What I would like to do is use the add printer script as logon scripts so that when a user logs on they get the correct printer. If I don't have a deleting printer script run as a log off script will it screw up the next time the user logs on and keep adding printers and does anyone know why my deleting printer script doens't work? I run all W2k boxes. Tag: VBScript to search external LDAP Tag: 145447
  - 19
    - Service like script Hi I am sure its been asked many many times, but is there a way of creating a script that runs from time to time, say every 5 mins that can check to see if a certain time has elapsed and then send an email. Basically, I want to build a reminder system into my intranet that checks a calendar database and 1 hour or 1 day before sends out a reminder email. Almost like a service. Anyone any ideas as to where i look? MC Tag: VBScript to search external LDAP Tag: 145446
  - 20
    - getting cell values from excel I am needing to open an excel document, and extract the values from column A of an excel document. For example: I have an excel document that someone else made with over 1900 rows. The data in each cell contains a link to a file in the directory that the spreadsheet is in. Each time you click on one of the cells you can see the hyperlink data above in the cell property box. How can I, with vbscript, open the worksheet and extract the values from all cells in column A? Thanks for any help. Tag: VBScript to search external LDAP Tag: 145443
  - 21
    - Setting printer destination with VB/Crystal on XP OS Hello all, I'm using VBA in Great Plains v6to call & print a v8 Crystal report to an Epson LQ-870 ESCP2 printer. The code (very simple, I have to admit) is below. It's worked fine in Windows 95 for years but as soon as I install XP and try it I get the message 'Invalid Printer Specified.' I understand Windows XP uses a universal driver called UNIDRV.dll. Is that what's causing the problem? If so, does anyone have any idea how to get around it? I've a few things with no success? I need help! Thanks, Don The code: ' Save document 'SalesTransactionEntry.Save = 1 ' Set report file name.. should be located in the dynamics directory PickingTicket.ReportFileName = "PickingTicket.rpt" ' Tell Crystal reports to discard any saved data PickingTicket.DiscardSavedData = True ' Turn off progress dialog box PickingTicket.ProgressDialog = True ' Set report destination PickingTicket.Destination = crptToPrinter PickingTicket.PrinterDriver = "ESCP2MS.DRV" 'UNIDRV.dll ?? PickingTicket.PrinterName = "Epson LQ-870 ESC/P 2" PickingTicket.PrinterPort = "LPT1" ' Print report. PickingTicket.Action = 1 Tag: VBScript to search external LDAP Tag: 145436
  - 22
    - Configuering Internet Settings for remote machines Hi All, I would like to have a vb script which configures the Internet settings for Remote machines.I have a script which does for local machine.That script is using "wscript.shell".I dont know if this can be used to alter the settings of remote machines.Pls give me a script or tell me how to use the above mentioned method for remote machines.Your responses will be highly appreciated. Thanks Gaurav Tag: VBScript to search external LDAP Tag: 145435
  - 23
    - Configuering Internet Settings for remote machines Hi All, I would like to have a vb script which configures the Internet settings for Remote machines.I have a script which does for local machine.That script is using "wscript.shell".I dont know if this can be used to alter the settings of remote machines.Pls give me a script or tell me how to use the above mentioned method for remote machines.Your responses will be highly appreciated. Thanks Gaurav Tag: VBScript to search external LDAP Tag: 145432
  - 24
    - Create a folder on a remote server create a folder on a remote server? how do I do this, The only script examples I can find, create a folder on the local machine only. TIA Tag: VBScript to search external LDAP Tag: 145430
  - 25
    - script scheduling in AD environment? Okay Folks: Sir twitch a lot here is going bonkers yet again. Here is this little script I pulled out of the Microsoft Windows 2000 scripting guide. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.shutdown() Next Fine, fire this vbs puppy up and pooft, the computer shuts off. Which is exactly what I wanted. Now what I want to do is schedule this puppy via organizational units to apply to certain machines. Problem is that we have a bunch of users who love to leave their computers on all night, burn out monitors and occasionally fry their computers because of electrical activities in the area. Okay, so I figured that a nice .bat file along the lines of this at.exe 21:00 every:m,t,w,th,f,s,su \\servername\sharename\shutdown.vbs I figure this would solve the problem but it's a bit cumbersome. Does anybody know of a way to incorporate the equivalent of an "AT" command that would fire up at the computer startup so that the machine would know that, hey, I need to shut myself down at XX:XX hours. The best thing to do, ultimately, and I likely have a script for it somewhere, is that the machines would magically turn themselves up. I am shooting here for something that will work on the organizational unit level, any suggestions, comments or prayers??? Regards, Walt Tag: VBScript to search external LDAP Tag: 145420
- Next
  - 1
    - Form Sleep I have been searching for an answer to the problem I've been having with a form. I have an HTML file that I load via a VBScript that is being used to copy CDs to a network drive. The user will enter the year and the CD number in the form. Then VBScript creates a folder based on the information entered and copies the CD to it. The problem I'm having is that when the Submit button is clicked the only way I could get the calling VBScript to take over is to put a MsgBox in the HTML's script area. I dont mind that except that I would like to have the dialog box close automatically. I can't use the PopUp function since IE's security complains. I tried using a For/Next but that didn't help. What can I do to avoid the MsgBox. Shown below are snippets from the HTML and VBS files. Thanks for your help. =================================================== HTML File (Form section): =================================================== <form action="" onsubmit="vbscript: CopyDisk()" method="POST" border="0" width="100%" id="MyForm" name="MyForm"> <input type="hidden" name="bWaiting" value="TRUE"> <table border="0" width="100%" <td width="60"> Enter the Year here:   <input type="text" name="Year" id="Year" maxlength="4" size="4" onkeypress='validate(Me)'</td> <br>  <td width="860">Enter the CD Number here:    <input type="text" name="CDInfo1" id="CDInfo1" maxlength="8" size="8" onkeypress='validate(Me)' =================================================== HTML File (VBS section): =================================================== <SCRIPT language="VBScript"> Sub CopyDisk() MyForm.bWaiting.value = "FALSE" If Len( MyForm.Year.value ) > 0 AND Len( MyForm.CDInfo1.value ) > 0 Then MsgBox "Now copying the CD. Please wait for the ""Copy completed...."" message before clicking OK below." Else ExitNow() End If End Sub Sub ExitNow() MyForm.bWaiting.value = "WAIT" If MsgBox( "Are You Exiting the Input Window?", (vbQuestion + vbYesNo), "Exit Information" ) = vbNo Then MyForm.bWaiting.value = "TRUE" Else MyForm.bWaiting.value = "FALSE" End If End Sub </SCRIPT> =================================================== VBS File: =================================================== Do While NOT (objExplorer.Busy) Loop strYear = objDocument.myForm.Year.value strCDNo = objDocument.myForm.CDInfo1.value objExplorer.Visible = 0 If Len( strYear ) = 0 OR Len( strCDNo ) = 0 Then Do Until objDocument.myForm.bWaiting.value <> "WAIT" wScript.Sleep 750 Loop If objDocument.myForm.bWaiting.value = "FALSE" Then Exit Do ElseIf objDocument.myForm.bWaiting.value = "WAIT" Then wScript.Sleep 500 objDocument.myForm.bWaiting.value = "TRUE" End If Else On Error Resume Next strTarget = CNST_RCV_FLDR & "CD" & strYear & "_" & strCDNo If NOT objF_Sys.FolderExists( strTarget ) Then objF_Sys.CreateFolder strTarget ....... Tag: VBScript to search external LDAP Tag: 145417
  - 2
    - Error Expected End Get Expected "End" error in vb script on last line Char: 8 does anyone know why? Thanks! Glenn *************************************************************************** Dim wshShell, wshNetwork, OS_Ver, CRLF, oFSO, hoFSO, GroupDict, CCMINSTPATH CRLF = Chr(13) & Chr(10) ' use for return and line carriage Set wshNetwork = WScript.CreateObject("WScript.Network") Set oFSO = WScript.CreateObject("Scripting.FileSystemObject") TempPath = wshShell.ExpandEnvironmentStrings("%TEMP%") UserName = wshShell.ExpandEnvironmentStrings("%USERNAME%") ComputerName = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") Set WshShell = Wscript.CreateObject("Wscript.Shell") strMapperSetting = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5FF8D3B8-E19A-4B74-A430-A5366CA74B3F}\InstallSource") if strMapperSetting = "\\ccl_applib\msipackages\mapper\" then message = "value exists" If oFSO.FileExists(".\dataexist.010") then oFSO.DeleteFile(".\dataexist.010") End if If Err.Number <> 0 Then ' value does not exists strMapperSettingExists = 0 Else strMapperSettingExists = 1 End If if strMapperSettingExists = 1 then writelog message end if wscript.quit '=================================================================================== '***************************** Subroutine to write to file ************************* '=================================================================================== Sub WriteLog (strMessage) const ForRead = 1 const ForWrite = 2 const ForAppend = 8 LogFile = ".\dataexist.010" Set fsLog = oFSO.OpenTextFile(LogFile, 8, True) fsLog.WriteLine (strMessage) fsLog.Close end sub Tag: VBScript to search external LDAP Tag: 145414
  - 3
    - status of remote machine. All, I am looping thorugh the computer objects in a Domain. Within the loop I need to bind to each maching and read the registry. I would like to discern the status of the remote machine before attempting to bind to it. Does anyone have any suggestions? I am assuming that the IADS computerstatus can't be used based on previous posts. If this works can someone point me toward an example? Otherwise any suggestions would help. Thanks in advance PO Tag: VBScript to search external LDAP Tag: 145410
  - 4
    - Move and Delete Scripting Help how do I move files from a folder to another folder, and then the other thing is how do I delete the files after they have been moved, of course I only want to delete the files that arte older than 7 days. Here is some script, but for some reason it is not doing what I need it to do. It does nothing: I have included the scripts in text below, didn't know if anyone could possibly point me in the correct direction: Move Files: Const FOF_CREATEPROGRESSDLG = &H0& TargetFolder = "C:\Move" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(TargetFolder) objFolder.MoveHere "C:\logfiles", FOF_CREATEPROGRESSDLG Delete files: (Yes I know I have to add a way to check if they are older than 7 days, but I was just testing to make sure it worked before I added that in there, and so far nothing) Const DeleteReadOnly = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("C:\logfiles\*.log"), DeleteReadOnly Tag: VBScript to search external LDAP Tag: 145408
  - 5
    - ipconfig /flushdns I need a vbs script to run ipconfig /flushdns everytime user logs in or computer boots up. Thank you very much! Eimis Tag: VBScript to search external LDAP Tag: 145406
  - 6
    - How do you check the current CURSOR TYPE (not in IE)? Hi everyone, I did a lot of google searches, and came up with nothing. Most of the links were related to changing the cursor type in IE, or getting the Cursor handle in VB. I was wondering if anyone knew a way of getting the current cursor type; I am checking to see if it's an hourglass. Reason: I am using keyboard shortcuts to save to a file in an Application, and I am loading the saved file in an XMLDOM, but I can't do that till it's been saved. Monitoring file creation requires a separate thread; I thought it would be easier to check whether the current cursor is an hourglass. A solution would be much appreciated... Thank you -- Posted via http://dbforums.com Tag: VBScript to search external LDAP Tag: 145405
  - 7
    - Functions calling Functions We switch database vendors without changing every .asp page of a web by calling a custom VBScript function. The function takes the specific database name as its single arguement and returns a complete OLE connection string for that database. Thus, a single file (the function) only needs editing to switch from one database (eg SQL Server) to another (eg: ORACLE). Other VBScript custom functions in the web also require database connection(s). How do they use the same function to create their connection string(s)? Example: In the .asp we have ...  <% 'Script: Dim cnnActive Dim strOLEDB ... Set cnnActive = Server.CreateObject ("ADODB.Connection") strOLEDB = OLEDBString("Active") cnnActive.Open strOLEDB ... %> Here's the function: <% Function OLEDBString(strDB) '>>> '>>> Create the OLEDB connection string for the customer database '>>> Here, use the Microsoft Access JET OLEDB v4 '>>> 'Create the link with the [strDB] database OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;" OLEDBString = OLEDBString & "Data Source=C:\InetPub\wwwroot\VManager\databases\" OLEDBString = OLEDBString & strDB & ".mdb;" OLEDBString = OLEDBString & "User ID=admin; Password=;" End Function %> Tag: VBScript to search external LDAP Tag: 145404
  - 8
    - mapnetworkdrive problem I am using the mapnetworkdrive method to map drives for users during logon. I changed a drive mapping for a user and it is mapping to the new location but the windows explorer name shows the old path. When you look at the properties or try and disconnect the drive it does give you the correct NEW path but the explorer view has the old path listed. The user has rebooted and still no luck. Is there some way to refresh the name when changin the path to a mapped network drive. Tag: VBScript to search external LDAP Tag: 145402
  - 9
    - Outllook Macro warning and one-off forms... I have an Outlook folder full of contacts that use a custom contact form. One of these items occasionally becomes one-offed. I have a VBscript that loops through all the contacts and does some processing. When it attempts to access the contact via code similiar to this For each thing in Directory.Items temp = thing.homeaddress NOTE: I don't ever actually open the item I'm looking at, I just use the Thing.fieldname notation to access the data. I get the "Do you wish to enable macros" dialog box. This causes my script to just sit there until someone hits yes or no (Which might take days). So I need a workaround that would allow my script to run un-attended. 1) Is there anyway to supress the enable macros dialog box for one-offed items? 2) Is there anyway to open an item with its macros disabled? 3) Can I check the messageclass of an item without trigging the dialog box? Any help would be much appreciated! -J Tag: VBScript to search external LDAP Tag: 145398
  - 10
    - Progres window Hi, I am using oShell.run command_line,0,true but I want to display possibly a IE progress window while the command line is running so i'm thinking I can do something like: Do until return = 0 IE progress window (how?) return = oShell.run command_line,0,true Loop I can see two problems with the above: I'm thinking that return = oShell.run command_line,0,true will not execute until the IE progress window is running and I also don't know how to invoke the progress window. Could someone direct me to online info about using progress windows while some process is running? I would also appreciate a code example or better approach if not too much trouble. Thank you, Dave Tag: VBScript to search external LDAP Tag: 145395
  - 11
    - Check CD-R disk status Hello, Can someone tell me how to check if a blank unformatted CD-R is present in the drive and if not blank then if there are any files written on it? I tried checking readiness using IsReady and checking presence of any data by counting files in drive_letter:\ but I have a catch 22 situation: If the disk is blank drive returns NOT READY and if I check for written data, because drive is not ready (for blank disks) script gives me an error CANNOT FIND PATH when trying to count files. Basically what I want to do is: Step 1: check if CD drive is ready, i.e. if a CD is physically there regardless of it's status or formatted state Step 2: if the drive is ready, check for presence of any data, even if the disk is unformatted without returning error because it's unformatted. Or just simply check if the drive definately contains unformatted and blank, out of the box CD-R - just this will suffice if this is possible. Thanks you, Dave Tag: VBScript to search external LDAP Tag: 145393
  - 12
    - ADSI on IIS not the same as PWS Please take a look at the following code: Sub test() Dim usr Dim grp ' This part is working in Excel, Personal web server and IIS (4 and 5) Set usr = GetObject ("WinNT://valid_domain/valid_user ,user") For Each grp In usr.Groups Debug.Print grp.Name Next ' This part is working in Excel and Personal web server but not on and IIS (4 and 5) Set grp = GetObject ("WinNT://valid_domain/valid_group,group") For Each usr In grp.Members Debug.Print usr.Name Next End Sub I have tried this code on Excel and Personal web server without any problem. But when I try to run it as ASP page on IIS (4 and 5) I can get all the use details, but not the group details. The grp.Members is always empty. Does anyone know why this is not working? Tag: VBScript to search external LDAP Tag: 145392
  - 13
    - Computer Last Logon I have the following vbscript that returns the user's last logon. Can it be modifyed to return the Computer's last logon? Thanks in advance. ================================== Dim User user = InputBox("Enter user ID","Last Logon") 'msgbox user Set wshArguments = WScript.Arguments set objUser = GetObject("LDAP://" & "CN=" & User & ",OU=USERS,OU=TPA,OU=USA,DC=domain,DC=com") str1 = "Last Login: " & objUser.LastLogin MsgBox str1 Tag: VBScript to search external LDAP Tag: 145391
  - 14
    - Change drive volume label/name Hello, Does anyone know how to change volume label/name of a floppy or a zip disk? Many thanks, Dave Tag: VBScript to search external LDAP Tag: 145388
  - 15
    - getting info in word about box. I'am looking for a way to get the version of word that is displayed in it's about box. Can't seem to find it in the registry, so it mught be embedded in the .exe. Currently it displays as: Microsoft Word 2000 (9.0.6926 SP-3). Thanks Andres Tag: VBScript to search external LDAP Tag: 145386
  - 16
    - On Error Resume Next How do I turn error handling off again after running On Error Resume Next? Tag: VBScript to search external LDAP Tag: 145382
  - 17
    - Events Handling Problem. I have developed a ATL COM component which fires Events.I have handled these events in VB 6.0 successfully.I am trying to handle this comonent events in a ASP page using VB Script language.But I could not handle this component events in a ASP page using VB script language .Please suggest a way to sort out this problem.I am waiting for your response very eagerly. Regards Baloch Tag: VBScript to search external LDAP Tag: 145371
  - 18
    - Urgent please !! Hi all, Can anyone tell me how to trasfer (or copy) specific doc file from one source server to destination server using VBscript. Thanks, Riken Tag: VBScript to search external LDAP Tag: 145368
  - 19
    - ? hotfix.WSF (shows what hotfix is installed and what is not) WinXP Hi, The following "hotfix.WSF" for Windows XP (updated october 20, 2003) shows what hotfix that is installed (and what is missing). Benny Pedersen, http://2dos.homepage.dk (not uploaded). PS. Please reply any comments about improvements or bugs, etc... (I tried in the WSH Group but without any luck.) BTW. Does someone know how to determine what version of directX is installed, etc...? <PACKAGE><JOB ID="hot"><SCRIPT language="JScript"> function jsSort(arr){return arr.toArray().sort().join('*')} function jsFind(x,strng){return(strng.search(x))} </SCRIPT><SCRIPT language="VBS"> dim file,a01,i,arr ' createObject("wScript.shell").run("%comSpec% /c " & "del """ &_ ' fso.getSpecialFolder(2) & ".\rad*.tmp.txt"""), 2, true dim wso: set wso = createObject("wScript.shell") dim fso: set fso = createObject("scripting.fileSystemObject") file = fso.getSpecialFolder(2) & ".\" & fso.getTempName & ".txt" on error resume next a01=wso.regRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\" &_ "Internet Settings\MinorVersion") on error goTo 0: a01 = uCase(a01): a01 = replace(a01, "SP", "*SP ") for each i in array("Q", "KB"): a01 = replace(a01,i,empty): next for each i in array("59 DataAccess", "69 Windows Media Player",_ "56 DirectX" , "63 Windows XP\SP2") wso.run("regedit /e """ & file & """ """ & "HKEY_LOCAL_MACHINE" &_ "\SOFTWARE\Microsoft\Updates\" & mid(i,4) & """"),,true if fso.fileExists(file) then arr = fileToArray(file) :_ a01=a01 & getHotfix(arr,left(i,2)): fso.deleteFile file next arr = split(a01, ";") if uBound(arr) > 0 then a01 = jsSort(arr) do: a01 = replace(a01,"**","*"): loop while left(a01,2) = "**" missingHotfix(a01) if vbOK = msgBox("Do you want to see what hotfix that is insta" &_ "lled? ", vbQuestion + vbOKCancel + vbDefaultButton1, "?") then arr = split(a01, "*") writeArray arr,file wso.run("""" & file & """"),, true fso.deleteFile file end if else msgBox "Failure" end if set wso = nothing: set fso = wso function fileToArray(readFile) dim rLine, a, rFile: set rFile = fso.openTextFile(readFile, 1) on error resume next do: rLine = rFile.readLine if err <> 0 then exit do for each a in array(0,10,13) rLine=replace(rLine,chr(a),empty) next fileToArray = fileToArray & "*" & rLine loop rFile.close: set rFile = nothing fileToArray = split(fileToArray,"*") end function function getHotfix(arr,p): dim i,endStr,a for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))=empty) if "]" = right(mid(arr(i),p,9),1)then endStr = left(right(mid(arr(i),p,9),7),6) if 6=len(endStr)and 1+isNaN(endStr) then a=a & ";" & endStr end if next getHotfix = a end function sub writeArray(arr, writeFile) dim i, wFile: set wFile=fso.openTextFile(writeFile,2,-1) for i = -(arr(0)=empty) to uBound(arr)+(arr(uBound(arr))=empty) wFile.writeLine arr(i) next wFile.close: set wFile = nothing end sub sub missingHotfix(installed) if 0 > jsFind("SP 1", installed) then msgBox"You need Service Pack 1 ", vbInformation, "XP Outdated" exit sub end if dim a02,i,numb,need,msg dim recommended,recommendable,script56,directX9,mPlayerLess9 dim mPlayer9,mPlayer9andLess,virus,swindler,hackerLocal dim hackerCurious,hackerMalicious,otherXP recommended = false recommendable = true script56 = true directX9 = true mPlayerLess9 = true mPlayer9 = false mPlayer9andLess = true virus = true swindler = true hackerLocal = false hackerCurious = true hackerMalicious = true otherXP = true ' * NOTE: Returns hotfix 814078 and 816093 as missing: if recommended then recommended ="" if recommendable then recommendable ="31.1[ ]327979," &_ "34.1[ ]814995," &_ "" if script56 then script56 ="22.1[*]814078," if directX9 then directX9 ="04.2[ ]819696," if mPlayerLess9 then mPlayerLess9 ="21.1[ ]817787," if mPlayer9 then mPlayer9 ="21.3[ ]819639," if mPlayer9andLess then mPlayer9andLess="22.3[ ]828026," if virus then virus ="18.1[ ]823980," if swindler then swindler ="13.1[ ]329115," if hackerLocal then hackerLocal ="23.1[ ]323255," &_ "14.1[ ]328310," &_ "17.1[ ]810577," &_ "05.1[ ]811493," &_ "38.1[ ]824141," &_ "" if hackerCurious then hackerCurious ="32.1[ ]824105," &_ "" if hackerMalicious then hackerMalicious="24.1[ ]329048," &_ "26.1[ ]329170," &_ "12.1[ ]329390," &_ "11.1[ ]329834," &_ "02.1[ ]330994," &_ "27.1[ ]331953," &_ "16.1[ ]810833," &_ "08.1[ ]815021," &_ "20.1[ ]817606," &_ "03.1[ ]821557," &_ "37.1[ ]823182," &_ "19.1[ ]823559," &_ "29.1[ ]823718," &_ "33.1[ ]824146," &_ "36.1[ ]825119," &_ "35.1[ ]828035," &_ "01.3[ ]828750," &_ "" if otherXP then otherXP ="09.1[ ]329441," &_ "15.1[ ]810565," &_ "25.1[ ]811630," &_ "10.1[ ]814033," &_ "07.1[*]816093," &_ "06.1[ ]817287," &_ "" a02 = recommended & recommendable & script56 & directX9 &_ mPlayerLess9 & mPlayer9 & mPlayer9andLess & virus &_ swindler & hackerLocal & hackerCurious & hackerMalicious &_ otherXP for each i in split(a02,","): numb = right(i,6) if 0 > jsFind(numb,installed)then need = need & numb & "," if "*"=mid(right(i,13),6,1)then msg="See note in line numb 94." end if next if 1+jsFind(",","" & need) then inputBox string(5,vbLf) & "Missing hotfix:", msg, need,, 0 else msgBox"This system is up to date (October 20, 2003) ",, ":-)" end if end sub' To be continued later on my Homepage... </SCRIPT></JOB></PACKAGE> Tag: VBScript to search external LDAP Tag: 145366
  - 20
    - Generic WSF template for processing uargs-or-stdin Below is a WSF template I recently put together to help with rapidly writing small console utilities with minimal coding so that they can take either a series of unnamed arguments, or, if no unnamed arguments are present, read lines from stdin and process each line as one would an argument. This of course needs to be explicitly launched in a console with cscript as the host for it to work. Comments appreciated. ============================================================================ ===== <?xml version="1.0" encoding="ISO-8859-1" ?> <job> <runtime> <description><![CDATA[ note: send comments to aka-at-mvps-dot-org ]]></description> <example><![CDATA[ ]]></example> <named name="?" helpstring="returns this help message" type="simple" required="false"/> <unnamed name="arg" helpstring="Multiple arguments to run against. If none are specified, script will get input from stdin." many="true" required="false"/> </runtime> <script language="VBScript"><![CDATA[ Option Explicit ' Special variable declarations. DO NOT reuse these! dim [UnNamedCount], [hasUnnamed], [data], [i] ' Generic loop to execute Sub Main() for each unnamed argument ' or, if no unnamed arguments, to run it against each line ' from WScript.StdIn [UnNamedCount] = WScript.Arguments.Unnamed.Count [hasUnnamed] = CBool( Sgn(WScript.Arguments.Unnamed.Count) ) do if [hasUnnamed] then [data] = WScript.Arguments.Unnamed([i]) else [data] = WScript.StdIn.ReadLine main [data] if [hasUnnamed] then [i] = [i] + 1 if [i] = [UnNamedCount] then exit do else if WScript.StdIn.AtEndofStream then exit do end if loop end sub Sub Main(arg) '' CODE GOES HERE! End sub ]]></script> </job> Tag: VBScript to search external LDAP Tag: 145363
  - 21
    - WScript.Shell Run for...in...do I'm having problems getting the WScript.Shell object to run command lines of the form for...in...do. For example, the following is supposed to encrypt all the document files in the folder "C:\data" Set wsh = WScript.CreateObject("WScript.Shell") wsh.CurrentDirectory = "C:\data" wsh.Run "%comspec% /c for %%F in (*.doc) do pgp -encrypt %%F", 1, True This doesn't work, but there's no error message or anything, instead all it does is flash the command window. Even using /k doesn't keep the window up. But if I put the line in a batch file in C:\data, and run the batch file, everything works okay: wsh.Run "%comspec% /c encrypt-docs.bat", 1, True Or if I use an alternate but equivalent command line, it also works okay: wsh.Run "%comspec% /c pgp -encrypt-files *.doc", 1, True Based on the results, it seems that WScript.Shell Run can't directly handle for...in...do. Can anyone else confirm this? If it matters, the OS is Win2K and comspec is cmd. Thanks for reading... Russell Tag: VBScript to search external LDAP Tag: 145359
  - 22
    - SetTimeOut and declaring variables Did anyone notice this: When using SetTimeOut you have to declare any variables globally. For instance: <script language=VBScript> dim s s="goodbye" sub document_onclick() dim s s="hello" window.settimeout "msgbox s",100 end sub </script> Tag: VBScript to search external LDAP Tag: 145358
  - 23
    - Help with GetRef Hello, I have a command line based script where I bring up IE, then sit in a loop with GetRef's to OnClick events from the IE page. For the most part, it works, but occasionally, I will get an error where the script has disconnected from the opbject. I am using a sleep value of 100 in my loop. Is there a way to reliably run the script without the disconnect error ? I would say it errors out about 10% of the time. I have played around with the sleep value but I still seem to occasionally get the error. My geuss is that when I click the button on the page while the script is in the sleep state, the error occurs, kind of a race condition so to speek. Any and all help is appreciated. TDM Tag: VBScript to search external LDAP Tag: 145349
  - 24
    - What's the best way to determine if it is Win2000SP2 or Win2000SP3 or 4 I need to install patches and I am wondering what's the best way to modify the script below too if a machine is Win2000SP2 or Win2000SP3 ? Function GetOS() ' using the ver command Const OpenAsASCII = 0 Const FailIfNotExist = 0 Const ForReading = 1 Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sTemp = oShell.ExpandEnvironmentStrings("%TEMP%") sTempFile = sTemp & "\runresult.tmp" oShell.Run "%comspec% /c ver >" & sTempFile, 0, True Set fFile = oFSO.OpenTextFile(sTempFile, ForReading,FailIfNotExist, OpenAsASCII) sResults = fFile.ReadAll fFile.Close oFSO.DeleteFile(sTempFile) Select Case True Case InStr(sResults, "Windows 95") > 1 : GetOS = "W95" Case InStr(sResults, "Windows 98") > 1 : GetOS = "W98" Case InStr(sResults, "Windows Millennium") > 1 : GetOS = "WME" Case InStr(sResults, "Windows NT") > 1 : GetOS = "NT4" Case InStr(sResults, "Windows 2000") > 1 : GetOS = "W2K" Case InStr(sResults, "Windows XP") > 1 : GetOS = "WXP" Case Else : GetOS = "Unknown" End Select End Function Function RegKeyExists(sRegKey) Dim RegReadReturn RegKeyExists = True sRegKey = Trim (sRegKey) If Not Right(sRegKey, 1) = "\" Then sRegKey = sRegKey & "\" End if On Error Resume Next RegReadReturn = WshShell.RegRead(sRegKey) If Err Then If LCase(Left(err.description,7)) = "invalid" Then 'key not found... RegKeyExists = False End if Err.clear End if On Error Goto 0 End Function Tag: VBScript to search external LDAP Tag: 145346
  - 25
    - writing results to excel file hi, i have a script that echo the ip address of a remote computer to the screen using wscript.echo. How can i amend the script to write the result to an excel file under column D ? thanks Tag: VBScript to search external LDAP Tag: 145341

I am trying to write a VBScript that will search an external UNIX
directory based on a person's last name and first name.

I currently have a script that can search for the user's login id and
give me the first and last name:

--Begin Script--
CONST ADS_NO_AUTHENTICATION = &H0010
CONST ADS_SERVER_BIND = &H0200

sLDAPsrv = "ldap.server.edu"
sLDAPsb = "ou=people,o=server.edu"
sCN = InputBox("Enter UNIX ID:")

sRoot = "LDAP://" & sLDAPsrv & "/uid=" & sCN & "," & sLDAPsb
sDN = "cn=" & sCN & "," & sLDAPsb

Set oDSP = GetObject("LDAP:")

Set oUser = oDSP.OpenDSObject(sRoot,vbNullString,vbNullString,ADS_SERVER_BIND
AND ADS_NO_AUTHENTICATION)

oUser.GetInfo
strName = oUser.givenName
strLast = oUser.sn

MsgBox strName
MsgBox strLast

wscript.Quit
--End Script--

That works great, but I am unable to determine how to search for the
last and first name using the same methods and get the uid. I have
searched everywhere I can think, but most of what I find is either
exclusive to AD or exclusive to UNIX.

Help?

Thanks in advance,
Dan

Top