DHTML question

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
    - recursion to display records I am learning how to get records from a database. I was able to accomplish but I know there are 6 records and I only display 1. I know what to do but do not know how in vbscript. i think the script needs a for loop to display records until completed but was unable to get working. ----------------CODE BELOW-------------------- Const DB_CONNECT_STRING= "provider=SQLOLEDB.1;data source=localhost;database=PSMT;uid=mydbUser;pwd=???????" Set MyDB = CreateObject("ADODB.Connection") MyDB.Open(DB_CONNECT_STRING) SQLString = "select SystemName, Win32_ComputerSystem_TotalPhysicalMemory, OSInstallDate, LAST_UPDATED from SystemInfo where (Win32_ComputerSystem_TotalPhysicalMemory) < 120746688" set MemQuery = MyDB.Execute(SQLString) If Not MemQuery.EOF then SystemName = MemQuery.Fields("SystemName") PhysicalMem = MemQuery.Fields("Win32_ComputerSystem_TotalPhysicalMemory") OSINstallDate = MemQuery.Fields("OSInstallDate") LastUpdated = MemQuery.Fields("LAST_UPDATED") WScript.Echo(SystemName & vbtab & PhysicalMem & vbtab & OSINstallDate & vbtab & LastUpdated) End if MyDB.Close Tag: DHTML question Tag: 187717
  - 2
    - Setup.exe Silent intall w/.ISS not working I am a novice in vbscript. Nonetheless I have an application on all computers I need to be installed with a script on all computers. The following works: Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run = "D:\TL06\setup.exe -s -f1D:\TL06\setupNEW.iss", 1 True (-s is to silent install and the -f1 indicates the file location for the response file needed in the silent install.) The problem is the folder has a space, so with the change in folder name the following does NOT work: Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run = "D:\TL 06\setup.exe -s -f1D:\TL 06\setupNEW.iss", 1 True I tried adding extra quotes before and after but it does not work. I tried declaring variables for the files but that does not work either. I am missing something? or is it not possible to add arguments to a file who's path has a space in it? The error that comes up is that The system cannot find the specified file. Please help anyone. R D J Tag: DHTML question Tag: 187715
  - 3
    - Verify is a service can be stopped I am trying to automatically start a service that is failing. Before I can start the service, I need to verify that the service can be stopped. I have the following code that tells me the state of all services running that can be stopped. What I need to do is only check if a particular service can be stopped, then if it can, kick off the stop and restart of the service. I can stop and start, I just need to fix the following code to check for a particular service. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServices = objWMIService.ExecQuery _ ("Select * from Win32_Service Where AcceptStop = True") For Each objService in colServices Wscript.Echo objService.DisplayName Next Thanks Tag: DHTML question Tag: 187714
  - 4
    - XCOPY in VBscript Anyone have an xcopy-like written in vbscript? Not a script that calls DOS xcopy, but actually have a script that performs like xcopy? Thanks. Tag: DHTML question Tag: 187712
  - 5
    - SQL stored procedures: display both output and recordset I'd like to retrieve both a recordset and the output parameter from a SQL stored procedure. I can do one or the other but not both. The stored procedure itself is a simple query with an input and output parameter. The parameters: oCmd.Parameters.Append oCmd.CreateParameter("@ID", adVarChar, adParamInput, 15 , "9123456") oCmd.Parameters.Append oCmd.CreateParameter("@Return_Code", adVarChar, adParamOutput, 50, "") If I use: oCmd.Execute I can read the output parameter using: wscript.echo oCmd.Parameters("@Return_Code").Value or wscript.echo oCmd.Parameters(1).Value If I use: set rs = oCmd.Execute I can loop through the recordset and correctly display the data. I can't display the output parameter. I tried to use: Set rs = rs.NextRecordset wscript.echo oCmd.Parameters("@Return_Code").Value wscript.echo oCmd.Parameters(1).Value That doesn't work. I then tried to close the recordset: Set rs = rs.NextRecordset rs.close wscript.echo oCmd.Parameters("@Return_Code").Value wscript.echo oCmd.Parameters(1).Value To no avail. I did set nocount in the stored procedure. I can get either the output data or the recordset data so the stored procedure is returning the data to my script. At this point all I want to return is "Hello world" from the stored procedure. I'm new to the world of running stored procedures from vbscript, though I have been running queries for a long time. Any ideas? Swyck Tag: DHTML question Tag: 187711
  - 6
    - RePost: Problem handling Date Comparison in VBScript I had posted the following earlier. However, the help I got did not resolve the problem. I appreciate any advise/help to resolve the following. Thanks in advance. 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? Function frm_Details_OnSubmit validation = TURE Function frm_Details_OnSubmit validation = TURE If DateValue((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: DHTML question Tag: 187710
  - 7
    - ocx permission denied I've updated an ocx (using VB6) that is currently being used in an asp 3.0 application. I created an internet package(using VB6) containing the ocx and corresponding dll's. I then placed both the CAB and support files on my webserver. I also registered the dll's on the web server. I updated my asp script to reflect the new object's classid and version#. When I call the asp page I receive an alert "permission denied" when it calls the ocx. If anyone could provide some feedback on how to overcome this issue I greatly appreciate it. I also created a very simple ocx on my local machine complied and saved to my system32 dir. I tried using it on my local machine in an asp page; when it call the object's method on this com thru a windowonload event I received a prompt "object doesn't support this property or method"? Thanks in advance! Tag: DHTML question Tag: 187708
  - 8
    - Determine if a script was run from an HTA Is there a way to determine if an external vbscript was called from an HTA? Tag: DHTML question Tag: 187707
  - 9
    - Input box 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 Tag: DHTML question Tag: 187704
  - 10
    - 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: DHTML question Tag: 187701
  - 11
    - 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: DHTML question Tag: 187697
  - 12
    - 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: DHTML question Tag: 187693
  - 13
    - 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: DHTML question Tag: 187683
  - 14
    - 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: DHTML question Tag: 187682
  - 15
    - 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: DHTML question Tag: 187677
  - 16
    - 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: DHTML question Tag: 187675
  - 17
    - 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: DHTML question Tag: 187672
  - 18
    - 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: DHTML question Tag: 187668
  - 19
    - 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: DHTML question Tag: 187667
  - 20
    - 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: DHTML question Tag: 187666
  - 21
    - 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: DHTML question Tag: 187664
  - 22
    - 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: DHTML question Tag: 187661
  - 23
    - 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: DHTML question Tag: 187660
  - 24
    - 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: DHTML question Tag: 187659
  - 25
    - 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: DHTML question Tag: 187658
- Next
  - 1
    - 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: DHTML question Tag: 187657
  - 2
    - -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: DHTML question Tag: 187656
  - 3
    - 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: DHTML question Tag: 187650
  - 4
    - 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: DHTML question Tag: 187649
  - 5
    - 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: DHTML question Tag: 187647
  - 6
    - 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: DHTML question Tag: 187643
  - 7
    - 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: DHTML question Tag: 187640
  - 8
    - 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: DHTML question Tag: 187639
  - 9
    - 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: DHTML question Tag: 187638
  - 10
    - 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: DHTML question Tag: 187637
  - 11
    - 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: DHTML question Tag: 187634
  - 12
    - 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: DHTML question Tag: 187631
  - 13
    - 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: DHTML question Tag: 187628
  - 14
    - 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: DHTML question Tag: 187627
  - 15
    - 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: DHTML question Tag: 187625
  - 16
    - 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: DHTML question Tag: 187619
  - 17
    - 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: DHTML question Tag: 187618
  - 18
    - 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: DHTML question Tag: 187617
  - 19
    - 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: DHTML question Tag: 187610
  - 20
    - 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: DHTML question Tag: 187608
  - 21
    - 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: DHTML question Tag: 187607
  - 22
    - 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: DHTML question Tag: 187606
  - 23
    - 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: DHTML question Tag: 187602
  - 24
    - 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: DHTML question Tag: 187596
  - 25
    - 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: DHTML question Tag: 187594

I am wrting Access DAP. On the page I need to create a new record based on a
current rcord so I am developing copy operation. I have lots of HTML
controls on the page. When I click new, it should keep all the data in the
controls as it is except a few.

How can I achieve this using DHTML

thanks

Top