ldap security in a script

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
 - Select Case Limitations Does VBScript allow expressions such as "1 to 5" and "IS > 89"? The following code works fine in VBA, however VBScript doesn't appear to 'TO' and 'IS >' parts fo the case statement. For i = 1 To Len(strFileName) Select Case Asc(Mid(strFileName, i, 1)) Case 1 To 39, 42, 43, 44, 46, 47, 58 To 64, 91 To 96, Is > 122 validateFileName = 0 Case Else End Select Next i Tag: ldap security in a script Tag: 209804
 - 2
 - string match with regular expressions Hi All, i'm trying to use regular expressions to filter lines from an input text file and write to an output I am looking for lines containing the "Y" character here is the code part: ... If myString = "*Y*" Then OutputFile.WriteLine myString End if ... But it looks like this is loking for a match where the star "*" character is considered as a charcater and not as a wildcard? Tag: ldap security in a script Tag: 209801
 - 3
 - change mouse buttons Hi I have an injury that means that I can only use my mouse for limited periods of time. I also use voice activated software - but I often find the need to move the mouse. I can use the mouse in either hand, but just not for more than a few minutes on each. I would like to create a script that would run from an icon on my desktop that would switch left and right mouse buttons. This way I can simply activate that script and change hands for the mouse. I know that the mouse button settings are in the control panel, mouse settings in XP pro. How can I change these using a script - given I am using a standard mouse - the basic optical one that comes with a Dell system. Any assistance would be appreciated. Doug Tag: ldap security in a script Tag: 209785
 - 4
 - Help with vbscript please - delete files I know a little about VBscript but am struggling with trying to figure out how to do the following. I need to delete all .xml files from a certain directory, however, I need to delete only certain ones based off of client names. Can anyone provide me with a script that will do this? I have 30 clients that generate .xml files in this one directory, yet there are other .xml files we need to leave alone. All client ID's are based on a 3 character name, for example, AMB, KRT, MLI, TXI, etc I am trying to write the script to where it will (1) if files exissts then delete amb*.xml, krt*.xml, etc If possible, please send a reply to ken@txgeekman.com as well... Thank you K_Smith Tag: ldap security in a script Tag: 209780
 - 5
 - printer mapping hi all i ma trying to find a way to map a network printer via a script, the printer is not shared by a server, it is reachable via its share name or its ip address . all references i found use something like \\servername\sharename to reach a printer , bu in my case i only have the sharename or the printer ip tnx Tag: ldap security in a script Tag: 209769
 - 6
 - dating agency , japanese dating , meet swedish women , teen dating emotional http://great-singles-freeweb.com/index547.html http://great-singles-freeweb.com/index548.html http://great-singles-freeweb.com/index549.html http://great-singles-freeweb.com/index552.html http://great-singles-freeweb.com/index551.html http://great-singles-freeweb.com/index550.html http://great-singles-freeweb.com/index652.html http://great-singles-freeweb.com/index653.html http://great-singles-freeweb.com/index654.html http://great-singles-freeweb.com/index655.html http://great-singles-freeweb.com/index656.html http://great-singles-freeweb.com/index657.html http://great-singles-freeweb.com/index658.html http://great-singles-freeweb.com/index659.html http://great-singles-freeweb.com/index660.html http://great-singles-freeweb.com/index661.html http://great-singles-freeweb.com/index662.html http://great-singles-freeweb.com/index663.html http://great-singles-freeweb.com/index664.html http://great-singles-freeweb.com/index665.html http://great-singles-freeweb.com/index666.html http://great-singles-freeweb.com/index667.html http://great-singles-freeweb.com/index668.html http://great-singles-freeweb.com/index669.html http://great-singles-freeweb.com/index670.html http://great-singles-freeweb.com/index671.html http://great-singles-freeweb.com/index672.html http://great-singles-freeweb.com/index673.html http://great-singles-freeweb.com/index674.html http://great-singles-freeweb.com/index675.html http://great-singles-freeweb.com/index676.html http://great-singles-freeweb.com/index677.html http://great-singles-freeweb.com/index678.html http://great-singles-freeweb.com/index679.html http://great-singles-freeweb.com/index680.html http://great-singles-freeweb.com/index681.html http://great-singles-freeweb.com/index682.html http://great-singles-freeweb.com/index683.html http://great-singles-freeweb.com/index684.html http://great-singles-freeweb.com/index685.html http://great-singles-freeweb.com/index686.html teenage dating website , top 20 singles , datelines , win a date with porn , teenage dating age , friend finder , hot sexy date , dating in ireland , dating tips for teen guys , meet russian woman , singles online , teen dating sites , porn trailers , sexy women , teen statistics , women with women , where to meet older women , dating nl , mature date , tgp porn , new york bar exam dates , american matchmaking , naked sex , date sex porn , african women seeking men , comics porn , dating nu , dating service in new york , best place to meet women , find dates , sex teens , women with dildos , teen advise , teen personals , single man , women with strap on , women with dog , date married women , teen online dating sites , mature women , single men , online dating agency , photo personals , women seeking older men , dating , asian women seeking men , date agency , porn links , amerikanische single , interracial singles , women having sex with other women , mature women with big tits , adult dating personals , couples seeking woman , singles in the usa , women seeking love , irish dating agencies , dating website for teens , teen dating advise , single mothers in usa , usa hits , adult sex , speeddating , xxx date , singles net , marriage agency scams , dating ireland , married woman seeking , american dating services , new york magazine personals , introduction agencies , usa erotik , porn 08 , romantic dates in new york , dating ru , older women looking for younger men , married women seeking , sex numbers , sexy kitten sim date , christian teen dating , friendship , teen dating problems , porn pictures , porn thumbs , ohio dating services , sex date , porn movies , american singles , mature women seeking younger men , dating girls , nude porn , new york swingers , mature women with young girls , date porn games , woman with you , single dating , usa dating singles , women with small tits , women with eating disorders , adult cams , married women seeking men , dating dk , uk teen dating , sex chaten , dating de , porn dating , asian dating , marriage agency odessa , woman with big boobs , american dateing , dating uk , dating game , dating brides , teen adult dating , horny married women , top 10 usa singles , date marathon de new york , sex with pregnant women , teen dating fun , us dating , conversation with women , kostenlose singles , aussie matchmaker , amerikan singles , dating for teen , matchmaker dating , blinddate porn , billboard top usa singles , violence in teen dating , talk dirty , woman with pearl , cupid dating , american cupids , ohio single , russian dating agencies , sex logs , usa match , uk singles chart , dating rules , women with beards , adult sex chats , dating rules for teens , american singles sites , south american singles , porn video , women with short hair , porno date , billboard singles , singles personals , men meet women , american sites , teen dating questions , singles women , sex dates , teens dating older , great expectations , chinese dating , meet married women , prom date porn , love dating , usa single chart , woman with horse , 8 simple rules for dating my teenage daughters , beast dating , now singles , seeking a woman , teen dating and violence , sex with mature women , dating agency ireland , meet christian women , teens online dating , singles kontakte , american speed , new york match maker , catholic dating , women seeking american men , partnersuche singles , women with big butts , matchmaking , cd cover singles , beautiful women , married women sex , 8 simple rules for dating my teenage daughter episode , up to date porn , amerika single , women with hairy armpits , dating sex personals , date of new york , woman having sex with a horse , dating agency , teenage dating statistics , matchdoctor dating , women seeking husbands , cleveland personals , clips date , chatsex , old women with big tits , merced craigslist women seeking men , singles in new york , meet women online , speed dating new york city , matchmaking agency , hiv dating , singles agency , meet beautiful women , chats prono , miami dating , wedding agency , 8 rules to dating my teenage daughter , women with facial hair , sex bots , christian dating agencies , sex with black women , nude women , teen dating rules , woman seeking younger man , top 40 usa singles , seeking a women , women seeking sex , women with hair , new york concert dates , american single personals , amerikanische singles , dating and new york , flirt with women , matchmaking personals , connecting singles , shemale porn , erotic date , speed dating in new york , latin women seeking men , new york date , usa billboard singles , sex cam chats , teen dating quizzes , book of matches , online dating matchmaking , woman with animal , safe teen dating , sex dating , asian matchmaking , carbon dating , match personals , dating service new york , american personals , chats sexi , chatting females , wedding agencies , meet single girls , teen advice , dating web sites , woman looking for man , american sex , meet single women , guide to teenage dating , in love with a married woman , simple rules for dating my teenage daughters , married women seeking married men , jewish singles , women with huge breasts , sex uk , single usa , cheap phone sex , new york matchmaker , sim dating games , porn mpg , woman seeking man for sex , sex lines , porn stories , porn preview , usa singels , dates in new york , married women for sex , meet sexy women , ohio personals , older woman seeking younger man , live web cam , interracial matchmaking , women with dicks , russian dating agency , speed dating new york , hot married women , marriage agency romania , women fun , usa greatest hits , easy date porn , women seeking men in delhi , akron ohio dating , bbw dating , gay speed dating new york , matchmaking horoscopes , ohio dating laws , professional abuse , teen dating forums , american date , hitsville usa the motown singles collection , meet foreign women , asian date , wealthy women seeking men , great expectations dating agency , livesex , asian sex , teenage girl dating , tour dates new york , xxx webcams , eight simple rules for dating my teenage daughter , young porn , singles amerika , single women in usa , craigslist personals new york , games with naked women , women sites , mature dating , teen dating parents , how to meet married women , singles kontaktanzeigen , meet muslim women , teen dating guide , women seeking couple , women with big pussy , sexy ladies , teen dating violence stories , meet mature women , women with Tag: ldap security in a script Tag: 209767
 - 7
 - Get Operating System for all Computers in the Forest. Can anyone tell me why the "operatingSystem" field doesn't return anything, but using ADSI Edit there is a value. Please note there is no errors in the script when run. Many Thanks, SRT Code: commonNamePart = "*" Set objRootDSE = GetObject("LDAP://rootDSE") strRootAdsPath = "GC://" & objRootDSE.Get("rootDomainNamingContext") Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 500 objCommand.CommandText = "<" & strRootAdsPath & ">;(&(objectCategory=computer)(cn=" & commonNamePart & "))" & ";operatingSystem,name;subtree" Set objRecordSet = objCommand.Execute If objRecordSet.EOF Then WScript.Echo "No Computer found with that name" Else WScript.Echo "Computer Name" & vbTab & "OS" Do Until objRecordset.EOF Wscript.Echo objRecordset.Fields("name") & vbTab & objRecordset.Fields("operatingSystem") objRecordset.MoveNext Loop End If objConnection.Close Tag: ldap security in a script Tag: 209765
 - 8
 - vbscript editors hi all, what editor would you recommend to write vbscript code (apart form notepad)? thanks a lot Tag: ldap security in a script Tag: 209750
 - 9
 - VBS Script/WMI results different in Windows PE 1.6 vs. Windows PE 2.0 I'm writing a small WMI script to return some information about the physical disks on a desktop. The script is to be called while Windows PE is running. Both versions of PE should support WMI, however, I'm getting different results depending on which version of PE I run the code under. I'm especially interested in getting the results for the value of InterfaceType. Under Windows PE 1.6, the value is Null and under Windows PE 2.0 the value is either IDE or USB (the correct values). All other values are returned normally. I read that Windows PE 2.0 does have expanded capabilities on what is available via WMI. I was just wondering if others had seen similar behavior or if there was a way to determine if the InterfaceType would ever be available under PE 1.6? Here is the script: *************** Sub ListDiskDriveInfo( strComputer ) Dim objWMIService, colItems Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48) For Each objItem in colItems If objItem.InterfaceType <> "USB" then If objItem.MediaType = "Fixed hard disk media" then Wscript.Echo "Description: " & objItem.Description Wscript.Echo "DeviceID: " & objItem.DeviceID Wscript.Echo "Index: " & objItem.Index GIndex = objItem.Index + 1 Wscript.Echo "Ghost Index: " & GIndex Wscript.Echo "InterfaceType: " & objItem.InterfaceType Wscript.Echo "MediaType: " & objItem.MediaType Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Partitions: " & objItem.Partitions Wscript.Echo "Size: " & objItem.Size Wscript.Echo "Status: " & objItem.Status Wscript.Echo "SystemName: " & objItem.SystemName Wscript.Echo "********************* " End If End If Next End Sub ' **************************************************************************** ' Main ' **************************************************************************** Dim strComputer '* Do '* strComputer = inputbox( "Please enter a computername or . for local computer", "Input" ) '* Loop until strComputer <> "" strComputer = "." ListDiskDriveInfo( strComputer ) ************** Tag: ldap security in a script Tag: 209746
 - 10
 - regex backreferance question I thought I was creating backreferances in this string " System Serial Number: 1036358 (oldwlrfsr200" with RegEx.Pattern = "(System Serial Number):(.*)\s(\(.*\))" I expected three MATCH items but the match was the whole string. I thought this would have created three matches, what happened? If I can create three matches from this string, how can I referance a match directly? Tag: ldap security in a script Tag: 209737
 - 11
 - Improving my script I have this test script: Option Explicit Dim sComputer, oWMIService, xServices, item sComputer = "." Set oWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set xServices = oWMIService.ExecQuery("Select * from Win32_Service Where Caption='Alerter' AND State='Stopped'") For Each item In xServices If item.Caption = "Alerter" Then WScript.Echo "Doing some action because Alerter is stopped." End If Next Is there a way to determine if xServices is empty or not without using a For Each loop? For instance, if the Alerter service is started, the example script above should not have any items in the xServices collection. (btw, is xServices a collection or an object?) Thanks, Gill Tag: ldap security in a script Tag: 209736
 - 12
 - launching QuickTime I've been trying to figure out how to do this for a couple of days and I'm stumped. I'm trying to open up a QuickTime file and extract all the metadata from it (duration, size, etc.) I know this is possible, but I haven't seen anything in my searching about HOW to do it. Any help would be greatly appreciated. Brian Tag: ldap security in a script Tag: 209730
 - 13
 - Using and Array in an HTA I've taken one of my vbscripts that pre-creates computer accounts in the proper OU and threw it into an HTA. The script works quite well, but I'd like to make the domain selection drop down more dynamic. I've managed to get a list of the root domain and all it's child domains, but I need to filter out some duplicates before it goes into the drop down. What I've done is put all the data into an array and used the following code to filter out duplicates: Do Until objRecordSet.EOF strdnsRoot = join(objRecordSet.Fields("dnsRoot").Value) If objDictionary.Exists(strdnsRoot) Then objDictionary.Add strdnsRoot, strdnsRoot End If objRecordSet.MoveNext Loop The code works as it's suppose to, but when I try and dump it into the dropdown, nothing happens. For Each strKeys in objDictionary.Keys ServerSuccess.innerHTML = strKeys Next If I dump this in a standard vbscript and use wscript.echo to output the data it works properly. Am I missing something? Thanks. Tag: ldap security in a script Tag: 209729
 - 14
 - CopyHere keeps asking for overwrite confirmation Hello, I have a problem already addressed unsuccessfully in this newsgroup, but I'll try anyway. The following script (derived from another script published in this group) is supposed to extract a ZIP file to a temp folder and run a predefined installer, but the CopyHere method seems to ignore the FOF_NOCONFIRMATION and/or FOF_NOCONFIRMDIRCREATE options (in the last part of the script), as the file overwrite confirmation dialog keeps appearing. Could it be that CopyHere is fooled by the use of the Items method to enumerate the contents of the zip file? I'm looking for alternative solutions, but I cannot make use of any plugin, like a Winzip command line utility. Thank you, /_urka Option Explicit Dim WshShell, FS, SA, TempFolder, FilesInZip, PathToZipFile Const ZipFile = "\zipfile.zip" Const FileToRun = "installer.vbe" Const Params = "/S /L" Const Dest = "\whatever" Const FOF_NOCONFIRMATION = 16 Const FOF_NOCONFIRMDIRCREATE = 512 '=================================================================== 'Retrieves the current directory to create the full path to zip file '=================================================================== Set WshShell = CreateObject("WScript.Shell") PathToZipFile = WshShell.CurrentDirectory & ZipFile WScript.Echo "The zip file is in " & PathToZipFile & VBCRLF _ & "Click OK to proceed with the installation" '================================================== 'Creates a folder to extract the zip contents into '================================================== Set FS = CreateObject("Scripting.FileSystemObject") TempFolder = FS.GetSpecialFolder(2) & Dest If FS.FolderExists(TempFolder) = False Then FS.CreateFolder(FS.GetSpecialFolder(2) & Dest) End If '========================================================================== 'Extracts the zip contents into TempFolder overwriting without confirmation 'and launches the installer with the assigned parameters '========================================================================== Set SA = CreateObject("Shell.Application") Set FilesInZip = SA.NameSpace(PathToZipFile).Items SA.NameSpace(TempFolder).CopyHere FilesInZip, FOF_NOCONFIRMATION + FOF_NOCONFIRMDIRCREATE SA.ShellExecute FileToRun, Params, TempFolder Tag: ldap security in a script Tag: 209724
 - 15
 - WSH 5.6 downloads are back... WSH 5.6 downloads are back... Windows Script 5.6 for Windows XP and Windows 2000 / Windows Server 2003 Download details: Windows Script 5.6 for Windows XP and Windows 2000 <http://www.microsoft.com/downloads/details.aspx?familyid=c717d943-7e4b-4622-86eb-95a22b832caa&displaylang=en&tm> Download details: Windows Script 5.6 for Windows Server 2003 <http://www.microsoft.com/downloads/details.aspx?familyid=887fce82-e3f5-4289-a5e3-6cbb818623aa&displaylang=en&tm> -- Michael Harris MVP - Windows Server Admin Frameworks Tag: ldap security in a script Tag: 209706
 - 16
 - re: the 'switch to' message I am using VBScript to allow a program to pass data to Excel. Once the data is passed, the program re-opens the workbook which it has passed the data to in order to analyse. At certain stages during the running of the script, the following 'Server Busy' message appears: "This action cannot be performed because the other program is busy. Choose 'switch to' to activate the program and correct the program." I have been advised to use the 'objExcel.DisplayAlerts = False' instruction but this appears not to be working. Why is this happening and is there a way to avoid it? It happens at some points at certain occasions, and at other points every time the program is run. -- Charles Dean Tag: ldap security in a script Tag: 209704
 - 17
 - Set the monitor to be always on How can I set a user's Power settings in particular making it so the Monitor is always on. I have tried using PowerCFG but that doesn't seem to work (IE it works on some workstations and not on others. I want to do this for a specific roaming user profile. Thanks Tag: ldap security in a script Tag: 209703
 - 18
 - Make folder with accompanying shortcut if possible Hi, In a vbs domain logon script I need to have a folder "C:\Transfer\"+%username% on the user's workstation created. If it already exists, the statement should throw no error message. Furthermore I would like to create a shortcut named 'My Transfers' on the user's desktop pointing to this newly created folder. ("C:\Transfer\"+%username%) How would I code this using vbs? Thanks a lot if someone has a minute ;-) regards jake Tag: ldap security in a script Tag: 209701
 - 19
 - output to a window that allows output text copy from hi all is there a way to send the output from a vbscrpt to a window or message box were i can copy/cut the output text from ? or is the only option writing output to a file? thanks Tag: ldap security in a script Tag: 209698
 - 20
 - VB to remotely set default printer Any ideas why I can't for the life of me get any code samples of any code whether VB or dos commands using rundll32, to remotely set a default printer on a Windows XP computer. I am using the code below: strComputer = "remotecomputername" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = 'PrinterName'") For Each objPrinter in colInstalledPrinters objPrinter.SetDefaultPrinter() Next but it simply executes silently and does NOT set the default printer on the remote machine. The values are not updated in this sample to show actual computer or printer names. All the samples I find on this function execute, but do not perform the required action on the remote PC. They work perfectly fine locally. So I guess my question is this even a supported function of VB and WMI to remotely set a default printer? Is this a limitation or by design issue where you just can't do that? And if so, does anyone have any suggestions on how to accomplish this. I am trying to script the deletion of local printers from Windows XP machines, the installation of new printer server based printer shares on Server 2003, and the selecting of a default printer. I have everything else working, but can't for the life of me get anything I try to remotely set a default printer. any help is greatly appreciated. Thanks Tag: ldap security in a script Tag: 209695
 - 21
 - File and folder auditing Hey Guys, I need to write a script that configures auditing of object access for the Everyone group: List Folder / Read Data Create Files / Write Data Delete Change Permissions Take Ownership for these files and folders Files %SYSTEMROOT%\SYSTEM32\CMD.EXE %SYSTEMROOT%\SYSTEM32\COMMAND.COM %SYSTEMROOT%\SYSTEM32\CSCRIPT.EXE Folders %SYSTEMROOT% %SYSTEMROOT%\CONFIG %SYSTEMROOT%\SYSTEM32 Anyone have any ideas? Tag: ldap security in a script Tag: 209691
 - 22
 - Permission Denied Errors - FileSystemObject I'm using the FSO object to manage the contents of a list box on a Custom Outlook Form. On occasion, I've gotten the 'Permission Denied' error when trying to save the contents or otherwise work with the text (*.txt) file involved as in copy and delete. Any ideas as to why? More importantly have any of you encountered the error as well? Exiting Outlook and restarting corrects the problem. Tag: ldap security in a script Tag: 209690
 - 23
 - Copy multiple files with a recordset Ok, I know how to pull information from a database with a record set, but I was wondering if you could actually copy multiple files with it. I'm trying to go through a series of folders that search for a reference number, but the file ext can be different and the file isn't always jut the ref number. examples: 12345.zip 12345.ba1 12345.bad 12345pan.zip etc. folders include prod proto hold I have a script that will go through and find just the .zip files... I'll post it incase anyone sees a easier fix. This script is still in it's infant stages so I haven't gone through and added everything it needs to do. Thanks On Error Resume Next Set objExplorer = WScript.CreateObject _ ("InternetExplorer.Application", "IE_") Set objShell=CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Dim strZippedFile ' The full path/filename of the file to unzip strCommandLine = "pspecs " & strONum strView = "c:\view\" objExplorer.Navigate "file:///C:\Scripts\dropdown.htm" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width = 250 objExplorer.Height = 175 objExplorer.Visible = 1 Do While (objExplorer.Document.Body.All.OKClicked.Value = "") Wscript.Sleep 250 Loop strType = objExplorer.Document.Body.All.OKClicked.Value strONum = objExplorer.Document.Body.All.fldOrderNum.Value objExplorer.Quit Wscript.Sleep 250 If strType = "Cancelled" Then Wscript.Quit End If If strONum = NULL Then wscript.echo "Order number required" Wscript.Quit End If ' ===================================================================== ' Locates file and copies it over ' ===================================================================== objShell.Run strCommandLine, 1, true if strType = "Production" then Dim strCopy, StrK, StrO, strcamb, strHold, strProd strCopy = "c:\view\" & strONum & ".zip" strK = "k:\prod\" & strONum & ".zip" strO = "o:\prod\" & strONum & ".zip" strcamb = "s:\cambak\prod\" & strONum & ".zip" strHold = "k:\hold\prod\" & strONum & ".zip" strProd = "o:\prod\" & intProd(strONum) & "\" & strONum & ".zip" wscript.echo strProd if objFSO.FileExists(strK) Then wscript.echo "Found in the K" objFSO.CopyFile strK, strCopy, true elseif objFSO.FileExists(strO) then wscript.echo "Found in the O" objFSO.CopyFile strO, strCopy, true elseif objFSO.FileExists(strcamb) then wscript.echo "Found in the CAMBAK" objFSO.CopyFile strcamb, strCopy, true elseif objFSO.FileExists(strHold) then wscript.echo "Found in the Hold" objFSO.CopyFile strHold, strCopy, true elseif objFSO.FileExists(strProd) then wscript.echo "Found in the " & intProd(strONum) objFSO.CopyFile strProd, strCopy, true else wscript.echo "File not found" End if else strCopy = strview & "P" & strONum & ".rel" strproto = "S:\MODEM\REL\P" & strONum & ".rel" objFSO.CopyFile strProto, strCopy, true wscript.echo "File Copied" end if strComLine2 = "c:\scripts\wzunzip c:\view\" & strONum & ".* c:\view" objShell.Run strComLine2, 1, true ' ===================================================================== ' End ' ===================================================================== Function intProd(ByVal intChar) Select Case TRUE Case intChar > 0 and intChar <= 5000 intProd = "01k-5k" Case intChar > 5001 and intChar <= 10000 intProd = "05k-10k" Case intChar > 10001 and intChar <= 15000 intProd = "10k-15k" Case intChar > 15001 and intChar <= 20000 intProd = "15k-20k" Case intChar > 20001 and intChar <= 25000 intProd = "20K-25k" Case intChar > 25001 and intChar <= 30000 intProd = "25k-30k" Case intChar > 30001 and intChar <= 35000 intProd = "30k-35k" Case intChar > 35001 and intChar <= 40000 intProd = "35k-40k" Case intChar > 40001 and intChar <= 45000 intProd = "40k-45k" Case intChar > 45001 and intChar <= 50000 intProd = "45k-50k" Case intChar > 50001 and intChar <= 55000 intProd = "50k-55k" Case intChar > 55001 and intChar <= 60000 intProd = "55k-60k" Case intChar > 60001 and intChar <= 65000 intProd = "60k-65k" Case intChar > 65001 and intChar <= 70000 intProd = "65k-70k" Case intChar > 70001 and intChar <= 75000 intProd = "70k-75k" Case intChar > 75001 and intChar <= 80000 intProd = "75k-80k" Case intChar > 80001 and intChar <= 85000 intProd = "80k-85k" Case intChar > 85001 and intChar <= 90000 intProd = "85k-90k" Case intChar > 90001 and intChar <= 95000 intProd = "90k-95k" Case intChar > 95001 and intChar <= 100000 intProd = "95k-100k" Case Else intProd = "100K" End Select End Function Tag: ldap security in a script Tag: 209688
 - 24
 - REPOST INFO ONLY: Running a VBS elevated under Vista with UAC enabled Hi, this is an old message I posted in microsoft.public.scripting.wsh on March 2nd, 2007. I repost here because some people asked me about this problem. Hope you'll find it useful. By the way, now there's also a different solution from MS guys: http://www.microsoft.com/technet/technetmag/issues/2007/06/UtilitySpotlight/default.aspx Massimo. ------ ORIGINAL POST FOLLOWS -------- Hi. I think that your problem is due to the fact that you need elevated privilege to execute certain tasks. This is quite easy if you develop a program in Visual Studio .NET. In this way you can add a manifest to you project is order to have it running with elevated privileges (user just been asked to confirm elevation of privileges). Unfortunately Microsoft says this is theoretically impossible for VBS. Fortunately this is not completely true. I spent several days fighting with UAC, and it's a pleasure to share my findings with others. I was able to run VBS in elevated privilege mode with a couple of tricks: 1) If you right click an EXE file, you see "Run as Administrator", if you right click a VBS file not. SOLUTION: create a file named VBS.REG and copy the following on it: ------- copy below ------- Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\VBSFile\Shell\runas] [HKEY_CLASSES_ROOT\VBSFile\Shell\runas\command] @="C:\\Windows\\system32\\WScript.exe \"%1\" %*" "IsolatedCommand"="C:\\Windows\\system32\\WScript.exe \"%1\" %*" ------- copy end ------- Double click VBS.REG and apply to registry. Now you have "Run as Administrator" right clicking a VBS. 2) To avoid user having to right click the VBS each time, you can run it as administrator from an other VBS (that don't need to run as administrator). If you need to run C:\MYVBS.VBS as administrator, create a script RUNME.VBS like this: Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace("C:\") Set objFolderItem = objFolder.ParseName("MYVBS.VBS") objFolderItem.InvokeVerb "runas" Now just doubleclick RUNME.VBS. It'll ask user to confirm elevation of privileges, and then run C:\MYVBS.VBS elevated. Massimo. Tag: ldap security in a script Tag: 209682
 - 25
 - how to call a web service without using soap toolkit Reading from Microsoft they say that the soap toolkit is no longer supported, and on top of that it seems to be very touchy and hard to troubleshoot. I want to find a new way of consuming a asp.net web service from vbs script. does any one know how to call a web service from vbs or call a .net dll from vbs Tag: ldap security in a script Tag: 209680
- Next
 - 1
 - code for silent installing software using VBscript Hi, I need to create script to install ( .netframework2.0,MDAC2.7,XML4.0, VC++2005,Windows installer services3.0,OWC10.0)with silent installation through VBscript. the script should be able to check the previous registry entry,which machine do not have the particular version, then installation will start from my script with software folder.The executable script and softwares will be located on same folder. i have developed script.but problem is not able to find silent installation via vbscript.i have command line switches and it is working fine using cmd prompt.(standalone machine).But using script does not support the same command line. i will send my script and command line details. Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") Set objNetWork = WScript.CreateObject("WScript.Network") strComputer = "." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\default:StdRegProv") Computername= objNetWork.computername strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys blnVcplus = false blnOWC = false blnDotnet = false 'blnXml = false For Each subkey In arrSubKeys Select case subKey 'For VC++ case "{A49F249F-0C91-497F-86DF-B2585E8E76B7}" blnVcplus = true 'For OWC case "{90260409-6000-11D3-8CFE-0050048383C9}" blnOWC = true 'For Dotnet case "{7131646D-CD3C-40F4-97B9-CD9E4E6262EF}" blnDotnet = true 'For Xml 'case "{716E0306-8318-4364-8B8F-0CC4E9376BAC}" 'blnXml = true end select next If blnVcplus = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\vc++""") End If If blnOwc = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\owc10. exe""") End If If blnDotnet = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\dotnet""") End If 'If blnDotXML = false Then 'RunInstaller("""C:\Documents and Settings\134520\Desktop\working\XML""") 'End If set arrSubKeys=nothing Function RunInstaller(installerPath) Dim fso, sh, r, s, pe,wshshell Set fso = CreateObject("Scripting.FileSystemObject") Set wshShell = WScript.CreateObject ("WSCript.shell") wshshell.run """C:\Documents and Settings\134520\Desktop\working\WindowsInstaller.exe""", 6, false wshshell.run installerPath, 6, false set wshshell = nothing End Function Command line switches for my pre-requisites. .net2.0 - dotnetfx.exe /q:a /c:"Install /q" vc++ "VCREDI~1.EXE" /q:a /c:"msiexec /i vcredist.msi /qb!" OWC10 owc10.exe /q:a /c:"msiexec /i owc10se.msi /qb!" xml4.0 msiexec /i msxml4.msi /qn kindly please provide your solution. thanks, N.senthil Tag: ldap security in a script Tag: 209679
 - 2
 - code for silent installing software using VBscript Hi, I need to create script to install ( .netframework2.0,MDAC2.7,XML4.0, VC++2005,Windows installer services3.0,OWC10.0)with silent installation through VBscript. the script should be able to check the previous registry entry,which machine do not have the particular version, then installation will start from my script with software folder.The executable script and softwares will be located on same folder. i have developed script.but problem is not able to find silent installation via vbscript.i have command line switches and it is working fine using cmd prompt.(standalone machine).But using script does not support the same command line. i will send my script and command line details. Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") Set objNetWork = WScript.CreateObject("WScript.Network") strComputer = "." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\default:StdRegProv") Computername= objNetWork.computername strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys blnVcplus = false blnOWC = false blnDotnet = false 'blnXml = false For Each subkey In arrSubKeys Select case subKey 'For VC++ case "{A49F249F-0C91-497F-86DF-B2585E8E76B7}" blnVcplus = true 'For OWC case "{90260409-6000-11D3-8CFE-0050048383C9}" blnOWC = true 'For Dotnet case "{7131646D-CD3C-40F4-97B9-CD9E4E6262EF}" blnDotnet = true 'For Xml 'case "{716E0306-8318-4364-8B8F-0CC4E9376BAC}" 'blnXml = true end select next If blnVcplus = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\vc++""") End If If blnOwc = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\owc10. exe""") End If If blnDotnet = false Then RunInstaller("""C:\Documents and Settings\134520\Desktop\working\dotnet""") End If 'If blnDotXML = false Then 'RunInstaller("""C:\Documents and Settings\134520\Desktop\working\XML""") 'End If set arrSubKeys=nothing Function RunInstaller(installerPath) Dim fso, sh, r, s, pe,wshshell Set fso = CreateObject("Scripting.FileSystemObject") Set wshShell = WScript.CreateObject ("WSCript.shell") wshshell.run """C:\Documents and Settings\134520\Desktop\working\WindowsInstaller.exe""", 6, false wshshell.run installerPath, 6, false set wshshell = nothing End Function Command line switches for my pre-requisites. .net2.0 - dotnetfx.exe /q:a /c:"Install /q" vc++ "VCREDI~1.EXE" /q:a /c:"msiexec /i vcredist.msi /qb!" OWC10 owc10.exe /q:a /c:"msiexec /i owc10se.msi /qb!" xml4.0 msiexec /i msxml4.msi /qn kindly please provide your solution. thanks, N.senthil Tag: ldap security in a script Tag: 209678
 - 3
 - NET SEND Hi, Does anyone know of a simple VB Script for using Net Send on a Windows XP network. I would like to be able to Net Send either a UserName, IPAddress or ComputerName via an Input Box. The message to send would always be the same "Please ring Gazza on ......... in regards your Computer problem" Regards, Gazza Tag: ldap security in a script Tag: 209675
 - 4
 - Failing to connec tto run script NTLMLogin resulted in hr = 0x8004 Please help :( I have no problem running the script from the local machine, but when I try to run it on a remote computer I get a listing of the eventlog types and nothign else. A look trhough the wmi logs found this error; NTLMLogin resulted in hr = 0x8004100e **************** Set objWMIService = GetObject("winmgmts:\\" & REMOTE_SERVER & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Security'") For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog("c:\scripts\Security.evt") If errBackupLog <> 0 Then Wscript.Echo "The Security event log could not be backed up." Else objLogFile.ClearEventLog() End If Next Tag: ldap security in a script Tag: 209667
 - 5
 - Script retuning error on remote machine I have the following script. I works fine for the local machine, but when I try to run it on a remote system, it is failing with; NTLMLogin resulted in hr = 0x8004100e I am completely lost, please help :( strComputer = "REMOTE_COMPUTER" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Backup)}!\\" & _ strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile where LogFileName='Application'") For Each objLogfile in colLogFiles errBackupLog = objLogFile.BackupEventLog("c:\scripts\application.evt") If errBackupLog <> 0 Then Wscript.Echo "The Application event log could not be backed up." Else objLogFile.ClearEventLog() End If Next Tag: ldap security in a script Tag: 209662
 - 6
 - Is it possible to have my CD-Rom load via a script. (Close the CD Tray) I have the following script, that is awesome thanks to this group: **************************************************************************** Const FOF_CREATEPROGRESSDLG = &H0& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace("I:\") objFolder.CopyHere "K:\*.*", FOF_CREATEPROGRESSDLG CreateObject("Shell.Application").Namespace(17).ParseName("K: \").InvokeVerb("E&ject") **************************************************************************** The only thing I would like it to do in addition is to load the CD I place in the tray, so I don't have to push the tray or button on the CD drive itself, is this possible via a script? Any ideas. Tag: ldap security in a script Tag: 209629
 - 7
 - How can i read a XML This is a multi-part message in MIME format. ------=_NextPart_000_000A_01C7EA67.3955E4D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello everyone, Can anybody help me with a script, that read XML , i want read the NAME = en Value from this xml. This is a example - <Policies CustomOnly=3D"0"> - <Policy SoftwareID=3D"EPOAGENT3000"> <Setting Section=3D"VersionControl" Name=3D"Version" Value=3D"Tue, 28 = Aug 2007 14:19:34 UTC" />=20 <Setting Section=3D"UpdateOptions" Name=3D"bAllowDATDowngrade" = Value=3D"0" />=20 <Setting Section=3D"UpdateOptions" Name=3D"szLogFileName" Value=3D"" = />=20 <Setting Section=3D"UpdateOptions" Name=3D"szRunAfterUpdateEXE" = Value=3D"" />=20 <Setting Section=3D"UpdateOptions" Name=3D"bRunIfUpdateSuccess" = Value=3D"1" />=20 <Setting Section=3D"SiteList" Name=3D"uiNumberOfSites" Value=3D"0" />=20 Thanks Rob ------=_NextPart_000_000A_01C7EA67.3955E4D0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.3059" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV>Hello everyone,</DIV> <DIV> </DIV> <DIV>Can anybody help me with a script, that = read XML ,=20 i want read the NAME en Value from this xml.</DIV> <DIV> </DIV> <DIV> </DIV> <DIV>This is a example</DIV> <DIV> </DIV> <DIV> <DIV class=3Dc style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A = class=3Db onfocus=3Dh()=20 onclick=3D"return false"=20 href=3D"file:///I:/Policiechecker/cgingiepoagent.xml#"><FONT=20 face=3D"Courier New" color=3D#ff0000>-</A> <FONT=20 color=3D#0000ff><<SPAN=20 class=3Dt>Policies CustomOnly<SPAN=20 class=3Dm>=3D"0<SPAN=20 class=3Dm>"></DIV> <DIV> <DIV class=3De> <DIV class=3Dc style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A = class=3Db onfocus=3Dh()=20 onclick=3D"return false"=20 href=3D"file:///I:/Policiechecker/cgingiepoagent.xml#"><FONT=20 face=3D"Courier New" color=3D#ff0000>-</A> <FONT=20 color=3D#0000ff><<SPAN=20 class=3Dt>Policy SoftwareID<FONT=20 color=3D#0000ff>=3D"EPOAGENT3000<SPAN=20 class=3Dm>"></DIV> <DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"VersionControl<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"Version<FONT=20 color=3D#0000ff>"=20 Value=3D"Tue, 28=20 Aug 2007 14:19:34 UTC"<SPAN=20 class=3Dm> /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"bAllowDATDowngrade<FONT=20 color=3D#0000ff>"=20 Value<FONT=20 color=3D#0000ff>=3D"0<SPAN=20 class=3Dm>" /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"szLogFileName<FONT=20 color=3D#0000ff>"=20 Value=3D"<SPAN=20 class=3Dm>" /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"szRunAfterUpdateEXE<FONT=20 color=3D#0000ff>"=20 Value=3D"<SPAN=20 class=3Dm>" /> </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"UpdateOptions<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"bRunIfUpdateSuccess<FONT=20 color=3D#0000ff>"=20 Value=3D"1<FONT=20 color=3D#0000ff>" = />=20 </DIV></DIV> <DIV class=3De> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 face=3D"Courier New" color=3D#ff0000>  <<FONT=20 color=3D#990000>Setting <FONT=20 color=3D#990000>Section<FONT=20 color=3D#0000ff>=3D"SiteList<FONT=20 color=3D#0000ff>"=20 Name<FONT=20 color=3D#0000ff>=3D"uiNumberOfSites<FONT=20 color=3D#0000ff>"=20 Value<FONT=20 color=3D#0000ff>=3D"0<SPAN=20 class=3Dm>" /> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff>Thanks</DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><FONT=20 color=3D#0000ff> </DIV> <DIV style=3D"MARGIN-LEFT: 1em; TEXT-INDENT: -2em">Rob=20 </DIV></DIV></DIV></DIV></DIV></DIV></BODY></HTML> ------=_NextPart_000_000A_01C7EA67.3955E4D0-- Tag: ldap security in a script Tag: 209628
 - 8
 - Vista "Junction Point" Issue Hey Scripting Guys ! I have an issue with a script I made for calculating â??documentsâ?? folder size. Itâ??s OK on XP but on all VISTA systems itâ??s not working. I get a â??permission deniedâ?? Here is my (simple) script. Set objFSO = CreateObject("Scripting.FileSystemObject") Set MyDspace = objFSO.GetFolder("C:\Users\My_Name\Documents") IntSpace1 = MyDspace.Size Wscript.echo IntSpace1 I get a â??permission deniedâ?? error when I launch it. I know why but I donâ??t how to solve itâ?¦ The error is related to â??My Picturesâ??, â??My Musicâ?? and â??My Videosâ?? junction points located in the â??Documentsâ?? folder. How can my script calculate â??documentsâ?? folder size skipping those 3 junction points ? Thanks for your reply ! Tag: ldap security in a script Tag: 209624
 - 9
 - Excel Worksheets I am trying to have a script loop through a list of servers in a text file and output information for each server in one Excel file on seperate worksheets for each server. I am having trouble finding the info on how to do this. Right now the script I have is reading from the text file and opening a new excel instance and new file for each server. Any help is appreciated. Thank you. Tag: ldap security in a script Tag: 209620
 - 10
 - FileSystemObject versus Application (in the world series of love)* Does anyone know of any good documentation that discusses the pros/cons of using the FileSystemObject ("Scripting.FileSystemObject") versus the Application object ("Shell.Application") when it comes to file operations. *U Got the Look - Prince Tag: ldap security in a script Tag: 209618
 - 11
 - troubleshoot a script I need to know how to troubleshoot a script. I have a script that maps drives based on group membership. It runs for everyone but 3 users. I don't get any messages - drives just don't map. How can I troubleshoot where it is failing. Also I need to mention I did not write the script but picked it up and have limited knowledge of scripting. Thanks Bret Tag: ldap security in a script Tag: 209609
 - 12
 - I want to see some kind of progress notification for this script. I pieced together this script, though I am not a scripter, so please go easy on me. I have a few hundred CDs that I'm putting to a hard- drive and this script works great to do it with a single click and eject when done copying. However I would like to see how far along the copying is (like if you do a normal copy of a file with mouse in Windows XP), is there anyway to enable this, or rather what's the easiest way to enable this. ***************************************************************************************************** Const OverwriteExisting = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "K:\*.*" , "I:\" , OverwriteExisting CreateObject("Shell.Application").Namespace(17).ParseName("K: \").InvokeVerb("E&ject") ***************************************************************************************************** Tag: ldap security in a script Tag: 209607
 - 13
 - Using vbscript to format richtext generated email Below is a bit of code in our system that has a button assigned to it, once clicked this lil dude creates a richtext email in outlook and fills it in. What I would like to do, is use some html formatting (bold) for the field captions and add a weblink - Can anyone help a poor blokey in distress? Thanks :) sub SendEmail(strEmail) strSubject = "Support Call Update" strBody = "I.T. Department have updated your Support Call (Ref: " & document.form1.ID.value & ")%0A%0A" strBody = strBody & "Reported Issue:%0A" & document.form1.Problem.value & "%0A%0A" strBody = strBody & "Assigned:%0A" & document.form1.Assigned_To.value & "%0A%0A" strBody = strBody & "Status:%0A" & document.form1.Status.value & "%0A %0A" strBody = strBody & "Comment:%0A" & document.form1.Resolution.value & "%0A%0A" strEmail = "mailto:" & strEmail & "?subject=" & strSubject & "&body=" &strBody window.open strEmail end sub Tag: ldap security in a script Tag: 209603
 - 14
 - Rename mapped drive name.. Hi, In my logon script I have among other: wshnetwork.mapnetworkdrive "z:","\\gold\dl" This creates a mapped drive name at the workstations named 'dl on gold (Z:)' How can I in my vbs script rename the newly created 'dl on gold (Z:)' mapped drive name at the workstation to something more intuitive, like 'Downloads (Z:)' Thanks for tips on this Jake Tag: ldap security in a script Tag: 209600
 - 15
 - How to call .dll functions ? Hello Is there a way to call functions in a .dll from VBScript ? If not is there a component that will do it if I can describe a given function in a given dll. That is a component to whom I could tell that my function has one string argument and 2 integer arguments, and it could call it passing the arguments I describe. Thank you Adrian Constantin, Romania. Tag: ldap security in a script Tag: 209598
 - 16
 - How to delete a printer already disconnected... Hi, I already changed the names of the shared printers in the servers, and then using a vbs script wanted to remove the old connection and create the new one. The creation doesnt have any problem, but I cannot delete the old connection. Its status is 'Printer not found in the server, unabel to connect'. Set WshNetwork = CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections WScript.Echo "Network printer mappings:" For i = 0 to oPrinters.Count - 1 Step 2 WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) ' Here I could remove the printer checking the name and using RemovePrinterConnection but the disconnected printer dont appear in this object. Next I cannot find the way to point to the list of disconnected printers... could you help me with that? Thanks in advance. Jose Tag: ldap security in a script Tag: 209594
 - 17
 - Copying Files Using Wildcards for the Extension Is it possible to use a statement such as [object].CopyFile "C:\templateInformation.*", "C:\(copy) templateInformation.*" where multiple file names exist with the name 'templateInformation' but with different file extension as in templateInformation.txt, templateInformation.flds, templateInformation.atch? I need to be able to create copies of multiple files with the same name, but differing extensions and have the copies exist in the same folder as the originals. Tag: ldap security in a script Tag: 209591
 - 18
 - objects in subpricedures hi all are objects and their methods available to all subprocedures in a script? if i bind/instantiate to an object in the main body of the script can i then use its methods within subprocs? i get errors if i try doing that ths\ Tag: ldap security in a script Tag: 209585
 - 19
 - Terminal Services profile Below is the part of my code UserfullDn = "cn=Spiderman,ou=ORGUnit,dc=domain,dc=com' Set objUser1 = GetObject("LDAP://"& UserfullDN) objUser1.TerminalServicesProfilePath = "%TSPROFILE%" objUser1.TerminalServicesHomeDirectory = "\\Share\UserHome\%username%" objUser1.TerminalServicesHomeDrive = "O:" objUser1.AllowLogon = 1 objUser1.setInfo Everything works like a charm, the properties get set on the users profile etc BUT The user's directory(\\Share\UserHome\spiderman) is not created on the home share, whereas when you manually put this entry on the user's profile using ad user and computers and hit apply/ok, the directory gets created with appropriate permissions. I even tried changing the following line objUser1.TerminalServicesHomeDirectory = "\\Share\UserHome\%username %" to objUser1.TerminalServicesHomeDirectory = "\\Share\UserHome\" & "Spiderman" What am i doing wrong or am I missing something?? Any help is highly apprciated. Thanks Gaurav Tag: ldap security in a script Tag: 209584
 - 20
 - DOS command in VB script I am trying to run DOS command net user administrator newpassword in a vb script. Is this possible? Or is it possible to run a bat script from vb script that would do the same thing? OS is Windows XP SP2. Thanks! Tag: ldap security in a script Tag: 209578
 - 21
 - need to convert samAccountName to displayName Hey everyone, I'm looking for a script that will pull the current logged on user info from a machine and then check it against AD to pull the Display Name of the user. Any ideas? Thanks! Tag: ldap security in a script Tag: 209574
 - 22
 - Groups in AD Hello All! A short question, I would like to know all the groups in my AD User and Computer console, and the members in the groups, which OU the group belongs to , has access to which folders. How to achieve that in VBScript. Thanks a lot and have a nice day! Sincerely, Ben Tag: ldap security in a script Tag: 209571
 - 23
 - help with double quotes please We "borrowed" code from someone to deliver shortcut icons to the desktop. We are trying to have users go to the root of the drive, but cannot do it successfully. We are trying to do the following appear in the shortcut "C:\windows\explorer.exe" /root, \\servername\share This is supposed to appear in the target set objShell = WScript.CreateObject("WScript.Shell") strDesktop = objShell.SpecialFolders("Desktop") set oShellLink = objShell.CreateShortcut(strDesktop & "\Netapps.lnk") oShellLink.TargetPath = &chr(34)& "C:\windows\explorer.exe" /Root, \ \servername\share &chr(34)& oShellLink.WindowStyle = 1 oShellLink.IconLocation = "explorer.exe, 1" oShellLink.Description = "Network Applications" oShellLink.Save Set objShell = Nothing Set oShellLink = Nothing Any help would be appreciated. Thanks. Tag: ldap security in a script Tag: 209570
 - 24
 - ogin script to disconnect all curent drives then map new drives Hi folks. This is the current log in script that I'm using fro my infrsastructure. It is supposed to map drives based upon location as well as disconnect and remap drives every boot. The reason for the disconnect and remap is that I have several people that go out on audits ( outside the company ) and need to map specific drives to the local resources of what ever location they are at. As soon as they get back into the office this script is supposed to disconnect whatever they have mapped and then remap the drives based on what branch office they are at. Problem is its not disconnecting the manually mapped drives. Heres the script, please let me know what I'm doing wrong. Thanks Mik ---------------------------------------------------------------------------------------- Option Explicit Dim objNetwork, objShell, objEnv, strServer Set objNetwork = CreateObject("Wscript.Network") Set objShell = CreateObject("Wscript.Shell") Set objEnv = objShell.Environment("process") strServer = objEnv("LOGONSERVER") Select Case LCase(strServer) Case "\\server1" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server1\netapps" objNetwork.MapNetworkDrive "K:", "\\server1\home" objNetwork.MapNetworkDrive "L:", "\\server1\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server1\netapps" objNetwork.MapNetworkDrive "K:", "\\server1\home" objNetwork.MapNetworkDrive "L:", "\\server1\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server2" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server2\netapps" objNetwork.MapNetworkDrive "K:", "\\server2\home" objNetwork.MapNetworkDrive "L:", "\\server2\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server2\netapps" objNetwork.MapNetworkDrive "K:", "\\server2\home" objNetwork.MapNetworkDrive "L:", "\\server2\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server3" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server3\netapps" objNetwork.MapNetworkDrive "K:", "\\server3\home" objNetwork.MapNetworkDrive "L:", "\\server3\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server3\netapps" objNetwork.MapNetworkDrive "K:", "\\server3\home" objNetwork.MapNetworkDrive "L:", "\\server3\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server4" On Error Resume Next objNetwork.MapNetworkDrive "g:", "\\server4\netapps" objNetwork.MapNetworkDrive "J:", "\\server4\netapps" objNetwork.MapNetworkDrive "K:", "\\server4\home" objNetwork.MapNetworkDrive "L:", "\\server4\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "g:", True, True objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "g:", "\\server4\netapps" objNetwork.MapNetworkDrive "j:", "\\server4\netapps" objNetwork.MapNetworkDrive "K:", "\\server4\home" objNetwork.MapNetworkDrive "L:", "\\server4\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server5" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server5\netapps" objNetwork.MapNetworkDrive "K:", "\\server5\home" objNetwork.MapNetworkDrive "L:", "\\server5\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server5\netapps" objNetwork.MapNetworkDrive "K:", "\\server5\home" objNetwork.MapNetworkDrive "L:", "\\server5\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server6" On Error Resume Next objNetwork.MapNetworkDrive "g:", "\\server6\netapps" objNetwork.MapNetworkDrive "J:", "\\server6\netapps" objNetwork.MapNetworkDrive "K:", "\\server6\home" objNetwork.MapNetworkDrive "L:", "\\server6\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "g:", True, True objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "g:", "\\server6\netapps" objNetwork.MapNetworkDrive "j:", "\\server6\netapps" objNetwork.MapNetworkDrive "K:", "\\server6\home" objNetwork.MapNetworkDrive "L:", "\\server6\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server7" On Error Resume Next objNetwork.MapNetworkDrive "J:", "\\server7\netapps" objNetwork.MapNetworkDrive "K:", "\\server7\home" objNetwork.MapNetworkDrive "L:", "\\server7\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "j:", "\\server7\netapps" objNetwork.MapNetworkDrive "K:", "\\server7\home" objNetwork.MapNetworkDrive "L:", "\\server7\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 Case "\\server8" On Error Resume Next objNetwork.MapNetworkDrive "g:", "\\server8\netapps" objNetwork.MapNetworkDrive "J:", "\\server8\netapps" objNetwork.MapNetworkDrive "K:", "\\server8\home" objNetwork.MapNetworkDrive "L:", "\\server8\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" If (Err.Number <> 0) Then On Error GoTo 0 objNetwork.RemoveNetworkDrive "g:", True, True objNetwork.RemoveNetworkDrive "j:", True, True objNetwork.RemoveNetworkDrive "k:", True, True objNetwork.RemoveNetworkDrive "l:", True, True objNetwork.RemoveNetworkDrive "t:", True, True objNetwork.MapNetworkDrive "g:", "\\server8\netapps" objNetwork.MapNetworkDrive "j:", "\\server8\netapps" objNetwork.MapNetworkDrive "K:", "\\server8\home" objNetwork.MapNetworkDrive "L:", "\\server8\tax" objNetwork.MapNetworkDrive "t:", "\\server1\WMSShare" End If On Error GoTo 0 End Select -------------------------------------------------------------------------------------------- Tag: ldap security in a script Tag: 209569
 - 25
 - Help with the following code please. The following code works fine on the local domain london.test.com but when I change the commented lines it no longer works, does anyone have an idea why? I know the passwords are correct for the USA domain and is the user is a member of the Domain Admins group. CODE: Const ADS_SCOPE_SUBTREE = 2 Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objOutputFile = objFileSystem.CreateTextFile("C:\Temp\Users.txt") Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" ' The following four line are commented out when connecting to the local domain 'objConnection.Properties("User ID") = "USA\Admin" 'objConnection.Properties("Password") = "Password" 'objConnection.Properties("Encrypt Password") = TRUE 'objConnection.Properties("ADSI Flag") = 3 objConnection.Open "Active Directory Provider" Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText = "Select Name, distinguishedName from 'LDAP://DC=London,DC=test,DC=com'" & "Where objectClass='user'" ' Local and works 'objCommand.CommandText = "Select Name, distinguishedName from 'LDAP://DC=USA,DC=test,DC=com'" & "Where objectClass='user'" ' USA domain not working objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst objOutputFile.Write "UserName" & vbTab & "AD Path" & vbCrLf Do Until objRecordSet.EOF objOutputFile.Write objRecordSet.Fields("Name").Value & vbTab & objRecordSet.Fields("distinguishedName") & vbCrLf objRecordSet.MoveNext Loop CODE ENDS: Tag: ldap security in a script Tag: 209561

I have script from the Microsoft site that reads info from AD to create an
OWA distibution list.
The script contains the line Set objGroup = GetObject("LDAP://CN=Finance
Users,OU=Finance,,DC=fabrikam,DC=com")
Authenticated users should have enough access to read this info from AD
shouldn't they?
Thanks, Jeremy

Top

Re: ldap security in a script by Al

Al
Tue Sep 04 22:38:06 PDT 2007

"Jeremy Schubert" <jscc-nospam@hotmail.com> wrote in message
news:00753728-07A3-421D-A94C-398DC421FA23@microsoft.com...
>I have script from the Microsoft site that reads info from AD to create an
>OWA distibution list.
> The script contains the line Set objGroup = GetObject("LDAP://CN=Finance
> Users,OU=Finance,,DC=fabrikam,DC=com")
> Authenticated users should have enough access to read this info from AD
> shouldn't they?

Yes. If you are having problems it could be regarding the creation of the
OWA dist list, which might require privs. Not using OWA, I have no idea if
this is the case, though.

/Al

Top