File Sharing by VBScripts

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
    - Inconsistemt Results From ADSI We're using a VBScript as a logon script on a Windows 2003,SP1 server. We want to test Group Memberships and are using the sample code from the Server Help as follows: Const RM_205_G = "cn=rm_205_g" Const RM_212_G = "cn=rm_212_g" Const RM_206_G = "cn=rm_206_g" Set wshNetwork = CreateObject("WScript.Network") wshNetwork.MapNetworkDrive "h:", "\\WS_1\vol1\Users\" & wshNetwork.UserName Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) msgbox(strGroups) If InStr(strGroups, RM_205_G) Then wshNetwork.MapNetworkDrive "j:", "\\10.147.0.2\vol1\shared\rm205g" End If ... and so on. The problem is that the data inserted into strGroups is very inconsistent. For example, with administrator, all applicable groups are displayed in the msgbox command while for almost all other users some group memberships are omitted or no groups are displayed at all. In those cases where group memberships are retrieved properly, the applicable mapping commands complete as expected. We have no other issues with AD. Nothing seems to be broken. Any ideas why we're seeing this? Thanks! Tag: File Sharing by VBScripts Tag: 187660
  - 2
    - Rename list of computers in domain Howdy- Is there anyway to script a bulk-rename of computers (it's actually just the first two letters) using a text file and netdom with a vbs? TIA, BM Tag: File Sharing by VBScripts Tag: 187659
  - 3
    - Writing to Excel from a script How would you get excel to keep the data being written into the spreadsheet visiable? I have around 400 items and would like the spreadsheet to scroll along with the data. Thanks Tag: File Sharing by VBScripts Tag: 187658
  - 4
    - Reconnecting disconnected usb device Hi everyone, I've got a misbehaving USB drive that needs to have its cable unplugged and then replugged in every so often. I want to write a script to check if it is writeable, then if it isn't, virtually disconnect, then reconnect it. Does anyone know if it is possible to disconnect/reconnect a USB device with Vbscript? Any suggestions would be appreciated. -Barry Tag: File Sharing by VBScripts Tag: 187657
  - 5
    - -2147463168 errors I keep getting -2147463168 errors when I attempt to run this script. This used to work but when I went back to actually continuing using it these errors keep happening. I saw the microsofty post about this issue but it did not correct my problem. The problem occurs during the GetObject Line. Set oUser = GetObject("WinNT://" & Trim(sComputerName) & "/" &Trim(sOldUser) & ",User") Full code pasted below. Any help would be greatly appreciated. Paul Dim oFSO Dim memberlist Dim cname Dim changefile Dim chngdadmin Dim sComputerName Dim strComputerName Set oWshNet = CreateObject("WScript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") Set memberlist = oFSO.OpenTextFile("C:\Program Files\DIT Security Center\Administrator Account Change\memberservers.txt", 1, False) Set changefile = oFSO.OpenTextFile("C:\Program Files\DIT Security Center\Administrator Account Change\changefile.txt", 8, True) 'lnchfile.WriteLine "The DIT Security Center Utility to change the Administrator Account and Passwords has been launched" adminResponse = MsgBox("Are you sure that you want to change the Administrator account on the Member Servers?" & vbCrLf & vbCrLf & "If YES, you will be notified upon completion.", vbYesNo, "DIT Security Utility") 'If adminResponse = vbNo Then 'changefile.WriteLine "The task to change the administrtor accounts and passwords has been cancelled." 'lnchfile.WriteLine "The task to change the administrtor accounts and passwords has been cancelled." 'Call CancelMail 'End 'End If WScript.Echo "Opened Change File" changefile.WriteLine "********************************************************" changefile.WriteLine "" changefile.WriteLine Date & vbTab & Time changefile.WriteLine "" Do Until memberlist.AtEndOfStream cname = memberlist.ReadLine WScript.Echo "Pinging: " & cname Pinger (cname) 'MsgBox Pingcnt If Pingcnt > 5 Then changefile.WriteLine "Server Name: " & UCase(cname) changefile.WriteLine UCase(cname) & " is not online" changefile.WriteLine "" Else WScript.Echo cname & " is online" sComputerName = cname changefile.WriteLine "Server Name: " & sComputerName ' obtain current administrator name regardless of name OldUser = GetAdministratorName(sComputerName) WScript.Echo "Old Admin Account " & OldUser changefile.WriteLine "Old Administrator Account: " & sOldUser zz = 0 Do Until zz = 1000 zz = zz + 1 WScript.echo zz Loop ' create new user name, 15 characters long 'It will contains characters from all of the following four categories: 'English upper case characters (A..Z) 'English lower case characters (a..z) 'Base 10 digits (0..9) 'Following non-alphanumeric characters: ()&$%# 'ChangeAdmin (sComputerName) sNewUser = GenRandomName(15) WScript.Echo "New UserName: " & sNewUser sNewPwd = GenRandomName(15) WScript.Echo "New Password: " & sNewPwd 'snewUser = InputBox("What is the new administrator Account") 'MsgBox sNewUser Set oComputer = GetObject("WinNT://" & sComputerName) If Err.Number <> 0 Then MsgBox "Cannot Connect to Server" End If ' Turn off internal error handling On Error Resume Next ' connect to user object Set oUser = GetObject("WinNT://" & Trim(sComputerName) & "/" &Trim(sOldUser) & ",User") If Err.Number <> 0 Then WScript.Echo Err.Number & vbTab & Err.Description Exit Do End If ' rename user zz = 0 Do Until zz = 1000 zz = zz + 1 WScript.Echo "Round 2 " & zz Loop 'MsgBox oComputer 'oNewUser = "" Set oNewUser = oComputer.MoveHere(oUser.AdsPath, sNewUser) 'MsgBox oNewUser & vbCrLf & oUser.AdsPath & vbCrLf & sNewUser If Err.Number <> 0 Then MsgBox Err.Number & vbTab & Err.Description changefile.WriteLine "Failed to rename administrator user " & sOldUser Err.Clear changefile.WriteLine "" Else changefile.WriteLine "Administrator user is renamed to " & sNewUser changefile.WriteLine "" chngdadmin = GetAdministratorName(sComputerName) WScript.Echo sComputerName Wscript.Echo chngdadmin 'strComputer = "MyComputer" Set objuser = GetObject("WinNT://" & sComputerName & "/" & chngdadmin & ", user") 'MsgBox sNewPwd Objuser.SetPassword sNewPwd objuser.SetInfo changefile.WriteLine "New Password: " & sNewPwd changefile.WriteLine "" End If End If 'On Error GoTo 0 Loop 'If Err.Number <> 0 Then ' changefile.writeline Err.Number & vbTab & Err.Description ' Else changefile.WriteLine "" changefile.WriteLine "The admin account change has completed" changefile.WriteLine Date & vbTab & Time changefile.WriteLine "*****************************************************" MsgBox "The Administrator Account update has completed", vbInformation, "DIT Security Utility" changefile.Close 'oFSO.Copyfile "C:\Program Files\DIT Security Center\Administrator Account Change\changefile.csv", "\\file1\d$\wintel\Adminchange.csv" 'End If Function GenRandomName(Ilen) ' Generates a random 15 character string to be used for both the renaming of the administrator account and the new password Randomize 'Do sRS = "" For iPos = 1 To Ilen iChar = Int((69 * Rnd) + 1) sRS = sRS & Mid("AEIUBCDFGHJKLMNPQRSTVWXYZ" _ & "aeioubcdfghjkmnpqrstvwxyz23456789()&!$#%", iChar, 1) Next 'Loop Until REtest("[A-Z]", sRS) And REtest("[a-z]", sRS) _ 'And REtest("\d", sRS) And REtest("[&\$%#]", sRS) GenRandomName = sRS End Function Function GetAdministratorName(sComputerName) ' Connects to the remote member servers and determines the name of the local administrator account based on the SID Dim sUserSID, oWshNetwork, oUserAccount WScript.Echo "Starting to get Administrator Account Name" Set oUserAccounts = GetObject( "winmgmts:{impersonationLevel=impersonate}!//" & sComputerName & "/root/cimv2").ExecQuery( "Select Name, SID from Win32_UserAccount WHERE Domain = '" & sComputerName & "'") 'On Error Resume Next For Each oUserAccount In oUserAccounts If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _ Right(oUserAccount.SID, 4) = "-500" Then GetAdministratorName = oUserAccount.Name Exit For End If Next WScript.Echo "Finished Getting Admin Account NAme" End Function Sub GetsAMAccountName(strCN) Dim objRootDSE, strDNSDomain, objCommand, objConnection Dim strBase, strFilter, strAttributes, strQuery, objRecordSet Dim strDN, strDisplay, strObjectCategory, intIndex, myarray, objuser, strUPN Dim renameResponse ' Determine DNS domain name. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strDNSDomain & ">" strFilter = "(cn=" & strCN & ")" strAttributes = "distinguishedName,objectCategory" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute If objRecordSet.EOF Then Wscript.Echo "Object not found with cn=" & strCN Wscript.Quit End If 'strDisplay = "Object(s) found" Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName") strDisplay = strDisplay & vbCrLf & strDN & " (" _ & strObjectCategory & ")" objRecordSet.MoveNext Loop myarray = Split(strDisplay, "(", -1) Set objuser = GetObject _ ("LDAP://" & myarray(0)) oldId = objuser.sAMAccountName ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objCommand = Nothing Set objConnection = Nothing Set objRecordSet = Nothing End Sub Sub Pinger(strcomputer) Dim objPing z = 0 Pingcnt = 0 Do Until z = 7 Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & strcomputer & "'") For Each objStatus In objPing If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then Pingcnt = Pingcnt + 1 Else End If Next z = z + 1 'WScript.Echo z Loop If Pingcnt > 5 Then 'rFile.WriteLine strcomputer & " is not Pingable" rescnt = rescnt + 1 End If End Sub Tag: File Sharing by VBScripts Tag: 187656
  - 6
    - tracert Bonjour, JE souhaite lancer une commande Tracert depuis un script VB. Existe t il une fonction deja toute faite en VBS (laquelle) ou faut il lancer l'execution d'une commande MSDOS ? Dans ce cas comment faire ? MErci -- Cordialement, Jérôme FOURNET Administrateur Réseaux jerome.fournet@apf.asso.fr Tag: File Sharing by VBScripts Tag: 187650
  - 7
    - Error "VB Script runtime error: Path not found" because of large-size folder I have a script that intends to get size of all subfolders of a folder. The below function is used to get size of a subfolder. Everything is good if the size of a subfolder is about below 1 GB, but VB script will show error ("VB script runtime error: Path not found") if the size of a subfolder is more than 1 GB. Ex: "FolderA" has 4 subfolders: - "FolderA1": 70 GB - "FolderA2": 500 MB - "FolderA3": 10 MB - "FolderA4": 40 GB VB script shows error when it runs function GetFolderSize for "FolderA4" - error at line (*****). I don't know why it can pass "FolderA1" without problem although FolderA1's size is bigger than FolderA4's size. P.S I found that some people have this problem like me. Any solution? '----------------------------------------- Function GetFolderSize(pStrFolderPath) Dim lObjFSO 'File System Object Dim lObjFolder 'Folder Object Dim lNumFolderSize 'Number Set lObjFSO = CreateObject("Scripting.FileSystemObject") Set lObjFolder = lObjFSO.GetFolder(pStrFolderPath) lNumFolderSize = lObjFolder.Size/(1024*1024) '(*****) GetFolderSize = lNumFolderSize End Function '----------------------------------------- Tag: File Sharing by VBScripts Tag: 187649
  - 8
    - equivalent of perl "next" command Greetings, in perl the "next" command skips the remainder of the current loop iteration & goes to the next iteration. What is the VBscript equivalent of this? Example For i = 1 to 5 IF i=3 Then <perl next command> End If Wscript.Echo i Next would print out 1 2 4 5 Thanks Tag: File Sharing by VBScripts Tag: 187647
  - 9
    - Closing down Firefox tab This isn't a VBScript question per se, but this is a pretty clever group, so perhaps someone has an idea. The summary is that I would like to be able to close a specific instance of Firefox, or rather a page thereof, when that page is cooperating to be closed. The scenario is that I want to have FF (Firefox.exe) iterate through a certain sequence of pages. If this was IE, what we'd do is bring up an instance of IE using Set IE=CreateObject("InternetExplorer.Application"), and then do IE.Navigate "...". With a little event notification code we're in business, and at the end of the day, if we never made IE visible, everything gets automatically shut down nice and tidy. With FF, you have a nifty add in called GreaseMonkey. The way it works is that for a given piece of javascript code that will be applied, you designate which pages GM (GreaseMonkey) will apply it to. The code itself will be run as soon as the page is loaded but before the onload kicks off. If it wants, this code can submit the page or forms thereof, and in this manner it can sequence through multiple pages. Very nifty. The only problem is that you can't shut down/close the starting page. In the usual situation, this is fine, because the intent behind GM is actually to allow one to modify pages (e.g. remove the ad at the top of a certain page. Moving a button to a more convenient place for another page, and so on). But with its built in power, this little add-in is going places. So I can now make a Firefox app and have an icon such that if I double click it, it will start FF off on a given page.htm file. This file will have a GM script all ready to go, but the problem is that window.close() doesn't work because as far as FF is concerned the window was not opened via script, so at the end, I am left with a useless window. Unfortunately, taskkill doesn't work (for reasons described at http://forums.mozillazine.org/viewtopic.php?p=2091165). Ultimately, I could make an OCX and have it identify the window in question and then have that window terminate, but I am wondering if there is a pure text based solution which is where the VBScript comes in. I should add that I could more or less get .Exec and .Terminate to work, but only if there were no other copies of FF active. Furthermore, FF seems to have precious few startup options. Anyway, it would be great if someone could point out something I might have missed. Csaba Gabor from Vienna Tag: File Sharing by VBScripts Tag: 187643
  - 10
    - Cannot handle date validation. Need help. I have a html form with few fields. The fields are claim number, month, day and year. Actually the month, day and year together forms the claim date. There is also a variable named QuarterEndDate which contains the quarter end date value which happens to be 12/31/05. Now, before submitting the form, I need to do some validation check. The first validation (which I cannot get it to work) is that the claim date should be less than the Quarter End Date. The second validation is that there has to be a claim number regardless (which works by itself but does not when the first validation comes up). I would like to know what is the problem with the first validation in the code below? In VBSCRIPT what is the best way to check what values are we comapring (e.g. we have response.write in asp). I appreciate any help/suggestion on this issue. Regards. Function frm_Details_OnSubmit validation = TURE If ((frm_Details.ExpMonth_0.value) & "/" & (frm_Details.ExpDay_0.value) & "/" & (frm_Details.ExpYear_0.value)) > DateValue(QuarterEndDate) Then Alert("You must enter claim date within the End Quarter Date") document.frm_Details.ExpMonth_0.focus frm_Details_OnSubmit =False ElseIf (frm_Details.ClaimNo_0.value = "") Then Alert("You must enter a value for Claim number.") frm_Details.ClaimNo_0.focus frm_Details_OnSubmit =False Else frm_Details_OnSubmit = True End If End Function Tag: File Sharing by VBScripts Tag: 187640
  - 11
    - Outlook Script to synchronize forms Hello, Would it be possible to supply a script that unticks the 'synchronise forms' setting in Outlook 200 or 2003?? Or is this profile setting stored in the registry or kept in a file that maybe houses the Outlook profile? Thnaks in advance, Liam Tag: File Sharing by VBScripts Tag: 187639
  - 12
    - CreateObject using different credentials I'm trying to write a script that checks a list of remote computers to see if they need patches installed from Windows Update. I would like to be able to use the Microsoft.Update.Session COM object to do so, since this seems to be the easiest way to accomplish the task. In VBScript, the CreateObject function allows you to create a COM object on a remote computer if you pass it a second parameter with the computer name. I intend to do something like this: --- Set updateObj = CreateObject("Microsoft.Update.Session","remoteComputer") --- The remote computers I will be checking have an alternate domain account that grants me local admin on the box. The domain account I will be running the script from has no access to the remote computers Is it possible to specify this alternate account before or after calling CreateObject? Alternately, is there a way for me to do this through the Microsoft.Update.Session object? I realize that I could perform a Run As on the script, but I won't be able to do that after I've created the skeleton for the script. Tag: File Sharing by VBScripts Tag: 187638
  - 13
    - Need a script for field techs to use to reset user passwords We have a Win 2K3 AD domain with multiple site. Spread out among these sites are field techs that assist the users with their PC issues. I need a script for field techs to use to reset user passwords. We do not want to give them access to AD Users and Computers. The problem is that I can write a script that uses an LDAP call such as ("LDAP://cn=user,ou=management,dc=domain,dc=com"). However these techs will not know what OU a specific user is in. I don't know a way to do this without the LDAP. Any suggestions? Thanks ccoates@gfs.com Tag: File Sharing by VBScripts Tag: 187637
  - 14
    - Page .asp to change password Hello all, I need one page to change password via .asp in network windows 2000. Anybody have some tips to this? Tag: File Sharing by VBScripts Tag: 187634
  - 15
    - Javascript Date Validation in MM/DD/YYY output format The following javascript code gives me the date validation that I need except after the correct date is entered into the field, it puts the date in the wrong format EXAMPLE: User enters 2/14/2006 and it shows in the field Feb 14 2006 after the onBlur I want it to leave the formatting of the date in the field as 2/14/2006 and not change the input to Feb 14 2006 I am very new to javascript and I don't know what to take out in the following code to accomplish what I need. Can Anyone HELP? Thanks so much <SCRIPT LANGUAGE="JavaScript">  </script> Tag: File Sharing by VBScripts Tag: 187631
  - 16
    - Expected end of statment 800A0400 Can someone help me with my problem UserSpreadsheet .vbs ' Sample VBScript to create User accounts from a spreadsheet ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 4.6 - June 2005 ' ------------------------------------------------------' Option Explicit...................................................................P roblem Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow Dim strUser, strOU, strSheet Dim strCN, strSam, strFirst, strLast, strPWD, strE-mail ' -------------------------------------------------------------' ' Important change OU= and strSheet to reflect your domain ' -------------------------------------------------------------' strOU = "OU=test ," ' Note the comma strSheet = "D:\Scripts\NewUser44.xls" ' Bind to Active Directory, Users container. Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) ' Open the Excel spreadsheet Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 3 'Row 1 often contains headings ' Here is the 'DO...Loop' that cycles through the cells ' Note intRow, x must correspond to the column in strSheet Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strCN = Trim(objExcel.Cells(intRow, 2).Value) strFirst = Trim(objExcel.Cells(intRow, 3).Value) strLast = Trim(objExcel.Cells(intRow, 4).Value) strPWD = Trim(objExcel.Cells(intRow, 5).Value) strE-mail = Trim(objExcel.Cells(intRow, 6).Value) ' Build the actual User from data in strSheet. Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.givenName = strFirst objUser.sn = strLast objUser.E-mail = strE-mail objUser.SetInfo ' Separate section to enable account with its password objUser.userAccountControl = 512 objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit WScript.Quit ' End of Sample UserSpreadsheet VBScript. Tag: File Sharing by VBScripts Tag: 187628
  - 17
    - Please critique this script (Checking folder size) Hello. I've created a script to check the size of folders on a number of remote servers. The script works, but I'm sure there's some redundancy that can be removed - particularly in my use of f, f1 and f2 with the (FSO) File System Object. I was orginally using just f and f2, but when I tried to insert the timestamp I found that f2 would not work, and I needed an f1. Any suggestions on how to streamline this script would be appreciated. Thanks! Watch for word wrap: ========= BEGIN Folder_Size_Check.vbs ================== Dim objFSO, f, f1, f2 ' ***** Create new date string for use with log file name Monthfrom = Month(Date) Dayfrom = Day(Date) Yearfrom = Year(Date) newDate = Yearfrom & "-" & Monthfrom & "-" & Dayfrom Set objFSO = CreateObject("Scripting.FileSystemObject") ' ***** Create log file for results of folder size check Set f1=objFSO.opentextFile ("Folder_Size_Check__" & newDate & ".log",8,True) ' ***** Insert timestamp in log file f1.writeline vbCrlf & Now & vbCrlf f1.close ' ***** Use Paths.txt for the list of folder paths to check Set objFile = objFSO.OpenTextFile("C:\Paths.txt", 1) Do Until objFile.AtEndOfStream path = objFile.ReadLine Set f = objFSO.GetFolder(path) ' ***** Write folder size info to log file ' ***** FormatNumber function is used to display the size in MB Set f2=objFSO.opentextFile ("Folder_Size_Check__" & newDate & ".log",8,True) f2.writeline VBcrlf f2.writeline path & VBcrlf & VBcrlf & FormatNumber(F.Size / (1024 ^ 2),0) & " MB" f2.writeline VBcrlf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" f2.close Loop Set objFSO = nothing Set f = nothing Set f1 = nothing Set f2 = nothing ========= END Folder_Size_Check.vbs ================== Tag: File Sharing by VBScripts Tag: 187627
  - 18
    - Getting filenames (selected by date) into a text file Hi, I would like to do a daily backup of some files from a folder, but only the 20 most recent files. I'm using straighforward NTBackup with the "bks" option which allows me to specify a parameter file which I call mybackup.bks. This is a plain text file that contains the paths and name of the files to backup. My idea was to have a vbscript to create a new mybackup.bks on the fly just before the backup started. Mybackup.bks is basically in two parts : **Part 1 is the stuff that never changes, i.e. the C: drive that is backed up every night : C:\ C:\pagefile.sys /Exclude C:\Documents and Settings\Admin.....Windows NT\NTBackup\data\ /Exclude then there's the data on D: where I have a software project. **Part 2 changes every day, because we make hard drive copies of our data and new software versions twice a day to a folder on D: named "Project Copies". That folder contains two folders per day. I want to back up all of C: then only the 20 latest (i.e most recent) files from the "Project Copies" folder. My idea was that the script should start by assigning all of the text of Part1 into a variable, MyPart1. Then read through the Project Copies folder and pick up all the filenames (into a temp file ?) and get them sorted (descending by date) and then assign the 20 latest (i.e most recent) paths and filenames to another variable, MyPart2. Then write the two variables MyPart1 and MyPart2 to Mybackup.bks. Then run the bat file that runs the NTBackup.exe with the Mybackup.bks fileset. Anyone there willing to give me a hand with that ? TIA Alex. Tag: File Sharing by VBScripts Tag: 187625
  - 19
    - Problems with registering Dll's Hi, I am using the following scrip to copy dll's to remote machines and then trying to register them, this is the part that is failing....Any help would be greatly appreciated. On Error Resume Next Const WbemAuthenticationLevelPktPrivacy = 6 strCredentials = InputBox _ ("Please enter the user name, a blank space, and then the password:", _ "Enter User Credentials") If strCredentials = "" Then Wscript.Quit End If arrCredentials = Split(strCredentials," ") strUser = arrCredentials(0) strPassword = arrCredentials(1) strNamespace = "root\cimv2" Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\scripts\pc-list.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.Readline Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = objwbemLocator.ConnectServer _ (strComputer, strNamespace, strUser, strPassword) objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy ' ===================================================================== Const OverwriteExisting = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\test_scripts\*.dll" , "C:\windows\system32\" , OverwriteExisting objShell.Run "regsvr32.exe /s c:\windows\system32\crviewer.dll" objShell.Run "regsvr32.exe /s c:\windows\system32\crviewer9.dll" ' ===================================================================== Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_OperatingSystem") For Each objItem in ColItems Wscript.Echo strComputer & ": " & objItem.Caption Next ' ===================================================================== ' End ' ===================================================================== Loop objTextFile.Close Tag: File Sharing by VBScripts Tag: 187619
  - 20
    - Drop-Down Box - Redirect onChange / onUpdate? Hi, I have a ASP which creates a table within which this a form created for each value returned by a recordset. ie R2Value1 : RSValue2 :Drop-Down box R2Value1 : RSValue2 :Drop-Down box R2Value1 : RSValue2 :Drop-Down box I would like each forms to submit individually to another ASP on the selection of a value of a drop-down box. In essence I am looking for the code which would submit the form as after the drop-down box has been changed. Any help or pointers would be greatly appreciated. -- Many thanks, Rob Tag: File Sharing by VBScripts Tag: 187618
  - 21
    - Scripting Windows Explorer to show details view I'm making a script that must configure Windows Explorer to show details view. This can be configured in Windows Explorers GUI, but how do I script this? I've tried to compare the registry before and after making the change in Windows Explorer. A few changes were detected, so this is what I did: I exported the modified key. Then, using Windows Explorer, I configured Windows Explorer to the default settings. I imported the previously exported key. Restarted Windows Explorer. No luck :-( Any ideas? -- Regards, Thomas Makro Tag: File Sharing by VBScripts Tag: 187617
  - 22
    - Mask data in input box Hey, Just wondering is het possible to mask the data that is enterned in a input box? Like when you enter a password?? Mirella Tag: File Sharing by VBScripts Tag: 187610
  - 23
    - WMI Query: Is it possibe to define a WMI Query which selects a nework adapter based on the IPAddress field? Set wmiobj = GetObject("winmgmts:\\" & cname) wql = "select * from win32_NetworkAdapterConfiguration where IPAddress = '192.168.9.1'" I know i can specify an for ... next in wich i can get the IP Addresses of all Adapters and compare them to my address. Tag: File Sharing by VBScripts Tag: 187608
  - 24
    - Need hep with VB script loging out after they have locked a progra i have this script running on a 2003 terminal server, but i want to make a script that forces the user logout afther they have shutdown the program. (i dont use the administrator user in the finale script) set WshShell = CreateObject("WScript.Shell") WshShell.Run "runas /user:administrator ""Program path" WScript.Sleep 20 WshShell.Sendkeys "administrator password{ENTER}" Tag: File Sharing by VBScripts Tag: 187607
  - 25
    - How to get the home directory of the .net framework? hi, everyone I want to write a script which must use the regasm.exe executable in the home folder of .net framework, is there any approach to get this folder name? Thanks very much! Yihan Tag: File Sharing by VBScripts Tag: 187606
- Next
  - 1
    - COM Objects Hi to all I need some advice on how to shutdown and work with COM objects. Binding to a COM object requires a ProgID, however, I do not know the component ProgID and cannot find it in the registry. In the "General" tab of the COM's properties i can see the COM's GUID but i cannot find the ProgID. Is there a way to shutdown the COM through a script? Is there a way to find out the COM's ProgID? How does one know what the COM's interface is(methods/functions/properties)? Any advice would be highly appreciated Thanks Tag: File Sharing by VBScripts Tag: 187602
  - 2
    - Table contents... I am developing a asp page with vbscript, I would like to create a table with heading in 1st row and contents. How can do so? Here is what I tried - <table width="100%" cellpadding="0" cellspacing="0" border="0" colspan="4"> <br> <tr bgcolor="#FEDFEG"> <td class="txtBody" colspan="4"> but this doesn't align all the columns. I would also like columns to be different length. I am not sure if this is the right group, if not please point me to the one. Thank you, -Me Tag: File Sharing by VBScripts Tag: 187596
  - 3
    - Files on an ftp sever. The anti-virus files are stored on an ftp server, behind the corporate firewall (no username or password required). I use a batch file to dump a directory listing, and copy the entire contents to the local server. I then use a script to go through all the updates, find the latest one (eg sdat4670.exe), copy it to the directory the users' machines update from, set the file permissions etc and run the update. I would like to save some bandwith and only download the latest update file, can anyone point me in the right direction? Tag: File Sharing by VBScripts Tag: 187594
  - 4
    - compilation error Can someone help me with my syntax? I think somethings wrong with my quotes. I'm getting an error: expected ')' What am I doing wrong? Const ALL_USERS = True Set objService = GetObject("winmgmts:") Set objSoftware = objService.Get("Win32_Product") errReturn = objSoftware.Install("C:\Temp\Roxio\ECDC_DVD\Roxio Easy Media Creator 7 Basic DVD Edition.msi", "TRANSFORM=""C:\Temp\Roxio\ECDC_DVD\Roxio7.mst" "REBOOT=""ReallySuppress"", ALL_USERS) Wscript.Echo errReturn Tag: File Sharing by VBScripts Tag: 187593
  - 5
    - creating BITS jobs by VBS can someone give me a pointer to create BITS (send and receive) jobs using VBS? I use BITSAdmin in a shell now to do the job. I suppose there are better ways. Tag: File Sharing by VBScripts Tag: 187592
  - 6
    - PageFile How do you create a script that will create a pagefile, and set it to System Managed? Tag: File Sharing by VBScripts Tag: 187589
  - 7
    - Add user in active directory How can I add mail with sours fraom excel. The rest of the script work fine. ' UserSpreadsheet .vbs ' Sample VBScript to create User accounts from a spreadsheet ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 4.6 - June 2005 ' ------------------------------------------------------' Option Explicit Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow Dim strUser, strOU, strSheet Dim strCN, strSam, strFirst, strLast, strPWD ' -------------------------------------------------------------' ' Important change OU= and strSheet to reflect your domain ' -------------------------------------------------------------' strOU = "OU=test ," ' Note the comma strSheet = "C:\NewUser33.xls" ' Bind to Active Directory, Users container. Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) ' Open the Excel spreadsheet Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 3 'Row 1 often contains headings ' Here is the 'DO...Loop' that cycles through the cells ' Note intRow, x must correspond to the column in strSheet Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strCN = Trim(objExcel.Cells(intRow, 2).Value) strFirst = Trim(objExcel.Cells(intRow, 3).Value) strLast = Trim(objExcel.Cells(intRow, 4).Value) strPWD = Trim(objExcel.Cells(intRow, 5).Value) strMail = Trim(objExcel.Cells(intRow, 6).Value)..................problem ' Build the actual User from data in strSheet. Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.givenName = strFirst objUser.sn = strLast objUser.mail = strMail objUser.SetInfo ' Separate section to enable account with its password objUser.userAccountControl = 512 objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit WScript.Quit ' End of Sample UserSpreadsheet VBScript. Thanks Erik Gjertsen Tag: File Sharing by VBScripts Tag: 187588
  - 8
    - get volume sizes on various servers Greetings, I have a list of disk volumes on various servers (some are mounted within other volumes & have no drive letter). How do I write a script that remotely logs into each server & outputs the space used & free for each volume eg: <server1> o:\ 25 GB used 5 GB free <server1> o:\subvolume 15 GB used 10 GB free <server2> l:\ 25 GB used 5 GB free etc... Thanks Tag: File Sharing by VBScripts Tag: 187585
  - 9
    - VBS runs, VBE doesn't I have a script that does a recursive search of the entire C:\ drive looking for specific file types. If it finds any it writes a log file to a network share. I have a user name and password hard-coded in the script to mount that share, so I want to encrypt the script before it's deployed. The VBS version of the script runs correctly, but the VBE version does not. It's bombing with a "permission denied" error on a line that is part of the recursive read. I'm logged on as an admin while testing the script, but it's as if the encrypted script is running with user rights and attempting to read a folder that requires elevated rights to access. At least that's the same error and line that bombs if I'm logged on as a user and run the script. Anyone have an idea why the encrypted version would bomb, but the clear version would not? Thanks, Tom Tag: File Sharing by VBScripts Tag: 187584
  - 10
    - Overlapping Subnets Hi i am try to find a way to go through AD sites & service and check for and subnets that maybe overlapping , does anyone know of a script to do this ? Thanks Adrian Tag: File Sharing by VBScripts Tag: 187572
  - 11
    - DSN TO DSN LESS HELP Morning all, just moved servers and need to create a DSN Less connection to the database, below is the code as it is now. The location of the DB is C:\inetpub\wwwroot\tobias\online\internal\database\cabtrak.mdb  <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_classiconline_STRING Recordset1.Source = "SELECT * FROM booking_form WHERE driverNo = '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND allocated = 'allocated' ORDER BY DATE2 ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> Thanks in advance. Tag: File Sharing by VBScripts Tag: 187568
  - 12
    - Has Anyone Noticed... I frequently use 'CreateObject("InternetExplorer.Application")' constructs to present custom input screens or custom output screens for my scripts. I'm sure that many of us do this. The question is: has anyone noticed that the highlighted 'borders' on the body of the text window is transparent? My clients have pointed out that depending on what is behind the window at the time, shows thru in the thin highlighted border of the text area. Has anyone found a way to prevent this? I have to agree with the client that it can be annoyingly distracting. Not really a show stopper, but still distracting. Any suggestions...? Dick Tag: File Sharing by VBScripts Tag: 187564
  - 13
    - vbscript manipulation still not working I have a page with phone number where the area code is captured in a text box and so are the two sets of numbers following area code that are captured in two other text boxes. What I am trying to achieve using vbscript is that as the user finishes inputing three numbers in the area code text box, I want the cursor focus to automatically go to the next text box containing the three digit phone numbers. I am trying to achieve this using the following code: sub txt_PhoneAreaCode_LostFocus() if (Len(document.frmMain.txt_PhoneAreaCode.Value) > 3) Then document.frmMain.txt_Phone1.Focus end if end sub However, with the above code, I cannot achieve what I want. I would like to know whether the events chosen are incorrect or any other suggestion. Thanks in advance. Tag: File Sharing by VBScripts Tag: 187555
  - 14
    - listing users and email addresses I want to export the names and email addresses of users. I'm trying first just to list them. I'm using this script: Dim refWMI Dim colEveryone Dim refUser Set refWMI = GetObject("winMgmts:root\directory\LDAP") Set colEveryone = refWMI.ExecQuery("Select * from DS_User") For Each refUser in colEverone WScript.echo refuser.DS_cn WScript.echo refuser.DS_mail next Set colEveryone = nothing Set refWMI = nothing When I run the script I get "object not a collection" on line 6. I found this in a book but I really don't understand it. Thanks for any help you can offer, -- Dan D. Tag: File Sharing by VBScripts Tag: 187549
  - 15
    - VBScript question Gents, Can anyone tell me if the following is possible? I have a basic VBScript and would like to have several snippets included which I have stored on a remote server/workstation. E.g. Create a logon script which needs to have error handling. I have a error handling snippet stored as \\remote_machine1\snippets\errorvbs.txt, which I would like to have included in the script without having to copy this in there. In essence run this functionality from another location. Can this be done? Thanks in advance Tag: File Sharing by VBScripts Tag: 187547
  - 16
    - VBScript Error Trapping I'm running a code snippet that adds a User to a Group. For some reason the error checking does not work: WScript.Echo "Debug: " & UserAccount.ADsPath & " - " & objGroup.ADsPath On Error Resume Next objGroup.Add(UserAccount.ADsPath) If Err Then WScript.Echo "ERROR: " & Err.Message Err.Clear End If On Error GoTo 0 When I execute the above, it just loops through and the only thing that is printed out is the Debug message (This snippet is inside a loop). If I remove the Error block, then the error that gets thrown on the first iteration is: The object already exists. I know the User is already a member, but why is no Error being flagged when I run it with error checking? I'm running the script on about 200 accounts, and I'd like to know if any other error besides the already exists occurs. Thanks for the help! -jesse Tag: File Sharing by VBScripts Tag: 187546
  - 17
    - The quickest way to create large junk files on disk I have a very big disk (it's around 3.5Tb). I have a bunch of machines that run automated copies of Photoshop 7.0. Photoshop 7.0 can't save a file to a disk with more than (I'm guessing here) 2Tb of free space - it puts up an error saying the disk is full. Since I can't for the moment upgrade the copies of photoshop (the automation will fail), I've decided to implement a more "cunning" scheme. I'm going to fill the disk up with big temp files that a script will generate/delete as necessary to keep the freespace on disk below photoshop's artificial limit. So, do I really have to loop around writing zeros to a file object to create a big file (say 500Mb in size)? Is there a way to simply say "this file is 500Mb in size" and then save it? Asking here in case anyone has had any experience with this sort of thing (and out of curiosity too). Regardless, I'm going to experiment tomorrow and will report back. Tag: File Sharing by VBScripts Tag: 187544
  - 18
    - How to put focus to the next box once the max num on current is do Hi, I have a asp page with phone number where the area code is captured in a field and so are the two sets of numbers following area code that are captured in two other fields. While a user types numbers in the area code, as soon as three numbers have been typed I want the cursor focus to be in the next field containing the three digit phone numbers. I have the following code (as part of a longer code) to handle this: (document.frmMain.txt_PhoneAreaCode.value.length > 3) Then document.frmMain.txt_Phone1.focus However, this is not working. I am wondering where the problem is? Which trigger will this code go.Thanks for any help here. Tag: File Sharing by VBScripts Tag: 187543
  - 19
    - MSXML2.ServerXMLHTTP 4.0 -> ActiveX component Can't create object Hello group. I'm using the following script to download an image from the net. I have used this before without any problems on a different PC. Now that I'm trying on my current PC it doesn't seem to work. Why would it work on one pc, but not the other. One is XP Pro (dosn't work), and the other is XP home (does work). Any ideas? ActiveX component Can't create object: MSXML2.ServerXMLHTTP 4.0 With CreateObject("MSXML2.ServerXMLHTTP.4.0") 'error on this line .SetOption 2, 13056 ' Ignore all SSL errors .open "GET", FileToDownload, False .send aFile = .ResponseBody End With -- Thanks! Bryan Tag: File Sharing by VBScripts Tag: 187536
  - 20
    - Script to defrag local drives Found some code, but would like the defrag to exclude a folder from being included in the defragmentation. Is this possible? Tag: File Sharing by VBScripts Tag: 187535
  - 21
    - WINTV Problems Months ago I bought WINTV and never have been able to run the software without it crashing and hanging the whole system. OS: Win XP Help...... Tag: File Sharing by VBScripts Tag: 187534
  - 22
    - Drive Space I am working out for getting the drive space for all the drives which i have in my local computer and also in all the servers which i have connected to the same domain.Can anyone please help me to sort this problem out so that i can see the drive space in the text format and also i can print that document with the same script.Pls help me as i am new to scripting -- MuraliKrishnan Entry level Network Engineer Tag: File Sharing by VBScripts Tag: 187532
  - 23
    - excel sheet read and write with VBScript Hi I want to write VBScript with read data from excel worksheet and display in html page i don't know vbscript . is it possible for u to help me for writing VBScript for reading and writing data from excel worksheet Please do the needful Thanx Take care Manoj Tag: File Sharing by VBScripts Tag: 187529
  - 24
    - How can a commandline argument be added? How can the below get-pix.vbs file be modified so that the URL in it can be replaced with the commandline URL like in the bottom get-pix.bat file? I got the below from a past post and it works well, but being able to use an argument in the file would simplify changing the URLs. Thanks! =========get-pixt.vbs====================== Dim a With CreateObject("MSXML2.XMLHTTP") .open "GET", "http://zoomkat.d2g.com:92", False .send a = .ResponseBody End With With CreateObject("ADODB.Stream") .Type = 1 'adTypeBinary .Mode = 3 'adModeReadWrite .Open .Write a .SaveToFile "test.jpg", 2 'adSaveCreateOverwrite .Close End With ========get-pix.bat===================== @echo off get-pix.vbs http://zoomkat.d2g.com:92 Tag: File Sharing by VBScripts Tag: 187525
  - 25
    - ActiveX component can't create object: Excel Aplication, Errog Code 800A01AD I Wish to crate users with sourse from excel in Active Directory Set objExcel = CreateObject("Excel.Application") .....................Error Set objWorkbook = objExcel.Workbooks.Open _ ("C:\Scripts\New_users.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" Set objOU = GetObject("ou=test, dc=gjertsen, dc=as") Set objUser = objOU.Create _ ("User", "cn=" & objExcel.Cells(intRow, 1).Value) objUser.sAMAccountName = objExcel.Cells(intRow, 2).Value objUser.GivenName = objExcel.Cells(intRow, 3).Value objUser.SN = objExcel.Cells(intRow, 4).Value objUser.AccountDisabled = FALSE objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit Thanks Erik Gjertsen Tag: File Sharing by VBScripts Tag: 187504

Is there any way that a VBScript can open a file for appending, without
preventing other processes from opening the file for reading? Unfortunately,
the OpenTextFile method doesn't seem to provide a parameter for specifying
the file sharing mode.

Thanks!
--
Joseph Morales
[To reply directly, remove "deletethispart." from my E-mail address ]

Top

Re: File Sharing by VBScripts by Michael

Michael
Thu Feb 16 18:46:54 CST 2006

Joseph Morales wrote:
> Is there any way that a VBScript can open a file for appending,
> without preventing other processes from opening the file for reading?
> Unfortunately, the OpenTextFile method doesn't seem to provide a
> parameter for specifying the file sharing mode.
>

FSO methods for appending use file locks for exclusive use. I don't know of
any other COM scropable file i/o methods to do what you ask. An option is
to write your own (say in VB6 or <shudder> C++ or as a .Net assembly
designed for COM InterOp).

--
Michael Harris
Microsoft MVP Scripting

Scripting: Your First Steps
http://www.microsoft.com/technet/scriptcenter/topics/beginner/firststeps.mspx

Top