export group content

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
    - Browse password protected page from vbscript Greetings. For a project I need to do the following: 1. Open a URL, 2. send form with username/password to gain access 3. Identify in the page retrieved some html code (a table) 4. Continusouly get the same page and compare the table to identify changes} Th main purpose its to be able to rapidly detect when a password protected web page changes. I have seen some sample code using the "MSXML2.ServerXMLHTTP" and the "InternetExplorer.Application" object, but none of those I have seen authenticating. Any ideas? Thanks in advance, Camilo Arango Tag: export group content Tag: 195044
  - 2
    - Create Multiple Exchange 2003 Mailboxes. Is it possible to create Exchange 2003 mailboxes for all users in AD at once using a vbs script instead of creating a mailbox for each user individually one at a time? Would appreciate any help. Thanks. Tag: export group content Tag: 195039
  - 3
    - WMI using a variable as the propertyname Lo group, The following is driving me crazy: I have connected to WMI (Win32_BaseBoard) to get some info about my motherboard. As long as I hardcode the propertyname (for example objWMI.Manufacturer) everything works fine (displays Asus). However, what I would like to do is use a variable containing the value "Manufacturer" and use that instead of the hardcoded propertyname. Simply put I want something like objWMI.strKeyName. Can it be done ?!? TIA, SomeDude Tag: export group content Tag: 195034
  - 4
    - Script to test whether there is media present in a removable tape drive? I have a SCSI DAT tape drive on a Windows 2003 server. I want to write a script that reports whether there is a tape inserted in the drive or not. I'm not sure if this is possible or not... Can anybody assist with a pointer? thanks in advance -- Simon Verona Tag: export group content Tag: 195024
  - 5
    - Creating a class to open a ssh tunnel Hello NG, I have searched the net for some answers, but nothing that was written for a pure VBS. What we have: Several servers from customers connected via firewall to our support-environment. We only may go there using RDP or SSH for filetransfer. We have some scripts, written in VBS, that collect data from a server and send them direct to a MS SQL Server. These only work if port 1433 is open though the firewall. Now we have some customers, that permit 1433 throug the Firewall and many hwho would like to remove this rule. What I now need to do is do define a Class in our VBS, which opens a SSH tunnel and lateron closes it. It needs to be pure VBS, there may not be any third-party DLL or anything, the customer cannot read in clear text -we wouldn't get approval for this. We are using openssh server version 3v8 on both sides (ssh.exe). Can somebody help me with this class. I have found many exambles using visual basic but non of them were usable in vb script. thanks in advance Carsten PS: i think of something like this: class sshtunnel public function openit() ....blablabla... end function public function closeit() ...blubblubblub... end function end class set tunnel=new sshtunnel tunnel.open() ...many lines doing something with the tunnel... tunnel.close() Tag: export group content Tag: 195021
  - 6
    - How to restore all active windows I am trying to write a script to restore all open programs in windows XP professional. I have come across the key shift+windows key+M (script below), but it restores only windows that have previously been minimized by windows key+M. Can anyone find a solution for me? I am a newbie at windows scripting, so please describe solution in detail. Thanks, Margie. set WshShell = WScript.CreateObject("WScript.Shell") WSHShell.SendKeys("^{ESC}+M") Tag: export group content Tag: 195017
  - 7
    - ntfs permission I am in the process to trying to come up with a script for look at access right of particular user or group. what is the best way I ma aware of file system objects, and somehow I guess I can use cacls or equivalent and iterate folders, files. for a given folder and its contents, if the permissions are inherited by its files and subdirectories, I prefer not to list its files and subdirectories but only exceptions or is there already such scripts out there from Microsoft or whatever that there is no point of me re-inventing from scratch? Tag: export group content Tag: 195003
  - 8
    - For Each Does For Each...Next always iterate through an array in the same order (increasing from the first element to the last)? Brian Tag: export group content Tag: 195002
  - 9
    - password protection I am writing a website using .asp with an Access Database backside. I have a login process to access the database/website. I was wondering if there is either a way in Access or VBScript to enforce exact passwords. Right now it doesn't care if the password has upper case or lower case letters. Thanks Jeremiah Thoman Tag: export group content Tag: 194996
  - 10
    - connect to network drive I have used this batch file format in the past to connect to network drives. Even people who are under two different server clients, ie. Novell and Windows Active Directory (AD). For some reason this time it is not authenticating the user name. Just some background so you might be able to understand what the problem is.. User in different location and a Novell client but has access to AD. For performance, the application was placed at the same location but on an AD server. The "aa/" d user domain may be different then the server. The IP addresses for the two locations start with different #'s. Does that matter? Also the users are part of a group and have a generic password set for the whole list of users. net use y: /d net use y: \\XXX.XX.XXX.XX\Folder /user:aa\dez1 P@ssword any insight would be great. thanks Tag: export group content Tag: 194995
  - 11
    - DateDiff with special format. Hello, I'm trying to create a script that tells the difference between 2 dates in the following format: 5 years, 4 months, 1 Week, 3 days, 7 hours, 3 minutes and 34 seconds. This is what I have so far: var1 = dateserial(2005, 01, 25) var3 = now() var3 = Datediff("s", var1, now_var) but this yealds an answer only in seconds. I'm not sure where to go from here any help is appricatied. Tag: export group content Tag: 194994
  - 12
    - Returning the Err object from a function Hi! :) I want to return the err object from a function. How do I do this? Do I have to create my own error class or is there a way to create an instance/copy of the existing to return? Thanks a million! :) /Sofia Tag: export group content Tag: 194991
  - 13
    - Terminate function? Hi, I have a script running as a service (using srvany.exe) It runs fine and stops fine. I want the script to run a few more commands when: 1. i stop the service 2. when the service crashes Can anyone point me in the right direction (with examples maybe...) Tag: export group content Tag: 194988
  - 14
    - Foldersize Hi all, how can I determine the foldersize using WMI Perhaps someone has written such a script before that does this job and knows what is wrong. Thanks in advance Helmut Here is a code excerpt: server = "myServer" Set wmi = GetObject("winmgmts://" & server & "/root/cimv2") Set basis = wmi.get("Win32_Directory.name='s:\myfolder'") MsgBox basis.GetObjectText_ ' o.k. Set klassen = basis.Associators_ (, "Win32_LogicalDisk", , , , , , , 32) For Each klasse In klassen list = list & klasse.size Next MsgBox list Tag: export group content Tag: 194987
  - 15
    - gather list of users in a query-based DL Hi, Has any one figured out a way to grab the list of user names from a query based DL? I can use LDAP to pull it out of a normal DL, but I get an error when trying to use the same method on a QBDL. Tag: export group content Tag: 194986
  - 16
    - Dell Battery Recall Hi, Now that Dell is doing a recall of batteries for some laptop modells (https://www.dellbatteryprogram.com/) and we do have about 60 of them in different locations i was wondering if anyone have some info on how to get the battery PPID (Dell Part Piece Identification) via script. I have this so far but the only use i have is that the manufacturer is Sony, which sure helps a lot. --------------------------------------------------------------------- On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PortableBattery") For Each objItem in colItems Wscript.Echo "SystemName : " & objItem.SystemName Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Location: " & objItem.Location Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Name : " & objItem.Name Wscript.Echo "Status : " & objItem.Status Wscript.Echo Next ----------------------------------------------------------- I have tried with all items in the class Win32_PortableBattery: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_portablebattery.asp Tag: export group content Tag: 194985
  - 17
    - How do I get a Script recogonize both uppercase and lower case letters..? Sub Main() If Extract <> "%lookupq1%" Then Email2DBSend = True Else Email2DBSend = False End If End Sub Here "%lookupq1%" refers to both uppercase letters, how do I make it recogonize lower case letters??Any advise? Thanks in advance Andz Tag: export group content Tag: 194982
  - 18
    - passing variables Hi ppl i am in need for some help on a usermanager script i am writing. My problems is this, when using this code snippet i found on Technet i want to substitue the C:\finance and FianaceShare with a variable. these are declared before this code and can pop a message box fine so i know they are working fine. When i drop the quotes and just put in a variable i get an error expected ] any help would be much appreciated Daz Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") errReturn = objNewShare.Create _ ("C:\Finance", "FinanceShare", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Public share for the Finance group.") Wscript.Echo errReturn Tag: export group content Tag: 194981
  - 19
    - Add money to your Paypal account with OPRAH xsDat Read this message until the end, and you will find out how the money flows in easy !!!!. Follow the steps and it WILL work. Trust me !!!!!. It's NOT illegal and it is NOT a scam !!!!!. PROVEN ON OPRAH! Reported in the Wall Street Journal!!!! The only thing you need is : - E-MAIL ACCOUNT - PREMIER (FREE) or BUSINESS PAYPAL ACCOUNT - $6 on this account (The only investment) - 30 minutes of your time There is no limit on how much money you can recieve, and you haven't got anything to lose with this Business program. I will explain how it works !!!!!. Follow these 4 easy steps and it WILL work !!!!!. STEP 1 : SIGN UP FOR A FREE PAYPAL ACCOUNT !!!!!. Paypal is a free and safe way to pay and receive money on the Internet. Creating a account is as easy as creating a MSN account. Copy and paste the next line in your Internet browser and sign up. HTTP://WWW.PAYPAL.COM Be sure to sign up for a FREE Premier or Business account and not for a Personal account. You cannot receive CREDITCARD payments with a Personal account and we can't have that. Do we !!!!!. STEP 2 : SENT $6 TO YOUR PAYPAL ACCOUNT This is your only investment to receive the money with ease. With your Paypal account, send $1 to each e-mailadres listed below. !!!!! IMPORTANT !!!!! Be sure to use this SUBJECT : *PLEASE PUT ME ON YOUR EMAIL LIST* when you send the money. 1) martine@pilote.net 2) dexxatol@netcourrier.com 3) armygirl8568@hotmail.com 4) comjii@starband.net 5) sinnek@bellsouth.net 6) nsi@nelasat.com STEP 3 : PUT YOUR E-MAIL ADDRESS ON THE BOTTOM OF THE LIST After you have send $1 to each e-mail address, put your e-mail address on the 6th place. Remove e-mail address number 1, and move each e-mail address 1 step up the ladder. !!!!! IMPORTANT !!!!! BE SURE THAT THE E-MAIL ADDRESS YOU USE IS THE SAME AS YOU USED TO SIGN UP AT PAYPAL. Remember that this is LEGAL. You are creating a service : an e-mail servicelist. STEP 4 : UPLOAD OR COPY THIS MESSAGE TO NEWSGROUPS, FORUMS ETC AND EMAIL IT TO ALL YOUR FRIENDS! There are 32,000 newsgroups. Upload or copy this message to at least 200 newsgroups or forums etc, but ........ remember that the more your upload the more people will see your message and the MORE MONEY WILL FLOW IN. How to upload to newsgroups and forums? : After you have followed step 1,2,3 and 4, save this message (and copy so you can use it again). Use your Internet browser and Outlook Express or another newsreader and try to find FORUMS, NEWSGROUPS, BULLETIN BOARDS, DISCUSSION GROUPS, CHAT SITES and ONLINE COMMUNITIES. Use GOOGLE or use a NEWSERVER. Use every option to post this message. Download PostXpert to send 1 message to more NEWSGROUPS at the same time. !!!!! REMEMBER !!!!! The more you post this message the more MONEY WILL FLOW IN. Why does this Business program work so well !!!!!. Lets asume that from the 200 (or more) messages that you have posted, only 5 people respond, you will have your $6 back that you have invested. Those 5 people will each send at least 200 messages with your e-mailadres on number 4. That's 6 x 6 x $1 = $36. The next 25 people will also send 200 messages with your adres on number 3. That's 36 x 6 x $1 = $216. The next 216 people also send 200 messages with your name on number 2. That's 216 x 6 x $1 = $1296!. Those 1296 people again also send 200 messages with your name on number 1. That will give us a total of 1296 x 6 x $1 = $7,776. Now the last tier! 7776 x 6 x $1 = $46,656!!!!!! This is only a EXAMPLE with 6 reactions. You WILL get MORE responses than that. Remember that most newsservers will leave the posted messages on there servers for about 2 weeks. If you will post your message again, it WILL again start from the beginning. So you can repeat this over and over again. Everyday MILLIONS of people are ONLINE and reading these messages, JUST LIKE YOU RIGHT NOW. I also was sceptical in the beginning and have read a lot of these messages. I also thought that it was bullshit. Until I thought : What the hell!, only $6. What's $6 and a couple of minutes of my time to solve my money problems. !!!!! REMEMBER !!!!! Follow every step, and IT WILL WORK, TRUST ME. !!!!! !!!!! BEST WISHES AND GOOD LUCK !!!!! w)O>+;)<9UVS;F>qaGL<Uq#v`V6(F]- rM;$g+!4IIQ*827?H4 Tag: export group content Tag: 194979
  - 20
    - Re: Using Run to access Start Csaba Gabor wrote: > This is not clear to me. %cmdcmdline% as such, as far as I know, > exists only within cmd.exe. However, as far as I am aware, whenever > any program is started off, it has an associated "command line" that > caused it to be executed. Within a VB Project you can obtain it > directly with Command$ and from c++ evidently with GetCommandLine(). I don't believe that cmd.exe will be involved at all for some ways that you script could be started. i.e wscript scriptname.vbs <some arguments> from start/run will just start wscript.exe directly. It sounds to me that you need to re-think what you are trying to achieve here or perhaps explain a little more of your reasoning for wanting to get at %cmdcmdline% - perhaps then someone can come up with an alternative approach. -- VS Tag: export group content Tag: 194976
  - 21
    - Creating new reg key, but default value is messed up. I have a script changes some snmp community settings on our servers. It deletes the existing key, creates a new one and populates it with our new traps. Only problem is that when it creates the new key, the default vaule looks wrong. It gets assigned a value instead of the (no value).. its not causing any issues, but was wondering if anyone found better syntax than what I am using to create a new key.. Here is the line and below it I posted the whole script 'recreate the key WshShell.RegWrite "HKLM\system\currentcontrolset\services\snmp\parameters\trapconfiguration\delltrap\", 1, "REG_SZ" Whole script On Error Resume Next 'set the traps. value1 = "blah" value2 = "blah2" value3 = "blah3" value4 = "blah4" 'create the scripting object Set WshShell = WScript.CreateObject("WScript.Shell") 'delete the existing key WshShell.RegDelete "HKLM\system\currentcontrolset\services\snmp\parameters\trapconfiguration\delltrap\" 'recreate the key WshShell.RegWrite "HKLM\system\currentcontrolset\services\snmp\parameters\trapconfiguration\delltrap\", 1, "REG_SZ" WshShell.RegWrite "HKLM\system\currentcontrolset\services\snmp\parameters\trapconfiguration\delltrap\1",value1 WshShell.RegWrite "HKLM\system\currentcontrolset\services\snmp\parameters\trapconfiguration\delltrap\2",Value2 WshShell.RegWrite "HKLM\system\currentcontrolset\services\snmp\parameters\trapconfiguration\delltrap\3",Value3 WshShell.RegWrite "HKLM\system\currentcontrolset\services\snmp\parameters\trapconfiguration\delltrap\4",Value4 Tag: export group content Tag: 194970
  - 22
    - Setting IE's Temporary Internet File Folder - WMI or GPO I'm stuck, I need to know if it is possilbe to set the folder location with wmi/VBscript. If not is it possible use an add-in for GPO to do it? Please keep in mind I already have the code for retrieveing the information with WMI, but I need the code for changing the folder location. Thanks, Greg Tag: export group content Tag: 194968
  - 23
    - how to query user's desktop How would I query user's desktop folders using WMI? I've tried using %username% in the profile path but that doesn't seem to work. I know WMI uses '%' as a wildcard. Help please. Tag: export group content Tag: 194956
  - 24
    - objEmail.To combine variable and string I'm trying to combine a variable email address and a string email address. Microsoft VBScript compilation error '800a0401' Expected end of statement objEmail.To = Recordset1("email_mypic");"mail@tcp.com" ---------------------------------------^Notice anything wrong?objEmail.To = Recordset1("email_mypic");"mail@tcp.com" Tag: export group content Tag: 194954
  - 25
    - File permissions Hi! :) Until now I've used SetAcl.exe for setting permissions but I would like to learn to do it by myself now. (SetAcl.exe works fine for most things but a lot of the time you have to map a drive for it to work over the network though it sais it should work with UNC paths and then there's the problem with having to bring the exe file whereever you go...) Any tips on where I can find information om how to set permissions with only vbs and what's built into the os'es? I think I searched on it a while back but only found bad sites without examples. I guess what I'm looking for is really a few good examples. Thanks a million! :) /Sofia Tag: export group content Tag: 194950
- Next
  - 1
    - VBS Logon Script Help I have the following VBS script that runs at logon and removes a shared printer on a server. This work great but if the user was to logon again the script would error saying printer does not exist. Can anyone help with script so that if it gets this error it would not display error ocde on screen and just finish? New to VBS..... VBS Script ' RemovePrinterConnection.vbs - Windows logon script ' VBScript to - Network Printer ' ------------------------------------------------------' Option Explicit Dim objNetwork, strUNCPrinter strUNCPrinter = "\\servername\HPLaserJ1022NW" Set objNetwork = CreateObject("WScript.Network") ' Section which removes the network printer objNetwork.RemovePrinterConnection strUNCPrinter 'WScript.Echo "Check Printers folder NO: " & strUNCPrinter Wscript.Quit Error Code Display on screen if you have already run this cript and its tries again Line 1 Char 1 Error: This Network connection does not exist Code: 800708CA Source: wshNetwork.RemoveNetworkDrive Thanks Tag: export group content Tag: 194944
  - 2
    - Script help please (unlock locked out accounts) NEWBIE G'day all I've got two questions if you will The below script (that I hacked together )will unlock a users account that has entered the wrong password too many times but I have a problem with the user interface. I want our helpdesk people to be able to use the loginID instead of the users full name. How can I get the fullname from a user input of the loginID so that I can then use that in the GETOBJECT section? How can I find out all the options for objUser ? I suppose this is some sort of comand reference Thanks regards Mark Aus *****SCRIPT START************************** 'Get the user name UserLOGID = InputBox("Enter the Login ID of the User you wish to unlock") 'if Cancel selected - exit If (UserLOGID = "") Then Wscript.Quit 'Get the Organizational Unit OrgInput=InputBox( _ "Select the Organizational unit by number" & vbCRLF & vbCRLF _ & " 1 - SITE1" & vbCRLF _ & " 2 - SITE2" & VbCrLf _ & " 3 - SITE3" & vbCRLF _ & " 4 - SITE4" & vbCRLF _ & " 5 - SITE5" & vbCRLF _ & " 6 - SITE6" & vbCRLF _ & " 7 - SITE7" & vbCRLF & VbCrLf ) 'if Cancel selected - exit If (OrgInput = "") Then Wscript.Quit If (OrgInput = "1") Then OrgUnit="SITE1" If (OrgInput = "2") Then OrgUnit="SITE2" If (OrgInput = "3") Then OrgUnit="SITE3" If (OrgInput = "4") Then OrgUnit="SITE4" If (OrgInput = "5") Then OrgUnit="SITE5" If (OrgInput = "6") Then OrgUnit="SITE6" If (OrgInput = "7") Then OrgUnit="SITE7" MsgBox ("You're unlocking "& UserLOGID & VbCrLf _ & "from Organizational Unit "& OrgUnit) 'error check input If (INSTR("1234567",Action)=0) OR (Len(Action)>1) then y = msgbox("Unacceptable input passed -- '" & OrgUnit & "'", _ vbOKOnly + vbCritical, "That was SOME bad input!") Wscript.Quit End If Set objUser = GetObject _ ("LDAP://cn="& UserLOGID &",ou="& OrgUnit &",ou=People,dc=internal,dc=business,dc=big,dc=com,dc=au") objUser.IsAccountLocked = False objUser.SetInfo MsgBox ("Account has been unlocked" & vbOKOnly) Wscript.Quit *****SCRIPT END************************** Tag: export group content Tag: 194943
  - 3
    - Batch file or VB script for more automated USMT? I have created individual batch files for scanstate and loadstate where I edit them for each user. I have to manually change the user name, manually change the file name of the batch files I create for each user, and manually name the share name and location where each user's data is saved. Is there a way to make this much easier, such as a batch file or VB script that simply prompts you for the user name and the site (user name entered at the prompt then being used to automatically choose the username for scan state and load for loadstate, as well as create/name a directory based on user name to store the USMT data. Site name entered would determine from what location scanstate and load state executables would run and where the data files would be saved so that it always saves the data to the local site of the user rather than across a WAN). Basically I want an interface that is very simple and prompts: Are you collecting data from the old PC or loading data to the new PC? (A or B) Which site? (4 choices) What is the user name? The person running the tool should only need to run the tool, enter the answers to those 3 prompts. They would run it from the old PC to collect the data, wait for the data to be saved to the network share, then run it at the new computer to load the data. It would great if it at least show a message saying loadstate or scanstate is in progress and then show when completed sucessfully. I doubt I could be the first person to think of this, so maybe something like this has already beeen created or else can someone help with this? Tag: export group content Tag: 194940
  - 4
    - RegExp Help Hi, Ok, this may be stupid on my part, but I hate asking for help since it is an affirmation that I am not as smart as I think I am.. Anyhow...I wrote a ADSI script that automates the creation of distribution groups. Sometimes users provide illegal or unsupported characters for the name of the group so I need to escape the characters in order to Put the distinguished name of the object. Most likely the name that is provided will only have one of these characters. I just don't understand the matches object well enough to use firstindex, etc...Here is some sample code I have. Thanks for any help provided. strData = "my+test?hel>lo" Set regEx = New RegExp regEx.Pattern = "\+|\?|\>" regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(strData) For Each match In matches StringToReplace = regEx.Replace(strData, "\" & match.value) Next Set regEx = Nothing WScript.Echo StringToReplace Output: my\>test\>hel\>lo Intended Output: my\+test\?hel\>lo Tag: export group content Tag: 194938
  - 5
    - How to read Registry STRING_EXPAND_SZ WITHOUT EXPANDING? How can I read a STRING_EXPAND_SZ value from the Registry and get the %SystemRoot% (or any other possible substitute string for that matter) verbatim, without being substituted? Thanks in advance. Tag: export group content Tag: 194931
  - 6
    - VBScript and MSOffice Is it possible to harvest all the fieldnames and 1st line of data from all xls and mdb's using vbscript? The reason is to verify a company computer does not have SSN's or bank account or checking account files, or cc numbers on it. A policy might be in place but to actually audit hundreds of machines would take months, and by then I would need to audit again! To find all the files is easy, but to make things simple I would want to gleam all the data into a csv file with the machine name, filename and path in case you found one you would know where it came from. Is this out of the range of reasonable for vbscript? Tag: export group content Tag: 194919
  - 7
    - SQL query: Error as if column is not there? Hello, I'm having a strange problem. I get an error "Item cannot be found in the collection corresponding to the request name or orginal," even though WEISGSUPPORT is contained within the BladeAlias column: Set objRecordSet = objConnection.Execute("Select BladeOwner, CageSerialNum, SlotNum FROM SMBlades WHERE BladeAlias = 'WEISGSUPPORT';") Do While Not objRecordset.EOF strResults = strResults & objRecordSet("BladeAlias") & vbnewline objRecordset.MoveNext Loop I get the error at the first line in the do...loop. Why is this happening? It's driving me crazy! Thanks for the help, Matt Tag: export group content Tag: 194914
  - 8
    - Copy folder off network share, overright if existing, and run a specified program I have been fighting with this all morning. I need to copy a folder off of a network share, overright the folder if it exists on the local machine and run a specified program with switches as a administrator. Can you please help with this. Network Share path \\server\software\folder Tag: export group content Tag: 194906
  - 9
    - Creating a Link Checker So my boss has been killing me about creating a link checker, what I need to know is there a sample script somewhere to get me started on creating a checker? Basically we have a ton of links and want to check if they are valid as in not hardcoded, not sure I want to check if the link is actually working cause that might not be an easy thing to pull off. Reason I am doing vbs is cause we cannot install anything on our server and running something client side is not dependable. With a vbs file I can just schedule it and produce a report and email it to myself or anyone else who needed to see if there were broken links. Any leads to good example scripts? Tag: export group content Tag: 194904
  - 10
    - Bulk Delete groups from AD I am trying to bulk delete groups from AD using VBScript. I have a list of the distinguished names of the groups in an Excel spreadsheet. My problem is that the groups span accross several domains in my AD forest and i am unable to find a script which will delete an object purely by the distinguished name. All the scripts i have found have to at least bind to the domain container first. Can anyone help me with this? Tag: export group content Tag: 194902
  - 11
    - Date Conversion from DD/MM/YYY hh:mm:ss to YYYYMMDDhhmmss I would like to make a date conversion from DD/MM/YYY hh:mm:ss to YYYYMMDDhhmmss in vbscript. Thanks for your help. youyoupapayou Tag: export group content Tag: 194899
  - 12
    - I'm tring a VBscripting to send a fax, can someone please help me? Hey.. I'm running some vba code to change a certain sheet accordingly to some information. This sheet then should be faxed to a certain client, the problem is that Every sheet differs to their respective client and ther's 500 clients. How will I be able to send every sheet to it's respectible customer, with the click of one button? I can already print every sheet with the specific information, but how will I fax it without having to enter the details of 500 people, can I use a vbscript file and how do I do that? Tag: export group content Tag: 194898
  - 13
    - Web expression Hi, I would like to know is there a generic rule that I can follow to determine if the string is a valid URL? eg. prefix is http, www...etc. Tag: export group content Tag: 194896
  - 14
    - Error message I have created a kixform login script (I've also posted this question on the kixforms board). The form contains a hyperlink to the H: drive and a hyperlink to the S: drive. The first time I click either I get an error message simillar to: Windows cannot find 'ldist,:1588:4064,h:\' Make sure you typed the name correctly, and then try again. To search for a file, click on the Start button, and then click search. After I click on OK and then reclick on the link, everything works fine. Has anyone experienced anything simillar to this? Thanks, Jeremy Tag: export group content Tag: 194894
  - 15
    - detect if a sidebar panel is open in IE I am using this script to open sidepanels in IE: <script language="VBScript"> set objShell = CreateObject("Shell.Application") bReturn = objShell.ShowBrowserBar("{FF059E31-CC5A-4E2E-BF3B-96E929D65503}", true) </script> but I can only open panels, not close them, because I don't know how to detect whether a panel is already open. I'd like to have it this way: if panel=open then objShell.ShowBrowserBar("{FF059E31-CC5A-4E2E-BF3B-96E929D65503}", true) else objShell.ShowBrowserBar("{FF059E31-CC5A-4E2E-BF3B-96E929D65503}", false) end if Is it possible to detect the state of side bars in IE? If yes, please provide the necessary code. Tag: export group content Tag: 194892
  - 16
    - Using Run to access Start Is there a way to use WScript.Shell's Run method to invoke Start? The reason is that I want to get ahold of a pseudo-hidden environment variable, %cmdcmdline%. For example, if (on Win XP) at the Cmd window you type: SET XY=%cmdcmdline% SET you will see how that cmd window was invoked (simply typing echo %cmdcmdline% might lead to odd results). Start has the characteristic, that it will preserve the environment variable settings. Thus, if at the Cmd window you type: START cmd.exe SET XYZ=%cmdcmdline% SET you'll see that the results are the same as for the original Cmd window. That is why I would like to be able to use CreateObject('WScript.Shell')->Run to invoke Start. However, Run seems not to know about Start. Any ideas? Or perhaps someone has a better method? I've tried Set aEnv=CreateObject("WScript.Shell").Environment("Process") then aEnv('cmdcmdline'), aEnv('=cmdcmdline'), and friends without success. Thanks, Csaba Gabor from Vienna Tag: export group content Tag: 194890
  - 17
    - knowing if LAN is working Hi, I would like to start a simple visual basic script, or batch file, as soon as the connection to the LAN is working. My problem is: how can i know when the LAN is working? I would need something like this: LanWorking = False; while ( LanWorking == False ) wait 1000 LanWorking = CheckLan( ) ... how can I do this? thanks for every help! Tag: export group content Tag: 194885
  - 18
    - move program window location after opening I would like to open a program window, example the command prompt and move its location on the screen. I would like to move it to the left corner or right corner of the screen. I can use the RUN command to execute the program - but it opens at any location on the screen, I need to force it to open on the left hand or right hand corner - fixed location every time the vbscript is run. Thanks in advance. Tag: export group content Tag: 194882
  - 19
    - Script checks for computer membership in group I am new to scripting and I am trying to figure out how to do the following: Have a login script check to see if the computer running the script is a member of a specific group. If it is, then do one thing. If not, then do something else. I am using VBScript to map drives based the users group membership but I am not sure how to check the computer group membership. Any advice? F. Tag: export group content Tag: 194881
  - 20
    - Codeaholic's StandardLibrary.vbs Someone asked for my StandardLibrary.vbs file. After some weeks in close combat with the "black dog" (an animal I'm sure some of you are, unfortunately, familiar with) I have finally struggled out of the pit long enough to get in posted: <http://codeaholic.blogspot.com/2006/08/vbscript-standard-library.html> Kind regards, Bruce. Tag: export group content Tag: 194878
  - 21
    - Help with Permission Denied Hi Folks, Need a hand here. I just got a new Car Stereo that takes SD cards, but the file format is WAY different than what Windows Media player synchs to the cards. I'm trying to read a .m3u playlist file and take each song and copy it to the SD card in a 8 character folder name of the play list. I keep getting "Permission Denied" errors. The music lives on a server in my house and I'm attempting to copy mp3 over the network to my SD card local to my client by double clicking on the .vbs file. Here is the script so far: (PS, it's not optimized, or cleaned up) ------ Set objFSO = CreateObject("Scripting.FileSystemObject") Dim PlayListName Dim SFNPlayListName Dim PlayListFile Dim SDCardDrive ' Changable Playlist Options PlayListName = "Driving Trax" PlayListFile = "\\server\Music\Playlists\Driving.m3u" SFNPlayListName = "DRVNG" SDCardDrive = "G:" 'Check to see if the target exists, if it does, delete it DestDir = SDCardDrive & "\" & SFNPlayListName If objFSO.FolderExists(DestDir) Then Set DelFolder = objFSO.GetFolder (DestDir) DelFolder.Delete End If 'Re create the folder and prep for copy Set MakeFolder = objFSO.CreateFolder(DestDir) Const ForReading = 1 Set plFile = objFSO.OpenTextFile(PlayListFile, ForReading) Do Until plFile.AtEndOfStream txtLine = plFile.ReadLine If Len(txtLine) <> 0 Then If Left(txtLine, 1) <> "#" Then 'Wscript.Echo ("Copy " & txtLine & " to " & DestDir) If ObjFSO.FileExists(txtLine) Then Set ws = WScript.CreateObject ("WScript.shell") ObjFSO.CopyFile txtLine, DestDir ' Permission Denied here! End If End If End If Loop plFile.close Wscript.Quit ----- I labelled the line I get permission denied on, I can't for the life of me figure out why, because if I take the commented "echo" line and copy and paste it into a CMD window, it works fine. Moreover, if I replace that permission denied line with: Call ws.run("cmd.exe /c copy " & Chr(34) & txtLine & Chr(34) & " " & DestDir & "\") It works fine (although it opens up about 80 CMD windows and freezes explorer until the copy is complete). Any idea why I'm getting permission denied here? Does the WSH block access to copy files (I was able to delete above?!?) or something? Thanks for the help! Sean Tag: export group content Tag: 194877
  - 22
    - About create users and move them to appointed OU. Hi, everyone. I am going to create 10 users who names client 1 to client 10, and then move them to the appointed OU which names "SYS" I prepared 2 vbscripts. 1st: create 10 users: source code: Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & _ objRootDSE.Get("defaultNamingContext")) For i = 1 To 10 Set objLeaf = objContainer.Create("User", "cn=Client" & i) objLeaf.Put "sAMAccountName", "UserNo" & i objLeaf.SetInfo Next WScript.Echo "Users created." 2st: move them to OU (the name for ou is "SYS") Const ADS_PROPERTY_APPEND = 3 Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & _ objRootDSE.Get("defaultNamingContext")) Set objOU = objContainer.Create("OU", "cn=SYS") objOU.Put "sAMAccountName","SYS" objOU.SetInfo For i = 1 To 10 strDN = ",cn=Users," & objRootDSE.defaultNamingContext objOU.PutEx ADS_PROPERTY_APPEND, "member", _ Array("cn=UserNo" & i & strDN) objOU.SetInfo Next WScript.Echo "Users added to the OU." But , oh no, script failed. who can tell me what's wrong with "it" (I mean the script)? Thanks for everyone. Hope everything goes well with you. KejiaLi coming from China email: kejiali@gmail.com Tag: export group content Tag: 194876
  - 23
    - Function help Hi, I have a stream which returns a value as shown below, 1190 Chris Grove 1058 GEORGE EVANS 1231 Susan D Elowson How do I return just the Numbers preceding the names? Any help is sincerely appreciated. Thx, Sunny Tag: export group content Tag: 194875
  - 24
    - Local Account: PasswordLastChanged Anyone successful getting passwordlastchanged on local accounts? I can get this for domain accounts but the same vbs code (using the WinNT provider) doesn't seem to work for local accounts. TIA Dave Tag: export group content Tag: 194871
  - 25
    - How to create a script to execute an application in the "Visual C++ 6" Hi, My objective is to execute an application that is in the directory of the open project. For in such a way i created this script: language="VBScript" function fnShellExecuteVB() dim objShell set objShell = CreateObject("Shell.Application") objShell.ShellExecute "notepad.exe", "", "", "open", 1 set objShell = nothing end function Sub test() fnShellExecuteVB End Sub In this script I am trying to execute notepad.exe as test and am receiving the following message from error: "Permission Denied" please, somebody knows what to make to execute an application in a macro in the "Visual c++ 6"? And how to obtain the directory of an open project? much thankful, helin Tag: export group content Tag: 194869

ok. i am trying to create a script that exports the contect of a group to a
textfile..it should search ad when one doesnt know in which ou the group
resides. please see what i have done so fare cause i can use some help..am
stuck :-)
thanks.

On Error Resume Next

dim target

strdnsdomain="test"

' Bind to Active Directory
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set TextFile = FSO.OpenTextFile("C:\Info.txt", 2, True)

target=inputbox("Choose Attribute Name")
if target="" then wscript.quit 'user clicked cancel

Set objGroup = GetObject ("LDAP://cn="& target& strDNSDomain)
objGroup.getInfo
arrMemberOf = objGroup.GetEx("member")

For Each strMember in arrMemberOf
tempvarMember = tempvarMember & strMember & VbCrLf
Next

TextFile.WriteLine "members '" & target & "' are:" & VbCrLf & tempvarMember

wscript.quit

Top