Input box

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
    - List of the 20 most recent subfolders in a folder Hi, I'm looking for a script to read through the "subfolders" in a folder and make a list of the 20 most recent folders. Actually the "subfolders" are really zip files (pretending to be subfolders). TIA Alex Tag: Input box Tag: 187701
  - 2
    - changing values in registry subkeys Hi All I'm looking to search through all subkeys of a specific registry key for a given value. The code below works fine for echoing out the names of the subkeys..... ---------------------------------------------------------------------------------------------------------------------- const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SYSTEM\CurrentControlSet\Services" oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each subkey In arrSubKeys StdOut.WriteLine subkey Next ---------------------------------------------------------------------------------------------------------------------- ...... but how do I check each subkey for a specific value? Tag: Input box Tag: 187697
  - 3
    - Folder last accessed / modified Hi Guys, doing a bit of network maintenance at the moment and I'd like to archive some folders that havn't been accessed/modified since 2003. I would like to generate a script to search a directory and output the names of all the folders that have not been accessed since 2003 to a txt file. The text document should also contain when the folders were last accessed. The server uses NTFS. Tag: Input box Tag: 187693
  - 4
    - formatnumber i try to add numbers from text type number data. ABC = formatnumber("12") + formatnumber("50") but the result is 1250, not 62 i change "+" to "*", then it can be multiplied. how can i do additon? Thanks a lot. tony Tag: Input box Tag: 187683
  - 5
    - Select a Cell Range in Excel using numbers Hi Every One, I'm just trying to write a VBscript to edit an Excel file. Just want t select a range of cells *using column and row numbers*. Here is m sample code : Dim objUser, strExcelPath, objExcel, objSheet, k, objGroup strExcelPath = "C:\UserGroup.xls" Dim objXL Set objExcel = WScript.CreateObject("Excel.Application") objExcel.Workbooks.Add objExcel.ActiveWorkbook.Worksheets(2).Select objExcel.ActiveWindow.SelectedSheets.Delete objExcel.ActiveWorkbook.Worksheets(2).Select objExcel.ActiveWindow.SelectedSheets.Delete Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Cells(1, 1).Value = "User Common Name" objSheet.Cells(2, 1).Value = "sAMAccountName" objSheet.Cells(3, 1).Value = "Display Name" objSheet.Cells(4, 1).Value = "Distinguished Name" objSheet.Cells(5, 1).Value = "Groups" objExcel.ActiveWorkbook.SaveAs strExcelPath objSheet.Range(cells(1,1),cells(2,3)).Select *<-- this doesn't work* objExcel.ActiveWorkbook.Close objExcel.Application.Quit Set objUser = Nothing Set objGroup = Nothing Set objSheet = Nothing Set objExcel = Nothing Can anyone help me, pleaaaase Cheers, The K - The K ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Input box Tag: 187682
  - 6
    - Importing Certificates into IE Is there a way to import Certificates into Internet Explorer via VBScript? I thought I found something on the internet that showed how to do this the other night but now I can't seem to find it. I would like to integrate this into my logon script. Thanks Talyn Tag: Input box Tag: 187677
  - 7
    - Object doesne't support this priority or metode Email 800a01B6 Can someone help me, I am new on this Erik Gjertsen ' 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, strEmail ' -------------------------------------------------------------' ' 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) strEmail = 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.Email = strEmail...............................Problem 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: Input box Tag: 187675
  - 8
    - Why does one logon script work and the other not work I am trying to write a logon script for users logging into Windows 2003 terminal server. I need to determine what usergroups they belong to. I downloaded two scripts and the first one only works for users in the administrator group. The second script works for all users. I'm thinking it is an Active Directory security setting. For my own education, how can I make the first script work for all users. Thanks for your help ' Only works for administrators Set objADSysInfo = CreateObject("ADSystemInfo") strUser = objADSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) For Each strGroup in objUser.memberOf Set objGroup = GetObject("LDAP://" & strGroup) Wscript.Echo objGroup.CN Next ' works for everybody Set WshShell = WScript.CreateObject("WScript.Shell") strDomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%") strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%") Set objUser = GetObject("WinNT://"& strDomain &"/"& strUserName, user) For Each objGroup In objUser.Groups If strGroupList = "" Then strGroupList = objGroup.Name Else strGroupList = strGroupList & ", " & objGroup.Name End If Next WScript.Echo strGroupList Tag: Input box Tag: 187672
  - 9
    - Permission Denied and Path Not Found errors I'm stuck in a loop with a remote script: If I use the following line to connect to a remote system from a server, I get a "Permission Denied" error: Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputers(y) & "\root\cimv2") I can launch this script on one of my remote systems to connect to another remote system (rather than launching it from the server), and the entire script runs fine. So, I use the "Locator" version, which connects successfully: Set objSWbemLocator = CreateObject("WbemScripting.sWbemLocator") Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _ "\root\CIMV2", _ "strUser", _ "strPW", _ "MS_409", _ "NTLMDomain:" + strComputer) However, when I use this "Locator" version, the following line in my script fails with a "path not found" error: Set objTargetFolder = objFSO.GetFolder("\\" & strComputer & _ "\c$\" & strTargetFolder) I believe this is because "C$" is not accessible. Is there another way to access the C drive remotely? Thanks, -- Bill Baker PS: In case anyone notices, I had posted this question in the scripting.remote area, but no one seems to be home there. Tag: Input box Tag: 187668
  - 10
    - Exchange 2003 scripts Does anyone have good site with scripts for Exchange 2003. What I need is the script that will let me select number of user accounts and tell me number of emails in the each mailbox, may be the time email arrived to the mailbox etc.... Thanks a lot. Tag: Input box Tag: 187667
  - 11
    - List disabled accounts and deletet. Hi all, Has anyone script that will reed all NT4 disabled accounts and then give you choice to delete them.. Thanks a lot. Tag: Input box Tag: 187666
  - 12
    - 800A0046 error: permission denied in vbscript Hello, I downloaded the "List Web Service Setting Properties" script from Microsoft at: http://www.microsoft.com/technet/scriptcenter/scripts/iis/iis6/web/i6wevb14.mspx. I edit the strComputer variable to indicate the correct hostname. Script errors at the line beginning the For Each loop indicated in the code snip below. Can anyone help me determine what permission I need? (I am a local admin on the server, however, GPO policies removes some local privileges). strComputer = "correcthostname" Set objWMIService = GetObject _ ("winmgmts:{authenticationLevel=pktPrivacy}\\" _ & strComputer & "\root\microsoftiisv2") Set colItems = objWMIService.ExecQuery("Select * from IIsWebServiceSetting") For Each objItem in colItems *********************** Wscript.Echo "Access Execute: " & objItem.AccessExecute Wscript.Echo "Access Flags: " & objItem.AccessFlags Wscript.Echo "Access No Physical Directory: " & _ objItem.AccessNoPhysicalDir Wscript.Echo "Access No Remote Execute: " & _ Thanks in advance, Tag: Input box Tag: 187664
  - 13
    - File Sharing by VBScripts 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 ] Tag: Input box Tag: 187661
  - 14
    - 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: Input box Tag: 187660
  - 15
    - 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: Input box Tag: 187659
  - 16
    - 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: Input box Tag: 187658
  - 17
    - 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: Input box Tag: 187657
  - 18
    - -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: Input box Tag: 187656
  - 19
    - 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: Input box Tag: 187650
  - 20
    - 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: Input box Tag: 187649
  - 21
    - 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: Input box Tag: 187647
  - 22
    - 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: Input box Tag: 187643
  - 23
    - 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: Input box Tag: 187640
  - 24
    - 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: Input box Tag: 187639
  - 25
    - 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: Input box Tag: 187638
- Next
  - 1
    - 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: Input box Tag: 187637
  - 2
    - 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: Input box Tag: 187634
  - 3
    - 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: Input box Tag: 187631
  - 4
    - 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: Input box Tag: 187628
  - 5
    - 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: Input box Tag: 187627
  - 6
    - 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: Input box Tag: 187625
  - 7
    - 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: Input box Tag: 187619
  - 8
    - 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: Input box Tag: 187618
  - 9
    - 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: Input box Tag: 187617
  - 10
    - 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: Input box Tag: 187610
  - 11
    - 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: Input box Tag: 187608
  - 12
    - 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: Input box Tag: 187607
  - 13
    - 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: Input box Tag: 187606
  - 14
    - 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: Input box Tag: 187602
  - 15
    - 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: Input box Tag: 187596
  - 16
    - 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: Input box Tag: 187594
  - 17
    - 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: Input box Tag: 187593
  - 18
    - 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: Input box Tag: 187592
  - 19
    - PageFile How do you create a script that will create a pagefile, and set it to System Managed? Tag: Input box Tag: 187589
  - 20
    - 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: Input box Tag: 187588
  - 21
    - 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: Input box Tag: 187585
  - 22
    - 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: Input box Tag: 187584
  - 23
    - 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: Input box Tag: 187572
  - 24
    - 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: Input box Tag: 187568
  - 25
    - 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: Input box Tag: 187564

Hi all

I would like to create a service dependance with the command:
oShell.Run "sc config " & ServiceOVO & " depend= " & chr(34) &
ServiceApplicatif & chr(34), 1,True

My problem is that ServiceApplicatif is badly interpreted when it has
spaces in the name.

ServiceApplicatif is entered with the following line:
ServiceApplicatif = InputBox("Enter the name of service Applicatif
(Service name) " , "Service")

How can I make sure that spaces in the inputbox are converted as spaces
in the variable ?
or how can I modify the string to insert chr(32) ?
to have a correct service installation

Thanks and have a good day
Bruno

Top