Change local password

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
    - Regular expression help Need to parse through our code files and find every instance of other files referenced, looking for included files, images, etc. The expression I'm using is ("|')(.*)(\.asp|\.htm(l)?|\.gif|\.jpg)("|') Which works great. Now what I need to do and can't figure out is how to exclude certain matches, as in  <a href="http://www.ourserver.com/somebranchfile.asp"> I don't want anything (for instance) that includes the strings 'myincludefiles' or 'http' inside the quotes. I'd appreciate any help I can get on this. - Wm Tag: Change local password Tag: 179219
  - 2
    - Learning scripting vbs Hi to everyone: I'm a beginer in the scripting in vbs, and I want to learn it, as full as it can be learned, but I don't know where i can begin. which or what page can i visit to learn this script languaje? Thank you.... Baruch Ortiz Tag: Change local password Tag: 179217
  - 3
    - error: can't move focus to the control because it is invisible, not enabled, or of a type that does not accept the focus Hi, I am getting the message below when i try to disable a select/list box using vbscript, client side programming. error: can't move focus to the control because it is invisible, not enabled, or of a type that does not accept the focus This is the code i am using below; I have tried various attempts to get rid of the error message. The list box does become disabled however the message strill occurs. Does anyone know how to get around this error message? Any help much appreciated... -- code below -- set tr = document.getElementById("table_body").lastchild.previouschild tr.all.tags("select")("test_list_box").disabled = true Tag: Change local password Tag: 179216
  - 4
    - This script shows the Hex dump of a file Hello, this script opens an IE windows and shows the hex dump of the file dropped on the icon. If you do not use drag and drop, you can choose a file from the open dialog box (needs the appropriate library registered). Giovanni. '<% '************************************************ ' File: HexDump2.vbs (VBScript) ' Author: Giovanni Cenati ' 16 june 2005 ' Mostra in IE un file in esadecimale ' Shows a hex dump of a selected file ' http://digilander.libero.it ' Codice utilizzabile citando il sito. ' Based on a script post by spmlinton at sk sympatico ca ' in the newsgroup microsoft.public.scripting.vbscript ' on Thu, 27 Mar 2003 '************************************************ Set objArgs = WScript.Arguments 'Vedo se ci sono degli argomenti passati allo script if objargs.count=0 then Set comDlg=CreateObject("MSComDlg.CommonDialog.1") const cdlOFNHideReadOnly = 4 'Nasconde la casella "sola lettura" const cdlOFNFileMustExist = 4096 'Puoi scegliere solo files esistenti Const cdlOFNExplorer = 524288 'Finestra in stile win95 comDlg.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist + cdlOFNExplorer comDlg.Filter = "Tutti i files|*.*" comDlg.DialogTitle="Visualizza un file in formato esadecimale" 'comDlg.InitDir="c:\" comDlg.maxfilesize=500 'comDlg.FileName="c:\autoexec.bat" comDlg.ShowOpen if comDlg.FileName="" then wscript.quit FName= comDlg.FileName 'Ricordo il filename scelto. Saves the filename in variable set comDlg=nothing 'Scarica l'oggetto. Discards object else fName = objArgs(0) end if ' Lancia Internet Explorer per mostrare i risultati. Set oIE = WScript.CreateObject("InternetExplorer.Application") oIE.navigate "about:blank" ' documento vuoto. Empty doc. ' Importante: aspetta che Internet Explorer sia pronto Do While (oIE.Busy) ' Waits until IE is ready WScript.Sleep 200 ' Sospende per 200 millisecondi. Loop oIE.Visible = 1 ' Internet Explorer è visibile. oIE.ToolBar = 1 ' ed ha la toolbar così è presente il pulsante "stampa" Set doc1 = oIE.Document ' Punta al documento... doc1.open ' ...lo apre ' Scrive le intestazioni html. Writes html headers doc1.writeln("<html><head><title>" & Title & "</title></head>") doc1.writeln("<body bgcolor='#FAF0F0'><pre>") Const ForReading = 1 set fso=createobject("scripting.filesystemobject") set f=fso.getfile(FName) 'apro il file. Open file for reading set ts=f.OpenAsTextStream(ForReading,0) 'in lettura byteCtr=0 chCtr=0 doc1.writeln(Fname) doc1.writeln(f.size & " bytes") doc1.writeln() do while not ts.atendofstream ch=ts.read(1) 'Legge un carattere. Reads a char chCtr=chCtr + 1 'E ne tiene nota nel conteggio. Counts it hexch=hex(asc(ch)) 'Ne determina il codice ascii. Finds ascii code if len(hexch)< 2 then hexch="0" & hexch hexLine=hexLine & hexch & " " 'Adds it to the string if asc(ch)> 31 and asc(ch)< 127 then 'Printable? if ch=">" then ch=">" '(IE lo interpreterebbe come un tag) if ch="<" then ch="<" '(IE would think it's a tag) ascStr=ascStr & ch 'è stampabile. Yes else ascStr=ascStr & "." 'non è stampabile. No end if 'Prepara la stampa di una riga: 'indirizzo - 16 esadecimali - 16 caratteri ascii 'Prepares a line to be displayed: 'Address, 16 hex characters, 16 ascii if chCtr=16 or ts.atendofstream then lineStr=byteCtr & vbtab & hexLine & vbtab & ascStr 'Now manages last line if it has less than 16 chars if chCtr<16 then 'Se l'ultima riga ha meno di 16 cartteri... lineStr=byteCtr & vbtab & hexLine 'inizio normalmente for r= (chCtr+1) to 16 'poi riempio la parte restante della riga lineStr= lineStr & "-- " 'con dei caratteri next lineStr = lineStr & vbtab & ascStr 'e finisco normalmente end if 'Writes output to Internet Explorer doc1.writeln(lineStr) 'Scrive in IE la riga creata byteCtr=byteCtr + chCtr 'incrementa l'indirizzo chCtr=0 'e azzera il parziale ascStr="" hexLine="" end if loop 'Chiude le intestazioni html 'Closes html headers doc1.writeln("</pre></body></html>") doc1.close set fso=nothing set f=nothing set ts=nothing -- Giovanni Cenati (Aosta, Italy) Write to user "Reventlov" and domain at katamail com http://digilander.libero.it/Cenati (VbScript) Tag: Change local password Tag: 179210
  - 5
    - make a program start I want to create a script which start a program and when someone close it it will come up again. I want also this program to be maximized. Someone who can help me with this script? Tag: Change local password Tag: 179205
  - 6
    - VBS to set folder permissions Hunter1, Please contact me at brooks.vanhorn@verizon.net, Thanks, Brooks Hunter1 wrote: > *I do that with VB without any dramas. Initially when we set up an > automatic account generation system I was familiar with VB bu > hadn't > really played around a great deal with VBScript, since then I d > nearly > everything in VBScript, but since the VB proggy which creates an > sets > the permissions on their personal directories works I've had no nee > to > rewrite it. I can wack up the code to do this in VB if you want, > shouldn't be too hard to port to VBScript. > > > Brooks wrote: > > Using VBS I need to search the AD on a Win2K server and for eac > name in > > an OU, check to see that a personal folder has been setup. If no > then > > I need to create the folder on the server and set the permissions > > correctly. [Note that the VB script will be run on the server.] > OK, > > but here is the problem: I need to set the folder permissions s > that > > only the administrators group and that person in the AD have full > > access permissions and nobody else has no access to it. How do > do it > > in vbs? > > > > Thanks very much for your reply, > > > > Brooks > > > > Brooks.VanHorn@Verizon.Net > > > > > > > > -- > > Brooks > > ------------------------------------------------------------------------ > > Posted via [url]http://www.codecomments.com[/url] > > ------------------------------------------------------------------------ > > * 'Brooks Van Horn' (brooks.vanhorn@verizon.net) 'Brooks (brooks.vanhorn@verizon.net - Brook ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Change local password Tag: 179193
  - 7
    - copy and Past in Tool Bar Addrs IE Hi How can I to Build a script in Address tool Bar of the Internet Explorer ? thank you in advance Tag: Change local password Tag: 179186
  - 8
    - Processing paragraphs in a Word document I've written a lot of VBSCRIPT code but very little of it involves Microsoft Office documents. I'm working on a program that will read a bunch of Word documents. I want to loop through all the paragraphs in a document and search for various strings and then summarize them in a spreadsheet. I think I know how to do the spreadsheet part, but I'm at a loss at how to capture the paragraphs of text. I think I need to create a collection of paragraphs and then loop through them. I've spent several days searching through various web sites and all the examples I've found are quite trivial and don't help. I watched some Microsoft webcasts but they also didn't go into much detail. All they seemed to cover was how to put a few lines of text into a new document. What I want to do seems quite basic, but I can't find much documentation on how to get started. Any examples of code that will create this collection and loop through it would be appreciated. Barry Tag: Change local password Tag: 179179
  - 9
    - Setting default printer form Is there a way in vbscript to set the default form for a printer? Tag: Change local password Tag: 179177
  - 10
    - GOTO statement in VBScript Hello, Does VBScript supports GOTO statement? Thanks! Oren Tag: Change local password Tag: 179176
  - 11
    - Can't display old help file for Microsoft Script Control I want to use the Microsoft Script Control MSSCRIPT.OCX which is automatically registered when Windows XP is installed. I am able to do some things with the control but I'm having problems, so I'd like to read the help file MSSCRIPT.HLP, which is not automatically installed by Windows XP. I've gone to msdn.microsoft.com and downloaded the latest sct10en.exe installation package for the script control, version 1.0.0.8825. In this package, the control is dated 8/25/2004, but the help file is dated 5/24/97. So naturally, WXP doesn't know how to display this old help file. I get the message: "Cannot find or load the file HLP95EN.DLL. This file should be copied to D:\WINDOWS/system32 or a directory in your path." My W98SE system can't display this help file either. WXP partially displays the help file, some or all of the text, but does not display its graphics. Can anyone point me in the right direction to get the tools necessary to display this help file in WXP? Thanks, -Paul Randall Tag: Change local password Tag: 179174
  - 12
    - search result display I need a script or reference to allow me to display my search button (in FrontPage 2003) results to be displayed in a different web page of my web site rather than the same index page where the search button is located. Could anyone help me with this ? -- 1a23n456h7890d Tag: Change local password Tag: 179172
  - 13
    - I Need Visual Studio.Net Direction Please! Hello all, I am somewhat experienced in creating Access forms and would like to learn how to create applications, and convert my Access applications, in Visual Studio .net. Questions: Where do I go for the most basic getting started info? The help files return too much info for me right now and I get swamped. Specifically, I want to click a button on my main form and open a popup form that contains a listbox. In Access there's a wizard for this. No such luck in VS.net? This must be very basic, but I can't find mention of it anywhere. I would appreciate any and all pointers. TIA, Jake Tag: Change local password Tag: 179165
  - 14
    - How to create a vbs to do the tasks? 1. Check if a hidden file (A.txt) located at "C:\Published"? 2. if YES, copy it to 'My Documents' folder and overwrite the old version 3. Set the A.txt file's property is not hidden. My question points are how to get the 'My Documents' folder of my login account on Windows Server 2003 and set the file's property? Tag: Change local password Tag: 179162
  - 15
    - HTA Grid Control I'm working on a HTA application "Interactive SQL" that uses the "Microsoft Datagrid Control 6.0" (from my VC++ 6.0, I *think*) to display ADO recordsets. This works well on my W 2000 developer computer. I know that I have to expect licence problems when I deploy the HTA to machines that have no developing system installed. I red about/ downloaded the lpk_tool from Microsoft and generated a .lpk for msdatgrd.ocx. (1) Will that .lpk file be valid for (other versions of) msdatgrd.ocx on Windows XP computers? (2) Am I entitled to distribute my msdatgrd.ocx (and the .lpk file) freely, although it will not be used with a VC++ program of mine? (3) Is there a comparable grid control (.NET, Windows Forms) included in a 'standard' installation of Windows XP that can be used from VBScript? Tag: Change local password Tag: 179156
  - 16
    - VBScript Reference Card Is there a VBSCript reference card (preferably free) floating around? I have been using: http://tiger.la.asu.edu/Quick_Ref/vbasic_quickref.pdf although its actually a Visual Basic reference card and I just ignore the not relevant portions. Tag: Change local password Tag: 179149
  - 17
    - webbrowser control capturing event in framed document Hi, I have an applictaion that uses the webbrowser control to handle events fired in the web page. I gave created a class as explained in the tutorial at http://msdn.microsoft.com/workshop/browser/webbrowser/tutorials/forward.asp?frame=true I have no problem capturing events in a non-framed page but can't seem to do it in the framed document, this is what i have: Private Sub brwWebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set cfForward = New clsForward cfForward.Set_Destination Me, "Web_Proc" On Error Resume Next brwWebBrowser.Document.All.myButton.onclick = cfForward End Sub this works fine for capturing the button click on the non-framed page. Now the next page has a simalar button i wish to capture the onclick event, but it is in the top frame of the frameset called "topFrame" I ahve tried brwWebBrowser.Document.All.topFrame.myButton.onclick = cfForward but this wont work any ideas? THIA Bill P Tag: Change local password Tag: 179147
  - 18
    - How to distribute hotfix using script? Dear all, I have posted a question regading distirbuting a hotfix in the Windows Update discussion newsgroup. Mr. Torgeir Bakken advised me to do that using a startup script. The hotfix that I am planning to distribute is the one explaned through article 810076 (http://support.microsoft.com/default.aspx?scid=kb;en-us;810076). Mr. Torgeir idea is great. I am thinking of it as follows: 1) creating WMI script 2) checking if the OS is XP with SP1 3) check if this hot fix is installed then exit. Otherwize install it (using the Win32_QuickFixEngineering class) Please need your advice if this script is fine. Also, how to install the hotfix using the WMI script? Regards Tag: Change local password Tag: 179146
  - 19
    - scripting the Regional Settings control panel app I am a newbie to scripting. How would I use a script to change the date and time formats in the Regional Settings control panel icon. I use a another script that chokes if the date and time format is not set a certain way. But this setting is not one I am used to seeing and is confusing sometimes. I would like to be able to just toggle back and forth using a script that is run from a batch file. Thanks in advance, Derick Tag: Change local password Tag: 179131
  - 20
    - IF/THEN based on local group membership? Hello, I know the general question of how to add a domain group to the local administrators group has been asked many times and I have the code to do that part. My dilemma is, since I want to encapsulate the script in a computer startup script in a GPO, it's going to run every time the machine starts; if the group already is a member, it will throw an error. Yes, I could run "on error resume next" but the bosses still classify this as an "error" (though to me it just seems like a piece of information) and want me to check the existence of the domain group in the local admins first, and skip the "add" if it's present. I've looked everywhere and can't find the code to check the membership of a local group much less construct the IF/THEN statement needed to go with it. If anyone can point me in the right direction I would be most appreciative. Tag: Change local password Tag: 179129
  - 21
    - creating a login script that will copy all of my documents to netw Is there a way to copy all of the contents of "My Documents" from all my LAN users to a network drive share? For some reason my VP will not allow me to redirect everyone's "My Docs" to a network drive but does want a copy stored on the server for backup purposes. I would like this to be automated via a login in script...is this possible? Thanks in advance. Tag: Change local password Tag: 179127
  - 22
    - Dynamic DNS I found the following script in an earlier posting. It is to enable DHCP and set the DNS servers IP addresses. What changes should be made to this script if I want the client to be set to "Obtain DNS server automatically" rather than specifying the DNS server address? ================================================ ' ' script enables DHCP, adds DNS sufix, and DNS server IP addresses on all NICS ' '================================================ Option Explicit 'On Error Resume Next Dim target Dim oWMIService Dim colNetAdapters Dim oNetAdapter Dim DNSDomainErr Dim DNSsearchErr Dim DNSServer Dim oProvider Dim oDom Dim oOU Dim qQuery Dim oConnection Dim oCommand Dim oRecordSet Dim errEnable oProvider = "'LDAP://" oDom = "dc=fulldomainname, dc=fulldomainname, dc=fulldomainname'" oOU = "ou=Test OU," qQuery = "Select Name from " & oProvider _ & oOU & oDom & "where objectClass='computer'" Set oConnection = CreateObject("ADODB.Connection") Set oCommand = CreateObject("ADODB.Command") oConnection.Open "Provider=ADsDSOObject;" oCommand.ActiveConnection = oConnection oCommand.CommandText = qQuery Set oRecordSet = oCommand.Execute While Not oRecordSet.EOF Target = oRecordSet.Fields("name") DNSserver=Array("192.168.0.1", "192.168.0.2") Set oWMIService = GetObject("winmgmts:\\" & target & "\root\cimv2") Set colNetAdapters = oWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each oNetAdapter In colNetAdapters DNSDomainErr = oNetAdapter.SetDNSDomain("fulldomainname") DNSsearchErr=oNetAdapter.SetDNSServerSearchOrder(DNSserver) WScript.Echo "DNSDomain returned " & (DNSDomainErr) WScript.Echo "DNSsearchOrder returned " & (DNSsearchErr) errEnable = oNetAdapter.EnableDHCP() If errEnable = 0 Then Wscript.Echo "DHCP has been enabled." Else Wscript.Echo "DHCP could not be enabled." End If Next oRecordSet.MoveNext Wend oConnection.Close Tag: Change local password Tag: 179126
  - 23
    - Folder Copy I'm new to scripting. Please advise how can I copy a user's desktop folder to network drive. I want the script to copy this for multiple PCs. I'm not sure what variable (ex: c:\%username%\desktop), if any, to use. Source PC is NT wks 4.0. Thanks for your assistance. Sample script below is unable to locate folder: Dim = objFSO Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject") If (objFSO.FolderExists("%userprofile%\desktop")) Then objFSO.CopyFolder "%userprofile%\desktop", "f:\desktop" Else WScript.Echo("Unable to locate folder") End if Set objFSO = Nothing Wscript.Quit Tag: Change local password Tag: 179124
  - 24
    - VBScript errors with Date? Hi, I was playing with date functions in VBScript, finding some scary and may be buggy behaviour. For example, the following script: [vbscript] dim s dim d s = "12/01/2005" d = datepart("m",s)&"/"&datepart("d",s)&"/"& datepart("yyyy",s) MsgBox "s = " & s & " d = " & d s = "13/01/2005" d = datepart("m",s)&"/"&datepart("d",s)&"/"& datepart("yyyy",s) MsgBox "s = " & s & " d = " & d [/vbscript] - In the first case gives: s = 12/01/2005 d = 12/1/2005 - In the second case gives: s = 13/01/2005 d = 1/13/2005 In the second case it swaps day by month (may be according to local machine format) BUT in the first case it has not changed it. Some idea of what is happening behind the scenes? Regards, Sebastian Wain -- http://www.nektra.com Tag: Change local password Tag: 179121
  - 25
    - Script Problem I have a script that runs another command line program called upgrade_export.exe. I pass it a path where I want a file the program generates placed. Unfortunately upgrade_export.exe prompts for user input. It says to hit enter to continue. I am using WshShell.SendKeys("~") to send the Enter key. If I run my script from the command line it works perfectly. If I schedule a task and run it while logged into the server console, it works perfectly. If I run it as a scheduled task while not logged in the scheduled task runs, the script runs the .exe, but it stays at the prompt to hit enter to continue. So somehow my WshShell.SendKeys("~") command is not working correctly. I have WScript.Sleep(3000) in before the WshShell.SendKeys("~") in case it is a timing issue, but no matter what sleep time I put in it still fails when not logged in. The server is Windows 2003 Enterprise Edition. This script used to work fine on Windows 2000 Server. I guess something changed in 2003 that is breaking it. Also, I am no programmer. I am lucky that it ever worked. Here's the script. If anyone has any helpful hints on how to do it better please, I am all ears. Thanks, Robbie On Error Resume Next dim WshShell, WshNetwork, obj, currtime, curryr, currmo, currdy, currtm, strResult dim objService, objLocator, strLocalComputer, runPath1, runPath2 dim Filewithpath Set WshNetwork = CreateObject("WScript.Network") strLocalComputer = WshNetwork.ComputerName Set objService = GetObject("winmgmts:\\" & strLocalComputer & "\root\cimv2") for each obj in objService.InstancesOf("Win32_OperatingSystem") currtime=obj.LocalDateTime Next Set FSO = CreateObject("scripting.FileSystemObject") Set WshNetwork = WScript.CreateObject("Wscript.Network") curryr=left(currtime,4) currmo=mid(currtime,5,2) currdy=mid(currtime,7,2) currtm=mid(currtime,9,6) 'will give time as 103956 for 10:39:56 strDateTime = "" strDateTime = currmo & "-" & currdy & "-" & curryr runPath1 = "D:\Backups\upgrade_export.exe D:\Backups\" & strDateTime & "_" & strLocalComputer & "_Backup" Set WshShell = CreateObject( "WScript.Shell" ) WshShell.Run runPath1 WScript.Sleep(3000) WshShell.SendKeys("~") WScript.Sleep(30000) strFileName = strDateTime & "_" & strLocalComputer & "_Backup.tgz" sResults = FSO.BuildPath("D:\Backups\", strFileName) dResults = FSO.BuildPath("W:\", strFileName) WshNetwork.MapNetworkDrive "W:", "\\10.1.1.190\Backup", "False", "DOMAIN\user", "password" WScript.Sleep(6000) FSO.CopyFile sResults, dResults, True WScript.Sleep(6000) WshNetwork.RemoveNetworkDrive "W:" wscript.quit Tag: Change local password Tag: 179119
- Next
  - 1
    - distributing vbscript and associated files as one file Is there a way to distribute a VBScript script together with any auxilliary files so that: - everything is in a single file - the user just runs that single file to run the program, i.e. there is no explicit installation process (although there may be some installation going on behind the scenese the first time it is run, say) - the source is NOT hidden from the user (its ok if an extraction process is required) In case there are specific solutions for special cases, there are several cases: Case 1. the auxilliary file is an ordinary COM object Case 2. the auxilliary file is a .WSC COM object Case 3. any number of auxilliary files of unspecified type Tag: Change local password Tag: 179118
  - 2
    - script to get all the groups from AD I am running this script: On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set File = fso.CreateTextFile("c:\Groups\Allgroups.txt", True) Set colItems = GetObject _ ("LDAP://ou=APP_Grps,ou=cam,ou=im,dc=nAm,dc=nsroot,dc=net") 'colItems.Filter = Array(â??Userâ??, "Computer") For Each objItem in colItems File.Write objItem.CN & vbCRLF Next and I get about 8 out of about 900 groups and it ends with Exit code: 0 , 0000h can you please help me Tag: Change local password Tag: 179116
  - 3
    - VBScript to restart a server I have a series of servers that I need to restart and just plain shut down. Is there a VBS way to do this so I don't have to write a big batch file? -- Andrew C. Madsen Network Specialist Harley-Davidson Motor Company Tag: Change local password Tag: 179115
  - 4
    - Tutorial Can anyone recommend a comprehensive tutorial for VBScript? Also JavaScript? Tag: Change local password Tag: 179112
  - 5
    - Printer Config Dump I have a broken Microsoft print cluster I am looking to repair, and to do so I first need to dump all defined clustered printer configuration information on one of my servers, such as printer name, printer IP address, driver name, printer model, printer options (such as if duplex enabled), etc. I'd like as much printer information as possible to be dumped. I know this should be possible. Does anyone have a sample script they can share to get me started. Thanks! Tag: Change local password Tag: 179104
  - 6
    - Win32_NetworkAdapterConfiguration - SetDNSServerSearchOrder() Hi! :-) I'm having problems with the SetDNSServerSearchOrder method of the Win32_NetworkAdapterConfiguration object. It works just fine on Windows XP mashines but when I run it on a 2k mashine IP dies and I have to go in and set it manually to static ip and back to get it working again... (A reboot is not enough.) I have among other things tried the example script Dns-replaceserverlist.vbs from http://www.microsoft.com/technet/scriptcenter/topics/networking/05_atnc_dns.mspx. I have tested both setting the arrNewDNSServerSearchOrder variable to Null and running SetDNSServerSearchOrder with no arguments. Both ways are supposed to work and does on XP... I first made a script reading and setting the settings in the registry but thought I'd use wmi to avoid a reboot.... If I don't get it to work I'll go back to the registry version since it works just fine on both 2k & xp. Thanks a million! :-) /Sofia Tag: Change local password Tag: 179102
  - 7
    - Shortcut Hi all I have a login script which which copies a shortcut which is located on a mapped drive to the desktop but I would like to change this so that it creates a new shortcut instead of just copying one over. The shortcut will point to an Access database and workgroup file on a shared folder(database) on a file server(server1). When i manually create the shortcut file these are my parameters Target : "C:\Program Files\Microsoft Office\Office\msaccess.exe" "\\server1\database\DB1.mdb" /WRKGRP "\\server1\database\DB1WG.mdw" Start in: "C:\Program Files\Microsoft Office\Office" Any help would be greatly appreciated Gerry Tag: Change local password Tag: 179099
  - 8
    - For Next and the Folder object Hi Folks, Trying to create a clean-up script. 2 things getting in my way. (I can access My Docs OK.) 1) I'm trying to go through all folders in My Documents, and delete all folders that don't start with MY For each fld in strMyDocs If Left(fld.Name,2) <> "My" then objFSO.DeleteFolder(strMyDocs) End If Next My For Next doesn't work - I can't seem to cycle through each folder in My Docs. How do I access the folder objects? Something to do with objFSO.GetFolder(fld) ? 2) How do you empty the recycle bin via script? Is it an empty folder command? Don't know this one... TIA, Piers Tag: Change local password Tag: 179098
  - 9
    - Error code 0x80041003 This is a multi-part message in MIME format. ------=_NextPart_000_0012_01C59F57.592F2440 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi all, When logging as local administrator, I can add some instances in my MOF = file to WMI repository successfully. But when loging as an domain = account (that belongs to local administrators group), I cannot. In = %windir%\system32\wbemlogs\wbemess.log, I see "Error Code 0x80041003". I know this is an permission error, but I don't know how to solve this. Any solution? ------=_NextPart_000_0012_01C59F57.592F2440 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2668" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Hi all,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>When logging as local administrator, I = can add some=20 instances in my MOF file to WMI repository successfully. But when = loging as=20 an domain account (that belongs to local administrators group), I = cannot. In=20 %windir%\system32\wbemlogs\wbemess.log, I see "Error Code=20 0x80041003".</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I know this is an permission error, but = I don't=20 know how to solve this.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Any = solution?</FONT></DIV></BODY></HTML> ------=_NextPart_000_0012_01C59F57.592F2440-- Tag: Change local password Tag: 179095
  - 10
    - Convert images size Hello all My question is: I've a folder with a several files about 1.4 Mb for each file, I need put them to the Interner Album but I search the way to redure the size automatically. (e.g. reduce the actual size to 640) There is a script allows mw to do it? other advice? Thanks a lot henpat -.............- Convert images size Tag: Change local password Tag: 179093
  - 11
    - rightfax I looking for an example on how create a file that has a pdf attachment and send it to RightFax server for delivery. Thanks. Tag: Change local password Tag: 179082
  - 12
    - VBScript to go cross-domain group membership for a user I am creating a login script that will perform various tasks depending on user group membership. All users in question are members of a domain that is different from the one where the servers they are loggin to are (users log on to Terminal Servers in a domain that is connected to the user domain by a two-way trust relationship). What is the most efficient way to code a cross-domain group membership query? I have looked at the Microsoft script repository and other code samples, but did not see anything quite like what I need. Thanks a lot Galina Tag: Change local password Tag: 179081
  - 13
    - Scripting Dial-Up connection Properties with WMI Hello: We have a request to create a script to set preferred DNS and WINS servers for a set of laptops running Windows Server 2000. That is, instead of "obtain DNS server automatically," under TCP/IP properties, click the "use the following DNS server addresses" radio button and add an IP address for the preferred and alternate DNS servers, and similarly for the "Advanced / Wins" tab, add two WINS server IP addresses. I have a script using netsh that does this for Local Area Network connections, but it doesn't work for dial-up connections. Any Ideas? Thanks in advance. George Morrone Tag: Change local password Tag: 179079
  - 14
    - Newbie having some problems with a cert check script.... I'm pretty new to VBscript, so be gently. That being said, does anyone have, or know of, a script that can query AD and check users for the existence of published certs? I've tried "modifying" the "Get Published Certificates" script from Scriptomatic, but I'm having trouble porting it over to query all users in a specific OU and log the results to a spreadsheet or CSV. Any help would be appreciated. -- Regards, Jeff C. Tag: Change local password Tag: 179077
  - 15
    - getting info from telnet Hi, i have executed a "ls" command in telnet. How can i capture the results of this command using vbscript from this telnet window? thanks Tag: Change local password Tag: 179073
  - 16
    - GetProcessAffinityMask and SetProcessAffinityMask in scripts? Hi, Has anyone used GetProcessAffinityMask or SetProcessAffinityMask in a script? http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/setprocessaffinitymask.asp Is it possible to import functions from Kernel32.dll (winbase.h) in a VB or WSH script? Thanks, Sridev Tag: Change local password Tag: 179072
  - 17
    - creating owners Hello, I just got done with a file migration from novell to windows server 2003. Now im working on setting up disk quotas for my user folders. I know that the users need to have ownership of their folders in order for disk quota to work. However only the administrator has ownership of each individual user not the users themselves. I have an excel sheet of all the users which is the same name as their folder.Is there a tool or a script that goes through every user IN excel an makes them the owner of their folder. Theres about 50 users which are in hte same organiztional unit -- The only easy day was Yesterday Tag: Change local password Tag: 179069
  - 18
    - VBScript runtime error: Permission denied Hi all, I am getting "Permission Denied" message when I am running this script on a remote host. Any ideas?. I have full admin right to machine. I can map to C$ or Admin$ on remote pc. Enabled Remote option for WSH "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings". Also registered the WScript -regserver. Any other ideas? Set oController = CreateObject("WSHController") Set oProcess = oController.CreateScript("C:\_Scripting\test.vbs", "RemotePcName") oProcess.Execute While oProcess.Status Wend WScript.Echo "Done" Tag: Change local password Tag: 179068
  - 19
    - Vartype 8197 problem Hi all. I am trying to automate some AutoCAD task with vbscript. It is very difficult, because AutoCAD uses typed variables, and vbscript does not. The problem I have right now is that an AutoCAD method is returning an array of doubles, and I can't do anything with it in my script : Dim varPoint Dim X varPoint = oAcadText.TextAlignmentPoint MsgBox varType(varPoint) <- returns 8197 = Array of subtype Double But, for example : X = varPoint(0) <- Type Mismatch error X = CDbl(varPoint(0)) <- Type Mismatch error MsgBow VarType(varPoint(0)) <- Type Mismatch error Is there ANY solution to handle this type of data in vbscript ? Thanks a lot ! Arnaud Tag: Change local password Tag: 179067
  - 20
    - Network card Linkspeed parameter Hi, is it possible to get linkspeed information of a network adapter using vbscript? If so, how? Thanks in advance. Atilla. Tag: Change local password Tag: 179061
  - 21
    - Count lines in txt file Hi I'm trying to write a script to read the name of a text file and then count the number of lines in the file. It needs to do this for 500 ish files in a folder. I would like the output to be in .xls format with a column for the name of the file and the number of lines in it next to it. I've tried hacking about but am new to scripting and am not getting very far. Thanks Rhys Tag: Change local password Tag: 179058
  - 22
    - Using StdRegProv.SetMultiStringValue I have a practical component and a (probably) theoretical component to my question... <Practical question> I a running logon vbscripts launched via Group Policy. A function of my logon scripts is to set some reg keys. This is being done by using regedit.exe /s <path to .reg file> in my script. Doing it this way works fine for the most part. I have found, however that in some instances the script completes successfully but the reg key is not being written. I have been using "On Error Resume Next" to try and capture the returned error level from regedit but I am finding that it returns the same value regardless of success or failure. So my practical question is: is the behaviour that I am seeing normal? Has anyone else been able to use regedit and trap failed reg merges? <Theoretical question> I probably should have asked the practical question first before launching into writing my own .reg file merge script using StdRegProv but anyway... I've written a vbscript that will read in a .reg file, parse the contents and use the Set functions of StdRegProv to write the values to the registry. When the script encounters a multistring value in the .reg file, it reads in the hex values and converts them to an array of strings My problem is that when I attempt to use this array of strings in SetMultiStringValue, I get an Invalid parameter error. If I hard code a string array, such as Array( "abc","def","ghi" ), SetMultiStringValue works fine. I've tried looking at the VarType of the array variable that I am feeding to SetMultiStringValue, and in both the working and non-working case, it resolves to a Variant Array I'm suspecting that my function to convert the hex values to a String array is not returning a true string array but an array of variants, similar to what happens when you try to create an array of bytes. So my theoretical question is: are there any specific tricks to creating an array of strings? (I suppose another question is: am I going way over the top in my effort to resolve my original problem?) Tag: Change local password Tag: 179056
  - 23
    - Problems using the OnClick event for the Button element This is driving me mad. I want to use the <BUTTON> element instead of the INPUT TYPE=BUTTON element (I need to be able to use images). However I cannot get the OnClick event to fire. Here is my code. Why does it not call the Test subroutine? Thanks <script language="VBScript"> Sub Test MsgBox "The button was pressed" End Sub </script> <body> <BUTTON TYPE=BUTTON> <IMG SRC="c:/temp/logo.gif" HEIGHT=97 WIDTH=105 ALT="Test" ALIGN="ABSMIDDLE" onclick="Test"> <STRONG>Test</STRONG> </BUTTON> </body> Tag: Change local password Tag: 179054
  - 24
    - Cross Platform VBScript Hi, First off i apologise as i am new to VB, so this might be (hopefully) a very simple problem. I've made a script to map a set of network drives and then rename them to mask their actual locations. The script works fine on Windows XP (SP2) but fails on Windows 2000 (SP4) both OS's are running Windows Script 5.6, When run on 2000 it produces the following error: Error: Object required: 'objShell.namespace(...)' Code: 800A01A8 Source: Microsoft VBScript runtime error My script is as follows: Sub Map_Drives '*Maps the following drives Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "M:", "\\SERVER1\SHARE" objNetwork.MapNetworkDrive "O:", "\\SERVER2\SHARE" objNetwork.MapNetworkDrive "P:", "\\SERVER3\SHARE" objNetwork.MapNetworkDrive "Q:", "\\SERVER4\SHARE" objNetwork.MapNetworkDrive "S:", "\\SERVER5\SHARE" objNetwork.MapNetworkDrive "U:", "\\SERVER6\SHARE" objNetwork.MapNetworkDrive "Y:", "\\SERVER7\SHARE" End Sub Sub Rename_Map '*Renames mapped drives, N: is mapped from user account properties Set objNetwork = CreateObject("WScript.Network") set objshell = createobject("Shell.Application") strUserName = objNetwork.Username objshell.namespace("N:").Self.Name = strUsername & " Curriculum Home Folder" objshell.namespace("M:").Self.Name = "Design Tech" objshell.namespace("O:").Self.Name = "Curriculum Common" objshell.namespace("P:").Self.Name = "Applications" objshell.namespace("Q:").Self.Name = "Student Apps" objshell.namespace("S:").Self.Name = "Tech Stuff" objshell.namespace("U:").Self.Name = "Users" objshell.namespace("Y:").Self.Name = "Visual Audit" End Sub Sub Printers '*Calls & Executes Network Printer Connection Batch File Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run("%comspec% /c \\SERVER\SHARE\CON2PRINT\PRINTERS.BAT"), 0, True End Sub '*This is where the Subroutines which need to be run are executed*' Map_Drives Rename_Map Printers ===================================================== The error occurs in Windows 2000 when running the Rename_Map Sub, but on XP works fine. Any help would be greatly appreciated. Many Thanks Peter Guy Tag: Change local password Tag: 179053
  - 25
    - lire une info sur une page html à l'aide d'un script vbs Bonjour à tous, Je voudrais à l'aide d'un script MSDOS pour faire certaines mise à jour, ajouter à mon script MSDOS un scipt VBS capable de lire une info sur une page html au niveau de l'intranet et récupérée l'info dans une variable. Est-ce posible ? D'avance je vous remercie de votre colaboration..... Tag: Change local password Tag: 179052

I want to change a password of a specific user on my computer by using
VBScript.
I just start using this language and i need a little help. I found a
lot of script to change password but in a Ldap environnement.

Top

Re: Change local password by Bj�rn

Björn
Tue Aug 16 03:24:50 CDT 2005

"Mats" <mathieu.chagnon@cima.ca> wrote in message
news:1124138776.735176.316870@z14g2000cwz.googlegroups.com...
> I want to change a password of a specific user on my computer by using
> VBScript.
> I just start using this language and i need a little help. I found a
> lot of script to change password but in a Ldap environnement.
>

Const USER_TO_CHANGE = "TestUser"
Const NEW_PASSWORD = "p@ssw0rd"
Set objUser = GetObject("WinNT://./" & USER_TO_CHANGE & ",user")
objUser.SetPassword NEW_PASSWORD
objUser.SetInfo

--
Björn Holmgren

Top

Re: Change local password by Mats

Mats
Tue Aug 16 08:17:36 CDT 2005

Thanks for your help.

Top