VBS and IsNTAdmin

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
    - HTA Form from Excel sheet Hello, I'm creating an HTA that renames files based on an excel sheet. The excel sheet has 3 columns: Name, Old File Name, New File Name I would like to dynamically build a form (check boxes and submit button) based on the "Name" column. If the name is checked then it will run code against that record. Does anyone know the best way to accomplish this? I'm looking for something very similar to this (only with checkboxes instead of a list box) http://www.microsoft.com/technet/scriptcenter/resources/qanda/aug05/hey0815.mspx Tag: VBS and IsNTAdmin Tag: 215776
  - 2
    - [code] getting your script to talk to you This is a multi-part message in MIME format. --------------030002010701030306040000 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit hi group, There have been a number of postings here showing how to use the msAgent characters to get your script to talk. You can also use Microsoft's Speech Application Programming Interface (SAPI). SAPI comes as an actX object, and so is programmable using vbs. There was only one small script for sapi that I could find here, posted about two years ago (by mayayana). The demo included below shows some additional methods and properties of sapi, plus it will detect a couple of events (if all goes well). You probably have SAPI already installed, but in case you don't you may download it (for free) from microsoft (beware word-wrap): http://www.microsoft.com/downloads/details.aspx?FamilyID=5e86ec97-40a7-453f-b0ee-6583171b4530&DisplayLang=en That page offers a number of options. The one you need is labeled: SpeechSDK51.exe This works on all ms systems, inc win98. It will install the complete package, including the help file. The demo script will say some simple sentences, and also includes the demo (xml file) that comes with SAPI, which demonstrates what you can do by including xml tags in the text to enhance the spoken text. Note that in order to show the user interface feature (audio control), I had to make use of an api call (to get the desktop window handle). If you don't like using dynawrap to call api's then you can remove that. cheers, jw --------------030002010701030306040000 Content-Type: text/plain; name="wshSAPIText2SpeechDemo.wsf.txt" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="wshSAPIText2SpeechDemo.wsf.txt" <?XML version="1.0" standalone="yes" encoding="iso-8859-1" ?> <job id="wshSAPIText2SpeechDemo"> <script language="VBScript"> <![CDATA[ ' --- description block -------------------------- ' ' Title: wsh Script to Demo Text to Speech, using SAPI v5.1 ' ' Discussion: this demo requires Microsoft's Speech Application Programming ' Interface (SAPI) v5.1 (or later?), which may be downloaded (free) ' from microsoft, in case you don't already have it... ' ' --- Revision History --------------------------- ' 01Mar08: initial attempt, with code posted by mayayana in the vbs ng, 14July05 ' 01Mar08: discarded mayayana's constants, used constants from sapi.dll typelib... ' 01Mar08: sorry about using a system api, but the displayUI method would NOT ' accept "0" as a valid handle for the desktop window (most api's do), and so ' used an api call to get the desktop window handle... ' 03Mar08: add bookmark event... ' --- end of revisions --------------------------- ' ' Option Explicit ' instantiate ActX components here... ' Dim oATO : Set oATO = WScript.CreateObject("wshAPIToolkit.ucATO") ' (no events) Dim oDW : Set oDW = CreateObject("DynamicWrapper") ' instantiate dynawrap... ' ' ------------------------------------------------ ' --- API DECLARATIONS --------------------------- ' ------------------------------------------------ ' Message Function Templates ' Dim GetDesktopWindow : Set GetDesktopWindow = oATO.DeclareAPI("USER32.DLL", "GetDesktopWindow") oDW.Register "USER32.DLL", "GetDesktopWindow", "f=s", "r=l" ' no input ' ------------------------------------------------ ' --- end of api declarations -------------------- ' ------------------------------------------------ Dim oSpVoice, sText Set oSpVoice = WScript.CreateObject("Sapi.SpVoice", "oSV_") Dim oShell : Set oShell = WScript.CreateObject("WScript.Shell") Dim m_bEndOfStream ' as boolean Dim m_SVSF_Flags m_SVSF_Flags = SVSF_PurgeBeforeSpeak Or SVSF_IsNotXML ' note: "Or" gets both ' Valeur pour SpeechVoiceSpeakFlags ' (appear to be correct, based on sapi.dll's typelib)... Const SVSF_Default = 0 Const SVSF_Async = 1 Const SVSF_PurgeBeforeSpeak = 2 Const SVSF_IsFilename = 4 Const SVSF_IsXML = 8 Const SVSF_IsNotXML = 16 Const SVSF_PersistXML = 32 Const SVSF_NLPSpeakPunc = 64 Const SVSF_NLPMask = 64 Const SVSF_VoiceMask = 127 Const SVSF_UnusedFlags = -128 ' Const SPDUI_AddRemoveWord = "AddRemoveWord" Const SPDUI_UserTraining = "UserTraining" Const SPDUI_MicTraining = "MicTraining" Const SPDUI_AudioProperties = "AudioProperties" Const SPDUI_AudioVolume = "AudioVolume" ' --- end of declarations and constants ---------- sText = "welcome to the sappy demo" ' the "async" flag was removed here, so as to finish speaking before continuing... oSpVoice.speak sText, m_SVSF_Flags WScript.Sleep 1000 If oSpVoice.IsUISupported(SPDUI_AudioVolume) = True Then ' Display Master Volume window sText = "note, showing the Audio Volume user interface here" oSpVoice.speak sText, m_SVSF_Flags WScript.Sleep 1000 Dim hWnd ' hWnd = GetDesktopWindow() ' ato version hWnd = oDW.GetDesktopWindow() ' dynawrap version oSpVoice.DisplayUI CLng(hWnd), "", SPDUI_AudioVolume Else sText = "note, showing the Audio Volume user interface is not supported" oSpVoice.speak sText, m_SVSF_Flags WScript.Sleep 1000 End If Dim sXMLRes : sXMLRes = GetResource("sXML_Test") oSpVoice.Speak sXMLRes, SVSF_PurgeBeforeSpeak Or SVSF_IsXML Or SVSF_Async ' ok, so the async flag was used here to allow the script to continue, ' while sapi is playing out the xml text. We are not waiting for the ' stream to complete here, so that the Bookmark event will popup at ' the correct time. In addition, the the end-of-stream event is being ' used to terminate the script... m_bEndOfStream = False Do WScript.Sleep 100 Loop Until m_bEndOfStream WScript.Sleep 1000 sText = "this demo brought to you by mister unreliable (all rights reserved)" oSpVoice.speak sText, m_SVSF_Flags WScript.Sleep 1000 sText = "this script will now terminate" oSpVoice.speak sText, m_SVSF_Flags Set oSpVoice = Nothing ' Set oATO = nothing Set oDW = nothing WScript.Quit ' Event Bookmark(StreamNumber As Long, StreamPosition, Bookmark As String, BookmarkId As Long) -- from typelib Sub oSV_Bookmark(nrStream, posStream, sBookmark, idBookmark) Const tPopupDelay = 3 oSpVoice.Pause ' pause the voice stream... ' use a time-out popup for notification here, ' (show for 3 secs, may be increased for slow readers)... oShell.Popup "spVoice Bookmark event detected: " & vbCrLf _ & "Stream Number: " & CStr(nrStream) & vbCrLf _ & "Stream Position: " & CStr(posStream) & vbCrLf _ & "Bookmark (Name): " & sBookmark & vbCrLf _ & "Bookmark ID: " & CStr(idBookmark), tPopupDelay, _ "SAPI Demo - Bookmark Event Notification", vbInformation oSpVoice.Resume ' continue End Sub ' Event EndStream(StreamNumber As Long, StreamPosition) Sub oSV_EndStream(nrStream, posStream) m_bEndOfStream = True ' set flag End Sub ]]> </script> <resource id="sXML_Test"> <![CDATA[<xml version="1.0"> This is a basic functionality test for SAPI5 XML markup within the TTS Engine. If you haven't done so already, please choose Microsoft Mary for your voice and check the box labeled "IsXML" before clicking on "Speak" in order to begin the tutorial. <SAPI> <VOICE REQUIRED="NAME=Microsoft mike">Hello, my name is Microsoft Mike. </VOICE><VOICE REQUIRED="NAME=Microsoft Mary">Hello, my name is Microsoft Mary. </VOICE><VOICE REQUIRED="NAME=Microsoft Sam">Hello, my name is Microsoft Sam. </VOICE>Together we make up Microsoft's SAPI5 Text-to-Speech engine. With the use of XML tags, we can avoid the normal, default way that we read words and speak in general. First of all, <VOICE REQUIRED="NAME=Microsoft Sam">you can</VOICE><VOICE REQUIRED="NAME=Microsoft mike">choose</VOICE><VOICE REQUIRED="NAME=Microsoft Mary">which voice</VOICE><VOICE REQUIRED="NAME=Microsoft Sam">you wish to hear</VOICE> through the use of a voice tag.<VOICE REQUIRED="NAME=Microsoft mike">Either Sam, Mary or myself can spell out words for you too.</VOICE>For example, the company "Microsoft" is spelled<SPELL>Microsoft</SPELL><VOICE REQUIRED="NAME=Microsoft Sam">and the word "Windows" is spelled <SPELL>windows</SPELL></VOICE>. <VOICE REQUIRED="NAME=Microsoft mike">We can also change the rate at which we speak.</VOICE><RATE SPEED="10">I am currently speaking at three times my normal rate.</RATE><VOICE REQUIRED="NAME=Microsoft Sam"><RATE SPEED="-10">and I am currently speaking at one third my normal rate.</RATE></VOICE>Our pitch can be easily manipulated as well.<VOICE REQUIRED="NAME=Microsoft mike"><PITCH MIDDLE="10">This is an example of a high pitch</PITCH></VOICE><PITCH middle="-10">and this is an example of a low pitch</PITCH> <VOICE REQUIRED="NAME=Microsoft Sam">Another way to adjust the prosody of our speech is through the use of a silence tag.</VOICE><VOICE REQUIRED="NAME=Microsoft mike">With a silence tag, an end user can make one of us pause for up to 65,536 milliseconds.</VOICE>For example, I<SILENCE MSEC="500"/>am<SILENCE MSEC="500"/>pausing<SILENCE MSEC="500"/>500<SILENCE MSEC="500"/>milliseconds<SILENCE MSEC ="500"/>between<SILENCE MSEC ="500"/>each<SILENCE MSEC ="500"/>word<SILENCE MSEC ="500"/>of<SILENCE MSEC ="500"/>this<SILENCE MSEC ="500"/>sentence. <VOICE REQUIRED="NAME=Microsoft Sam">The volume of our individual voices can also be raised and lowered through the use of XML tags. <VOLUME LEVEL="101">This is the loudest I can speak</VOLUME><VOLUME LEVEL="-101">and this is the softest I can speak.</VOLUME></VOICE> In order to make our voices sound more natural, an emphasis tag can be used to allow us to place emphasis on certain words in a sentence. <VOICE REQUIRED="NAME=Microsoft mike">Compare the following two phrases: The movie will be this friday. <SILENCE MSEC="750"/> The <EMPH>movie</EMPH> will be <EMPH>this friday.</EMPH> Pretty neat, don't you think?</VOICE> Don't worry, that isn't all that we can do through the proper use of XML tags. <VOICE REQUIRED="NAME=Microsoft Sam">An end user can also decide which part of speech to use for each word in a sentence. Using the part of speech tag, we can force a certain pronunciation of a word without relying on the context around it</VOICE>. <VOICE REQUIRED="NAME=Microsoft mike">For example, the nominal pronunciation of the word "compact" is <SILENCE MSEC="250"/><PARTOFSP PART="noun">compact</PARTOFSP> and the verbal pronunciation of the word "compact" is <SILENCE MSEC="250"/> <PARTOFSP PART="verb">compact.</PARTOFSP> We can also force certain pronunciations for modifiers, functions , interjections and abbreviations. Another great use of XML tags within the TTS Engine is the creation of your own words.</VOICE> Perhaps you want the computer to say a word that is not in the lexicon, such as "extracalifragilisticexpiallidocious." As you just heard, we do not recognize this word and have to use letter to sound rules in order to try and guess at a proper pronunciation. The pronunciation tag may be used to force the correct pronunciation of the word, <PRON SYM="eh 1 k s - t r ax 2 - k ae 1 l - ih 2 - f r ae 1 - jh ax 2 - l ih 1 - s t ih 2 k - eh 1 k s - p iy 2 - ae 1 l - ih 2 - d ow 1 - sh ax 2 s"/>. Wow, now tell me, doesn't that sound better? Now let's insert a bookmark here<BOOKMARK MARK="8"/>. Your application should have received a bookmark event with a bookmark id of 8 when speech synthesis has passed this element in the input stream. Bookmark event is an easy way for an application to take action at a given point in the stream. </SAPI> Thanks for participating in this tutorial. I hope you have a better understanding of the basic functionality of XML tag usage within the TTS Engine. Enjoy! </xml> ]]> </resource> </job> --------------030002010701030306040000-- Tag: VBS and IsNTAdmin Tag: 215775
  - 3
    - Insert text into document by vbscript Hello, I'am using vbscript can i insert a text in document after click in any button. Tanks Tag: VBS and IsNTAdmin Tag: 215772
  - 4
    - REading a remote file using WMI; unable to connect to remote machine Hi, I need to poll a number of machines on the network to determine if the remote machine has any "set" files. These are plain text files that are used by MS Dynamics GP, as an ini file (structure is a little different though). I want to read the contents of the file and put it into a database so that I standardize or customize the GP environment for various users. I ping the remote machine before I query it using WMI. Some machines respond, but I am not able to connect to others. I am logged in as the DomainAdmin, all target machines are part of this domain. I will post my entire code if needed. Meanwhile, the relevant snippet is pasted below. Thanks in advance for your help. Regards Habib ---------------------------------------------------- '**** check if computer is alive **** Set objshell = CreateObject("WScript.Shell") Set objScriptExec = objshell.Exec("ping -n 2 -w 1000 " & strComputer) strPingResults = LCase(objScriptExec.StdOut.ReadAll) '**** if alive, connect to it **** If InStr(strPingResults, "reply from") Then Set objWMIService = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2") '----------Here is the problem: some machines respond, others reply with err 429 - unable to contact remote server '**** get a list of .SET files ****' Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Extension= 'set'") If colFiles.Count > 0 Then ' Yes, files found For Each objFile In colFiles FileID = FileID + 1 ' increment file counter strPath = Left(objFile.Name, InStrRev(objFile.Name, "\") - 1) ' get the path of the file strFile = Mid(objFile.Name, InStrRev(objFile.Name, "\") + 1, Len(objFile.Name)) ' and just the filename 'create a temporary share on the remote machine with the path of the file Set objNewShare = objWMIService.Get("Win32_Share") intResponse = objNewShare.Create(strPath, "SetFile", FILE_SHARE, MAXIMUM_CONNECTIONS, "Temp share to grab set file.") strRemFile = "\\" & strComputer & "\SetFile\" & strFile 'build the unc filename Set objSetFile = objFSO.opentextfile(strRemFile, ForReading, False) 'open file arrFileData = Split(objSetFile.ReadAll, vbCrLf) 'read file Tag: VBS and IsNTAdmin Tag: 215770
  - 5
    - Read a *.txt file Hi, I want to read data from a *.txt file to write them into a SQL Server 2000 database. My problem is that there is three information on each line in the txt file, each of them separate by a semi-coma. Ex. : KKKK;RRRR;OOOO I want to grap each part of text next to or between a semi-coma into a single variable(Ex. : var1 = KKKK, var2 = RRRR, var3 = OOOO) . How can I do that? Thank you. Tag: VBS and IsNTAdmin Tag: 215765
  - 6
    - vbscript runonce key Hi, I have a vbscript set to run from HKLM\RunOnce the first time the machine boots (after applying an image and sysprepping). The script's purpose is to kick off a few silent installers based on the model of computer it is running on. It doesn't seem to work. I don't get any errors either. When I run the script manually it works as expected. The script also works if I set the runonce key again and reboot. Can someone tell me what I may be doing wrong? Tag: VBS and IsNTAdmin Tag: 215763
  - 7
    - Complete registry search and replace based on a keyword? Does anyone know how I can do a complete workstation registry search and replace based on a keyword. We migrated to a new file and print server and in every workstation registry is the old file server name all over the place. I ideally would like to just replace the old server name "w2afpsys000" with the new name "w3sfp1" in the registry. Thanks Chad Tag: VBS and IsNTAdmin Tag: 215751
  - 8
    - Scripting Translator Is there any program on the market that will translate Batch file application/scripting to VBS ? Example: @echo %dbgc% off > {c} if [%1]==[] for %%v in (echo goto:End) do %%v Syntax: %0 Number > ----------.bat echo set {n}=%%2 :Loop >>{c} echo ! > {c}.bat find /c "!" {c} call {c} { Requires version 3.0 or later } echo %{n}% if not %{n}%==%1 goto Loop :End for %%v in ({?}.* ----------.bat?) do del %%v Especially where the batch file might use 'tokens' and 'delims' Thank you fro your assistance. Tag: VBS and IsNTAdmin Tag: 215745
  - 9
    - How can I script a full listing of a security group rights assignm I have a security group called chd.employees I want to know all folders that this group has access to whether it's read/write/list etc. I have scoured the newsgroups looking for something to help me with this. Does anyone have one to do this or any suggestions on where to look. Thanks in advance. Gordon Tag: VBS and IsNTAdmin Tag: 215743
  - 10
    - using logon script to record value from HKCU to text file.... I'm trying to simply record a registry value (string) from the HKCU - it works great if the user when they logon have local admin rights. Only a few have this. This is what I currently have stored in a batch file called out in our logon script. Any suggestions on how to run/create this so that all users negligent of having local admin or not succeed in running this? Thanks Mik (If it was all in VBscript - better yet!) echo %username% %userprofile% %date% %time% >>\\server1\share \infofile.txt Reg query "HKCU\software\VB And VBA Program Settings\ECOMETRY" /v Host >>\\server1\share\infofile.txt Reg query "HKCU\Software\VB And VBA Program Settings\ECOMETRY" /v Ver >>\\server1\share\infofile.txt Tag: VBS and IsNTAdmin Tag: 215739
  - 11
    - Translate I believe this is called DOS batch scripting. I found this example via Google. It contains much of the same commands, such as tokens, and delims, as what I need to translate. How can I translate this code into VBS ? SET SIZE1=0 SET SIZE=0 FOR %%i in ("DIR /B "D:\*.m2v") DO ECHO %%~zi >>D:\size.txt FOR %%i in ("DIR /B "D:\*.m2v") DO ECHO d:\%%i + >>D:\list.txt FOR /F "tokens=*" %%i in ('type "d:\list.txt"') DO SET LIST=%%i FOR /F "tokens=*" %%i in ('type "d:\size.txt"') DO SET /A SIZE1=%%i+%SIZE1% Tag: VBS and IsNTAdmin Tag: 215727
  - 12
    - HOWTO: HTML Decode in VBScript (not Espace/Unescape)? Hi, I use HTMLEncode to insert HTML data in my SQL Server DB. When SELECTing it, I want to perfrom Decoding of the data in VBscript. Espace/Unescape does not work because it does URL encode/decode (%xx conversion) and I need #xxxx conversion. Any idea how it's done? Thanks, Gabi. Tag: VBS and IsNTAdmin Tag: 215719
  - 13
    - Want to learn scripting.... I am Microsoft Systems administrator, would like to learn how to script, which scripting language would you recommend for scripting in an Active directory environment ? thank you Tag: VBS and IsNTAdmin Tag: 215715
  - 14
    - Creating a VPN Connection Hi all, I would like to be able to create a VBScript that when run would automatically create the VPN Connection and then automatically launch so that the user can then enter there username and password. Is this possible. If so how can it be done. Any help in this matter would be highly appreciated. Thank you Tag: VBS and IsNTAdmin Tag: 215714
  - 15
    - Error 424 on RegExp Object I've had a script running happily in Classic ASP for the past 18+ months with no issues and then all of a sudden, it stops working on my local machine (XP Pro). The code in question is: dim re set re = new RegExp str = Replace(str, "+", " ") re.Pattern = "%([0-9a-fA-F]{2})" re.Global = True Response.write re.Replace(str, GetRef("URLDecodeHex")) I've tracked the error down to the line with the creation of the RegExp object (set re = new RegExp) and have the error code of #424 - Microsoft VBScript runtime error. The code works fine when it's hosted online so I know it's an issue with my PC but does anyone have any suggestions as to what it could be? Are there any DLL's I can re-register? To my knowledge, nothing has changed. No permissions, no changes to the registry, etc. Thanks in advance, Joff Tag: VBS and IsNTAdmin Tag: 215712
  - 16
    - Need help with Windows Explorer Script Hello, All -- The following script was posted on some Usenet newsgroup in response to someone asking how to open two Windows Explorer windows side by side with designated folders: Dim sh Set sh = CreateObject("Shell.Application") sh.MinimizeAll sh.Explore "C:\Program Files" sh.Explore "C:\" WSH.Sleep 2000 sh.TileVertically It looked useful to me so I tried it. It works great except that both windows have double panes which makes for a very crowded screen. I would like to know how to modify this script to open two single paned windows explorer windows side by side. I have searched all over and have found nothing that would fit the bill. Please note that I am not a programmer or power user and am not at all familiar with scripting. Any help will be very greatly appreciated. Thanks to all. Jim Tag: VBS and IsNTAdmin Tag: 215701
  - 17
    - Accessing MS Word Bookmark using VBScript Hi All, I'm trying to access data from a Word file that has bookmarks and display them on an HTML page. I'm using VBScript to accomplish this. The following code does the job very well: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= '''''''''''''''''''''''''''''''''''''''''''' Set objWord =3D CreateObject("Word.Application") Set objDoc =3D objWord.Documents.Open("C:\test.doc") If objDoc.Bookmarks.Exists("myBookmark") =3D True Then ' checking to see if bookmark exists... Set objRange =3D objDoc.Bookmarks("myBookmark").Range myForm.myTextbox.Value =3D objRange.Text ' display the text in a form element (textbox in this case) End If objWord.Quit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''= '''''''''''''''''''''''''''''''''''''''''''' I am running into major problems when my bookmark name in Word contains foreign characters (i.e. ' =E9 ' - 'Pr=E9par=E9_par'). Can anyone please tell me how it might be possible to access the bookmarks' contents when the name has foreign characters? Thanks! Tag: VBS and IsNTAdmin Tag: 215697
  - 18
    - closing a command window after running some code First a brief explanation: on some of the servers I manage, there's an executable that's supposed to be running all the time. The past few days this exe has been mysteriously stopping. Not sure why or when, so I'm trying to determine the root cause. To that end, I wrote a script that checks to see if the exe is running, and if it isn't, restarts it. I run that script as a scheduled task every 20 minutes, so at the worst, we lose 20 minutes of functionality on a given server. On the server, the executable is called from a batch file. Here's the code in the batch file: start "Assembler v2.8 Production" /D c:\delivery c:\delivery\assembler f=z:\ o=z:\done\ v=10000 l=z:\assemblepdf_%computername%.log pi=V:\normal\In po=V:\normal\Out\ cv=\\sherlock\proofsprod\current\ Now (finally!), my questions: If I run this code (the script is local on the server), I can make the executable restart: Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /K start /D c:\delivery c:\delivery\assembler f=z:\ o=z:\done\ v=10000 l=z:\assemblepdf_%computername%.log pi=V:\normal\In po=V:\normal\Out\ cv=\\sherlock\proofsprod\current\" However, after the script runs, there's an extra command window open. So there's one command window that's open with the executable running, and another command window open at whatever directory I ran the script from (C:, for example). The command window I ran the script from is the one I'd like to close if at all possible. And a related question: in comparing the code from the batch file and the code I put into my script, you might notice I omitted the string "Assembler v2.8 Production" (quotes included). If I add this to my VBScript, the code won't run. I'm guessing it's a matter of finding the right combination of quotes/doubled quotes, but so far I haven't stumbled across the correct one. Neither issue is a show-stopper, as the code does what I intended, but I wanted to ask so I could learn a bit more. Thanks. Tag: VBS and IsNTAdmin Tag: 215689
  - 19
    - Status windows instead of wScript.Echo I would like to monitor my steps in my script, but the only way I know how is to do wScript.Echo "Blah blah blah". This isn't good for me because I have to hit OK after each step. Is there a way I can pop up a little dialog window where I can see my progress whether it be somthing that changes the message each step or does something like: Step1 running... Step1 complete! Step2 running... Step2 complete! Step3 running... Step3 complete! I also want it to close after a few moments when finally complete. Tag: VBS and IsNTAdmin Tag: 215688
  - 20
    - Copying Wscript.echo to the clipboard Morning all, I need to take a wScript.echo and copy it to the clipboard. The script I supplies my variables and outputs to a wscript.echo for me. Now I want to copy waht is put what is displayed in the wscript.echo into the clipboard so I can paste is into other apps. Is this possible with vbs? and if so how. I have seen alot around that is close, but all are looking to use IE to copy to the clipboard. Is this the only way? any input would be appreciated. Daryl Tag: VBS and IsNTAdmin Tag: 215687
  - 21
    - VB Script to map network dirve through HTML link Hello - I have a simple web page for system administration and I want to embed a link on the page that will map to the root drive of the system (i.e. //Servername/c$) - when I add the line href=file://///ServerName/ c$ - and then click on the link I get a browser window with "Server cannot be found" - When I open a new browser and just type in //Servername/c$ I get the prompt for username/password... Why will this not work through the link but manually through the browser.. thoughts!!?? Tag: VBS and IsNTAdmin Tag: 215686
  - 22
    - create folder on all computers I am trying to find a way(script) to create a folder c:\myFolder and copy some files into it, to all computers on my domain without having to do go from one to another. any tips or hints would be gratful. (the data on each of them will differ when they logon, so a shared folder dosen't work for me) Tag: VBS and IsNTAdmin Tag: 215683
  - 23
    - Converting IP Address to 9 Digit Decimal Number for msRADIUSFramed I am having to enter a static IP address for all of our VPN users, which is about 1,000. I am not a math person, but when I convert my IP address to a decimal number, it is a 10 digit number which is 1 digit to many to be added to msRADIUSFramedIPAddress attribute. I receive an error, it only takes up to 9 digits. Somehow Active Directory converts the decimal number to a 9 digit negitive number, I have no clue on how to get the 9 digit negitive number, If you already have a vbscript to convert an IP address to msRADIUSFramedIPAddress format. That would be awsome. But just even able to convert the 10 digit positive number to a 9 digit negitive number would be great! Thank you for you help!! Don My IP Address is 172.29.255.130 Converts to: 2887647106 (BUT it is 10 digits and can not be entered, even manually with ADSI Edit) Active Directory Converts the Number to a negitive value. This is where I am stuck. From ADSI Edit: msRADIUSFramedIPAddress = -1407320190 In Microsoft Forum Example Script to modify the attribute they used IP 10.2.0.210 which converts to: 167903442 (It is a 9 digit number and will work!) Again thank you for helping out, this will be so appriciated... Tag: VBS and IsNTAdmin Tag: 215678
  - 24
    - Delimited file fields into a variable Hi all, I have a csv file which I need to be able to select certain fields and then amend them to each line. EG ed, peters, DG, TH,,AG,3554 (note 5th field is blank) and so I would like to copy the 2nd and 6th fields and amend to the record so it would be= ed,peters,DG,TH,,AG,3554,peters,AG Thanks, Ed Tag: VBS and IsNTAdmin Tag: 215675
  - 25
    - Clearing the MRU programs from the start menu I'd like to clear the MRU programs from the XP start menu (the ones that get added "below the line", not the ones pinned above the line) with a script, but I can't even find where they're stored. I see there's the verb "Remove from this list" associated with each entry, but if I can't find the container to see the contents I can't invoke the verb. If I list the Items in the special folder START_MENU the only thing that shows up is Programs. Maybe that's not even the way to go about it. Any ideas? Thanks, Tom Tag: VBS and IsNTAdmin Tag: 215674
- Next
  - 1
    - Trying to append script results to a text file Hi. I've come across a script which suits my purpose very well. it returns the status of whether a host is available (pingable) written by Mike Salsbury see here: http://mikesalsbury.com/mambo/content/view/548/ I'm trying to have the output appended to a text file and looped to repeat every 30 seconds thanks Tag: VBS and IsNTAdmin Tag: 215669
  - 2
    - Special Folder Shell Namespace number vs title I can obtain a Shell Application Folder object associated with a Windows Special Folder with code like the following: iNameSpace = 26 Set oShApp = CreateObject("Shell.Application") Set oShFolder = oShApp.NameSpace(iNameSpace) MsgBox oShFolder.Title On my WXP SP2 system, for numbers in the range 0 to 61, most numbers result in a shell folder object with a unique title. My system has 39 unique titles. Some titles, like 'Application Data', and 'Desktop', are associated with namespaces of more than one number. For example, 26, 28, and 35 all result in shell folders with the title 'Application Data'. Question: Are all the shell folders with the same title identical, having the same properties, methods, events, etc, as well as the same contents? If not, how can I find out the differences between them? Thanks, -Paul Randall Here is a short script to list the special folder namespace titles and the numbers associated with them: Set dNameSpaces = GetNameSpaces() sMsg = "" For Each sNameSpace In SortNet(dNameSpaces.Keys) sMsg = sMsg & sNameSpace & vbTab & vbTab & _ dNameSpaces(sNameSpace) & vbCrLf Next 'sNameSpace MsgBox "Namespace Title count = " & UBound(dNameSpaces.Keys) + 1 & _ vbCrLf & sMsg Function GetNameSpaces() 'Return a dictionary containing namespace titles and associated numbers. Dim dNameSpaces, dNameSpaces2, oShApp, oShFolder, sNameSpace Set dNameSpaces = CreateObject("scripting.dictionary") dNameSpaces.comparemode = vbTextCompare Set dNameSpaces2 = CreateObject("scripting.dictionary") dNameSpaces2.comparemode = vbTextCompare Set oShApp = CreateObject("Shell.Application") On Error Resume Next For i = 0 To 100 Set oShFolder = oShApp.NameSpace(i) dNameSpaces(oShFolder.Title) = dNameSpaces(oShFolder.Title) & i & " " Next 'i On Error Goto 0 For Each sNameSpace In SortNet(dNameSpaces.Keys) dNameSpaces2(sNameSpace) = Replace(Trim(dNameSpaces(sNameSpace))," ", ",") Next 'sNameSpace Set GetNameSpaces = dNameSpaces2 End Function 'GetNameSpaces Function SortNet(a1DArray) Dim i With CreateObject ("System.Collections.ArrayList") For i = 0 To UBound(a1DArray) .Add a1DArray(i) Next .Sort() SortNet = .ToArray End With End Function Tag: VBS and IsNTAdmin Tag: 215661
  - 3
    - Encoded vbscript will not run in Windows Visata Hello, I encoded a vbscript, but the encoded script failed to run in Windows Vista. The error is as follows: There is no script engine for file extension ".vbe". Will WIndows Vista be able to run the encoded vbscript? Thanks. CluM09 Tag: VBS and IsNTAdmin Tag: 215655
  - 4
    - script to change First Name and Last Name, based on Display Name I need to find a way (script?) to change several users in a especial OU [displayName] looks like "John Albert Taylor (OPER)" need to get "only" first name from [displayName] and change the [givenName] to "John" need to get "only" middle and last name from [displayName] and change the [sn] to "Albert Taylor" can consider the first " (" end of name can help me ? thanks! Tag: VBS and IsNTAdmin Tag: 215616
  - 5
    - delete folders older than - [wp] I am looking foir a VBScripts which would delete sub-folders older than 15 days and I found this .... and I have no clue how to modify this help please. thanks 'Objective: To Delete folders older than certain # of days. 'Created by: MAK 'Date Written: Jun 4, 2004 'Usage: DeleteOldFolder "\\Servername\d$\MSSQL\BACKUP\Replication\" "2" "C:\mylog.txt" 'Usage: DeleteOldFolder "\\Servername1\Sharename\Replication\" "3" "\\servername2\log\DeleteOldFolders.log" On error resume next if isnull(WScript.Arguments(0))=True or isnull(WScript.Arguments(1))=True or isnull(WScript.Arguments(2))=True then msgbox "Usage: DeleteOldFolder" & "'\\Servername1\Sharename\Replication\' '3' '\\servername2\log\DeleteOldFolders.log'" end if Dim Directory Dim Noofdays Dim FSO Dim FSO2 Dim LogFile Dim Folderlist Dim folders Directory =WScript.Arguments(0) Noofdays=cint(WScript.Arguments(1)) LogFile=WScript.Arguments(2) Set FSO = CreateObject("Scripting.FileSystemObject") Set FSO2 = CreateObject("Scripting.FileSystemObject") Set oFSO = CreateObject("Scripting.FilesyStemObject") Set ofile = oFSO.createTextFile(LogFile, True) ofile.writeline "DeleteOldFolders Started" ofile.writeline now() Set Folderlist = FSO.GetFolder(Directory) Set folders = Folderlist.SubFolders For Each d In Folders ' msgbox d.name ' msgbox d.size ' msgbox d.dateCreated ' msgbox d.dateLastModified ' msgbox d.dateLastAccessed tempdirectory = Directory & d.name 'msgbox Noofdays 'msgbox datediff("d",d.dateCreated,now()) If datediff("d",d.dateCreated,now()) > Noofdays Then FSO2.DeleteFolder(tempdirectory ) ofile.writeline cstr(now()) & " " & tempdirectory & " Delete Started" if err.number <>0 then ofile.writeline cstr(now()) & " " & Err.description err.clear else ofile.writeline cstr(now()) & " " & tempdirectory & " has been deleted" err.clear end if ' msgbox tempdirectory & " has been deleted" End If Next 'msgbox "Done" ofile.writeline "DeleteOldFolders Completed" ofile.writeline now() Tag: VBS and IsNTAdmin Tag: 215612
  - 6
    - silent install issue with batch program I wrote a batch program to silently install some chipset software for users during logon. But it's working properly. Here is part of the code. :IntelAMT Echo Install Intel AMT Chipset Software Echo Install Intel AMT Chipset Software >>%systemroot%\setuplog1.log Echo Installing Utility Driver. c: CD \Drivers\Dell\GX755\Chipset\Chipset1 start /wait setup.exe -s -sms Echo Utility Driver Installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log; Echo Installing Intel AMT SOL/ LMS Driver c: CD \Drivers\Dell\GX755\Chipset\Chipset2 start /wait setup.exe -s -sms Echo Intel AMT SOL/ LMS Driver installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log Echo Installing Intel AMT HECI Driver c: CD \Drivers\Dell\GX755\Chipset\Chipset3 start /wait setup.exe -s -sms Echo Intel AMT HECI Driver installed, rc=%ERRORLEVEL% >>%systemroot%\setuplog1.log I can see the echo message during installation and the echo message in the log. But only the first one got installed properly. What I found is that the other two need to answer the license agreement. What's the switch to accept the license agreement automatically? thanks. Tag: VBS and IsNTAdmin Tag: 215607
  - 7
    - Error 800A0046 when trying to copy file locally Hey first post here, also new to scripting. I'm trying to create a script that reads a text file taking the path from that file and then copying the file from the path in the text file to a specific destination. I've got the reading of the text file down and everything seems to be ok, except when it goes to copy the file, when it tries to copy the file I get a Permission Denied message, this is a local copy from root of C to a temp folder and I'm admin on the machine so I can't understand why it would be a permission issue. Here is the script: Const ForReading = 1 Dim SourceServer Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("c:\test.txt", ForReading) strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine , ",") Wscript.Echo "Server name: " & arrServiceList(0) set SourceServer = objFSO.GetFile(arrServiceList(0)) Wscript.Echo "Copy " & SourceServer SourceServer.Copy("C:\temp\test") Any suggestions are much apprciated. Tag: VBS and IsNTAdmin Tag: 215606
  - 8
    - Slow logon when homeshare not available Situation: we divide our network for students and employees with VLANs. All computers for Education are placed in a student vlan, all administrative computers are placed in an employee vlan. When an employee logs on to a computer, which is in the student vlan, he can't access administrative resources, so he can't connect to his homedrive / homeshare. When an employee logs on to a computer in the employee vlan he will succesfully access administrative resources, the homeshare is succesfully connected. The problem is that logging on to a computer which is in the educational vlan causes a delay of 90 seconds because the server is not available. We sniffed the network and have seen that there is 3 times a ping request before the logon will proceed. We removed the homedrive and homepath setting in the AD user object and connected the homedrive based on subnet with a script, this solved the problem. But this causes problems with laptops users (folder redirection.) We want to workaround this problem without changing homedrive and homepath settings in the user object. Thanks in advance. Tag: VBS and IsNTAdmin Tag: 215602
  - 9
    - Empty the Recycle Bin I'd like to empty the Recycle Bin and reset the desktop icon to "empty". Anyone got some code I can use to do that? Thanks, Tom Tag: VBS and IsNTAdmin Tag: 215589
  - 10
    - Move Folder question I'm trying to write a script to move folders & subfiles using objFSO.MoveFolder "D:\SHARE\FOLDER\*" , "D:\Pending Print\FOLDER\" It works fine, however it will only move the folder if there are no files within the folder. Is there a parameter or something I am missing to copy BOTH folders and sub-files? thank you in advance, Tag: VBS and IsNTAdmin Tag: 215588
  - 11
    - Using SWbemLocator.ConnectServer with non-domain credentials Ok, so I have a scripting issue that I canâ??t find a solution for. Iâ??ve tried everything I can possibly think of, and have searched endlessly for an answer on all the forums/newsgroups. Iâ??m trying to use the SWbemLocator.ConnectServer method with vbscript to connect to a Windows 2003 server remotely and gather WMI data. All servers are Windows 2003 Server. ServerA = workgroup server Iâ??m trying to run the script from. ServerB = workgroup server Iâ??m trying to connect to. I can do this fine, as long as ServerB is connected to a domain, and I use domain credentials to authenticate when activating the ConnectServer method. However, if ServerB is part of a workgroup and I try to use the local admin credentials of ServerB in the ConnectServer method, I get â??Access is Deniedâ?? with an error code of 80070005 (DCOM Error regarding incorrect username/password). On ServerB, in the security event logs, it appears that only the local credentials of ServerA are being passed, as the â??DOMAINâ?? parameter is populated with the name of ServerA. Iâ??ve tried adding the name of the ServerB to the beginning of the strUser, or in the â??NTLMDomain:â?? setting so that it specifies the remote user account, but it still fails. This also happens if ServerB is in a domain if I try to use the local admin credentials of ServerB to connect, rather than the domain credentials. Iâ??ve scoured the newsgroups and spoken with other administrators. I get some solutions that come close to describing my exact issue, but nothing that solves the problem. Any ideas? Thanks! Tag: VBS and IsNTAdmin Tag: 215585
  - 12
    - Mass switch DNS script - fail over/disaster recovery Does anyone have a script for failing over DNS? I wrote one, but I'm curious to see if anyone else out there has done it better. What I'm looking for is a script that reads from a CSV and will switch A and CNAME records. As the spreadsheet is setup now, it lists SERVER, FUNCTION, PRODUCTION HOST, DR HOST, PROD A, DR A, PROD CNAME, DR CNAME, etc. The script is run and told to switch to production or fail over, and then changes all the settings as need be. I'm wondering if there's a similar one out there - they're looking for something more bullet proof. Thanks. Tag: VBS and IsNTAdmin Tag: 215582
  - 13
    - read .reg file Hi, I'm trying to write a script that reads .reg file and can compare it to the registry to see if there's a match. I've got the registry checking part all done in another script, so in this one, I'm looking for reading the .reg file and creating strings that I can use in the regchecking function. reading the .reg file is done: Const ForReading = 1, ForWriting = 2, ForAppending = 8 ' Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") strFile = "U:\tst.reg" If objFSO.FileExists(strFile) Then Set objFile = objFSO.GetFile(strFile) Set filetxt = objFile.OpenasTextStream(ForReading, -2) Do While Not filetxt.atEndOfStream line = filetxt.readline wscript.echo line Loop Else Wscript.Echo "File " & strFile & "doesn't exist" End If but now I'm looking for a way to recognize patterns, for example: Windows Registry Editor Version 5.00 (ignore this sentence) [HKEY_CURRENT_USER\Control Panel\Desktop] (this is the main key) "FontSmoothing"="2" (how to get the sub key) "FontSmoothingOrientation"=dword:00000001 (recognize DWORD values) "SCRNSAVE.EXE"="C:\\WINDOWS\\System32\\logon.scr" (recognize backslashes) "UserPreferencesMask"=hex:9e,3e,05,80 (recognize hex values) "WaitToKillAppTimeout"="20000" "Wallpaper"="" "Pattern Upgrade"="TRUE" [HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics] (recognize next main key, and process subkeys with corresponding main key) "BorderWidth"="-15" "CaptionFont"=hex:f5,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,bc,02,00,00,\(recognize multi line strings) 00,00,00,00,00,00,00,00,54,00,61,00,68,00,6f,00,6d,00,61,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 "CaptionHeight"="-270" idea's? regards, jeroen Tag: VBS and IsNTAdmin Tag: 215578
  - 14
    - Encounter a strange error when query WMI library -- "SWbemServicesEx: Not found" Hi guys, In my domain client migration procedure, on only three clients I encountered "SWbemServicesEx: Not found" error when I tried to query current logoned Domain Account (it is a domain account) info. But when I modified the script to query previous logoned Local Account, it worked. Note: The function I called is "Win32_UserAccount" Script used in my client migration task =============================================================================== Set objNetwork = CreateObject("Wscript.Network") strComputerName = objNetwork.ComputerName strLogonUser = objNetwork.UserName ap01UserName = trim(cstr(InputBox("Please input AP01 User Account:","Type User Account"))) strDomain = "AP01" Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2") Set objAccount = objWMIService.Get _ ("Win32_UserAccount.Name='" & ap01UserName & "',Domain='" & strDomain & "'") ==================================================================================== I think there would be something wrong with the client's WMI lib. To verify my suspection, I did the following test. 1).Use a sample script to enumerate all the local account which has logoned this client. 2).It seems really really strange, on two XP clients when I run the sample script to query current or previous logon accounts, it only return me Local Accounts, all the Domain Accounts cann't be queried. 3).But when I run this script on most other XP clients, it return both Local and Domain Accounts which have logoned this client. Any one can help? Sample Script ======================================= On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_UserAccount")For Each objItem in colItems Wscript.Echo "Account Type: " & objItem.AccountType Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Disabled: " & objItem.Disabled Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "Full Name: " & objItem.FullName Wscript.Echo "Local Account: " & objItem.LocalAccount Wscript.Echo "Lockout: " & objItem.Lockout Wscript.Echo "Name: " & objItem.Name Wscript.Echo "Password Changeable: " & objItem.PasswordChangeable Wscript.Echo "Password Expires: " & objItem.PasswordExpires Wscript.Echo "Password Required: " & objItem.PasswordRequired Wscript.Echo "SID: " & objItem.SID Wscript.Echo "SID Type: " & objItem.SIDType Wscript.Echo "Status: " & objItem.Status Wscript.EchoNext Tag: VBS and IsNTAdmin Tag: 215573
  - 15
    - Script for verifying files I have a server, where through out the day text files are copied to the server by few developers. I am already running a script to create folders on day wise on this server, and users copy these files to the server on the respective daywise folder. I have multiple servers like this. End of day all these text files are copied to a centralized server again to day wise folder. I need to verify whether all files from Server A, Server B etc. are copied to the centralized server completely. And if possible mail me --- like 200/300 files are present on Server A for day xy and is successfully copied to centralized server xyz on folder xy completely. Any suggestion Tag: VBS and IsNTAdmin Tag: 215572
  - 16
    - Time stamp a file. Hello all. I have the following script segment that creates a time stamped string for use in file or folder names. but need to do it in an easier way, or at least in less code. Any ideas? datetoday = Now strMonth = Month(datetoday) strDay = Day(datetoday) strHour = Hour(datetoday) strMinute = Minute(datetoday) strSecond = Second(datetoday) if len(strMonth) = 1 Then strMonth = "0" & strMonth end If if len(strDay) = 1 Then strDay = "0" & strDay end If if len(strHour) = 1 Then strHour = "0" & strHour End If If len(strMinute) = 1 Then strMinute = "0" & strMinute End If If len(strSecond) = 1 Then strSecond = "0" & strSecond End If datetoday = YEAR(datetoday) & strMonth & strDay timetoday = strHour & strMinute & strSecond strFile = datetoday & "_" & timetoday & ".zip" FSO.CreateTextFile(strFile) -- Thanks TimM Tag: VBS and IsNTAdmin Tag: 215563
  - 17
    - Need help finding local path to downloaded graphic Note: I have 100% total control over my environment. All users are using IE 7 and the application server is in the IE Trusted Security zone with all functionality defaulted to "Enable" in the IE custom settings for the zone. The only restriction is that all network file access must use http://, and not a UNC path. (Okay, so I guess that isn't 100% but its close.) I have a website that includes photos taken of current construction projects. When a reporting page is loaded via IE one of the page elements is the project's photo. I need to know if there is any way to find the c:\my\path\here\.... location of that file on the local hard disk. I know it is in the temporary internet files and I already know the exact name of the file, e.g. proj2007.014.jpg, but IE sets up subdirectories. Alternately, if there is any way to save the file to a known location then I can just access it from there but I can't figure out how to do that. I'd prefer not to have to have the user confirm the file download but if that is required for security reasons that is okay as long as it solves the problem. Any input is appreciated. Tag: VBS and IsNTAdmin Tag: 215562
  - 18
    - Help: Command Prompt code misbehaving in VBS Can anyone tell me why the following does not work? I am trying to move the following Command Prompt code into a VB Script: "c:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE" " helloworldproject.ini" I have tested this and it successfully fires up the CEAppManager.exe on the file helloworldproject.ini. I moved this into the following VBScript... Set strshell= CreateObject("WScript.Shell") strshell.run """c:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE"" ""helloworldproject.ini""" When I run this script, I get an error from CEAppManager as follows... Error in Windows CE Setup Files: Application Manager cannot install this application on your mobile device due to an error in the setup file. It kind of looks to me like the script is not feeding parameter that I am passing to CEAppManager (i.e. the hellowworldproject.ini) in the the way that CEAppManager expects. Please note that 1)when I execute the code in the CommandPrompt I have previously navigated to the folder containing the INI file. 2) when I execute the VBS script I am also in the folder containing the INI file. Thanks in advance! Tag: VBS and IsNTAdmin Tag: 215559
  - 19
    - vbscript to check local windows users VS Novell Directory Tree in Does anyone know of a simple script to check if local windows user account user ID's are in the Novell Directory Tree? I dont need to authenticate the user, I'm just checking if they should be deleted from Windows if not in Novell. If you know a script that is somewhat along these lines please post it, I just dont do much with LDAP or Novell so I'm somewhat confused how to start. Tag: VBS and IsNTAdmin Tag: 215556
  - 20
    - Listing more columns in "Recover Deleted Items" window As a matter of form, I am not talking about the Inbox\Deleted Items folder here, but the recoverable deleted items on the Exchange server (tools > recover deleted items...). When recovering emails from "Sent items" (click Sent Items, Tools > Recover Deleted Items...) I can just see the columns Subject, Deleted On, From and Received. I would like to show the column "To"-column as well, since all emails are from me in there, thus it's hard to locate an old mail with an unknown subject. I know it's probably not possible (I've tried clicking around), so I wondered if anybody know of 3rd party tools and/or scripts (vbscripts etc) that can manage the Recover Deleted Items folders? -- -- HAL07, Engineering Services, Norway Tag: VBS and IsNTAdmin Tag: 215551
  - 21
    - move folders based on their date This sounded really easy to me when I was tasked with doing it, but now I'm bogged down and have run out of ideas. Here's a description of what I'm trying to do: 1. On drive X, look for all folders starting with the string "delivery", followed by a random number. There are also other folders in X called other things that do not begin with "delivery". 2. For each of the folders starting with "delivery", if the date of the folder equals yesterday's date, move it from X to a destination folder (X:\archive\#yesterday's_date#\, for example). Otherwise don't move it. It sounds easy, and I can do step #1 easy enough, but stumble with the date issue in step #2. I just realized one way I could solve this would be to get rid of all the existing "delivery" folders, then just create a script to move all the "delivery" folders and schedule that script to run at 12:01 a.m. each day, but that seems a bit like the blunt force way of solving the issue, and I'm betting/hoping there's a more elegant solution. Thanks. Tag: VBS and IsNTAdmin Tag: 215539
  - 22
    - How to focus a folder browser? Hi, When I create a folder browser by using BrowseForFolder method according to this link http://msdn2.microsoft.com/en-us/library/bb774065(VS.85).aspx the dialog can be focused. However, when I display a popup first, the folder browser cannot be focused. The sample code like var objShell = WScript.CreateObject("Shell.Application"); var wshShell = WScript.CreateObject("WScript.Shell"); var btnCode = wshShell.Popup("Do you want to update DNN?", 10, "Answer This Question:", 4 + 32); if (btnCode==6) { var objFolder = objShell.BrowseForFolder(0, "Select the DNN portal folder", 0); } Is there a way that I can bring the folder browser to front? Thanks a lot! H. Tag: VBS and IsNTAdmin Tag: 215538
  - 23
    - Logoff script to restore a registery subkey Im trying to restor the Key HKCU\Softeare\Policies\Microsoft after making some changes in a logon script at logoff. The logon script adds Internet explorer settings to disable things like using ctrl-O to openn the Open dialog. Prior to running the logon script the subkey Internet Explorer does not exist. I use reg save to save a copy of HKCU\Softeare\Policies\Microsoft and then try to restore it with reg restore HKCU\Softeare\Policies\Microsoft and the file name. This works from the cmd line login as the user. However I will nod restore the key from the script at logoff. All other parts of the script work. the specific line that does not work is: WshShell.Exec ("%comspec% /c reg RESTORE HKCU\Software\Policies\Microsoft ""%USERPROFILE%\explorerPoliciesBackup.hiv""") FYI Wshell = CreateObject("WScript.Shell") I have even tried to use the reg delete command with no success. The user is in the administrators group. This happens locally as well as through terminal services. Thanks in advance Tag: VBS and IsNTAdmin Tag: 215537
  - 24
    - Copy to multiple folders Maybe someone can help me out. I have the script below that replicates from source to target just fine. It was nice enough on Michael to post it on this MS newsgroup a while back. I've done a few changes to it like a small amount of logging but nothing major. But I'm wanting to change it so that it will replicate to multipe targets i.e. setting the TARGET to just C:\App and have to replicate to all sub folders excluding the Source folder and it already has the logic to exclude folders. Or maybe I need to go about this in a different direction. Any help would be great. Set WshShell = WScript.CreateObject("WScript.Shell") Set objNetwork = wscript.CreateObject("wscript.network") 'objNetwork.Username Set objFSO = CreateObject("Scripting.FileSystemObject") Set variablesObj = WScript.Arguments Set WshEnv = WshShell.Environment("Process") Set objShell = CreateObject("Shell.Application") '======================================================= '================== DEFINED VARIABLES ================== '============== MODIFY SOURCE AND TARGET =============== '======================================================= SOURCE = "C:\App\Source" TARGET = "C:\App\Target" '======================================================= '======================================================= '============== FOLDERS NOT TO POPULATE =============== '======================================================= 'Excluded folders '- list folder names, comma separated FLDR_EXcLUDE = "Source,Test" '======================================================= '======================================================= '============== FOLDERS NOT TO POPULATE =============== '======================================================= 'Excluded file types '- list file extensions (without periods), comma separated FILE_EXCLUDE = "txt,csv" '======================================================= '======================================================= '===================== Log Files ====================== '======================================================= 'ErrLog is for location of error log 'SuccLog is for completion and other logs ErrLog = "C:\ErrorLog.csv" SuccLog = "C:\SuccessLog.csv" '======================================================= '======================================================= '============= END USER DEFINED VARIABLES ============== '======================================================= '**************************************************************************************************** 'Replication '1. Starts with source folder and if it doesn't exist on the target copies it and all contents there '2. If the source folder does exist on the target it checks the files in that folder and copies any missing files or files with later modified dates to the target '3. Recurses through all subfolders (all levels) in the source, repeating steps 1 & 2 for each 'Synchronization '4. Starts with target folder and if it does not exist in the source deletes it. '5. If the target folder does exist in source it goes through all files in the target folder and deletes them if they do not exist in the source '6. Recurses through all sub folders (all levels) in the target, repeating steps 4 & 5 for each. '**************************************************************************************************** replicate = True 'Perform replication: true/false. Do not change from true. synchronize = False 'Perform synchonization: true/false. Do not change from false. silent = False 'Performs logging when set to False. hiddenFldrs = False 'Process hidden folders: true/false. Do not change from false. hiddenFiles = False 'Process hidden files: true/false. Do not change from false. ' NOTE: If a folder is missing in the target, the entire ' folder is copied, even the hidden files '======================================================= If Not ( silent ) Then LogIt SuccLog, "Backup started," & Now & "," & SOURCE & "," & TARGET End If 'Use variables passed from command line if sent If WScript.Arguments.Count > 0 Then replicate = variablesObj(0) End If If WScript.Arguments.Count > 1 Then synchronize = variablesObj(1) End If If WScript.Arguments.Count > 2 Then silent = variablesObj(2) End If 'Set up regular expression object Set RegExObj = New RegExp RegExObj.IgnoreCase = True FILE_EXCLUDE = "," & FILE_EXCLUDE & "," FLDR_EXCLUDE = "," & FLDR_EXCLUDE & "," 'Verify if source folder exists If Not (objFSO.FolderExists(SOURCE)) Then 'Do not replicate, Perform error handling If Not ( silent ) Then 'MsgBox "Source Missing" LogIt ErrLog, "Source missing," & Now & "," & SOURCE & "," & TARGET End If 'Proceed if replicating is on ElseIf ( replicate ) Then replicateFolders SOURCE, TARGET End If 'Verify if target folder exists If Not (objFSO.FolderExists(TARGET)) Then '100 'Do not synchronize, Perform error handling If Not ( silent ) Then 'MsgBox "Target Missing" LogIt ErrLog, "Target missing," & Now & "," & SOURCE & "," & TARGET End If 'Proceed if synching is on ElseIf ( synchronize ) Then syncFolders SOURCE, TARGET End If 'Cleanup variables Set objFSO = nothing Set objNetwork = nothing Set variablesObj = nothing Set RegExObj = nothing Set sourceObj = nothing Set targetObj = nothing Set targetFileObj = nothing Set sourceFileObj = nothing If Not ( silent ) Then MsgBox "Backup Complete!", 0, "Done" LogIt SuccLog, "Backup completed," & Now & "," & SOURCE & "," & TARGET End If '======================================================= Sub replicateFolders (currentSource, currentTarget) '======================================================= 'Check if target folder exists If Not (objFSO.FolderExists(currentTarget)) Then 'Create the target folder and copy the contents of currentSource there objFSO.CreateFolder(currentTarget) objFSO.CopyFolder currentSource, currentTarget LogIt SuccLog, "Created folder and files," & Now & "," & currentSource & "," & currentTarget Else 'Create folder object of the currentSource Set sourceObj = objFSO.GetFolder(currentSource) 'Perform file replication for the currentSource replicateFiles sourceObj, currentTarget 'Do recursive processing of sub folders For Each subSourceObj in sourceObj.SubFolders If Not excluded(subSourceObj.Name,0,FLDR_EXCLUDE) Then If (hiddenFldrs) Or (Not subSourceObj.Attributes And 2) Then newTarget = TARGET & RIGHT(subSourceObj.Path,(Len(subSourceObj.Path)-Len(SOURCE))) replicateFolders subSourceObj.path, newTarget End If End If Next End If '======================================================= End Sub 'replicateFolders '======================================================= '======================================================= Sub replicateFiles (sourceObj, targetPath) '======================================================= ' Recurse through all files in the source object For Each sourceFileObj in sourceObj.Files If Not excluded(sourceFileObj.Name,1,FILE_EXCLUDE) Then If (hiddenFiles) Or (Not sourceFileObj.Attributes And 2) Then targetFile = targetPath & "\" & sourceFileObj.Name 'Check if file exists in target If objFSO.FileExists(targetFile) Then 'Create file object of target file Set targetFileObj = objFSO.GetFile(targetFile) 'Check if file in source is newer If sourceFileObj.DateLastModified > targetFileObj.DateLastModified Then 'Overwrite existing file in target with newer source file sourceFileObj.Copy targetFile, true LogIt SuccLog, "Copied updated file," & Now & "," & newTarget End If Else 'Copy file from source to target sourceFileObj.Copy targetFile End If End If End If Next '======================================================= End Sub 'replicateFiles '======================================================= '======================================================= Sub syncFolders (currentSource, currentTarget) '======================================================= 'Check if source folder exists If Not (objFSO.FolderExists(currentSource)) Then 'Delete the current target folder objFSO.DeleteFolder currentTarget Else 'Create folder object of the currentTarget Set targetObj = objFSO.GetFolder(currentTarget) 'Perform file synching for the currentTarget syncFiles currentSource, targetObj 'Do recursive processing of sub folders For Each subTargetObj in targetObj.SubFolders If Not excluded(subTargetObj.Name,0,FLDR_EXCLUDE) Then If (hiddenFldrs) Or (Not subTargetObj.Attributes And 2) Then newSource = SOURCE & RIGHT(subTargetObj.Path,(Len(subTargetObj.Path)-Len(TARGET))) syncFolders newSource, subTargetObj.path End If End If Next End If '======================================================= End Sub 'syncFolders '======================================================= '======================================================= Sub syncFiles (sourcePath, targetObj) '======================================================= '=======================================================- ' Recurse through all files in the target object For Each targetFileObj in targetObj.Files 'Do not process excluded file types If Not excluded(targetFileObj.Name,1,FILE_EXCLUDE) Then sourceFile = sourcePath & "\" & targetFileObj.Name 'Delete target file if does not exist in source If Not (objFSO.FileExists(sourceFile)) Then targetFileObj.Delete true End If End If Next '======================================================= End Sub 'syncFiles '======================================================= Function excluded (itemName,isFile,excludeList) '======================================================= ' Test if itemName is in excluded list '=======================================================- 'If file, get the file extension If isFile Then itemName = Right(itemName,Len(itemName)-InStrRev(itemName,".")) End If RegExObj.Pattern = "," & itemName & "," excluded = RegExObj.Test(excludeList) '======================================================= End Function 'excluded '======================================================= 'Logging Enabled '======================================================= Sub LogIt(strLogFile,strLine) Dim fso, file Const ForAppending = 8 On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(strLogFile) = False Then Set file = fso.CreateTextFile(strLogFile) Else Set file = fso.OpenTextFile(strLogFile,ForAppending) End If file.WriteLine(strLine) file.Close End Sub '======================================================= -- Thanks TimM Tag: VBS and IsNTAdmin Tag: 215535
  - 25
    - Query Issues My script isint working, specifically I dont think the query is returning anything, though as far as I can tell it should. No errors are returned, but the script skips the 'for each file in cfiles' section. Does anyone see why this is happening? The file name it is checking for (only checking one atm) is: AZA_BINS_2008022514.TXT The contents of C:\BAASCRIPTS\ivr.txt is AZA_BINS_ on line 1 and scriptquit on line 2. --- SCRIPT --- 'Opens text file which contains the names of all files to be checked. Set TextFile = fso.OpenTextFile("C:\BAASCRIPTS\ivr.txt", 1) MsgBox "2" 'Directory path where files are kept on BAA Dir = "C:\BAA\" Dir1 = "BAA" 'Reads in text file and builds directory/file string. Do While TextFile.AtEndOfStream <> True j = j + 1 file_array(j) = TextFile.ReadLine file_stamp = file_array(j) If file_stamp = "scriptquit" Then MsgBox "3a" wscript.Quit Else MsgBox "3b" MsgBox file_stamp End If 'sSomefolder = "D:\ExtractFiles\IVR" 'sPathSpec = Replace(Mid(Dir, 3) & "\", "\", "\\") sComputer = "." ' local machine Set qWMISrv = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set cFiles = qWMISrv.ExecQuery("Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & file_stamp & sqldate & "%%'", , 48) MsgBox "4" msgbox "Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & file_stamp & sqldate & "%%'" For Each File In cFiles ' just file's name s = s & File.FileName & "." & File.Extension & vbCrLf MsgBox "5" MsgBox s ' full filespec ' s = s & File.Name & vbCRLF slen = Len(s) 'T is date t = Mid(s, 9, 8) MsgBox "6" If slen = "22" Then MsgBox "7" 'U is variable digit u = Mid(s, 17, 1) If u > highfile Then highfile = u End If ElseIf slen = "23" Then MsgBox "8" 'U is variable digit u = Mid(s, 17, 2) If u > highfile Then highfile = u End If ElseIf slen = "24" Then MsgBox "9" 'U is variable digit u = Mid(s, 17, 3) If u > highfile Then highfile = u End If ElseIf slen = "25" Then MsgBox "10" 'U is variable digit u = Mid(s, 17, 4) If u > highfile Then highfile = u End If ElseIf slen = "26" Then MsgBox "11" 'U is variable digit u = Mid(s, 17, 5) If u > highfile Then highfile = u End If ElseIf slen = "27" Then 'U is variable digit u = Mid(s, 17, 2) If u > highfile Then highfile = u End If Else MsgBox boo End If MsgBox "11" Next MsgBox "12" Loop pre_fname = sSomefolder & "\" & file_stamp & "_" & sqldate & "_" & u & ".TXT" MsgBox "13" Set filesys = CreateObject("Scripting.FileSystemObject") Set prname = filesys.GetFile(pre_fname) post_fname = file_stamp & ".TXT" prname.Name = post_fname MsgBox "14" Tag: VBS and IsNTAdmin Tag: 215533

Hello,

I want translate this VB code in VBS code...

Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved
AsLong, ByRef lpdwReserved AsLong) AsLong

Private Sub Form_Load()
Msgbox "Etes vous administrateur de ce poste ? " &
CBool(IsNTAdmin(ByVal 0&, ByVal 0&))
End Sub

Thanks.

CC

Top