errReturn RUNAS and SendKeys

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
    - Checking for empty directory I've done a lot of unix shell scripting and awk/sed work but I'm new to the vbscript world. I need to create a script that checks a list of directories and reports which contain no files. In the following example, dir3, dir4 and dir5 are under dir2. The script should report if any of dir3,4, or 5 have no files in them. c:\dir\dir1\dir2 dir3 dir4 dir5 TIA. Larry Tag: errReturn RUNAS and SendKeys Tag: 180567
  - 2
    - local groups Good morning, 1- In a nutshell I am looking for a script that will permit me to itemize all the groups that are local to a specific computer and then enumerate the user which comprised each group. 2- I am also looking to find out how I can a) delete a local user group b) add an individual to a specific group c) remove an individual from a specific group Please note that active directory is not install on this computer/domain. Any help is appreciated including refences to good websites or examples. Thank you, Daniel Tag: errReturn RUNAS and SendKeys Tag: 180565
  - 3
    - deleta ALL network printers without knowing their names Hi there, I have a script that runs at logon in a computers OU (with loopback processing) -----shareprinter.vbs----------- Set WshNetwork =CreateObject("WScript.Network") PrinterPath ="\\servername\printershare" WshNetwork.AddWindowsPrinterConnection PrinterPath WshNetwork.SetDefaultPrinter PrinterPath ------------------------------ Now I know that I can use the following line to remove a specific printer: WshNetwork.RemovePrinterConnection (PrinterPath, true, true) But you have to know the printer name for this to work. Is there a line I can use to remove ALL network printers without specifying the name? Thanks for your help! Tag: errReturn RUNAS and SendKeys Tag: 180563
  - 4
    - ManagePC - An HTA for remotely managing PCs in a forest Hi all, I've written an HTA that can retrieve information on and allow you to manage any machine in a forest (assuming you have the rights of course!) The software uninstallation part is rudimentary but works well enough and, as yet, there's nothing you can do to the local users but I've had (mostly) positive feedback from the people that have used it. I thought it might get a wider audience here as well some good suggestions on how to improve it (and what bits of my code are shockingly poor!) The tool can be downloaded here :- http://users.pandora.be/mattwilliams/ManagePC/ManagePC1.3final.zip Tag: errReturn RUNAS and SendKeys Tag: 180561
  - 5
    - vbscript for texthandling WinXP Hi, I've some textfiles (Text.cfg) with a lot of sections (sectionA.1, sectionA.2, sectionA.3, sectionB1 and so on). Im only interested in the sectionA! Euch section have a headline like this: [sectionA.x] What I want to do: 1. Find out how many sections A are present in the Text.cfg. (Can vary between 1 and 20) 2. Copy the last section A to the end of the Text.cfg file 3. Rename the headline of the copied section to a new number (for example: If the Text.cfg has five sections A so I need the headline [sectionA.6] Thank you for your help Detlef Germany Tag: errReturn RUNAS and SendKeys Tag: 180559
  - 6
    - Drag folder onto script to get folder's path I'm a newbie to scripting, so please be gentle. I place the script below in my SendTo folder, and use it to get the full name + path of files, i.e., I right click the file and then select "send to", and then select the script below. The script puts the full name + path into the Windows clipboard. I can't figure out how to modify the script so that I could right click on a folder (instead of a file), in order to get the folder's path reported into the Windows clipboard. I'd appreciate any tips on: [1] how to modify the script, and [2] where I could find documentation that would show me how to modify the script / to give me more info to help me understand your answer about how to modify the script. Thanks, Marc ee poo Tag: errReturn RUNAS and SendKeys Tag: 180556
  - 7
    - C# Interview question help Hi All I am fresh college graduate who has done C and C++ during college times.After that i had done a C# course from one of our local computer institute.The course is BCM which ran for 1 year.But now when i am looking for job the questions asked in interview are really very very weird and does not match any where near to what my institute taught. My faculty has give me following links for preparation of interview http://www.geocities.com/dotnetinterviews/ http://www.techninterviews.com http://www.brainbench.com http://www.crackinterviews.com with that he has said to do small project which will make me confident. But i need a job soon and can not really wait to do dummy projects do you really think those upper links can be helpful in getting a job I am new comer so please excuse for asking in this way.Any good website for interview question please help me Tag: errReturn RUNAS and SendKeys Tag: 180549
  - 8
    - E-Mail Attachment Script Problem Hello everyone, and thank you in advance for any assistance you can provide with this query. I've been trying to put together a script which when run will create an e-mail message and attach all the files residing in a specific folder. However, currently I'm getting an error and was hoping for some insight and suggestions. The script looks like this .... Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olMailItem) Set fso = CreateObject("Scripting.FileSystemObject") Set myfolder = fso.GetFolder("C:\emailfolder\") Set myfiles = myfolder.files myItem.Subject = "This is the Subject" Set myRecipient = myItem.Recipients.Add("myemail@myemail.co.uk") Set myAttachments = myItem.Attachments For Each MyFile in MyFiles myAttachments.Add files(MyFile.Name), olByValue Next myItem.Display I get a scripting error on Line: 10, Char: 3, Error: Type mismatch: 'files' which I'm assuming is referring to the files(MyFile.Name) section of the script. I originally produced the script with just a single attachment and this was fine but upon inserting the code to look to add all the files in the 'emailfolder' location then the error appeared. Any suggestions would be most appreciated. Darren Hermes darreninwarrington at hotmail dot co dot uk Tag: errReturn RUNAS and SendKeys Tag: 180547
  - 9
    - file version If I run sigcheck.exe from the system internals site I get something like this: C:\> sigcheck %SystemRoot%\system32\notepad.exe Sigcheck v1.0 Copyright (C) 2004 Mark Russinovich Sysinternals - www.sysinternals.com C:\WINDOWS\system32\notepad.exe: Verified: Signed Signing date: 5:03 AM 8/4/2004 Publisher: Microsoft Corporation Description: Notepad Product: Microsoft=AB Windows=AB Operating System Version: 5.1.2600.2180 File version: 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158) where there are Version: and File version: fields. I can use fso.GetFileVersion(pathspec) to get the Version: but how do I get the File version: ? Tag: errReturn RUNAS and SendKeys Tag: 180546
  - 10
    - Protect Site/Webserver My website has no protection at all at this moment. 1.- If someone wants to access my website just need a browser and the link to my web server, and this is something that I like to keep it as it is. 2.- In the same way any user can create a network place and see all the files and even change them. How do I protect my website with password for the second scenario. -- ___________ Thanks, German Saer Orlando, FL Tag: errReturn RUNAS and SendKeys Tag: 180545
  - 11
    - string array initial value assignment I searched on line help but I did not see anything about assigning string literals en mass to an array. is there such construct like Dim mystrs() mystrs = {"element1", "ele2", "e3"} instead of something devious ; like Const YEAR_NAME = "year" Const MONTH_NAME = "month" Const DAY_NAME = "day" YEARRef = "?<" & YEAR_NAME & ">" MONTHRef = "?<" & MONTH_NAME & ">" DAYRef = "?<" & DAY_NAME & ">" YEARPart = "$(" & YEAR_NAME & ")" MONTHPart = "$(" & MONTH_NAME & ")" DAYPart = "$(" & DAY_NAME & ")" Const DatePart_yy = "(1[7-9]|[23][0-9])[0-9][0-9]" Const DatePart_y = "d{2}" DatePart_Year = DatePart_yy & "|" & DatePart_y ' "(([1[7-9])|([23][0-9])){0,1}[0-9][0-9]|[0-9][0-9]" Const DatePart_mmm = "JAN|FEB|MAR|APR|MAY|JUN|JUL|AUG|SEP|OCT|NOV|DEC|JANUARY|FEBRUARY|MARCH|APRIL|MAY|JUNE|JULY|AUGUST|SEPTEMBER|OCTOBER|NOVEMBER|DECEMBER" Const DatePart_m = "10|11|12|0{0,1}[1-9]" DatePart_Month = DatePart_mmm & "|" & DatePart_m Const DatePart_d = "31|30|0{0,1}[1-9]|[12][0-9]" DatePatrn_d = "(" & DAYRef & DatePart_d & ")" DatePatrn_mmm = "(" & MONTHRef & DatePart_mmm & ")" DatePatrn_m = "(" & MONTHRef & DatePart_m & ")" DatePatrn_month = "(" & MONTHRef & DatePart_mmm & "|" & DatePart_m & ")" DatePatrn_y = "(" & YEARRef & DatePart_y & ")" ' 19 something thru 30xx DatePatrn_yy = "(" & YEARRef & DatePart_yy & ")" DatePatrn_year = "(" & YEARRef & DatePart_Year & ")" '0 m/d/Year '1 M d, Y '2 d mmm yy '3 y-M-d '4 y.M.d '5 yy/m/d DATE_PatternsString = "(" & DatePatrn_m & "/" & DatePatrn_d & "/" & DatePatrn_year & ")(?=\s)#" & _ "\b(" & DatePatrn_Month & " " & DatePatrn_d & ", " & DatePatrn_year & ")(?= )#" & _ "\b(" & DatePatrn_d & " " & DatePatrn_mmm & " " & DatePatrn_Year & ")(?=\s)#" & _ "\b(" & DatePatrn_Year & "-" & DatePatrn_Month & "-" & DatePatrn_d & ")(?=\s)#" & _ "\b(" & DatePatrn_Year & "\." & DatePatrn_Month & "\." & DatePatrn_d & ")(?=\s)#" & _ "\b(" & DatePatrn_yy & "/" & DatePatrn_m & "/" & DatePatrn_d & ")(?=\s)" Dim DATE_Patterns DATE_Patterns = Split("\b" &DATE_PatternsString, "#") the 1st form does not work for vbscript ( I don't think it work for VB.net either. The devious way of splitting works Tag: errReturn RUNAS and SendKeys Tag: 180541
  - 12
    - How to change permissions on folders Hello , Is there anybody out there : that has experience on changing the persmissions on folders using vbscript ? The reason I am asking this : I need to make script that puts the permission on a folder for user to read/write. At this stage the user can only view docs but he can't change anything. I know there is something like ' xcals.exe ' but I must I don't have any experience and I don't know if I can trust it because the script need to be run on a domain with a 1000 pc's on it.So I need to be sure that everything works perfectly. All suggestions are more than welcome !! -- regards , Dimitri Dhr. Janssens Dimitri Akkerstraat 8/2 8310 Brugge St.- Kruis Belgium Tel. 050/37.05.96. email : dimitri.janssens@tiscali.be Tag: errReturn RUNAS and SendKeys Tag: 180539
  - 13
    - Render Reporting services report with Soap toolkit and vbscript/jscript Hi, I wonder if someone can help me with a problem. I'm trying to use the Web Service in Microsoft Reporting Services to generate a report to PDF on a file share. I'm using server side vbscript (or jscript) to do this, and using Microsoft Soap Toolkit 3.0 to access the Web Service. I have made a start on the vbscript (see below), and have an RSS scripting batch file to work from to build the rest of the script. Most of this batch file script looks straightforward to convert. However my problem is more to do with knowing how to make soap calls, in particular to create a variable of a datatype that (I'm assuming) is not available on the client but on the server where RS is installed. In this case I need to create variables of type ParameterValue in the vbscript, as shown in the RSS file. How do I do this? With some sort of soap call? e.g. is it along the lines of: dim parameters (2) = rs.CreateParameterDataTypes() . . results = rs.Render(reportPath, format, historyID, deviceInfo, parameters, Nothing, Nothing, encoding, mimeType, nothing, warnings, streamIDs) Would really appreciate some help. Thanks Greg -------------------- vbscript as it exisits --------------------- Option Explicit Dim rs, items, item Set rs = CreateObject("MSSOAP.SoapClient30") CALL rs.MSSoapInit("http://sv01/ReportServer/ReportService.asmx?wsdl","","","") rs.Credentials = System.Net.CredentialCache.DefaultCredentials -------------------------------------------------------------------------------------------- RSS scripting batch file - values inn upper case are global strings passed into the script -------------------------------------------------------------------------------------------- '#### Example Values of Variables ' Dim format as string = "PDF" ' Dim fileName as String = "C:\Reportd\yyyy.pdf" ' Dim reportPath as String = "/CNSOfficeSystem/Quote" '#### Create and initialise variables Dim ParamSplitStr as string = "," ' Typically FILEFORMAT is "PDF" Dim format as string = FILEFORMAT Dim fileName as String = OUTPUTFILE Dim reportPath as String = RPATH Dim ReportParamNames() as String = REPORTPARAMETERNAMES.Split(ParamSplitStr) Dim ReportParamValues() as String = REPORTPARAMETERVALUES.Split(ParamSplitStr) '#### Prepare Render arguments Dim historyID as string = Nothing Dim deviceInfo as string = Nothing Dim showHide as string = Nothing Dim results() as Byte Dim encoding as string Dim mimeType as string Dim warnings() AS Warning = Nothing Dim reportHistoryParameters() As ParameterValue = Nothing Dim streamIDs() as string = Nothing '#### Report Parameters into Array Dim parameters(ReportParamNames.GetUpperBound(0)) As ParameterValue For idx As Integer = 0 To ReportParamNames.GetUpperBound(0) parameters(idx) = New ParameterValue() parameters(idx).Name = ReportParamNames(idx) parameters(idx).Value = ReportParamValues(idx) Next idx '#### Render Report results = rs.Render(reportPath, format, historyID, deviceInfo, parameters, Nothing, Nothing, encoding, mimeType, reportHistoryParameters, warnings, streamIDs) '#### Open a file stream and write out the report Dim stream As FileStream = File.OpenWrite(filename) stream.Write(results, 0, results.Length) stream.Close() Tag: errReturn RUNAS and SendKeys Tag: 180534
  - 14
    - Login Script to change local security I'm trying to write a script that will change a particular local security setting. The specific change I'm trying to make is under Local Policies | Security Options, then Network Access: sharing and security model for local acocunts. I have dozens upon dozens of computers on a domain that are all set to Guest Only. I want to change it to Classic - via a login script that gets ran when the user logs into the domain. Is this possible? Tag: errReturn RUNAS and SendKeys Tag: 180521
  - 15
    - Anyone know if HTA can have tabs Just wondering if there is a way to create a HTA script and have tabs as well. Would be nice to see an example if anyone has something remotely along this line. Cheers, Jp Tag: errReturn RUNAS and SendKeys Tag: 180520
  - 16
    - Changing Default Gateway Is it possible to change the default gateway in the TCP-IP settings, using VB-script? On my children's computer, I would like to have one account that has access to the internet, the other account should have no access to the internet (including MSN etc.). When I change the default gateway into a value that doesn't comply with my router, no interet connection will be established. I want to automate this, in a start-up script for every user. Wouter. Tag: errReturn RUNAS and SendKeys Tag: 180512
  - 17
    - Permissions registry Do I need a script to give permissions in branches of the registry, is it possible? Tag: errReturn RUNAS and SendKeys Tag: 180508
  - 18
    - beginner question regarding including ADSI constants The following script was taken from the Technet scripting repository. What alternative methods are available to include the two ADSI Constants, without having to look them up and add them to the start of every script. Is there anyway to reference the DLL, where I assume the things are stored. Const ADS_GROUP_TYPE_UNIVERSAL_GROUP = &h8 Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000 Set objOU = GetObject("LDAP://cn=Users,dc=NA,dc=fabrikam,dc=com") Set objGroup = objOU.Create("Group", "cn=All-Employees") objGroup.Put "sAMAccountName", "AllEmployees" objGroup.Put "groupType", ADS_GROUP_TYPE_UNIVERSAL_GROUP Or _ ADS_GROUP_TYPE_SECURITY_ENABLED objGroup.SetInfo Tag: errReturn RUNAS and SendKeys Tag: 180505
  - 19
    - Folder rights I need to create a folder on users PC which is easy enough, but how do I assign rights to it such as full control or read only? Thanks in advance Tag: errReturn RUNAS and SendKeys Tag: 180503
  - 20
    - Win32_NetworkAdapterConfiguration Loop through W2K machines I have knocked up a script to retrieve IP info from an array of machines. It works fine as long as every machine is Windows 2003 or Windows XP, but if there is anything of an earlier OS in the array the results are repeated. So for an array with 3 W2k machines (or NT with WMICORE installed) every PC / Server will produce the same results. Any suggestions would be welcome. Script below: Option Explicit On Error Resume Next Dim arrComputers, strComputer, objWMIService, colItems Dim objItem, strDefaultIPGateway, strIPAddress arrComputers = Array("computer1","computer2","computer3","computer4","computer5") For Each strComputer In arrComputers WScript.Echo WScript.Echo "==========================================" WScript.Echo "Computer: " & strComputer WScript.Echo "==========================================" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled = True", , 48) For Each objItem In colItems strDefaultIPGateway = Join(objItem.DefaultIPGateway, ",") WScript.Echo "DefaultIPGateway: " & strDefaultIPGateway WScript.Echo "DHCPServer: " & objItem.DHCPServer strIPAddress = Join(objItem.IPAddress, ",") WScript.Echo "IPAddress: " & strIPAddress strIPSubnet = Join(objItem.IPSubnet, ",") WScript.Echo "IPSubnet: " & strIPSubnet WScript.Echo "MACAddress: " & objItem.MACAddress WScript.Echo "WINSPrimaryServer: " & objItem.WINSPrimaryServer WScript.Echo "WINSSecondaryServer: " & objItem.WINSSecondaryServer WScript.Echo Next Next -- Mark Salter Senior ICT Officer Rhondda Cynon Taf County Borough Council Tag: errReturn RUNAS and SendKeys Tag: 180500
  - 21
    - MSHTA.EXE orphaned when HTA is closed I read several threads on the NET regarding a situation where MSHTA.EXE would become orphaned when the HTA is closed. In that thread there was a reply from a Michael Harris (MVP) indicating that the behavior stems from the use of WshShell.Run statements. According to Mike, calling RUN breaks the modal nature of the event handlers making the mshta UI closable when the RUN method is still waiting but when the UI cloes the mshta.exe process gets orphaned and never terminates. I too have seen this behavior in an HTA I am writing that uses WshShell.Run statements and I believe that I may have a solution that works providing that the user terminated the HTA through a button on the HTA itself. Here is what I was able to put together: Sub Stop_OnClick() Dim strComputer,objWMIService,colProcessList,ObjProcess strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Process WHERE Name = 'mshta.exe'",,48) For Each objProcess in colProcessList if Instr(objProcess.commandLine,"xxxxxxxx.HTA") then objProcess.Terminate() End If Next End Sub In the above all the developer need to do is replace xxxxxxxx.HTA with the case-sensitive name of the HTA being executed. The code then finds its own process and kills itself. Hope this helps someone. Enjoy..... Tag: errReturn RUNAS and SendKeys Tag: 180495
  - 22
    - Moving a worksheet in Excel I am trying to figue out the syntax in VBScript that is the equivalent of the code below that is in VBA. Can anybody help? Worksheets("Sheet1").Move after:=Worksheets("Sheet3") Thanks Tag: errReturn RUNAS and SendKeys Tag: 180491
  - 23
    - logon script for desktop shortcuts Greetings, I'm looking for a simple vbscript that I can run when the user logs on to the network (applied through GPO) to ensure that My Documents, My computer, my network places, Recycle Bin, and Internet Explorer shortcuts are present on the desktop. Every time when I format a machine and install a clean copy of Win xp, I have to log on for every user, right click on the desktop, choose Dekstop tab, and enable these shortcuts to show on the desktop. Any help is appreicated. Thanks. Tag: errReturn RUNAS and SendKeys Tag: 180489
  - 24
    - Need to change user account mid-script I need to run a process as the local system account (this script is scheduled via the at command, by the way) and then mid-stream, jump to impersonating the logged on user. The reason for doing this is I need to copy a file generated by the SYSTEM account to a network share. Since the machine doesn't have delegation enabled in AD, it cannot copy as the system account. I can't delegate the machine. Thanks, Trevor Tag: errReturn RUNAS and SendKeys Tag: 180483
  - 25
    - VB:: CreateObject("Shell.Application") - error I need to creat SHELL object from within my VB form. I use the code: Dim eShell As Object Set eShell = CreateObject("Shell.Application") or Set eShell = new Shell.Application Either of these 2 lines generate "Automation Error": The specified module could not be found. -2147024770 I have Reference to the "Microsoft Shell COntrols and Automation" library. Any ideas? Thank You Mikhail. Tag: errReturn RUNAS and SendKeys Tag: 180480
- Next
  - 1
    - Read and Reply to outlook email using vbscript or macro What i'm trying to do is: 1. When an email arrives with certain subject line 2. Read that email subject For example subject line can be: Status 1 or Status 2 3. Depending the subject line, i need to query a sql server sproc and send some data back to the email sender. Any idea how to do this. If anybody has sample code(either macro or vbscript) that would be helpful. I'm running Outlook 2002. Thanks Tag: errReturn RUNAS and SendKeys Tag: 180479
  - 2
    - Appending lines to a txt file... Hi , few days ago I posted a message asking about how to make a script for renaming a file, Harris answered and gave me a suggestion, I followed it and finally made my script, but now I would like to keep track of changes creating a log file, well the thing is that I can't add the appropriate line, instead of this, a set of weird characters is added, does anybody has an idea??? Here is the script: ******************************************************* Const ForAppending = 8 const ForReading = 1 const ForWriting = 2 const TristateFalse = 0 Set fso = CreateObject("Scripting.FileSystemObject") if fso.FileExists("C:\backup.bkf") then Set file = fso.GetFile("C:\backup.bkf") logline = file.Name & " " & file.path & " " & file.DateCreated & " " & file.DateLastModified & " " logline = logline & file.Size dim s s = file.DateLastModified s = replace(s, "/", "-") s= replace (s, ":", "-") s= replace (s, " ", "_") file.name = "backup_" & s & ".bkf" if fso.FileExists("C:\RenameBackupLog.txt") then Set logfile = fso.OpenTextFile("c:\RenameBackupLog.txt",ForAppending,true) logfile.WriteLine(logline) wScript.Echo logline logfile.Close else Set logfile = fso.CreateTextFile("c:\RenameBackupLog.txt", ForAppending,true) logfile.WriteLine("File renamed: ") logfile.Close end if Else wScript.Echo "File not found" end if ******************************************************* Tag: errReturn RUNAS and SendKeys Tag: 180477
  - 3
    - Drive Mapping via VBS This is a multi-part message in MIME format. ------=_NextPart_000_0175_01C5B47E.81ED78F0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello everyone! I need help with my script. The script runs fine under W2k3 Server. = Everyone is set as a Domain User and Local Administrator and assigned to = different groups under one OU. The script is written to map shares to = drive letters and map printers. The script will run perfectly when a = user is part of more than one group. Why is this happening? Here is = the script (I have substituted <servername> for the actual name of the = server): Dim driveletter, drivepath, printerpath Set FSO =3D WScript.CreateObject("Scripting.FileSystemObject") Set WshNetwork =3D WScript.CreateObject("WScript.Network") Set objShell =3D CreateObject("WScript.Shell") sDomain =3D WshNetwork.UserDomain strUser =3D UCase(WshNetwork.UserName) strComputer =3D "." '4/13/2005 changes: maps to common directories CALL MAPDRIVE("Z:","\\<servername>\Public") CALL MAPDRIVE("Y:","\\<servername>\Apps&Database") 'Maps printers changes: 5/16/2005 added all printer maps CALL MAPPRINTER("\\<servername>\ADM_CENTRAL_01") CALL MAPPRINTER("\\<servername>\SHARP AR-P450 PCL6") CALL MAPPRINTER("\\<servername>\ADM_WEST_01") CALL MAPPRINTER("\\<servername>\ADM_WEST_02") CALL MAPPRINTER("\\<servername>\ADM_CENTRAL_01") CALL MAPPRINTER("\\<servername>\DEV_CENTRAL_01") CALL MAPPRINTER("\\<servername>\DEV_CENTRAL_01_UWCOLOR") CALL MAPPRINTER("\\<servername>\DEV_CENTRAL_01") CALL MAPPRINTER("\\<servername>\DEV_EAST_01") CALL MAPPRINTER("\\<servername>\DEV_WEST_01") CALL MAPPRINTER("\\<servername>\DEV_WEST_02_COLOR") CALL MAPPRINTER("\\<servername>\ENG_CENTRAL_01") CALL MAPPRINTER("\\<servername>\PROD_CENTRAL_01") CALL MAPPRINTER("\\<servername>\PROD_WEST_02") '6/30/2005 changes : This section is where drives are mapped based on = group membership '4/01/2005 changes : Determines distinguished name of user who has = logged on. '4/01/2005 changes : reports what groups user is in On Error Resume Next Set objSysInfo =3D CreateObject("ADSystemInfo") 'Wscript.Echo objSysInfo.Username Set objNetwork =3D CreateObject("Wscript.Network") strUserPath =3D "LDAP://" & objSysInfo.UserName Set objUser =3D GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath =3D "LDAP://" & strGroup Set objGroup =3D GetObject(strGroupPath) strGroupName =3D objGroup.CN 'Wscript.Echo strGroupName '4/12/2005 changes : maps to group drive letter 5/17/2005: added the = rest of the groups Select Case strGroupName Case "Peachtree" objNetwork.MapNetworkDrive "P:", "\\<servername>\Peachtree" =20 Case "IT" objNetwork.MapNetworkDrive "H:", = "\\<servername>\Departments\IT" CALL MAPPRINTER("\\<servername>\DEV_EAST_02_BULK") Case "Membership" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\Membership" CALL MAPPRINTER("\\<servername>\DEV_EAST_02_BULK") Case "Underwriting" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\Underwriting" Case "Education" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\Education" Case "Engineering" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\Engineering" CALL MAPPRINTER("\\<servername>\ENG_EAST_LFP_01") Case "Finance" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\F&A" Case "GenMgr" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\GM" Case "Pledge" objNetwork.MapNetworkDrive "L:", = "\\<servername>\Departments\Pledge" Case "Production" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\Production" Case "Reception" objNetwork.MapNetworkDrive "R:", = "\\<servername>\Departments\Reception" Case "Promotions" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\A&P" Case "Pledge" objNetwork.MapNetworkDrive "G:", = "\\<servername>\Departments\Pledge" Case "Traffic" objNetwork.MapNetworkDrive "T:", = "\\<servername>\Departments\Traffic" Case "Westlink" objNetwork.MapNetworkDrive "W:", = "\\<servername>\Departments\Westlink" Case "Programming" objNetwork.MapNetworkDrive "H:", = "\\<servername>\Departments\Programming" Case "Operators" objNetwork.MapNetworkDrive "O:", = "\\<servername>\Departments\Operations" End Select Next '4/13/2005 changes: Maps to user's local drive objNetwork.MapNetworkDrive "U:", "\\<servername>\Users\" & = objNetwork.UserName 'Sub routine to map common directories Sub MAPDRIVE(driveletter, drivepath) On Error Resume Next If FSO.DriveExists(driveletter) Then WshNetwork.RemoveNetworkDrive driveletter End If WshNetwork.MapNetworkDrive driveletter, drivepath End sub 'Sub routine to map printers Sub MAPPRINTER(printerpath) On Error Resume Next WshNetwork.addwindowsprinterconnection printerpath End sub So what should happen is every user should have a mapping for the = \users\<username> folder, a mapping for the \departments\<department = name> and a mapping for \public. =20 Thanks for your help! ------=_NextPart_000_0175_01C5B47E.81ED78F0 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.2722" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hello everyone!</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I need help with my script.  The = script runs=20 fine under W2k3 Server.  Everyone is set as a Domain User and Local = Administrator and assigned to different groups under one OU.  The = script is=20 written to map shares to drive letters and map printers.  The = script will=20 run perfectly when a user is part of more than one group.  Why is = this=20 happening?  Here is the script (I have substituted = <servername> for=20 the actual name of the server):</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Dim driveletter, drivepath, = printerpath<BR>Set FSO=20 =3D WScript.CreateObject("Scripting.FileSystemObject")<BR>Set WshNetwork = =3D=20 WScript.CreateObject("WScript.Network")<BR>Set objShell =3D=20 CreateObject("WScript.Shell")</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>sDomain =3D = WshNetwork.UserDomain<BR>strUser =3D =20 UCase(WshNetwork.UserName)<BR>strComputer =3D "."</FONT></DIV> <DIV> </DIV><FONT face=3DArial size=3D2> <DIV><BR>'4/13/2005 changes: maps to common directories</DIV> <DIV> </DIV> <DIV>CALL MAPDRIVE("Z:","<A=20 href=3D"file://\\<servername>\Public">\\<servername>\Public</A>")<B= R>CALL=20 MAPDRIVE("Y:","<A=20 href=3D"file://\\<servername>\Apps&Database">\\<servername>\App= s&Database</A>")</DIV> <DIV> </DIV> <DIV>'Maps printers changes: 5/16/2005 added all printer maps<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\ADM_CENTRAL_01">\\<servername>\ADM_CE= NTRAL_01</A>")<BR>CALL=20 MAPPRINTER("<A = href=3D"file://\\<servername>\SHARP">\\<servername>\SHARP</A>=20 AR-P450 PCL6")<BR>CALL MAPPRINTER("<A=20 href=3D"file://\\<servername>\ADM_WEST_01">\\<servername>\ADM_WEST_= 01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\ADM_WEST_02">\\<servername>\ADM_WEST_= 02</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\ADM_CENTRAL_01">\\<servername>\ADM_CE= NTRAL_01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_CENTRAL_01">\\<servername>\DEV_CE= NTRAL_01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_CENTRAL_01_UWCOLOR">\\<servername&gt= ;\DEV_CENTRAL_01_UWCOLOR</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_CENTRAL_01">\\<servername>\DEV_CE= NTRAL_01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_EAST_01">\\<servername>\DEV_EAST_= 01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_WEST_01">\\<servername>\DEV_WEST_= 01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_WEST_02_COLOR">\\<servername>\DEV= _WEST_02_COLOR</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\ENG_CENTRAL_01">\\<servername>\ENG_CE= NTRAL_01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\PROD_CENTRAL_01">\\<servername>\PROD_= CENTRAL_01</A>")<BR>CALL=20 MAPPRINTER("<A=20 href=3D"file://\\<servername>\PROD_WEST_02">\\<servername>\PROD_WES= T_02</A>")</DIV> <DIV> </DIV> <DIV><BR>'6/30/2005 changes : This section is where drives are mapped = based on=20 group membership<BR>'4/01/2005 changes : Determines distinguished name = of user=20 who has logged on.<BR>'4/01/2005 changes : reports what groups user is = in</DIV> <DIV> </DIV> <DIV>On Error Resume Next</DIV> <DIV> </DIV> <DIV>Set objSysInfo =3D CreateObject("ADSystemInfo")<BR>'Wscript.Echo=20 objSysInfo.Username<BR>Set objNetwork =3D = CreateObject("Wscript.Network")</DIV> <DIV> </DIV> <DIV>strUserPath =3D "LDAP://" & objSysInfo.UserName<BR>Set objUser = =3D=20 GetObject(strUserPath)</DIV> <DIV> </DIV> <DIV>For Each strGroup in objUser.MemberOf<BR>    = strGroupPath =3D=20 "LDAP://" & strGroup<BR>    Set objGroup =3D=20 GetObject(strGroupPath)<BR>    strGroupName =3D=20 objGroup.CN<BR>'Wscript.Echo strGroupName</DIV> <DIV> </DIV> <DIV>'4/12/2005 changes : maps to group drive letter 5/17/2005: added = the rest=20 of the groups</DIV> <DIV> </DIV> <DIV>    Select Case=20 strGroupName<BR>        Case=20 "Peachtree"<BR>         &nbs= p; =20 objNetwork.MapNetworkDrive "P:", "<A=20 href=3D"file://\\<servername>\Peachtree">\\<servername>\Peachtree</= A>"<BR>       =20 <BR>        Case=20 "IT"<BR>          &nbsp= ;=20 objNetwork.MapNetworkDrive "H:", "<A=20 href=3D"file://\\<servername>\Departments\IT">\\<servername>\Depart= ments\IT</A>"<BR>         &n= bsp; =20 CALL MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_EAST_02_BULK">\\<servername>\DEV_= EAST_02_BULK</A>")</DIV> <DIV> </DIV> <DIV>        Case=20 "Membership"<BR>         &nb= sp; =20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\Membership">\\<servername&gt= ;\Departments\Membership</A>"<BR>      &nbs= p;    =20 CALL MAPPRINTER("<A=20 href=3D"file://\\<servername>\DEV_EAST_02_BULK">\\<servername>\DEV_= EAST_02_BULK</A>")</DIV> <DIV> </DIV> <DIV>        Case=20 "Underwriting"<BR>         &= nbsp; =20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\Underwriting">\\<servername&= gt;\Departments\Underwriting</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Education"<BR>         &nbs= p; =20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\Education">\\<servername>= \Departments\Education</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Engineering"<BR>         &n= bsp; =20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\Engineering">\\<servername&g= t;\Departments\Engineering</A>"<BR>      &n= bsp;    =20 CALL MAPPRINTER("<A=20 href=3D"file://\\<servername>\ENG_EAST_LFP_01">\\<servername>\ENG_E= AST_LFP_01</A>")</DIV> <DIV> </DIV> <DIV>        Case=20 "Finance"<BR>          =  =20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\F&A">\\<servername>\D= epartments\F&A</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "GenMgr"<BR>          &= nbsp;=20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\GM">\\<servername>\Depart= ments\GM</A>"</DIV> <DIV> </DIV> <DIV>         Case=20 "Pledge"<BR>          &= nbsp;=20 objNetwork.MapNetworkDrive "L:", "<A=20 href=3D"file://\\<servername>\Departments\Pledge">\\<servername>\De= partments\Pledge</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Production"<BR>         &nb= sp; =20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\Production">\\<servername&gt= ;\Departments\Production</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Reception"<BR>         &nbs= p; =20 objNetwork.MapNetworkDrive "R:", "<A=20 href=3D"file://\\<servername>\Departments\Reception">\\<servername>= \Departments\Reception</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Promotions"<BR>         &nb= sp; =20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\A&P">\\<servername>\D= epartments\A&P</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Pledge"<BR>          &= nbsp;=20 objNetwork.MapNetworkDrive "G:", "<A=20 href=3D"file://\\<servername>\Departments\Pledge">\\<servername>\De= partments\Pledge</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Traffic"<BR>          =  =20 objNetwork.MapNetworkDrive "T:", "<A=20 href=3D"file://\\<servername>\Departments\Traffic">\\<servername>\D= epartments\Traffic</A>"</DIV> <DIV> </DIV> <DIV>        Case=20 "Westlink"<BR>         &nbsp= ; =20 objNetwork.MapNetworkDrive "W:", "<A=20 href=3D"file://\\<servername>\Departments\Westlink">\\<servername>\= Departments\Westlink</A>"</DIV> <DIV> </DIV> <DIV>  Case=20 "Programming"<BR>         &n= bsp; =20 objNetwork.MapNetworkDrive "H:", "<A=20 href=3D"file://\\<servername>\Departments\Programming">\\<servername&g= t;\Departments\Programming</A>"</DIV> <DIV> </DIV> <DIV> Case=20 "Operators"<BR>         &nbs= p; =20 objNetwork.MapNetworkDrive "O:", "<A=20 href=3D"file://\\<servername>\Departments\Operations">\\<servername&gt= ;\Departments\Operations</A>"</DIV> <DIV> </DIV> <DIV><BR>    End Select<BR>Next</DIV> <DIV> </DIV> <DIV>'4/13/2005 changes: Maps to user's local drive</DIV> <DIV> </DIV> <DIV>objNetwork.MapNetworkDrive "U:", "<A=20 href=3D"file://\\<servername>\Users\">\\<servername>\Users\</A>" = &=20 objNetwork.UserName</DIV> <DIV> </DIV> <DIV><BR>'Sub routine to map common directories</DIV> <DIV> </DIV> <DIV>Sub MAPDRIVE(driveletter, drivepath)<BR> On Error Resume=20 Next<BR> If FSO.DriveExists(driveletter)=20 Then<BR>  WshNetwork.RemoveNetworkDrive = driveletter<BR> End=20 If<BR>  WshNetwork.MapNetworkDrive driveletter, = drivepath<BR>End=20 sub</DIV> <DIV> </DIV> <DIV><BR>'Sub routine to map printers</DIV> <DIV> </DIV> <DIV><BR>Sub MAPPRINTER(printerpath)<BR> On Error Resume=20 Next<BR> WshNetwork.addwindowsprinterconnection printerpath<BR>End=20 sub</DIV> <DIV> </DIV> <DIV>So what should happen is every user should have a mapping for the=20 \users\<username> folder, a mapping for the = \departments\<department=20 name> and a mapping for \public.  </DIV> <DIV> </DIV> <DIV>Thanks for your help!</FONT></DIV></BODY></HTML> ------=_NextPart_000_0175_01C5B47E.81ED78F0-- Tag: errReturn RUNAS and SendKeys Tag: 180473
  - 4
    - CreateObject("ADSystemInfo") fails on remote system The command Set objSysInfo = CreateObject("ADSystemInfo") runs successfully on my local system, but Set objSysInfo = CreateObject("ADSystemInfo", "REMOTESYSTEM") fails with the error message "ActiveX component can't create object: 'ADSystemInfo'". I have admin rights on REMOTESYSTEM. Is there something about ADSystemInfo that prevents it from being run on remote systems? Thanks in advance to all who respond. Tag: errReturn RUNAS and SendKeys Tag: 180472
  - 5
    - how to import users from a csv hey guys, I have a csv file with the following colums: SamAccountName,Password,Descr,DisplayName I want to create a script that imports the users from the script. does anyone have an idea or can point me in a direction? Tag: errReturn RUNAS and SendKeys Tag: 180470
  - 6
    - HELP: I must find *.pst files in remote computers using vbscript Hi, I must make a script for search files in remote computers the input is the IP Address , ex. "192.168.2.5" and the file type ex. "*.pst" And the result must be: \\192.168.2.5\C$\Documents\Outlook.pst \\192.168.2.5\C$\Info\Data\mydata.pst ..... ..... Could you help me ? Thanks in advance Tag: errReturn RUNAS and SendKeys Tag: 180469
  - 7
    - Launch VBS remotely Hi, Is there a way to launch a vbs file remotely. I know there is a way to create a process remotely. It works fine for .exe files, but for .msp (package) and .vbs files, it is not working. I see the task being added in the task manager on the target computer but there is no activity. The only successfull remote process launch I did was with a .exe file. Any idea? thanks!!! Tag: errReturn RUNAS and SendKeys Tag: 180466
  - 8
    - Why does this fail? Running a simple script, launched with : (call replace.vbs %%a) Where %%a is a findstr variable that contains the username replace.vbs: dim cmdline_args, nNumberofArgs set cmdline_args = WScript.Arguments nNumberofArgs = cmdline_args.Count if nNumberofArgs <> 0 then strRunNo = cmdline_args.Item(0) 'debugging 'msgbox "run #, item 0= " & strRunNo, vbOK, "Debugging Msg" end if Const ForReading = 1 Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("c:\temp\test\" & cmdline_args & ".cmd", ForReading) strText = objFile.ReadAll objFile.Close strNewText = Replace(strText, "cmdif", "cmd " & chr(10) & "if") Set objFile = objFSO.OpenTextFile("c:\temp\test\" & cmdline_args & ".cmd", ForWriting) objFile.WriteLine strNewText objFile.Close Everytime I get an error on line 18 of the vbs : Set objFile = objFSO.OpenTextFile("c:\temp\test\" & cmdline_args & ".cmd", ForReading) "Wrong number of arguments or invalid property assignment. Code: 800A01C2 I think I've passed the variable correctly, and can see no formatting error in the script, so the cause of the error is a complete loss to me. As always, all help greatly appreciated. Thanks. Tag: errReturn RUNAS and SendKeys Tag: 180465
  - 9
    - The registry Hi, I've used vbScript to see the value entries. Is there a way to see the name of a key or subkey? Thanks in Advance, JeffH Tag: errReturn RUNAS and SendKeys Tag: 180460
  - 10
    - I need a Script delete I need a script in vbs or that when closing session or to restart the pc delete: 1.- The temporary files of internet of that profile. 2.- The temporary files of c:\windows\temp 3.- the temporary files of C:\Documents and Settings\user\Configuración local\Temp you can help me Tag: errReturn RUNAS and SendKeys Tag: 180457
  - 11
    - Script for shortcut to mapped drives on desktop Hello Group, I'm a little new to scripting and am asking for some help writing a script. What I would like to do is to create a logon script for users in a windows 2003 domain running XP on the desktops that would place a shortcut to their mapped network drives on the desktop. So each user would have three mapped drives, 1 for their home folder, 1 for the public folder and another drive for an apps folder. So basically when a user logs into the domain the script will place shortcuts to thesed mapped drives on the desktop regardless of what PC they log into. We are using roaming profiles. Any help or direction would be appreciated. Thanks Tag: errReturn RUNAS and SendKeys Tag: 180455
  - 12
    - IPTC Data and jpg images Hi all, I wish to write a script that infuses caption info using the IPTC fields within a jpg image. I want to use a drop folder where a script watches it and with each image dropped into it a pre-defined caption is infused. I am having trouble finding a soloution. Does anyone have any ideas. It needs to be a VBScript solution as this is all I know (at this stage). Thanks in advance, Blinky Tag: errReturn RUNAS and SendKeys Tag: 180454
  - 13
    - How to send mails to Lotus with CDONTS Hi, I am trying to use CDONTS to send E-mail to Lotus notes. I have mentioned the IP address of the server in Smart host text box of Virtual SMPTP server. But mails are not being sent. Please let me know how to configure Veertual SMTP to send mails to Lotus notes. -- Pavan Tag: errReturn RUNAS and SendKeys Tag: 180450
  - 14
    - This script kills me!!! This script kills me!!! Thanks for your input, now the users are correctly added the correspondig groups. But now I have to change the script to following: The script shouldn't create users but groups! So the script should read the import.txt file, create groups and add the users to the groups. I'm just too thumb for that... Please help me! ###test.vbs Option Explicit Dim oFSO, oTF, oOU, oUser, oGroup, oRoot, oFolder, oPerm, oShell, oExec Dim sCN Dim aLine, sLine, sLogon, sPass, sGroup, sRoot, sDN, vFlg Dim sFname, sLName '// Set Const InpFile = "C:\SCRIPTS\import.txt" 'Import file Const ForReading = 1 Set oFSO = CreateObject("Scripting.FileSystemObject") Set oTF = oFSO.OpenTextFile(InpFile,ForReading,True) Set oShell = CreateObject("WScript.Shell") '// vFlg verifies that required fields are in input file vFlg = True Do While oTF.AtEndOfStream <> True sLine = oTF.ReadLine aLine = split(sline, ",",-1,1) sFname = aLine(0) '// Sets container name to Last Name, First Name sCN = sFname sGroup = aLine(1) sLogon = sFname If vFlg = True Then If isEmpty(sGroup) Then msgbox "Missing Parameter" & vbCr & _ "First Line must contain:" & vbCr & _ "First Name, Last Name, Group Name, OU" & vbCr & _ "SAM Logon ID",_ vbExclamation, "Add Bulk Users" wscript.Quit Else vFlg = False End If End If '// Call the Create User routine CreateaUser 'CreateaGroup '// Call the add to Group routine Add2Group() Loop Msgbox "Script complete." Set oTF = Nothing Set oFSO = Nothing Set oUser = Nothing Set oGroup = Nothing Set oOU = Nothing Set oRoot = Nothing '####################################### 'Sub CreateaGroup() 'End Sub '####################################### '//-------------------------- '// Create User subroutine '//-------------------------- Sub CreateaUser() '// Bind to the domain Root Set oRoot = GetObject("LDAP://rootDSE") sRoot = oRoot.Get("defaultNamingContext") '// Bind to the OU where users are to be added Set oOU = GetObject("LDAP://ou=" & "test" & "," & sRoot) Set oUser = oOU.Create("user", "cn=" & sCN) On Error Resume Next '// Load fields in AD record oUser.put "sAMAccountName", lcase(sLogon) oUser.put "givenName", sFname oUser.put "UserPrincipalName", lcase(sLogon) oUser.put "DisplayName", sFname oUser.put "name", sCN oUser.SetInfo '// Test for duplicate User If err.number = -2147019886 then msgbox "User logon for " & sLogon & " already exists." _ ,vbExclamation, "Add Bulk Users" Exit Sub End If oUser.AccountDisabled = False oUser.SetInfo '// Set the User's DN for adding to group sDN = oUser.get("DistinguishedName") End Sub '//-------------------------- '// Add to Group subroutine '//-------------------------- Sub Add2Group() Const ADS_PROPERTY_APPEND = 3 On Error Resume Next '// Test if group is empty dim oGroup If IsEmpty(oGroup) Then Set oGroup = GetObject _ ("LDAP://cn=" & sGroup & ",ou=" & "test" & "," & sRoot) End If '// Add user to group oGroup.PutEx ADS_PROPERTY_APPEND, _ "member", Array(sDN) oGroup.SetInfo sDN = oUser.get("DistinguishedName") sDN = Nothing '// Test if user is already member of group If err.number <> 0 Then msgbox "User " & sLogon & _ " is already a member of " & sGroup, _ ,vbExclamation, "Add Bulk Users" Exit Sub End If End Sub ###import.txt user1, group1 user2, group2 user3, group3 user4, group3 user5, group3 user7, group7 Tag: errReturn RUNAS and SendKeys Tag: 180449
  - 15
    - Delete a file Hi all. I want to use a VBS or javascript function, to delete a file from hard disk, when an aspx window is closed. Any idea to do this? Thanks a lot. Tag: errReturn RUNAS and SendKeys Tag: 180448
  - 16
    - VBscript Not Printing Watermark in Word Doc I'm using: oWordActiveDoc.PrintOut (further script copied below) in VBScript to print out a document from a Word (2000) object. It works and the document arrives at the printer. However for some reason the watermark in the Header/Footer of the document doesn't print out. What I see is a small broken image placemark in the top left corner of where the real image is supposed to be (similar to what you see in a web browser when an image is missing). When the document was created the image was inserted into the header/footer as a linked image file within a textbox. So I suspect this has something to do with the problem, but it prints properly if printed manually. Does anyone know what might be going wrong? TIA, Colin Dim oWord Dim oWordActiveDoc Set oWord = CreateObject("Word.Application") Set oWordActiveDoc = oWord.Documents.Open("c:\test.doc") oWordActiveDoc.PrintOut Tag: errReturn RUNAS and SendKeys Tag: 180442
  - 17
    - Printer Driver Hi, I want to install a printer driver with the prndrvr.vbs script, shipped with win xp. cscript c:\windows\system32\prndrvr.vbs -a -m "Canon GP200-225 PCL" -v 3 -e "Windows NT x86" -h "c:\temp" -i "P52KUKAL.INF" The bad result : Unable to add printer driver model : Canon GP200-225 PCL Win32 error code 87 When I use the add printer wizard, it works. So, the driver is right. Can anybody help me ? Directory listing of c:\temp : De volumenaam van station C is WinXP Het volumenummer is 1483-0DE6 Map van C:\temp 25/08/2005 09:11 <DIR> . 25/08/2005 09:11 <DIR> .. 25/08/2005 09:11 0 aa.txt 29/05/2002 08:32 31.381 aucplmnt.dl_ 01/06/2003 18:32 7.589 auss0332.da_ 01/07/2002 18:57 81.016 aussdrv.dl_ 11/06/2002 19:06 42.190 cfine32.dl_ 23/04/2002 16:00 571 cmdfpxk.da_ 25/07/2001 09:26 66.179 cnlk.pr_ 23/07/2002 12:04 47.933 cnnbapie.dl_ 31/05/2001 02:51 108.463 cnnscore.dl_ 13/10/2002 16:00 184.982 cnp5e809.dl_ 13/10/2002 16:00 1.612 cnp5ee.cn_ 13/10/2002 16:00 774.145 cnp5ee.dl_ 13/10/2002 16:00 127.690 cnp5ee.hl_ 13/10/2002 16:00 1.088.272 cnp5eeui.dl_ 09/04/2002 02:35 64.257 cnppdce.dl_ 26/10/2001 09:09 25.246 cnpxcm32.dl_ 11/06/2002 19:06 172.718 cnxcpv32.dl_ 19/03/2002 10:23 106.235 cnxprasx.dl_ 03/07/2002 19:06 202.634 cpcdspl.ex_ 03/07/2002 19:06 290.881 cpcedit.dl_ 03/07/2002 19:06 344.937 cpcqm.ex_ 25/07/2001 09:26 460 cpcqm809.cn_ 26/11/2001 19:05 13.216 cpcqm809.hl_ 03/07/2002 19:06 109.663 cpcr809.dl_ 03/07/2002 19:06 69.166 cpcspl.dl_ 03/07/2002 19:06 240.204 cpcview.ex_ 13/10/2002 16:00 5 DISK1 13/10/2002 16:00 2.950 gp160pk.xp_ 13/10/2002 16:00 3.825 gp215pk.xp_ 13/10/2002 16:00 3.969 gp225pk.xp_ 13/10/2002 16:00 3.664 gp300pk.xp_ 13/10/2002 16:00 3.422 gp605pk.xp_ 13/10/2002 16:00 4.844 ir2000pk.xp_ 13/10/2002 16:00 4.819 ir400pk.xp_ 13/10/2002 16:00 3.647 l1000pk.xp_ 13/10/2002 16:00 3.781 lb1000pk.xp_ 13/10/2002 16:00 4.059 lb176epk.xp_ 13/10/2002 16:00 4.666 lb2000pk.xp_ 13/10/2002 16:00 5.293 lb3260pk.xp_ 01/06/2003 18:32 150.374 nbapi.dl_ 22/05/2003 18:19 121.796 nbipc.dl_ 17/08/2005 20:05 5.358.511 o3904enx.pdf 06/07/2003 06:05 27.288 P52KUKAL.cat 13/10/2002 16:00 7.640 P52KUKAL.INF 13/10/2002 16:00 28.633 readme.txt 07/06/2001 01:00 37.325 tnl32.dl_ 09/03/2002 21:30 202.940 ucs32p.dl_ 47 bestand(en) 10.185.091 bytes 2 map(pen) 1.728.385.024 bytes beschikbaar The file P52KUKAL.INF : ; Canon PCL5e Printer INF for Windows 2000/XP ; Copyright CANON INC. 2003 All Rights Reserved ; (CD-ROM Release) ; P52KUKAL.INF [Version] Signature="$Windows NT$" Provider=%CANON% ClassGUID={4D36E979-E325-11CE-BFC1-08002BE10318} Class=Printer DriverVer=06/17/2003,5.42.0.0 CatalogFile = P52KUKAL.cat [Manufacturer] %CANON%=CANON [Canon] "Canon iR1600-2000 PCL5e" = IR1600_UK,LPTENUM\CanoniR1600996E,USBPRINT\CanoniR1600996E,CanoniR1600996E "Canon iR1600-2000 PCL5e" = IR1600_UK,LPTENUM\CanoniR2000DC8E,USBPRINT\CanoniR2000DC8E,CanoniR2000DC8E "Canon iR1600-2000 PCL5e" = IR1600_UK,LPTENUM\CanoniR1610096F,USBPRINT\CanoniR1610096F,CanoniR1610096F "Canon iR1600-2000 PCL5e" = IR1600_UK,LPTENUM\CanoniR20104C8F,USBPRINT\CanoniR20104C8F,CanoniR20104C8F "Canon iR400 PCL5e" = IR400_UK,LPTENUM\CANON330-400A9E9 "Canon GP160 PCL5e" = GP160_UK,LPTENUM\CanonPRINTER_BOARD-J0ADB "Canon GP200-215 PCL-P3/B1" = GP215_UK,LPTENUM\CANONGP2152296 "Canon GP200-225 PCL" = GP225_UK,LPTENUM\CANON200-216C998 "Canon GP300-405 PCL" = GP300_UK,LPTENUM\CANON300-4059929 "Canon GP555-605-605P PCL" = GP605_UK,LPTENUM\CANON600-60559DD "Canon LBP-1000 PCL5e" = LB1000_UK,LPTENUM\CANONLBP-1000553E "Canon LBP-1760/1760e PCL5e" = LB176E_UK,LPTENUM\CANONLBP-1760348C "Canon LBP-1760/1760e PCL5e" = LB176E_UK,LPTENUM\CANONLBP-1760e8EF5 "Canon LBP-2000 PCL5e" = LB2000_UK,LPTENUM\CanonLBP-2000113E,USBPRINT\CanonLBP-2000113E,CanonLBP-2000113E "Canon LBP-3260 PCL5e" = LB3260_UK,LPTENUM\CanonLBP-32608D9D "Canon FAX-L1000 for PCL5e" = L1000_UK,LPTENUM\CanonFAX_L10007625 [IR1600_UK] CopyFiles=IR2000PK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR,NS_CPCA,DRVCOPY,NS_COMMON,AUSS DataFile=IR2000PK.XPD DataSection=IR2000_DATA LanguageMonitor=%NS_LMON_CPCA% [GP160_UK] CopyFiles=GP160PK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=GP160pk.xpd DataSection=GP160_DATA [GP215_UK] CopyFiles=GP215PK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=GP215PK.XPD DataSection=GP215_DATA [GP225_UK] CopyFiles=GP225PK,NT_P5,HELP_UK,NT_P5_DC1,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=GP225PK.XPD DataSection=GP225_DATA [GP300_UK] CopyFiles=GP300PK,NT_P5,HELP_UK,NT_P5_DC1,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=GP300PK.XPD DataSection=GP300_DATA [GP605_UK] CopyFiles=GP605PK,NT_P5,HELP_UK,NT_P5_DC1,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=GP605PK.XPD DataSection=GP605_DATA [LB1000_UK] CopyFiles=LB1000PK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=LB1000PK.XPD DataSection=LB1000_DATA [LB176E_UK] CopyFiles=LB176EPK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=LB176EPK.XPD DataSection=LB176E_DATA [LB2000_UK] CopyFiles=LB2000PK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR,NS_CPCA,DRVCOPY,NS_COMMON,AUSS DataFile=LB2000PK.XPD DataSection=LB2000_DATA LanguageMonitor=%NS_LMON_CPCA% [LB3260_UK] CopyFiles=LB3260PK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=LB3260pk.xpd DataSection=LB3260_DATA [L1000_UK] CopyFiles=L1000PK,NT_P5,HELP_UK,NT_P5_DC1A,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=L1000pk.xpd DataSection=L1000_DATA [IR400_UK] CopyFiles=IR400PK,NT_P5,HELP_UK,NT_P5_DC1,PROFILE,NT_PCOM_UK,COLORGEAR DataFile=IR400PK.XPD DataSection=IR400_DATA [OEM URLS] %CANON% = "http://www.canon.com/support" [NT_P5] CNXPRASX.DLL AUSSDRV.DLL [NT_P5_DC1] CNPPDCE.DLL CNNBAPIE.DLL CNNSCORE.DLL [NT_P5_DC1A] CNPPDCE.DLL [HELP_UK] CNP5EE.HLP CNP5EE.CNT [NT_PCOM_UK] CPCSPL.DLL CPCDSPL.EXE CPCQM.EXE CPCR809.DLL CFINE32.DLL CNXCPV32.DLL CPCEDIT.DLL CPCQM809.CNT CPCQM809.HLP CPCVIEW.EXE [COLORGEAR] CnPXCM32.DLL CMDFPXK.DAT UCS32P.DLL TNL32.DLL [PROFILE] CNLK.PRF [NS_CPCA] AUCPLMNT.DLL,,,0x00000020 [DRVCOPY] AUCPLMNT.DLL,,,0x00000020 [NS_COMMON] NBAPI.DLL,,,0x00000020 NBIPC.DLL,,,0x00000020 [AUSS] Auss0332.DAT [GP300PK] GP300PK.XPD CNP5EE_D9AD5.DLL, CNP5EE.DLL CNP5EEUI_D9AD5.DLL, CNP5EEUI.DLL CNP5E809_D9AD5.DLL, CNP5E809.DLL [GP300_DATA] DriverFile=CNP5EE_D9AD5.DLL ConfigFile=CNP5EEUI_D9AD5.DLL HelpFile=CNP5EE.HLP [GP605PK] GP605PK.XPD CNP5EE_D080B.DLL, CNP5EE.DLL CNP5EEUI_D080B.DLL, CNP5EEUI.DLL CNP5E809_D080B.DLL, CNP5E809.DLL [GP605_DATA] DriverFile=CNP5EE_D080B.DLL ConfigFile=CNP5EEUI_D080B.DLL HelpFile=CNP5EE.HLP [GP225PK] GP225PK.XPD CNP5EE_D5DEF.DLL, CNP5EE.DLL CNP5EEUI_D5DEF.DLL, CNP5EEUI.DLL CNP5E809_D5DEF.DLL, CNP5E809.DLL [GP225_DATA] DriverFile=CNP5EE_D5DEF.DLL ConfigFile=CNP5EEUI_D5DEF.DLL HelpFile=CNP5EE.HLP [GP215PK] GP215PK.XPD CNP5EE_DBEEF.DLL, CNP5EE.DLL CNP5EEUI_DBEEF.DLL, CNP5EEUI.DLL CNP5E809_DBEEF.DLL, CNP5E809.DLL [GP215_DATA] DriverFile=CNP5EE_DBEEF.DLL ConfigFile=CNP5EEUI_DBEEF.DLL HelpFile=CNP5EE.HLP [LB1000PK] LB1000PK.XPD CNP5EE_D49EB.DLL, CNP5EE.DLL CNP5EEUI_D49EB.DLL, CNP5EEUI.DLL CNP5E809_D49EB.DLL, CNP5E809.DLL [LB1000_DATA] DriverFile=CNP5EE_D49EB.DLL ConfigFile=CNP5EEUI_D49EB.DLL HelpFile=CNP5EE.HLP [LB176EPK] LB176EPK.XPD CNP5EE_DDF39.DLL, CNP5EE.DLL CNP5EEUI_DDF39.DLL, CNP5EEUI.DLL CNP5E809_DDF39.DLL, CNP5E809.DLL [LB176E_DATA] DriverFile=CNP5EE_DDF39.DLL ConfigFile=CNP5EEUI_DDF39.DLL HelpFile=CNP5EE.HLP [GP160PK] GP160PK.XPD CNP5EE_DF2E7.DLL, CNP5EE.DLL CNP5EEUI_DF2E7.DLL, CNP5EEUI.DLL CNP5E809_DF2E7.DLL, CNP5E809.DLL [GP160_DATA] DriverFile=CNP5EE_DF2E7.DLL ConfigFile=CNP5EEUI_DF2E7.DLL HelpFile=CNP5EE.HLP [LB3260PK] LB3260PK.XPD CNP5EE_D09AA.DLL, CNP5EE.DLL CNP5EEUI_D09AA.DLL, CNP5EEUI.DLL CNP5E809_D09AA.DLL, CNP5E809.DLL [LB3260_DATA] DriverFile=CNP5EE_D09AA.DLL ConfigFile=CNP5EEUI_D09AA.DLL HelpFile=CNP5EE.HLP [L1000PK] L1000PK.XPD CNP5EE_DF428.DLL, CNP5EE.DLL CNP5EEUI_DF428.DLL, CNP5EEUI.DLL CNP5E809_DF428.DLL, CNP5E809.DLL [L1000_DATA] DriverFile=CNP5EE_DF428.DLL ConfigFile=CNP5EEUI_DF428.DLL HelpFile=CNP5EE.HLP [LB2000PK] LB2000PK.XPD CNP5EE_D441B.DLL, CNP5EE.DLL CNP5EEUI_D441B.DLL, CNP5EEUI.DLL CNP5E809_D441B.DLL, CNP5E809.DLL [LB2000_DATA] DriverFile=CNP5EE_D441B.DLL ConfigFile=CNP5EEUI_D441B.DLL HelpFile=CNP5EE.HLP [IR2000PK] IR2000PK.XPD CNP5EE_DF0E5.DLL, CNP5EE.DLL CNP5EEUI_DF0E5.DLL, CNP5EEUI.DLL CNP5E809_DF0E5.DLL, CNP5E809.DLL [IR2000_DATA] DriverFile=CNP5EE_DF0E5.DLL ConfigFile=CNP5EEUI_DF0E5.DLL HelpFile=CNP5EE.HLP [IR400PK] IR400PK.XPD CNP5EE_DCA5C.DLL, CNP5EE.DLL CNP5EEUI_DCA5C.DLL, CNP5EEUI.DLL CNP5E809_DCA5C.DLL, CNP5E809.DLL [IR400_DATA] DriverFile=CNP5EE_DCA5C.DLL ConfigFile=CNP5EEUI_DCA5C.DLL HelpFile=CNP5EE.HLP [DestinationDirs] DefaultDestDir=66000 NT_PCOM_UK=66000 NS_CPCA=66002 DRVCOPY=66000 [SourceDisksFiles] CNP5EE.DLL = 1 CNP5EEUI.DLL= 1 CNP5E809.DLL= 1 CNXPRASX.DLL= 1 CnPXCM32.DLL= 1 CMDFPXK.DAT = 1 UCS32P.DLL = 1 CNPPDCE.DLL = 1 CNNBAPIE.DLL= 1 CNNSCORE.DLL= 1 CPCSPL.DLL = 1 CPCDSPL.EXE = 1 CPCQM.EXE = 1 CPCR809.DLL = 1 CNXCPV32.DLL = 1 CPCEDIT.DLL = 1 CPCQM809.CNT = 1 CPCQM809.HLP = 1 CPCVIEW.EXE = 1 TNL32.DLL = 1 CFINE32.DLL = 1 CNP5EE.HLP = 1 CNP5EE.CNT = 1 GP300PK.XPD = 1 GP605PK.XPD = 1 GP225PK.XPD = 1 GP215PK.XPD = 1 LB1000PK.XPD = 1 LB176EPK.XPD = 1 GP160PK.XPD = 1 LB3260PK.XPD = 1 L1000PK.XPD = 1 LB2000PK.XPD = 1 IR2000PK.XPD = 1 IR400PK.XPD = 1 CNLK.PRF = 1 AUSSDRV.DLL = 1 Auss0332.DAT = 1 NBAPI.DLL = 1 NBIPC.DLL = 1 AUCPLMNT.DLL = 1 [SourceDisksNames] 1=%DISK1%,,,"" [Strings] CANON="Canon" NS_LMON_CPCA="CPCA Language Monitor2,AUCPLMNT.DLL" DISK1="Canon PCL5e Printer Driver for Microsoft Windows 2000/XP Disk #1" Tag: errReturn RUNAS and SendKeys Tag: 180440
  - 18
    - Add users to group problem... Now I have a problem with the script: It adds all users to "group1", any ideas? To test it put all both files to c:\scripts and add a OU named "test" in AD. test.vbs Option Explicit Dim oFSO, oTF, oOU, oUser, oGroup, oRoot, oFolder, oPerm, oShell, oExec Dim sCN, sOU1 Dim aLine, sLine, sLogon, sPass, sGroup, sRoot, sDN, vFlg Dim sFname, sLName '// Set Const InpFile = "C:\SCRIPTS\import.csv" 'Import file Const ForReading = 1 Set oFSO = CreateObject("Scripting.FileSystemObject") Set oTF = oFSO.OpenTextFile(InpFile,ForReading,True) Set oShell = CreateObject("WScript.Shell") '// vFlg verifies that required fields are in input file vFlg = True Do While oTF.AtEndOfStream <> True sLine = oTF.ReadLine aLine = split(sline, ",",-1,1) sFname = aLine(0) sLname = aLine(1) '// Sets container name to Last Name, First Name sCN = sLname &"\, "&sFname sGroup = aLine(2) sOU1 = aLine(3) sLogon = aLine(4) If vFlg = True Then If isEmpty(sGroup) Or isEmpty(sOU1) Then msgbox "Missing Parameter" & vbCr & _ "First Line must contain:" & vbCr & _ "First Name, Last Name, Group Name, OU" & vbCr & _ "SAM Logon ID",_ vbExclamation, "Add Bulk Users" wscript.Quit Else vFlg = False End If End If '// Call the Create User routine CreateaUser '// Call the add to Group routine Add2Group() Loop Msgbox "Script complete." Set oTF = Nothing Set oFSO = Nothing Set oUser = Nothing Set oGroup = Nothing Set oOU = Nothing Set oRoot = Nothing '//-------------------------- '// Create User subroutine '//-------------------------- Sub CreateaUser() '// Bind to the domain Root Set oRoot = GetObject("LDAP://rootDSE") sRoot = oRoot.Get("defaultNamingContext") '// Bind to the OU where users are to be added Set oOU = GetObject("LDAP://ou=" & sOU1 & "," & sRoot) Set oUser = oOU.Create("user", "cn=" & sCN) On Error Resume Next '// Load fields in AD record oUser.put "sAMAccountName", lcase(sLogon) oUser.put "givenName", sFname oUser.put "sn", sLname oUser.put "UserPrincipalName", lcase(sLogon) oUser.put "DisplayName", sLname &", "&sFname oUser.put "name", sCN oUser.SetInfo '// Test for duplicate User If err.number = -2147019886 then msgbox "User logon for " & sLogon & " already exists." _ ,vbExclamation, "Add Bulk Users" Exit Sub End If oUser.AccountDisabled = False oUser.SetInfo '// Set the User's DN for adding to group sDN = oUser.get("DistinguishedName") End Sub '//-------------------------- '// Add to Group subroutine '//-------------------------- Sub Add2Group() Const ADS_PROPERTY_APPEND = 3 On Error Resume Next '// Test if group is empty If IsEmpty(oGroup) Then Set oGroup = GetObject _ ("LDAP://cn=" & sGroup & ",ou=" & sOU1 & "," & sRoot) End If '// Add user to group oGroup.PutEx ADS_PROPERTY_APPEND, _ "member", Array(sDN) oGroup.SetInfo sDN = Nothing '// Test if user is already member of group If err.number <> 0 Then msgbox "User " & sLogon & _ " is already a member of " & sGroup, _ ,vbExclamation, "Add Bulk Users" Exit Sub End If End Sub import.txt user1, user1, group1, test, user1, test, test, test, test, test user1, user2, group2, test, user2, test, test, test, test, test user1, user3, group3, test, user3, test, test, test, test, test Many thanks! Tag: errReturn RUNAS and SendKeys Tag: 180439
  - 19
    - run a shortcut from .vbs? Is it possible to run a shortcut (a .lnk file) from a .vbs file? Larry Tag: errReturn RUNAS and SendKeys Tag: 180432
  - 20
    - Creating User Accounts OOOPS! It works now. the sAMAccountName was the trick. The error code changed because the user was previously created. Thanks much, Brooks -- Brooks ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: errReturn RUNAS and SendKeys Tag: 180426
  - 21
    - Creating User Accounts Bjorn, That didn't work. I even tried to add all but the SID for mandator elements: objUser.Put "displayName", strDisplayName objUser.Put "userPrincipalName", strUserPrincipalName objUser.Pu "objectCategory","CN=Person,CN=Schema,CN=Configuration,DC=LCDA,DC=dom" objUser.Put "sAMAccountName", sName objUser.Put "instanceType", Int(4) objUser.PutEx ADS_PROPERTY_UPDATE, _ "objectClass",Array("top","person","organizationalPerson","user") objUser.SetPassword "Hello123" objUser.SetInfo And that didn't work either. I get an error code of -2147019886. Brook - Brook ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: errReturn RUNAS and SendKeys Tag: 180425
  - 22
    - Restart all computers domain wide I'm looking for a script that will restart all XP workstations on a single non-AD domain. Any help would be greatly appreciated!!! Chris Tag: errReturn RUNAS and SendKeys Tag: 180422
  - 23
    - Need Help, Scripting UI changes I'm interested in creating a script that would change the default Theme and some of the folder view properties such as enabling the statusbar on all folder views and setting the default view as detail listing. I've used a registry snapshot tool to view the modified keys but there are over 100 + keys that are modified and rather than exporting and importing these changes, I was hoping there was a way to change the settings via a script rather than manually updating all the registry keys. I figured there must be a way to set active theme and have the windows api do the necessary registry changes. Any assistance would be appreciated. Thanks, Jeff M. Tag: errReturn RUNAS and SendKeys Tag: 180420
  - 24
    - AD/ Phonebook updates. I'm Not a Programmer! I'm running Active Directory in my company with about 2000 users. The telephone field under the user properties it's very important to us as it's used to create internal Phone Directory. Users are moving all the time and new users are coming in or the telephone number changes. I need to keep this up to date as possible. Is there a script or VB program of any type that I can attached to login scrip every months so when user loges in it gets a popup screen with there ID asking them to type in there Phone NO which is then written in to the file and I can meagre this in to AD at the later date. Thanks for your help/advice. Tag: errReturn RUNAS and SendKeys Tag: 180418
  - 25
    - GetObject hangs unexpectedly accessing remote registry I have script that uses GetObject to retreive a computers Registry information. The script hangs on a few select PCs. I already Ping each computer first to make sure there is a connection, but the problem persists. -Is there a way to TimeOut the GetObject call. This would seem a no brainer but I can't find anything. -Is there a better way to read a remote registry so that I don't have to deal with the no-timeout problem? Tag: errReturn RUNAS and SendKeys Tag: 180417

Hi
I need to send a CD out to some home users with software updates.
The updates need to run under the local admin account but there are 2
possible local admin passwords in use.

I need my script to attempt installation with the first admin password and
if this fails then use the second (and if for some reason the second fails
then to popup an error.
I've tried writing it like below but the errReturn doesn't seem to work and
the script just waits for the password input, it doesn't seem to get the
input automatically from SendKeys.

I know I can get round this by specifiying FALSE in my errReturn but if I
specifiy FALSE then errReturn will always be 0 so it will never attempt the
second admin password.

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set WshShell = CreateObject("WScript.Shell")
Set objStdOut = Wscript.StdOut

strCommandLine = "runas" & " " & ("/u:administrator c:\temp\go.bat")

errReturn = WshShell.Run(strCommandLine, 1, True)
Wscript.Sleep "300"
WshShell.SendKeys "password1~"
If errReturn = "0" Then
Wscript.Echo ""
Else
errReturn = WshShell.Run(strCommandLine, 1, True)
Wscript.Sleep "300"
WshShell.SendKeys "password2~"
If errReturn = "0" Then
Wscript.Echo
Else
DoPopup
End If
End If

Function DoPopup
Call WshShell.Popup("This computer has a non-standard Administrator
password. Cannot continue, please contact the helpdesk quoting this
message.", 0, "Error", 16)
End Function

Can anyone help at all, this has been driving me loopy all day! :)

Thanks
Steve

Top

RE: errReturn RUNAS and SendKeys by sjw2k3

sjw2k3
Tue Sep 13 02:27:01 CDT 2005

Anybody?
Any ideas??

"sjw2k3" wrote:

> Hi
> I need to send a CD out to some home users with software updates.
> The updates need to run under the local admin account but there are 2
> possible local admin passwords in use.
>
> I need my script to attempt installation with the first admin password and
> if this fails then use the second (and if for some reason the second fails
> then to popup an error.
> I've tried writing it like below but the errReturn doesn't seem to work and
> the script just waits for the password input, it doesn't seem to get the
> input automatically from SendKeys.
>
> I know I can get round this by specifiying FALSE in my errReturn but if I
> specifiy FALSE then errReturn will always be 0 so it will never attempt the
> second admin password.
>
> strComputer = "."
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
> Set WshShell = CreateObject("WScript.Shell")
> Set objStdOut = Wscript.StdOut
>
> strCommandLine = "runas" & " " & ("/u:administrator c:\temp\go.bat")
>
> errReturn = WshShell.Run(strCommandLine, 1, True)
> Wscript.Sleep "300"
> WshShell.SendKeys "password1~"
> If errReturn = "0" Then
> Wscript.Echo ""
> Else
> errReturn = WshShell.Run(strCommandLine, 1, True)
> Wscript.Sleep "300"
> WshShell.SendKeys "password2~"
> If errReturn = "0" Then
> Wscript.Echo
> Else
> DoPopup
> End If
> End If
>
>
> Function DoPopup
> Call WshShell.Popup("This computer has a non-standard Administrator
> password. Cannot continue, please contact the helpdesk quoting this
> message.", 0, "Error", 16)
> End Function
>
>
> Can anyone help at all, this has been driving me loopy all day! :)
>
> Thanks
> Steve

Top