popup email window

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
    - Scripting Mapped drives Hi all I currently run a w2k3 domain and have a logon script mapping drives through group membership. occasionally laptop users and some desktop users loose there mapped drives at which point they call and we tell them to relogon. laptop users sometimes come back into the office after using there laptop at home and instead of shutting down put it into standby or hibernate then wjen they boot in the office they dont logon and dont map drives. Anyone else have or have a similar problem, any solutions? I was thinking of putting a timer into the script to remap drives every so often or installing some scripts locally not sure. thanks Tag: popup email window Tag: 215889
  - 2
    - Encrypt the SQL connection string in ASP Page using VB Script Hi All, My SQL server got hacked 2 times. Using SSL is not an option in my company noe. I got 2 days to encrypt the SQL connection.How do I encrypt the connection string. Connection string is as follows. strcon="Driver=SQL Server;Server=test;UID=uid;PWD=pwd;Database=test;DSN=\\test\C$\test.dsn" I wam will to change any thing in the SQL server too. But I don't have access to Webserver.I know some application is reading the password from the ASP page and logging into the system. Please help.It is very urgent and I am kind of panic now. SMV Tag: popup email window Tag: 215882
  - 3
    - HTA scroll to top when window is resized In an HTA using VBScript, there is a control that allows the user to collapse the HTA window to a smaller size. When this happens I want the window to scroll to the very top. Could someone please toss me the command to do this? Thanks in advance. Tag: popup email window Tag: 215880
  - 4
    - I'm missing something obvious... Hey guys, For some reason, when I run the following script, I'm getting a "Object doesn't support this property or method" error on line 20. (LogFile =) and i just can't seem to figure out what I'm getting wrong. Think you guys can take a look? Thanks! Code: Option Explicit 'On Error Resume Next Dim objShell Dim FSO Dim RegUserName Dim RegCompName Dim User Dim Comp Dim LogFile Set FSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") RegUserName = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\LastLoggedOnUser" RegCompName = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName" User = objShell.RegRead(RegUserName) Comp = objShell.RegRead(RegCompName) Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 LogFile = FSO.OpenTextFile("M:\Test.txt", ForAppending, True) LogFile.Write " " LogFile.Write "ComputerName" & " " & Comp LogFile.Write "is being used by" & " " & User LogFile.Write Date LogFile.Write " " LogFile.Close Tag: popup email window Tag: 215878
  - 5
    - Problem passing cn's with spaces Hi I'm stuck. I've got a script (listed below) that asks for a user's name and then disables the corresponding AD account, adds the associated external account permission to the SELF account and then moves it to a specified OU. My problem is that if the user's name has a space in it (ie John Doe) then the associated external account permission will not be assigned to the SELF account. If the user name has no space in it then everything works perfectly. Any ideas? ******************************************************** On Error Resume Next 'Defines from which container search will start Const ADS_SCOPE_SUBTREE = 2 Const ADS_USERDISABLED = &H00002 const E2K_MB_FULL_MB_ACCESS = &H00001 const E2K_MB_SEND_AS = &H00002 const E2K_MB_EXTERNAL_ACCOUNT = &H00004 const E2K_MB_READ_PERMISSIONS = &H20000 const E2K_MB_TAKE_OWNERSHIP = &H80000 const ADS_ACE_REVISION_DS = &H00004 const ADS_ACETYPE_ACCESS_ALLOWED = &H00000 const ADS_ACEFLAG_INHERIT_ACE = &H00002 'Sets User Flag Parameter Const ADS_UF_ACCOUNTDISABLE = &H2 Dim strUserName 'Creates an input box to type in user's name strUserName = InputBox("Enter the username:") 'connect to AD Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand = CreateObject("ADODB.Command") Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT ADsPath FROM 'LDAP://DC=london,DC=glenrand'" & _ "WHERE objectCategory='User'" & _ "AND cn='" & strUserName & "'" Set objRecordSet = objCommand.Execute 'Get user record objRecordSet.MoveFirst Do Until objRecordSet.EOF strPath = objRecordSet.Fields("ADsPath").Value Set objUser = GetObject(strPath) intUAC = objUser.Get("userAccountControl") objUser.Put "userAccountControl", intUAC OR ADS_UF_ACCOUNTDISABLE objUser.SetInfo Call SetmsExchMasterAccountSid 'Move user to Ex Employees OU Set objNewOU = GetObject("LDAP://OU=exemployees,DC=london,DC=glenrand") intReturn = objNewOU.MoveHere(strPath, vbNullString) objRecordSet.MoveNext Loop msgbox "The user account for " & strUserName & " has been disabled" 'This function sets the msExchMasterAccountSid value in ADSI to SELF. 'ie Adds Associated External Account permission to the SELF account. Function SetmsExchMasterAccountSid Dim objSD Dim objACL Dim objACE Dim found objUser.Put "msExchMasterAccountSid", objUser.Get("objectSID") 'Get the mailbox security descriptor set objSD = objUser.Get("msExchMailboxSecurityDescriptor") set objACL = objSD.DiscretionaryAcl found = false for each objACE in objACL 'Iterate through the ACL to find the SELF-Account if objACE.Trustee = "SELF" Then found = true Exit For end if next if not found then 'If no SELF-Account is present, create it set objACE = CreateObject("AccessControlEntry") objace.Trustee = "SELF" objace.AceFlags = ADS_ACEFLAG_INHERIT_ACE objace.AceType = ADS_ACETYPE_ACCESS_ALLOWED objacl.addace objace end if 'Give the SELF-Account the External-Account right objace.AccessMask = objace.accessmask OR E2K_MB_READ_PERMISSIONS OR E2K_MB_FULL_MB_ACCESS OR E2K_MB_EXTERNAL_ACCOUNT 'Save the changes objUser.Put "msExchMailboxSecurityDescriptor", objSD objUser.setInfo Set objSD = Nothing Set objACL = Nothing Set objACE = Nothing End Function Tag: popup email window Tag: 215871
  - 6
    - check and add a registry key Hi, is it possible to have a script that checks a remote PC (running XP pro) to see whether a particular registry key exists, if not run a xyz.reg file to add it on the remote PC? thanks in advance, Tag: popup email window Tag: 215870
  - 7
    - Active Directory GetObject function fails Does anyone know why this would happen? We find some users can run this code and some cannot - but we dont know why: Code: Set objSysInfo = CreateObject("ADSystemInfo") objADUser = objSysInfo.UserName Set objUser = Getobject("LDAP://" & objADUser) <=== Fails for some users strUserF = objUser.FirstName strUserL = objUser.LastName strEmail = objUser.EmailAddress Tag: popup email window Tag: 215866
  - 8
    - Need help with WMI SQL syntax. I am trying to search multiple machine's Event log for several events. I'm trying to do it in one pass, and I think I'm close. This query does not return any data when run against a machine with known events. Can anyone give me a hand? Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where " _ & "(Logfile = 'System' and EventCode = '1054')"_ & "Or (Logfile = 'System' and EventCode = '1000')" _ & "Or (Logfile = 'System' and EventCode = '1030')" _ & "Or (Logfile = 'System' and EventCode = '1085')" _ & "Or (Logfile = 'System' and EventCode = '5')") Tag: popup email window Tag: 215856
  - 9
    - AD : External Account Association hi, i have to write a script to associate an external account to a disabled ad user. I have the following code.it gives me an error(-2147016657) in the last line and i can't update "ntSecurityDescriptor" maybe because i wrote in a bad way the addace call. can anyone help me? Set oSID = CreateObject("ADsSID") oSID.SetAs 2, NTUser RawSID = oSID.GetAs(0) oUser.Put "msExchMasterAccountSID", RawSID oUser.SetInfo Set oSecurityDescriptor = oUser.MailboxRights Set dacl = oSecurityDescriptor.DiscretionaryAcl objSD = oUser.Get("ntSecurityDescriptor") Set objDACL = objSD.DiscretionaryACL AddAce dacl, NTUser, 131079, ADS_ACETYPE_ACCESS_ALLOWED, ADS_ACEFLAG_INHERIT_ACE, 0, 0, 0 oSecurityDescriptor.DiscretionaryAcl = dacl oUser.MailboxRights = oSecurityDescriptor oUser.SetInfo AddAce objDACL, NTUser, ADS_RIGHT_DS_CONTROL_ACCESS, ADS_ACETYPE_ACCESS_ALLOWED_OBJECT, 0, 0, "{ab721a54-1e2f-11d0-9819-00aa0040529b}", 0 objSD.DiscretionaryAcl = objDACL oUser.Put "ntSecurityDescriptor", Array(objSD) oUser.SetInfo Tag: popup email window Tag: 215855
  - 10
    - Script to determine Service Pack on numerous servers Hello, I'm not a scripting guy so I need some assistance. I need to obtain the service pack levels on numerous servers. Is there a script I can use that could read a list of servers in a text file and output the answers to either a text file or CSV? Tag: popup email window Tag: 215854
  - 11
    - mapi - accepting Appointment automatic when i accept an appointment automaticly i see in the meeting in the calender at the bottom part : [QUOTE] When: ??? ????? 06 ??? 2008 14:00-14:30 (GMT+02:00) Jerusalem. *~*~*~*~*~*~*~*~*~* [/QUOTE] when i check the vb6 code i see that : objMessage.Text - contians the ==>>"*~*~*~*~*~*~*~*~*~*" the thing is that when i accept an appointment manually the "*~*~*~*~*~*~*~*~*~*" dosent appear in the meeting in the calendar, but when i do that using code it dose! can i change this?? can i get read of the "*~*~*~*~*~*~*~*~*~*"??? this is the code is user [CODE] Dim oSession, strServer, strMailbox, strProfileInfo, oInbox Set oSession = CreateObject("MAPI.Session") strServer = "servsername" strMailbox = "mailboxname" strProfileInfo = strServer + vbLf + strMailbox oSession.Logon "", "", False, True, 0, True, strProfileInfo Set objFolder = oSession.Inbox Set objMessages = objFolder.Messages Const CdoResponseAccepted = 3 Const CdoMeetingItem = 27 'MeetingItem object Const CdoMeetingRequest = 1 For Each objMessage In objMessages If objMessage.Class = CdoMeetingItem Then If objMessage.MeetingType = CdoMeetingRequest Then Set objAppointment = objMessage.GetAssociatedAppointment() If objAppointment.MeetingStatus = CdoMeetingCanceled Then MsgBox "in1" MsgBox "ConfirmInvetation - metting request got cancel ", "", eInfo objAppointment.Delete Else MsgBox "in2" Set objAppt = objMessage.Respond(CdoResponseAccepted) MsgBox objAppt.Text objAppt.Text = "daniela help" MsgBox objAppt.Text MsgBox objMessage.Text MsgBox objMessage.subject MsgBox "ConfirmInvetation - got metting " objAppt.Send MsgBox "ConfirmInvetation - Reply sent" End If End If objMessage.Delete MsgBox "ConfirmInvetation - Message deleted" Set objAppointment = Nothing Set objAppt = Nothing End If Next [/CODE] thnaks in advance peleg Tag: popup email window Tag: 215845
  - 12
    - set password expiration date Hi , I was looking for a way to set a password expiration to a specific date using the user's "pwdlastset" attribute. The problem is that it seems impossible to set the attribute to a value other than 0 ( which set the user to change the password at next logon ) . Does anyone know how to solve it ? thanks Stefano Tag: popup email window Tag: 215844
  - 13
    - Emulate PSEXEC/RunAS with the CreateScript method? I'd like to execute a VB script on a remote system with credentials different from the one launching the script- currently, I've been using SysInternal's PSEXEC to do this, but, I would rather not call an external exe, I'd like to keep everythng within VBS. The CreateScript method looks like what I want, but I can't figure out how impersonate an account with this. Can anyone tell me how or point me in the right direction on how to do this? Thanks! Tag: popup email window Tag: 215842
  - 14
    - get file creation date down to seconds Is it possible to get the file creation date down to the seconds? I was using the Folder.GetDetailsOf(FileName, 3) method to get the file's date, but it's only good down to the minute, I need it down to the seconds. Any help would be appreciated. Thanks. -- Mike Tag: popup email window Tag: 215841
  - 15
    - script to copy file I am trying to write a script that I thought would be simple to copy a single filr to many pc's. The script fails with a path not found error. If I write the line out it is a valid path. It is failing on where to copy the file. The code opens a text file and reads the names of pc's that are that. Currently just in testing and failing with 2 systems in the file. Any help is greatly appreciated Here is my code: On Error Resume Next 'get main objects/variables Dim strPath, strFileToRead, strLogFile strPath = "C:\CopyWinPrint\" strFileToRead = "computers.txt" strLogFile = "log.txt" Dim strComputers Dim fsoRead, tsRead Const ForReading = 1 Set fsoRead = CreateObject("Scripting.FileSystemObject") Set tsRead = fsoRead.OpenTextFile(strPath & strFileToRead, ForReading) strComputers = tsRead.ReadAll tsRead.Close Set fsoRead = Nothing strComputers = Split(strComputers, vbCrLf) Set oFso = CreateObject("Scripting.FileSystemObject") For x = 0 to UBound(strComputers) strOut = "" strComputersText = Trim(CStr(strComputers(x))) 'strComputersText = "RIC0000016" Set oFso_fileName = oFso.GetFile("\\riclog01\deploy\Assist_Rollout\Winprint\winprint.exe") oFso_fileName.Copy "\\" & strComputersText & "\c$\WINDOWS\system32\winprint.exe" , True 'MsgBox("\\" & strComputersText & "\c$\WINDOWS\system32\winprint.exe") If Err.Number <> 0 Then strOut = strOut & vbCrLf & strComputersText & vbTab & err.description & "!" Err.Clear Else strOut = strOut & vbCrLf & strComputersText & vbTab & "No error!" End If Next Dim fsoWrite, tsWrite Const ForWriting = 2 Set fsoWrite = CreateObject("Scripting.FileSystemObject") Set tsWrite = fsoWrite.CreateTextFile(strPath & strLogFile, True) tsWrite.WriteLine(strOut) tsWrite.Close Set fsoWrite = Nothing Tag: popup email window Tag: 215840
  - 16
    - free editor and debugger Any free tools or great debuggers for beginners to download ? Notepad is not very friendly. Looking for tips and advice. Thanks Tag: popup email window Tag: 215839
  - 17
    - Write a log Hello, How can i write a log with the execution of a vbs script? When i execute a batch like this: msiexec /x {35C03C04-3F1F-42C2-A989-A757EE691F65} REMOVE=ALL REBOOT=R /L* c:\temp\mcafee.log /quiet I can see the result in the log file but when i execute a vbs, is posible do this? Thanks and sorry....i'm a bad scriptter.... Tag: popup email window Tag: 215836
  - 18
    - Count of TXT files in a folder In an HTA, using VBScript, I need to get a count of only files having a TXT file extension in a specific folder. Can someone please post generic example code to do this? Thanks much in advance. Tag: popup email window Tag: 215825
  - 19
    - Initiate a cluster failover I'm trying to write a script to initiate a failure on a cluster group to another node, I want the behavior to mimic the behavior when you right-click a resource in cluster administrator, and select "initiate failure". This snippet below is using the FailResource method, but doesn't seem to initiate a failure for the cluster group, it seems to be just for testing, it looks to just fail the individual resource for a moment and that's it. Set colResourceList = objWMIService.ExecQuery _ ("Select * from MSCluster_Resource WHERE Name = 'TestResource'") For Each objResource in colResourceList objResource.FailResource Next Any ideas to initiate a true failure like you can in the GUI of Cluster Administrator? I was able to use the MoveToNewNode method of the MSCluster_ResourceGroup Class, but then if I code in the name of that node, and it's already on that node, that doesn't meet the requirements. Tag: popup email window Tag: 215824
  - 20
    - Delete network printers I am using the script to delete all network printers installed on a workstation. Is there a way to specify to delete on the printers on a specific printer server? For example: \\prntsrvr1\printer1 \\prntsrvr2\printer2 Is there a way to say delete all printers pointing to prntsrvr2? Tag: popup email window Tag: 215823
  - 21
    - Delete all files in folder I'm developing an HTA in which I need to delete all files in a folder. I was surprised to find that the following doesn't work? Kill MyPathName & "*.*" Does this mean I have to loop thru all the files in the folder using FSO? Is there a more efficient/expedient method? Thanks much in advance for your assistance. Tag: popup email window Tag: 215821
  - 22
    - List all domain accounts on remote machine I'm using HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList to list all the users on a remote machine and then use that information to get other information from Active Directory. How can I find out which accounts are local accounts and which are domain accounts? I don't want to waste time hitting the AD for the local accounts. Any advice to determine which are domain accounts? Tag: popup email window Tag: 215815
  - 23
    - IMAP and getting mail messages from server i have noticed that when i pull from the exchnage server mail messages there is a diffrence in the values that i should use in the code, between a sender that has an email box in the exchange server to an email sender which sends his email from outside. i use imap to get the messages and this is the code: [code] sender data : (**the Msg object is based on objFolder.Messages where objFolder is from objSession.Inbox,where objSession is the mapi logon (objSession.Logon(,,false,,,, strProfileInfo )) sentDate = Msg.TimeSent Sender = Msg.Sender SenderName = Msg.Sender.Name SenderMail = Msg.Sender.Fields(CdoPR_EMAIL) From = Msg.Sender.Fields(CdoPR_EMAIL) Subject = Msg.Subject [/code] i have found out i nthe aboev code that foe example if the sender has no mail box on the exchange server then the value iin CdoPR_EMAIL (which ==&H39FE001E) is incorrect and i should use another one. does some one know how from start i can know if the user has mail box or not,and which values for each of the types in the code relevent for each sender? thnaks in advance peleg Tag: popup email window Tag: 215814
  - 24
    - SwbemservicesEX Not Found I am trying to write a script to shutdown a specific service on a Win2K3 server. My script (copied from a TechNet article) is as follows: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\cimv2") Set objService = _ objWMIService.Get("Win32_Service.Name='SyndMailBBSvc'") Return = objSyndMailBounceBack.StopService() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' When I run the script I get the following error: swbemservicesEX Not Found Can anyone tell me where this error is coming from? I can't find much in the various groups. Thanks, Joe Tag: popup email window Tag: 215810
  - 25
    - Move Active Directory infor to a completely seperate domain.... Hi all. I'm in a situation where I was brought on to help facillitate a spin-off of a company. Powers that be well above my paygrade have decided they want to just port all the same active directory info over to the new domain, however I haven't seen anyway to do that. What I'm looking for, is a vbscript to copy users, groups and the OU structure from one domain, and then import the data into a completely seperate new domain. Can anyone shed some light on where to start with my vbscript? Examples would be extremely helpful. Thanks in advance! Tag: popup email window Tag: 215809
- Next
  - 1
    - Input Box quite on blank field. Can someone please look over my script below. In the Input box, I have one issue. The user gets an OK and Cancel box. The Cancel works OK, however if the user leaves a blank field this also exits via the Wscript.Quit. I am having great difficulty with this. I'm not sure how to get this working. If it's blank I am hoping to loop it so the user is asked to enter in a name again. Do Until iConfirm = vbYes Name = InputBox ("Please Enter a Student Username ?", "Name") If Name = -1 or Name = "" Then Wscript.Quit End If iConfirm = Msgbox("Please Confirm the following Information" &vbCrLf &vbCrLf & _ "Name: " & Name &vbCrLf &vbCrLf & _ "Select Yes to Continue, No to Change Name Information ",vbYesNo + vbinformation, _ "Name") Loop Tag: popup email window Tag: 215803
  - 2
    - creating an extended string in the registry We have a script that will change the name of the My Computer icon to show the user name and computer name, however it also changes the key type from a REG_EXPAND_SZ to REG_SZ, this seems to have the effect of changing the My Computer icon name to "%Username% on %Computername%" rather than the actual names. My manager would also prefer to be able to rename the current string from LocalizedString to LocalizedString.old before creating the new object (I am not sure why) The script we have is: set objshell = CreateObject("WScript.Shell") 'On Error Resume Next Regkey = objshell.regread("HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\LocalizedString") If RegKey = "@%SystemRoot%\system32\SHELL32.dll,-9216" then Newkey = "%Username% on %Computername%" Set Sh = CreateObject("WScript.Shell") key1 = "HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\LocalizedString" server1 = Newkey Sh.RegWrite key1, Server1 End If How do we also make it change to ann Expanded string? I did try adding the script below which I found on one of the websites but it shows a "divide by zero" error: ' Create an expanded string and give it a value strValueName = "Expanded String Value Name" strValue = "%ExpandedStringValue%" ' Write expanded string value Return = objReg.SetExpandedStringValue(HKEY_CLASSES_ROOT\CLSID\LocalizedString,strValueName,strValue) If (Return = 0) And (Err.Number = 0) Then Wscript.Echo "SetExpandedStringValue succeeded" Else Wscript.Echo _ "SetExpandedStringValue failed. Error = " & Err.Number End If Tag: popup email window Tag: 215802
  - 3
    - print multiple files when printer requires password I need to print all the files in one folder. I came up with the following vbs code: set shApp = createobject("shell.application") set shFolder = shApp.namespace("C:myfolder\") set shItems = shFolder.Items() for each shItem in shItems shItem.invokeverb "&Print" next The problem is I am printing to a network printer and for every file sent to print, a dialog box pops up, with a choice of two radio buttons ("password" or "billing id") and a text box in which to enter my password. I have to do the following 3 steps for each file: 1) hit the "tab" key (to go from the "password" radio button that is already selected") to the text box; 2) enter my password in the text box; 3) hit the "enter" key Is there a way to automatize this? Unfortunately I do not know the variables names associated with the dialog box that pops up. Thanks! Tag: popup email window Tag: 215800
  - 4
    - Adjusting Master Volume Level (sndvol32)... Hello, I am trying to develop a script that will adjust the master volume control on a computer. The best example that I have been able to find is the following: Set oShell=CreateObject("Wscript.Shell") iWait = 1000 oShell.Run "sndvol32" WScript.Sleep iWait oShell.AppActivate "Volume Control" WScript.Sleep iWait oShell.SendKeys("{TAB}{END}") WScript.Sleep (iWait/2) oShell.SendKeys("{PGUP}") WScript.Sleep (iWait/2) oShell.AppActivate "Volume Control" oShell.SendKeys "%{F4}" Is there something that like an ActiveX object or WMI control that I can use instead where I can set the volume=10 or 10%? TIA... Tag: popup email window Tag: 215795
  - 5
    - Register dll Hi All, I know how to register a .dll on my own PC as followes : Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.Run "regsvr32.exe c:\windows\system32\whatever.dll" But how do i register a .dll on another PC, i mean i want to run the script on my PC so it will connect to the listed PC/PC's and register a dll on them ? Thanks Tag: popup email window Tag: 215789
  - 6
    - Script to automate FTP session, copy folders based on timestamp I am a little stuck. I have found, for the most part, how to create a VBS script to login to a remote FTP server. The hard part has been finding scripting that works to copy *folders* based on their timestamp (within last 15 minutes). Most of the scripting I am finding is only for copying files based on timestamp which will not really work for this situation. I am also a little unsure about how to combine these two scripts since I am assuming different FTP commands must be used while trying to copy folders from the remote FTP to a local server. Does anyone have any ideas or suggestions? Thanks, Tag: popup email window Tag: 215783
  - 7
    - VBS and IsNTAdmin 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 Tag: popup email window Tag: 215782
  - 8
    - 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: popup email window Tag: 215776
  - 9
    - [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: popup email window Tag: 215775
  - 10
    - 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: popup email window Tag: 215772
  - 11
    - 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: popup email window Tag: 215770
  - 12
    - 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: popup email window Tag: 215765
  - 13
    - 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: popup email window Tag: 215763
  - 14
    - 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: popup email window Tag: 215751
  - 15
    - 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: popup email window Tag: 215745
  - 16
    - 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: popup email window Tag: 215743
  - 17
    - 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: popup email window Tag: 215739
  - 18
    - 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: popup email window Tag: 215727
  - 19
    - 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: popup email window Tag: 215719
  - 20
    - 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: popup email window Tag: 215715
  - 21
    - 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: popup email window Tag: 215714
  - 22
    - 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: popup email window Tag: 215712
  - 23
    - 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: popup email window Tag: 215701
  - 24
    - 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: popup email window Tag: 215697
  - 25
    - 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: popup email window Tag: 215689

could i get a script to popup the default email client and populate the To:
address with a default addy?

tia,
mcnewsxp

Re: popup email window by Tom

Tom
Fri Mar 07 13:22:10 CST 2008

On Mar 7, 1:15 pm, "mcnewsxp" <mcour...@mindspring.com> wrote:
> could i get a script to popup the default email client and populate the To:
> address with a default addy?
>
> tia,
> mcnewsxp

This worked for me ...

sTO = "tglbatch@cox.net"
sCmd = "%comspec% /c start mailto:"
createobject("wscript.shell").run sCmd & sTO, 0

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/

Top