Populate multiple target directories from one source

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
    - Cleaner Way to write this? This works but I am looking for a cleaner way to write it. Also is there a way to display the seconds as well? a = "4/28/06 11:00:00AM" If (Index = 2) Then b = Day(a) - Day(Now()) c = Hour(a) - Hour(Now()) d = Minute(a) - Minute(Now()) If (c < 0) Then c = c + 24 b = b - 1 End If If (d < 0) Then d = d + 60 c = c - 1 End If MsgBox "Days " & b & ", Hours " & c & ", Minutes " & d End If Tag: Populate multiple target directories from one source Tag: 190100
  - 2
    - Trying to post data to another server Hi All, Here's what I'm trying (got this code from MSDN): Dim objSrvHTTP Dim objXMLSend Dim objXMLReceive Set objSrvHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") Set objXMLSend = Server.CreateObject("Msxml2.DOMDocument.3.0") Set objXMLReceive = Server.CreateObject("Msxml2.DOMDocument.3.0") objXMLSend.async = false objXMLSend.loadXML ("<msg><id>2</id></msg>") objSrvHTTP.open "POST","http://172.17.12.30/EEntryGateway/default.aspx",false objSrvHTTP.send (objXMLSend) Response.ContentType = "text/html" Response.Write (objSrvHTTP.responseText) The code executes fine, and on my calling page, I get the results of the requested page (default.aspx) back. However, from the page that was called, I can't figure out where the data I'm posting is going. It doesn't appear in the Form collection anywhere... What am I doing wrong? How do I sent POST data? Tag: Populate multiple target directories from one source Tag: 190088
  - 3
    - How to monitor if Terminal Server is running from remote computer? Hi Is it possibel to check if Terminal Server is up and running from an remote computer? /Romme Tag: Populate multiple target directories from one source Tag: 190087
  - 4
    - Something wrong with my INSERT INTO What is wrong with the below code? It gives me error: Error Type: Microsoft JET Database Engine (0x80040E14) Syntax error in INSERT INTO statement. /w/results.asp, line 24 Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.3); .NET CLR 1.1.4322; .NET CLR 2.0.50727) Page: POST 65 bytes to /w/results.asp POST Data: T3=ssdf&T1=sdf&D1=No&D2=Sabre&D3=Greaves+Travel&T2=&SUBMIT=Submit ---------------------------------- I have a file protected.asp and the below line to submit data into database. <form action="results.asp" METHOD="POST"> Following is the contents of results.asp ---------------------------------- <%@ Language=VBScript %> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then dim dDate,dPNR,dSale,dGDS,dWebsite,dOWebsite,sql,connString dDate = Request.Form("T3") dPNR = Request.Form("T1") dSale = Request.Form("D1") dGDS = Request.Form("D2") dWebsite = Request.Form("D3") dOWebsite = Request.Form("T2") connString = "your connection string" 'conn.Open connString sql = "INSERT INTO data ( Date, PNR_Number, Sale, GDS, Website, Other_Website) VALUES ('" & dDate & "','" & dPNR & "','" & dSale & "','" & dGDS & "','" & dWebsite & "','" & doWebsite & "');" cst = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("DB\db1.mdb") set conn = CreateObject("ADODB.Connection") conn.open cst conn.Execute sql conn.Close Response.Redirect("protected.asp") end if %> Tag: Populate multiple target directories from one source Tag: 190080
  - 5
    - Help with Outlook Exchange Script I have been writing a vbscript file that queries the LDAP then creates a .csv file with all the contact information of users in my company. I can then go and manually create a new folder in contacts then import the .csv into that folder, where it then organizes everyone's information. My question is if there is a way in vbscript to automatically create a contacts folder and import a .csv iinto the contacts folder with vbscript? Thanks Tag: Populate multiple target directories from one source Tag: 190079
  - 6
    - Mapping Network printers and loading drives with a VB Script Hello all, I need to be able to map a network printer but i'm using IPP so when i type in the printer IP \\xxx.xxx.xxx.xxx\ipp I have to load the driver from windows driver list. How can I do everything through a script? Tag: Populate multiple target directories from one source Tag: 190078
  - 7
    - Lastlogon Script help needed please.... This is a Lastlogon time/date script. How can I make this script output to an Excel file, at the moment displays on screen and I have to press enter each time. ******************************************** Option Explicit Dim objRootDSE, strConfig, objConnection, objCommand, strQuery Dim objRecordSet, objDC Dim strDNSDomain, objShell, lngBiasKey, lngBias, k, arrstrDCs() Dim strDN, dtmDate, objDate, lngDate, objList, strUser Dim strBase, strFilter, strAttributes, lngHigh, lngLow ' Use a dictionary object to track latest lastLogon for each user. Set objList = CreateObject("Scripting.Dictionary") objList.CompareMode = vbTextCompare ' Obtain local Time Zone bias from machine registry. Set objShell = CreateObject("Wscript.Shell") lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _ & "TimeZoneInformation\ActiveTimeBias") If UCase(TypeName(lngBiasKey)) = "LONG" Then lngBias = lngBiasKey ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then lngBias = 0 For k = 0 To UBound(lngBiasKey) lngBias = lngBias + (lngBiasKey(k) * 256^k) Next End If ' Determine configuration context and DNS domain from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("configurationNamingContext") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. ' This will identify all Domain Controllers. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strConfig & ">" strFilter = "(objectClass=nTDSDSA)" strAttributes = "AdsPath" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Enumerate parent objects of class nTDSDSA. Save Domain Controller ' AdsPaths in dynamic array arrstrDCs. k = 0 Do Until objRecordSet.EOF Set objDC = _ GetObject(GetObject(objRecordSet.Fields("AdsPath")).Parent) ReDim Preserve arrstrDCs(k) arrstrDCs(k) = objDC.DNSHostName k = k + 1 objRecordSet.MoveNext Loop ' Retrieve lastLogon attribute for each user on each Domain Controller. For k = 0 To Ubound(arrstrDCs) strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">" strFilter = "(&(objectCategory=person)(objectClass=user))" strAttributes = "distinguishedName,lastLogon" strQuery = strBase & ";" & strFilter & ";" & strAttributes _ & ";subtree" objCommand.CommandText = strQuery On Error Resume Next Set objRecordSet = objCommand.Execute If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Domain Controller not available: " & arrstrDCs(k) Else On Error GoTo 0 Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName") lngDate = objRecordSet.Fields("lastLogon") On Error Resume Next Set objDate = lngDate If Err.Number <> 0 Then On Error GoTo 0 dtmDate = #1/1/1601# Else On Error GoTo 0 lngHigh = objDate.HighPart lngLow = objDate.LowPart If lngLow < 0 Then lngHigh = lngHigh + 1 End If If (lngHigh = 0) And (lngLow = 0 ) Then dtmDate = #1/1/1601# Else dtmDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) _ + lngLow)/600000000 - lngBias)/1440 End If End If If objList.Exists(strDN) Then If dtmDate > objList(strDN) Then objList(strDN) = dtmDate End If Else objList.Add strDN, dtmDate End If objRecordSet.MoveNext Loop End If Next ' Output latest lastLogon date for each user. For Each strUser In objList Wscript.Echo strUser & " ; " & objList(strUser) Next ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objConnection = Nothing Set objCommand = Nothing Set objRecordSet = Nothing Set objDC = Nothing Set objDate = Nothing Set objList = Nothing Set objShell = Nothing ********************************************************** Tag: Populate multiple target directories from one source Tag: 190071
  - 8
    - WshShell.Run - Spaces in path Hi I would like to run Internet Explorer from a VBScript. The path to "iexplore.exe" is "C:\Program Files\Internet Explorer\iexplore.exe". When I try to run it it fails saying that "The system cannot find the file specified.". After some research I found out that the script can't deal with the spaces in the program path. Any ideas how to work around this? Regards Wayne Tag: Populate multiple target directories from one source Tag: 190070
  - 9
    - Scheduled disabling of modem I have a Windows 2000 Professional SP4 PC with a modem and network card. I use the modem to perform a scheduled download each day between 10:00 and 11:00. While the modem is active I want to disable the NIC. Similarly, I want to re-enable the NIC and disable the modem when the scheduled download is finished. Can this be done through VBScript? Tag: Populate multiple target directories from one source Tag: 190069
  - 10
    - Event log Message display I have put together a script that pulls error events from all of our serverâ??s event logs to a comma delimited CVS file. Nothing to fancy. I do have a small setback with some messages that have some information is in quotations. Using Event Viewer the message is displayed as DCOM got error "General access denied errorâ?? from the computer EEWHQ when attempting to activate the server: WScript.Echo objItem.Message displays DCOM got error "%2147942405" from the computer EEWHQ when attempting to activate the server :{8E980A48-BED6-46FC-ABA2-B21A9A381A2A}, This is also true of code coming out of SCRIPTOMATIC. I imagine itâ??s a reference to a look up table. Anybody know if this is true and how to access the information. Thanks Tag: Populate multiple target directories from one source Tag: 190068
  - 11
    - New to scripting... bulk user creation. Hi, I am trying to write a script that should do the following: create a given number og users with a standard password, their accounts enabled and the "change password at logon" flag un-checked. This is what I've got so far Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://OU=Application,OU=Testers,OU=Test Users," & _ objRootDSE.Get("defaultNamingContext")) For i = 1 To 3 Set objLeaf = objContainer.Create("User", "cn=MT" & 1020 ++ i) objLeaf.Put "sAMAccountName", "MT" & 1020 ++ i objLeaf.SetInfo Set objUser = GetObject("LDAP://cn=" & objLeaf & "," & objContainer) objUser.SetPassword "Start123" Next As far as I can figure it creates the first user and then something goes wrong. If I remove the password bit it works. Useres are created in the right OUs Help please? Alex. Tag: Populate multiple target directories from one source Tag: 190066
  - 12
    - Delete some subkeys in the registry Hi I have the problem, that if I make a connection to a ftp server via microsoft explorer or internet explorer, the system stores the last logon informations. If I navigate to an other server, the explorer tries automaticaly log on with the previous logon informations. Now I will make a script wich delete this logon information in the registry HKCU\Software\Microsoft\FTP\Accounts Here is my example but I think that the EnumKey Method is not the right on for this script. Maybe anyone has a better solution, please help Thanks Peter const HKCU = &H80000001 'HKEY CURRENT USER strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Ftp\Accounts" objReg.EnumKey HKCU, strKeyPath, arrSubKeys For Each subkey In arrSubKeys Return = objReg.DeleteKey(HKCU, strKeyPath & "\" & subkey) MsggBox HKCU & strKeyPath & "\" & subkey If (Return = 0) And (Err.Number = 0) Then Wscript.Echo "HKCU\Software\Microsoft\Ftp\Accounts\" & subkey & " deleted" Else Wscript.Echo "DeleteKey " & subkey & " failed. Error = " & Err.Number End If Next Tag: Populate multiple target directories from one source Tag: 190065
  - 13
    - Launch CMD.exe from HTA using VBScript Hi, Is it possible to launch CMD.EXE from an HTA using vbscript. I have put in a link which runs a subroutine which calls wshshell.run "c:\winnt\system32\cmd.exe" using VBscript but when I click on the link in an HTA it does not seem to do anything. I have put in a msgbox in the sub to test this and this appears fine. I tried putting this in the link itself but it just opens cmd.exe in the same hta window with all the executable code. Is it possible to launch CMD from a HTA at all ? Many thanks TW Tag: Populate multiple target directories from one source Tag: 190064
  - 14
    - Simulate (fake) drag/drop + button click behavior using VBScript Hi all, I would like to write a script to automate some task, but this task requires the use of a GUI based application that can only use its GUI for input (so no command line parameters). This GUI application is not mine, and I cannot change it in any way. Let's call this GUI application GUIAPP. The script would go over a list of files (this I can do myself :-), and for every file, the following should happen 1) have the script fake a drag and drop of this file on the GUIAPP (so that it accepts the file as input) 2) the script has to click the ok button; this button triggers a "Save As..." window 4) the script should fill in some string of my choice for the file name 5) the script should click the "Save" button This must be possible using OLE, I would think? Help would really be appreciated! Stefaan Tag: Populate multiple target directories from one source Tag: 190063
  - 15
    - We are getting ScriptTimeout error while trying to retrieve a ASP Earlier this page works fine. The code is in ASP and the backend is Oracle9i. We are using MSDAORA.1 driver to connect to database. we just upgraded from Oracle8i to Oralce9i. we haven't changed any thing inthe code for this migration. We don't want to set Server.ScriptTimeOut to some big value. Instead we need a good solution to increase the performance of the page. we are getting error even if the page has no much data to retrieve from the database. code has simple queries and some loops to generate data. we are not using stored procs. In the DEV eveything is working fine. But in Production we have this performance issue. Can you please suggest is it problem with driver, if then suggest better driver ?Appreciate your help. TIA. Tag: Populate multiple target directories from one source Tag: 190059
  - 16
    - Software Inventory script help I have a VB script that writes a list of installed applications to a text file that is named the computername. It works okay except that it does not list the user, so it is difficult and time consuming to find which users are assigned to those computers. Can someone help me and show what needs to be added (and where) for the script to also write the name of at least the currently logged on user? Ideally, it would also write the list of all the domain user profiles on that computer (or the domain user profiles on that computer that have been used in the last 30 days). Here is the script that lacks that added functionality: on error resume next Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("\\server\folder\folder\inv\" & strcomputer & ".txt", True) strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" strEntry1a = "DisplayName" strEntry1b = "QuietDisplayName" Set objReg = GetObject("winmgmts://" & strComputer & _ "/root/default:StdRegProv") objReg.EnumKey HKLM, strKey, arrSubkeys For Each strSubkey In arrSubkeys intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _ strEntry1a, strValue1) If intRet1 <> 0 Then objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry1b, strValue1 End If If strValue1 <> "" Then objTextFile.WriteLine strValue1 & "¿ " & strcomputer & "¿" End If Next strKey2 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\" strEntry2a = "DisplayName" strEntry2b = "QuietDisplayName" Set objReg = GetObject("winmgmts://" & strComputer & _ "/root/default:StdRegProv") objReg.EnumKey HKLM, strKey2, arrSubkeys For Each strSubkey In arrSubkeys intRet2 = objReg.GetStringValue(HKLM, strKey2 & strSubkey, _ strEntry2a, strValue2) If intRet2 <> 0 Then objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry2b, strValue2 End If If strValue2 <> "" Then objTextFile.WriteLine strValue2 & "¿ " & strcomputer & "¿" End If Next objTextFile.Close Tag: Populate multiple target directories from one source Tag: 190054
  - 17
    - create exchange mailbox for existing user account. I'm trying to create a mailbox for an existing user account. I just need to know what are the different types of properties in vbscript that is attached to the mailbox account properties so I can create them. Can't seem to be able to find them anywhere on google. Tag: Populate multiple target directories from one source Tag: 190052
  - 18
    - Exec with Alternate Credentials - How? Hi ALL, I need to start a proces on a remote computer like in the sample below (starts "Calc.exe"). However, I am clueless on how to provide alternate credentials for that. How can I pass the proper user/password? Thanks in advance! strComputer = "." strExe = "Calc.exe" ' Connect to WMI set objWMIService = getobject("winmgmts://"& strComputer & "/root/cimv2") ' Obtain the Win32_Process class of object. Set objProcess = objWMIService.Get("Win32_Process") Set objProgram = objProcess.Methods_( _ "Create").InParameters.SpawnInstance_ objProgram.CommandLine = strExe Tag: Populate multiple target directories from one source Tag: 190047
  - 19
    - get attachment from outlook email and save to a file with new name Hi all. Due to a short sighted process that I did not design, I get a single text file everyday that has the same name called "daily.txt." So I have like a three-hundred of these emails, and I would like to use a script to save them from email to a file on my harddrive, preferably with a name thats based on the date that email attachment was received. If that date thing is not possible, I would be happy just to get the files saved off with a unique name for each. Any one help? Tag: Populate multiple target directories from one source Tag: 190042
  - 20
    - Last logon date for users... Can anyone please help me out. I've noticed a fair amount of VBScripts created for Domain Controllers, but I'm trying to quey a Windows 2000 and 2003 workgroup server (non Domain) for all the users and last logon date... Can anyone please help me? TIA...Your help is appreicated! Tag: Populate multiple target directories from one source Tag: 190039
  - 21
    - Import data file & update with SQL I would like to be able to use a vbs script to 1) import a text file of a known, specific format into a table 2) Delete records that match a criteria (a delete SQL?) 3) Save to a new file. Any pointers? or suggestions? This does not have to be a DB/table solution, but I am an ACCESS programmer with very basic vbs specific knowledge. Would like this to be a simple drag and drop operation for the end user if possible. What specific info do I need to supply to have an intelligent answer? TIA - Z Tag: Populate multiple target directories from one source Tag: 190037
  - 22
    - vbscript to identify and restart hanging services. I have written a script that restarts services that have stopped, that are set to auto start. The problem I'm having is that hanging services don't get identified, and therefore remain in a hung state. Is there a way using VBscript to identify a hung service? Thanks, any help is greatly appreciated, Josh Tag: Populate multiple target directories from one source Tag: 190036
  - 23
    - Scan AD Computers for text file Our users have a flag file at the root of their profiles (C:\Docume~1\%USERNAME%), based on whether or not they received our printer migration logon script. I'd like to scan all of these computers to see who has the flag file, but I've never used VB to pull names of computers from AD before. Does anybody have a generic canned script that will pull names of computers from AD to check for a file on each computer? Thanks for any help or suggestions! Tag: Populate multiple target directories from one source Tag: 190034
  - 24
    - RegRead Method for Newbie's Hi I would like to read few keys under a specific key and then delete it but I didn't find a way to do this with the regread method. Did you know a way to do this ? Thanks Peter Tag: Populate multiple target directories from one source Tag: 190027
  - 25
    - help with script Hi, I need help with a script that until i couldn't do right to work. My script is shown below: '***************************************************************** Const GRUPO_TECNICO = "cn=tecnico" Const GRUPO_CONSULTORIA = "cn=consultoria" Const GRUPO_SUPERVISAO = "cn=supervisao" Set wshNetwork = CreateObject("WScript.Network") '********************************** '**** Define user's group '********************************* Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) Set colGroups = CurrentUser.memberOf '=================================================================== Dim group=("tecnico","consultoria","supervisao") ' Mount user's directory wshNetwork.MapNetworkDrive "z:","\\MyDomain\" & wshNetwork.UserName ' Mount all user's group which the user is in ' For Each group In colGroups wshNetwork.MapNetworkDrive "y:","\\MyDomain\$grupo" Next '***************************************************************** My script has to do as follow: 1.) If the user has only 1 group it will mount his home directory and groups direcotry which he is in. Example: User joe is in group tecnico then it will mount: z:\\MyDomain\Joe y:\\Tecnico 2.) If the user has two or more groups it must mount his home directory and groups directory which he is in. Example: User joe is in groups tecnico and supervisao then it will mount: z:\\MyDomain\Joe y:\\Tecnico y:\\Supervisao See if you can help with it. Thanks in Advance, Anderson Tag: Populate multiple target directories from one source Tag: 190026
- Next
  - 1
    - Thumbnailing hi-res jpegs Hi all, I'm not sure if this is the right group for this, so if anyone knows a better group, please let me know. I have a web application that thumbnails hi-res jpeg's on the fly, up to some 200-300 images at a time. It runs on ASP using VBScripts. With the latest camera's, file sizes and 2GB cards the process is becoming very slow. I have been looking around for a better component to use in my asp pages. At the moment I am using 'dImage'. I have tried a few others but they run at the same speed. The process I am running creates small thumbnails and saves them to disk before displaying them through the browser. This way if they are required for view again the thumbnail does not have to be created again. Using image browsing software produces fast thumbnails, why can I not find something in a web component that will do the same. Any help much appreciated. Cheers, Blinky. Tag: Populate multiple target directories from one source Tag: 190023
  - 2
    - Point to vbs file on the network I have a script that adds a network printer when executed. It now points to a vbs file on my desktop. But I need to put the vbs file on the network for others to access it also. How do I tell the script to point to a network file. <Html> <Head> <Script> function open(PStrApplication, PstrFilePath) { var WshShell = new ActiveXObject("WScript.Shell"); WshShell.run(PStrApplication + " \"" + PstrFilePath + "\""); } </Script> </Head> <Body> Install Printer<p> <a href="javascript:open('wscript.exe', 'printer.vbs')">Install Printer</a> </Body> </Html> Tag: Populate multiple target directories from one source Tag: 190021
  - 3
    - Convert string to corresponding ASCII character Hi, Quick question...if I have a string (let's say it just consisted of "123"), what would be the vbscript syntax to output the corresponding ascii chars to the screen - e.g. in this example to programmatically derive an output of "061 062 063"...? Obviously the other way round would be response.write chr(61) & chr(62) & chr(63), but I don't know the converse Thanks for any assistance Tag: Populate multiple target directories from one source Tag: 190016
  - 4
    - Match Input string with a predifined set I would like to know the most efficient way of take user input such as Jan and matching it against a predefined set of values such as "Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec" If the input string does not match I wish to display an error. I am writing a simple backup program but require input validation. Source = "ntbackup backup O:\acuchris\dat /f " Dest = "O:\Chris\User\12mth\" Slash ="\" Ext = ".bkf" Wild = " /m copy" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") strInput = InputBox ("Please enter the First 3 letters of the Month in lowercase ") If str1 = str2 Then Wscript.Echo "The strings are equal." Else Wscript.Echo "The strings are not equal." End If Set oWshShell = CreateObject("WScript.Shell") oWshShell.Run Source & Dest & strInput & Slash & strInput & Ext & Wild Tag: Populate multiple target directories from one source Tag: 190014
  - 5
    - Retrieve AD data Hi, Does anyone know a script to retrieve active directory data like e-mail, terminalserver enabled, ... Thx. Tag: Populate multiple target directories from one source Tag: 190013
  - 6
    - Folder access / User Hi, Does anyone know a script that gives all the folders where a user has access too. Thx. Tag: Populate multiple target directories from one source Tag: 190012
  - 7
    - VBScript for WMI - IMF Counters Does anyone know how I can use VBScript to get WMI counters for the Intellengent Message Filter (Exchange 2003 SP2)? Thank you. - Gabe Tag: Populate multiple target directories from one source Tag: 190011
  - 8
    - Reading Event Logs I have a vbscript that processes the event logs on several remote servers, compares the collection against a event list to report and another list of excludes to ignore. It works very well on all but one server server in our company and it looks like the connection is hanging. I added a echo statement to show me how many events were being returned from the 24hr window query but it never seems to get the collection. My question is is there a way to set timeouts on WMI queries and/or understand what is making this server look like it hangs? Thanks for any help. Dale Tag: Populate multiple target directories from one source Tag: 190010
  - 9
    - Is there a size limit to text input? Hello to all. I hope this is posted in the correct forum. If not, m apologies, and please correct me. I'm very glad to have found you. I'm actually a Flash developer, whic increasingly seems to mean I'll be asked how to do Everything. A client wants to build a form in .NET which allows users to paste ver large blocks of text into input fields. People have mentioned 'tex fields' and 'textareas'. So I need to know: 1] is there a difference? 2] what is the capacity of each? 3] Not for nothing: is there a constant 'max number'? Thanks, Pau - freedmani ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Populate multiple target directories from one source Tag: 190003
  - 10
    - Delete selected rows in Excel Hello, In the below code lines I get a type mismatch error message when I try to use variables inside the quotes, I need to programmatically stuff in variables if my script is going to work, like this objExcel.Rows("intRow:intLastRow).Select() 'Doesn't work. objExcel.Rows("44:91").Select() 'Works. objExcel.Selection.Delete Seems only regular numbers works inside the quotes. Any idea of what to do ? TIA Svein,Oslo Tag: Populate multiple target directories from one source Tag: 190001
  - 11
    - Recursing through folders without changing Last Accessed Date HI all, I am writing a script which should enumerate the Folder permissions of a share. I was successful in doing this until i get a new requirement which says that the Last Accessed dates should not be changed. I am using for each subfol in fol.subfolders to get the subfolder properties (i.e, Path,size) but what i believe is, it is the culprit which is changing the date. I tried using Directory.GetDirectory to get the subdirectories but that attempt also went into vain as it is also doing the same thing. I tried using GetLastAccessTime and SetLastAccessTime for setting the earlier time but to give the path as input i need to get it by using fol.subfolder property only. Please suggest me in this regard . I need some alternate solution for this Tag: Populate multiple target directories from one source Tag: 189995
  - 12
    - Excel SaveAs Fileformat I have a script that starts up Excel, opens a CSV file, does a bunch of stuff to the contents, and then I want to save the results as a normal Excel workbook. Everything works great except the SaveAs part. Here is the line: objExcel.ActiveWorkbook.SaveAs "Foobar.xls", xlNormal The error is "SaveAs method of Workbook class failed" I've tried a number of random variations on the theme, to no avail. Any suggestions would be greatfully received. Thanks! Tag: Populate multiple target directories from one source Tag: 189989
  - 13
    - How to List Folder Permissions Hi All, I need to do a vbcript program to list the permissions to an specific folder on a 2003 server. I am a beginner vbscripter and could'nt find a sample fo that anywhere else... Any hint on how can I do that? Thanks to all! Tag: Populate multiple target directories from one source Tag: 189981
  - 14
    - Include Mechanism Hello world, in a .vbs script, how can I use functions that are defined in another .vbs file? Is there an equivalent to #include in C? Should be a rather simple question, but i haven't found anything about this... Jens Tag: Populate multiple target directories from one source Tag: 189979
  - 15
    - Import/Export email addresses Is it possible to write a script which can read .wab (Windows Address Book) file? I have 8 .wab files on my computer. I want to extract email addresses from those files and put it in a notepad file. Is this possible? Tag: Populate multiple target directories from one source Tag: 189978
  - 16
    - Install Updates Not Working... Help! Hi All, I am trying to use my logon script to do the ms updates (I am beginner vbscripter...) . I got a script from MS which seems to work pretty fine for identifying the necessary updates and another script to do the actual installation (below). The problem is that the installation does not actually occurs and the resultcode property shown in the last line is set to 4. I rode that anything <> 0 is an error which would explain that but I have no idea of what result code "4" means... Would anyone knows what code "4" means or, even better, have a list of result codes and descriptions? (or even better... have a script that works? I've seen Mark F's post and its just to much complicated for me... maximilliand code is no longer acessible) Thanks in advance! Set objCollection = CreateObject("Microsoft.Update.UpdateColl") Set objSearcher = CreateObject("Microsoft.Update.Searcher") Set objResults = objSearcher.Search("UpdateID='" &id &"'") Set colUpdates = objResults.Updates objCollection.Add(colUpdates.Item(0)) Set objInstaller = CreateObject("Microsoft.Update.Installer") objInstaller.Updates = objCollection Set objInstallResults = objInstaller.Install Wscript.Echo objInstallResults.RebootRequired Wscript.Echo objInstallResults.ResultCode Tag: Populate multiple target directories from one source Tag: 189976
  - 17
    - run vbs file as administrator It took me hours of work. ie. im st00pid, but here it is. Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\VBSFile\Shell\runas\command] @="wscript.exe \"%1\"" Tag: Populate multiple target directories from one source Tag: 189969
  - 18
    - InStr Always Returns 0.... I've been beating on this script for the past day and am getting some very odd results. I'm pulling a users' group associations from AD and matching it to a known group so I can map drives accordingly. I am pulling the group names easily enough but I can't seem to get a match. I am printing out the value of the groups string and the group match string but I always get a 0 from InStr. Can someone tell me what I'm doing wrong here? When debugging the print out of strGroup is always "cn=owners,cn=users,dn=domain,dn=com" and OWNERS_GROUP is always "cn=users" I can't figure out why I can't match OWNERS_GROUP to part of the string in strGroups... TIA Dim objNetwork, objUser, CurrentUser, strGroup, GroupList, colGroups Dim OWNERS_GROUP, STAFF_GROUP OWNERS_GROUP = "cn=owners" STAFF_GROUP = "cn=staff" Set objUser = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & objUser.UserName) colGroups = CurrentUser.memberOf If IsEmpty(colGroups) Then strGroups = "" ElseIf TypeName(colGroups) = "String" Then strGroups = LCase(colGroups) Else strGroups = LCases(Join(colGroups)) End If 'WScript.Echo " Groups: "& strGroups 'WScript.Echo " Groups Str: "& OWNERS_GROUP 'GroupList = "" & CurrentUser.MemberOf 'Response.Write GroupList 'strGroups = LCase(Join(GroupList)) pos=InStrRev(strGroup, OWNERS_GROUP) WScript.Echo " Pos: "& pos ' Extra code just to add a message box 'WScript.Echo " Launch Explorer, check: "& strDriveLetter If InStrRev(strGroup, STAFF_GROUP) Then wshNetwork.MapNetworkDrive "s:", "\\server\public" ElseIf InStrRev(strGroup, OWNERS_GROUP) Then wshNetwork.MapNetworkDrive "o:", "\\server\private" wshNetwork.MapNetworkDrive "s:", "\\server\public" End If Tag: Populate multiple target directories from one source Tag: 189962
  - 19
    - Dictionary Item() does not like objects? The following sample does not work: class clsX public m1 public m2 end class set objDict = CreateObject("Scripting.Dictionary") set w = new clsX w.m1 = "foo" w.m2 = "bar" objDict.Add "0", w w.m1 = "FOO" w.m2 = "BAR" objDict.Item("0") = w 'Object doesn't support property or method objDict.Item("0") = "fubar" 'Works OK The line "objDict.Item("0") = w" produces the error: Object doesn't support this property or method. Remove that line and the subsequent line "objDict.Item("0") = "fubar"" works just fine. The Item() method/property only permits string variants to be assigned to it? Tag: Populate multiple target directories from one source Tag: 189959
  - 20
    - read text from html table cell containing and anchor tag Is there a property of an html anchor tag that contains the anchor's visible text? I need to sort an html table but one of the columns contains links. I want to sort on that column by its text not by the href contained in it. Below is a bit of code the sorting routine currently uses but doesn't quite do what I want. ... = findFirstLinkChild(row1.cells[column]).href thanks LJB Tag: Populate multiple target directories from one source Tag: 189957
  - 21
    - RegExp without duplicate matches I using the following to create hyperlinks of every 7 digit number in an html table. The problem is there are some duplicate numbers and they create href's within href's. How do I get rid of the duplicates in a matches collection before I use vbscript's replace function? I first thought of using regular expression's replace method and sub-matches but wasn't successful. The desired result is given 1234567 create href="./7/1234567.shtml" sub MakeHyperlinks(strTable) dim match, regEx set regEx = Server.CreateObject("VBScript.RegExp") regEx.Global = True regEx.Pattern = "\d{7}" for each match in regEx.Execute(strTable) strTable = Replace( _ strTable, _ match, _ "<a href=""./" & right(match,1) & "/" & match & ".shtml"">" & match & "</a>") next set regEx = nothing end sub thanks LJB Tag: Populate multiple target directories from one source Tag: 189949
  - 22
    - Read folder/file security Hi, Can anyone tell me how I can read the security settings of a local folder and file with vbs? Thx. Tag: Populate multiple target directories from one source Tag: 189933
  - 23
    - Renaming Computer AND Join a Domain Hello all, I want to rename a computer and then join the domain WITHOUT a reboot This code works BUT The Account created on the domain uses the old computer name (but the DNS Name field is using the new name). Do I have to use the MoveHere method of ADSI to apply the new name to the account or there is a better way? '************** RENAME ************** NewName = "VBTest" Set objWMIService = GetObject("Winmgmts:root\cimv2") For Each objComputer in objWMIService.InstancesOf("Win32_ComputerSystem") objComputer.rename(NewName, NULL, NULL) Next '************** JOIN DOMAIN ************** strDomain = "ActiveDirectory" strPassword = "password" strUser = "username" Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objComputer = GetObject _ ("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & _ "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'") objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & _ "\" & strUser, NULL, 1 + 2) Tag: Populate multiple target directories from one source Tag: 189931
  - 24
    - Record URL in database I have a file that has table with 5 rows and 5 columns. I have named this file as index.asp on the IIS Inetpub directory. Every cell in this table has a onclick event. Whenever user clicks on any cell out of these 25 cells in the table, a new window opens. I want to capture this url and put it in the MS Access database (The database has just one field - URL). In short, I want to see which cell get most number of clicks. The reason why I just don't want the click count and want to record the URLs because today the first cell will open a website and tomorrow there would be a different website on the same cell. What vbscript code do I have to write and how will I link it to the tables? Tag: Populate multiple target directories from one source Tag: 189921
  - 25
    - Problem walking through Radio buttons For intPosIdx = 0 To Document.formname.fieldname.length - 1 If Document.formname.fieldname(intPosIdx).checked Then blnSelFd = "Y" Exit for end if Next However, if there is a single radio button this code fails. I my scenario 1-n radio buttons may be available. How do I code to take care of the single button scenario also? -- --------------------- Thanks Rajiv Das Tag: Populate multiple target directories from one source Tag: 189920

I don't know if my title suits what it is I'm trying to do. I'm
looking to create for each of my user's home drives a common directory
structure. I'd like to have a script that will read from a input file
a list of user names. Based off of the list of user names a home
directory will be created on my target server\home\%username%

Along with creating the home drives I'd like to have each have
subdirectories created as well. I know that this is possible but I
don't know how

Top