Mapping Network printers and loading drives with a VB Script

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190071
  - 2
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190070
  - 3
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190069
  - 4
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190068
  - 5
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190066
  - 6
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190065
  - 7
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190064
  - 8
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190063
  - 9
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190059
  - 10
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190054
  - 11
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190052
  - 12
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190047
  - 13
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190042
  - 14
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190039
  - 15
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190037
  - 16
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190036
  - 17
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190034
  - 18
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190027
  - 19
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190026
  - 20
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190023
  - 21
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190021
  - 22
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190016
  - 23
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190014
  - 24
    - Retrieve AD data Hi, Does anyone know a script to retrieve active directory data like e-mail, terminalserver enabled, ... Thx. Tag: Mapping Network printers and loading drives with a VB Script Tag: 190013
  - 25
    - Folder access / User Hi, Does anyone know a script that gives all the folders where a user has access too. Thx. Tag: Mapping Network printers and loading drives with a VB Script Tag: 190012
- Next
  - 1
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190011
  - 2
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190010
  - 3
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190003
  - 4
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 190001
  - 5
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189995
  - 6
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189989
  - 7
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189981
  - 8
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189979
  - 9
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189978
  - 10
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189976
  - 11
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189969
  - 12
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189962
  - 13
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189959
  - 14
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189957
  - 15
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189949
  - 16
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189933
  - 17
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189931
  - 18
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189921
  - 19
    - 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: Mapping Network printers and loading drives with a VB Script Tag: 189920
  - 20
    - Question Enumerating scheduled job. I am aware that we can use w32_scheduledjob class to enumerate the task scheduler's job. However, this is only for jobs that are scheduled using the "at" command. Is there way to enumerate for those scheduled jobs created with the wizard ? Thanks. Tag: Mapping Network printers and loading drives with a VB Script Tag: 189914
  - 21
    - Script to configure DNS I am trying to write a script to un-check the DNS box "Register Connection's Addresses in DNS" on a windows XP Professional workstation. It is changing the wring box. Does anyone have the code to accomplish this task? Thanks in advance. Ray Tag: Mapping Network printers and loading drives with a VB Script Tag: 189912
  - 22
    - Delete files in a folder Hello, In the scriptcenter of MS I found a little script to remove all files from a folder. It works perfect except when there a files in that folder that are in use. In that case the script crashes with a RT-error: Access denied - code 800A0046. The directory I need it for must be cleaned up everyday but there are always files of the current day in use. Could someone help me to modify the current script so it will cleanup all files except the one's in use. The current script is: Const DeleteReadOnly = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("F:\webMethods\IntegrationServer4\logs\*.*"), DeleteReadOnly Thanks Frank -- FVG ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Mapping Network printers and loading drives with a VB Script Tag: 189907
  - 23
    - Bonkers Hello, I sure hope someone can pull my head out... OK, I have a USB device that I want to see if its present or plugged in. Now, this works fine, using cscript on the client as a VBS: ********************************************************** Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." strValue = "Device Not Found!" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PnPEntity WHERE service = 'HidUsb'",,48) For Each objItem in colItems strKeyPath = "SYSTEM\CurrentControlSet\Enum\" & objItem.DeviceID Next if len(strKeyPath) > 1 then Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strEntryName = "LocationInformation" objReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue end if Wscript.Echo strValue ********************************************************** When the device is attached objItem.DeviceID returns a portion of the registry KEY, and I get the value from the registry LocationInformation. When unplugged I get Device Not Found! Wonderful, works great. Problem... How would I do this using ASP and client side scripting? IIS6.0 would be the host of the ASP, clients are Windows XP Pro. Nothing fancy, just a response.write to the clients browser with whats contained in strValue. Thanks ninefofo Tag: Mapping Network printers and loading drives with a VB Script Tag: 189906
  - 24
    - Problem Using ObjUser.Title with WinNT:// Hello, I am trying to update Title information of multiple users using following script. I would like to know what would be the correct namespace/object which I need to use with WinNT:// for ObjUser.Title. It seems ObjUser.Title is compatible with LDAP:// and not with WinNT://. When I run the script I get -2147463153 error. Password change at next login setting works fine. I did Google for the same but did not find anything helpful. Hoping I might get some help here. -------------------------- Function IsAccountDisabled( strDomain, strAccount ) Dim objUser Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user") IsAccountDisabled = objUser.AccountDisabled End Function Dim strUser, strDomain, objUser, fso, tf, tf1, strTXT strTXT = Replace(CStr(Date),"/","-") & "_" strTXT = strTXT & Replace(CStr(Time),":","-") Set fso = CreateObject("Scripting.FileSystemObject") Set tf1 = fso.CreateTextFile("\\somepath\" & "Done_" & strTXT & ".txt", True) Set tf = fso.CreateTextFile("\\somepath\" & "Errors_" & strTXT & ".txt", True) Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("D:\somepath\UserInfoUpdate.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" On Error Resume Next strAccount = objExcel.Cells(intRow, 2).Value strDomain = "my.domain.com" Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user") If (IsAccountDisabled(strDomain, strAccount) = -2147022675) Then 'Wscript.Echo Err.Number tf.WriteLine( "UserName - " & strAccount & " dosn't exist or there is a typo in the username.") Else 'Wscript.Echo Err.Number tf1.WriteLine(strAccount & "'s account properties have been updated.") objUser.PasswordExpired = 1 objUser.title = cstr(objExcel.Cells(intRow, 5).Value) Wscript.Echo Err.Number objUser.SetInfo End if intRow = intRow + 1 Loop objExcel.Quit -------------------------------------------------- Tag: Mapping Network printers and loading drives with a VB Script Tag: 189901
  - 25
    - Changing IE Settings I'm attempting to write an HTA that to allow users to toggle the IE proxy server between one of two servers we use or toggle it between enabled and disabled. We have IE setup so proxy settings are per machine so, as far as I can tell, that should put me addressing only these two keys... (string) HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer (dword) HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable I can change the keys with a script, but when I go into the browser and drill down through the tools menu the changes don't appear. Anyone know why that is? Thanks, Tom Tag: Mapping Network printers and loading drives with a VB Script Tag: 189898

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?

Top