Help needed

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
    - Using MSComDlg.CommonDialog to make a Directory Browser in VBScrip Hi, I am having a problem with VBScript and the common dialog (MSComDlg.CommonDialog). What I am trying to do is build a dialog that allows me to select a target directory. I am trying to copy this functionality from the Microsoft Word 2003 Dialog where a user can change the default path for documents. Tools - Options - File Locations - Documents - Modify. I know about the function Shell.Application - BrowseForFolder but it does look as good as the Office Dialog I want to simulate. So really in the code below I want to make it only browse directories and remove the file filter (Files of type:) - how can this be done. As well I want to make it only display directories and not list any files. Enough waffle - here is the code. Thanks, Ward. Public Const ofnAllowMultiSelect = &H200 Public Const ofnCreatePrompt = &H2000 Public Const ofnFileMustExist = &H1000 Public Const ofnHideReadOnly = &H4 Public Const ofnNoNetworkButton = &H20000 Public Const ofnNoReadOnlyReturn = &H8000 Public Const ofnNoTestfileCreate = &H10000 Public Const ofnNoValidate = &H100 Public Const ofnOverwritePrompt = &H2 Public Const ofnPathMustExist = &H800 Public Const ofnReadOnly = &H1 Public Const ofnShareAware = &H4000 Public Const ofnExplorer = &H80000 Public Const ofnNochangedir = &H8 Dim oComDlg Dim path_name Set oComDlg = CreateObject("MSComDlg.CommonDialog") path_name = "" With oComDlg .DialogTitle = "Please select Target Directory" .InitDir = "C:\" .Filter = "" .FilterIndex = 0 .MaxFileSize = 260 .FileName = "*.*" .Flags = ofnPathMustExist Or ofnHideReadOnly Or ofnExplorer Or ofnNoValidate Or ofnNochangedir .ShowOpen End With path_name = Left(oComDlg.filename,InStrRev(oComDlg.filename,"\")) If path_name = "" Then MsgBox "User Chose Cancel" wscript.quit 0 End If msgbox "Path Name" & path_name Tag: Help needed Tag: 190116
  - 2
    - Help needed with setting registry premissions We are in the process of locking down workstations at our company and after doing so many of the applications we use don't work properly. We have identified the registry keys that need permission changes (there are 4 per user) Is there a way we can write a script that will run under a system context that will change these permissions in the registry? We have to modify the key permissions to EVERYONE with FULL ACCESS on 4 keys. Thanks for any insight! -Fran- Tag: Help needed Tag: 190113
  - 3
    - decoding REG_BINARY entries hey all, does anyone know how to decode the REG_BINARY entries in the registry? I am able to retrieve the raw data, but I don't know how to make any sense of it... for example, if i want to see which services are loading in which order, i look at hklm\system\currentcontrolset\control\grouporderlist /V base /T REG_BINARY, and i get the following data returned... 120000000E00000001000000020000000300000004000000 05000000060000000700000008000000090000000A0000000B0000000C0000000D0000000F000000 100000001100000012000000 I only used this as an example, what I am actually trying to do is query DHCP servers for the 044 entries (WINS Servers) (HKLM|Software\Microsoft\DHCPServer\Configuration\OptionInfo\044).. I know the string value (IP address of the WINS servers), and I can actually do a reg compare to see if the servers are configured with the proper WINS servers, so I guess I'm just curious if anyone has been able to figure this out... Do I need a special decoder ring? (Drink Ovaltine!) Thanks in advance... Tag: Help needed Tag: 190112
  - 4
    - Active Directory Migration Tool and Scripting Hi all, Firstly, please let me know if there's a better group to post to. I'm writing a vbscript based on the ADMT v3. I've got everything running the way I want, but I'd like to add some event handling. I'm trapping status events by using the method described in the template.vbs file: Sub Task_Status(lngEventType, strObjName, lngStatusType, objMessages) 'do stuff End Sub The only problem I have is with handling objMessages... I can't seem to make any sense of it. I understand it's a system.array, and that the objects are of type system.__comObject. I can't seem to find any info on actually retrieving the messages. Help! Ceejayf! Tag: Help needed Tag: 190111
  - 5
    - Populate multiple target directories from one source 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 Tag: Help needed Tag: 190101
  - 6
    - 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: Help needed Tag: 190100
  - 7
    - 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: Help needed Tag: 190088
  - 8
    - 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: Help needed Tag: 190087
  - 9
    - 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: Help needed Tag: 190080
  - 10
    - 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: Help needed Tag: 190079
  - 11
    - 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: Help needed Tag: 190078
  - 12
    - 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: Help needed Tag: 190071
  - 13
    - 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: Help needed Tag: 190070
  - 14
    - 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: Help needed Tag: 190069
  - 15
    - 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: Help needed Tag: 190068
  - 16
    - 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: Help needed Tag: 190066
  - 17
    - 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: Help needed Tag: 190065
  - 18
    - 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: Help needed Tag: 190064
  - 19
    - 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: Help needed Tag: 190063
  - 20
    - 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: Help needed Tag: 190059
  - 21
    - 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: Help needed Tag: 190054
  - 22
    - 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: Help needed Tag: 190052
  - 23
    - 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: Help needed Tag: 190047
  - 24
    - 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: Help needed Tag: 190042
  - 25
    - 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: Help needed Tag: 190039
- Next
  - 1
    - 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: Help needed Tag: 190037
  - 2
    - 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: Help needed Tag: 190036
  - 3
    - 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: Help needed Tag: 190034
  - 4
    - 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: Help needed Tag: 190027
  - 5
    - 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: Help needed Tag: 190026
  - 6
    - 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: Help needed Tag: 190023
  - 7
    - 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: Help needed Tag: 190021
  - 8
    - 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: Help needed Tag: 190016
  - 9
    - 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: Help needed Tag: 190014
  - 10
    - Retrieve AD data Hi, Does anyone know a script to retrieve active directory data like e-mail, terminalserver enabled, ... Thx. Tag: Help needed Tag: 190013
  - 11
    - Folder access / User Hi, Does anyone know a script that gives all the folders where a user has access too. Thx. Tag: Help needed Tag: 190012
  - 12
    - 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: Help needed Tag: 190011
  - 13
    - 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: Help needed Tag: 190010
  - 14
    - 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: Help needed Tag: 190003
  - 15
    - 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: Help needed Tag: 190001
  - 16
    - 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: Help needed Tag: 189995
  - 17
    - 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: Help needed Tag: 189989
  - 18
    - 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: Help needed Tag: 189981
  - 19
    - 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: Help needed Tag: 189979
  - 20
    - 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: Help needed Tag: 189978
  - 21
    - 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: Help needed Tag: 189976
  - 22
    - 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: Help needed Tag: 189969
  - 23
    - 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: Help needed Tag: 189962
  - 24
    - 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: Help needed Tag: 189959
  - 25
    - 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: Help needed Tag: 189957

Hello forum,

I am new to scripting and need some help. I have manged to piece
together code that does most of what i need. The finishing touches
would be the following. Oh the script creates machine acounts in AD
from a spreadsheet. What I need the script to do now is to output a log
file of success or failure of creation of computer accounts. Also the
log files file name needs to be in the format Compscreated110406.log.
the last digits indicating the date the script ran. I have attached the
script as I cannot seem to paste the code correctly here. Thanks in
advance.

Van

+----------------------------------------------------------------+
| Attachment filename: createcomp-ver1_2.txt |
|Download attachment: http://www.codecomments.com/attachment.php?postid=2709294 |
+----------------------------------------------------------------+

--
vandergraafuk
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Top