Briefcase update

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
    - parsing IE instances Hello, I am beginner in VBScript programming and i need a VBScript code which parses the IE instances in order to get their HTML content. I know that i can get the HTML code from a Web Browser or IE object with "IEObj.Document.Body.InnerHTML", but i don't know if i can connect to existing IE instances in order to read the HTML code of the current page. I appreciate any helpful information. Regards, Cretu Lucian Tag: Briefcase update Tag: 158439
  - 2
    - RegObj.dll - Probs with Remote Reg Update in BINARY Hi Everyone, Just wondering if anyone has any experience with RegObj.dll .. Looks like a great tool, but has pretty poor documentation .. Anyway ... I'm trying to do this: Set objRegObj = WScript.CreateObject("RegObj.Registry") Set objRemoteRegistry = objRegObj.RemoteRegistry("PC_NAME_HERE") Set objValue = objRemoteRegistry.RegKeyFromString("\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft") DataValue = 101010101 objValue.Values.Add "a", DataValue, 3 ' 1 = REG_SZ, 2 = REG_EXPAND_SZ, 3 = Binary ... However, no matter what format I set DataValue as, I keep getting a "Type Mismatch" error. I can get String data to be written without any problem, just not BINARY data. I've put in the following different data formats: DataValue = "10101" DataValue = 10101 DataValue = Array("1","0","1","0") DataValue = Array(1,0,1,0) DataValue = &H800 DataValue = array(&H800, &H800) but NOTHING seems to work .. Anyway, thanks for any help you can offer .. Cheers' JediK9 Tag: Briefcase update Tag: 158438
  - 3
    - Windows 2003 Domain - Denying users the ability to stop eTrust Antivirus services on their workstations Hi guys, I have a problem and would love your help. Users have been added to the Power Users Group in a Windows 2003 Domain. They all run eTrust InoculateT Antivirus. When you log on as one of these users, you are able to stop the antivirus services. Is there any way to deny them the ability to stop these 2 services? Thanks. Simon -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: Briefcase update Tag: 158434
  - 4
    - Remove a menu from the desktop right click menu Hi guys, I have a specific need to remove a few entries when I right click on the desktop, in an area of free space, and the context menu comes up. One of these is 'Graphics Options' for the video card. I dont know how or where to find out how to remove this option from the context menu. Any help greatly appreciated. Simon -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: Briefcase update Tag: 158433
  - 5
    - Windows XP Start Menu Hi guys, Im trying to find out if there is a way in vbscipt to add the computer name to the top portion of the XP start Menu. That is: When you click on the start button for Windows XP and the fly up shows your username at the top in blue, can you add the computer name next to your user name there somehow with vbscipt? Any help greatly appreciated. Simon -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: Briefcase update Tag: 158432
  - 6
    - How to invoke a function in ActiveX control ? Hi: New to Scripting. I have an ActiveX control (PopReporter.Dll), in which there are a few functions defined. How to invoke one of the functions in using VB Script? I know the ClassID of the control and the function name: int GetTotal (char* pszCityName). One more question, the control does not show up in the ActiveX Control Test Center (Insert New object), even though it has been registered (it shows up in the OLE object Viewer). Thanks in advance for any input. Polaris Tag: Briefcase update Tag: 158431
  - 7
    - Help with string breakup I am bouncing on the upper limit up with sending emails to smtp server at about 300, I do not whant to increase amount of email messages on server config. I have a vbscript that pulls emails address's from an sqldb as a concatinated string ie. fred@address.com;jack@address.com;bill@address.com;dan@address.com etc.. I need to break up thatstring into blocks of 100 so that i can send multiple emails instead of 500+ address in BCC field Anyone have an idea whats the best way to do it. Don Tag: Briefcase update Tag: 158416
  - 8
    - dictionary Add and recordsets I'm looking up employee data and get a record set named assoc_r Call GetAssociateDataByNameCheckBoth(Connection, assoc_rs Then I want to put this data in a hash (scripting.dictionary) and pass the hash to a generic sub that adds a record to a databas Call RecordHash.Add ("ID",assoc_rs("ID") The problem is that it seems the actual recordset is put in the hash not the value of the field. If I close assoc_rs bad things happen in the Sub I pass the hash to I tried assoc_rs.fields("ID") to no avail I don't want to keep the recordset open and I don't want to create a temp var such a t=assoc_rs("ID" Call RecordHash.Add ("ID",t Tag: Briefcase update Tag: 158413
  - 9
    - how to limit string length with RegExp? Greetings, I need to limit a string length between 1 to 2 characters. For the pattern I have ... RE.IgnoreCase RE.Pattern = "[a-z]{2}" I want to capture like "a" or "aa" but not "aaa", or capture "ab" ok, but not "abc" (more than 2 chars) or "abb", etc. I can never figure out how to limit the number of chars occuring in the pattern. Any suggestions appreciated how to be able to limit the length of the string between 1 to 2 chars (or just what the rule is for limiting how many chars can occur in a pattern). Thanks, Steve Tag: Briefcase update Tag: 158410
  - 10
    - Outlook server setting We will be migrating from exchange 5.5 to 2003 in about 10 days. We're toying with different solutions to update all (600) clients' outlook server setting via domain logon script which will then launch a .bat file. The only change that needs to be made on the clients config is the exchange server name in outlook when they login to the domain. If the script could actually check entry first and only make the change if the old server name present. Thanks for any advice. I dabble in different scripting but am far from savvy enough to handle this one. tab Tag: Briefcase update Tag: 158408
  - 11
    - send a string to the clipboard? Is there a way to send text to the clipboard using a vb script? I want to be able to send a string to the clipboard so it will be available once the script is done running. Thanks. Tag: Briefcase update Tag: 158403
  - 12
    - Coping files Hi all, sorry for the repeat, but the originals have fallen off my news server. I am moving some VB Scripts over to a WinXP machine and have found they have stopped working. I had some code (supplied from this news group some time back) that gave me a copy dialog box when copying files. Under XP this code no longer works. It does not copy anything. Can some KIND soul give me something that will work under XP. The code I have been using (in part) is; Const FOF_SIMPLEPROGRESS = "&H400" Set fso = CreateObject("Scripting.FileSystemObject") Set oShell = WScript.CreateObject("Shell.Application") Destination="c:\test" : source="c:\temp\*.*" Set DFldr = oShell.NameSpace(Destination) DFldr.CopyHere source, FOF_SIMPLEPROGRESS I have also been supplied with the FOF_SIMPLEPROGRESS value of 256 (&H100) but that did not work under XP either. Cheers, Bill. Tag: Briefcase update Tag: 158399
  - 13
    - VBScript & ADO Hi all, Is it possible to run a VBScript client side with access to an Access Database? If so where should I look to learn the syntax. I can use ADO in VBScript through ASP, however I want to develop a small script to run from the desktop. Cheers, Bill. Tag: Briefcase update Tag: 158389
  - 14
    - Unique Browser ID I'm working on a web app that will be run on a server farm- so session level variables are out. I keep running into a need for a way to uniquely identify the user's browser "session" (i.e. a value that changes whenever the user browses to the site through a new browser window). I'm guessing the browser's process ID would work in combination with his IP. Is there a way to acquire such a value through script, either from the host or the client side? Tag: Briefcase update Tag: 158383
  - 15
    - What does this script say? I copied at : http://www.devguru.com/Technologies/wsh/quickref/wscript_application.html I want to understand what it is trying to do. When I run the script, the msg said "They are equal". If somebody can explain how to make it say "they are different", I might understand better. ================================================ Set objWScript = WScript.Application If WScript = objWScript Then WScript.Echo "They're equal" Else WScript.Echo "They're different" End If -- alan Tag: Briefcase update Tag: 158381
  - 16
    - Solution: Active Directory, create User, with mailbox and SMTP Address from Exel file Hi, I'm working in a rather big society in Italy, and some days ago my boss ask me for a script that add a user, insert into a group, create his mailbox, add an SMTP address and let the user use the mailbox immediately. After two days of work, searching the internet and on some books, I completed it, the script it's fully working now, it's very FAR from being perfect, but it also log everything in a file "output.txt". If you want to use this script "as is" you have only to change the initial variabiles and create data file INPUT.XLS as: name,surname,password,group,accountName,smtpAddress in each column. you can omit smtpAddress . To use it you need a Windows XP/2000/2003 workstation in the destination domain, Excel installed and you have to log as domain Admin I hope it can be useful to somebody, sorry for the comments and the log in italian. Davidhoff ====================START: CreateUser-Mailbox.vbs================= 'Definizione Variabili Const NomeFile = "INPUT.XLS" 'Nome del file Exel di input Const strOutputFile="output.txt" 'Nome del file di output/Log DomainNameDc = "DC=domain,DC=com" ServerDC = "DomainControllerName" 'Nome del domain controller strDomain="domain.com" 'Dominio dove creare gli account 'Dati di Exchange per la creazione della MailBox strSmtpDomain = "@domain.it" 'Dominio SMTP per la creazione dell'SMTP Address 'nome.cognome@...' strMailboxStore = "Mailbox Store (ExchangeMachineName)" 'Nome del Mailbox store dove creare la mailbox strStorageGroup = "First Storage Group" 'Nome dello Storage Group strExchangeServer = "ExchangeMachineName" 'Nome del server di Exchange strAdministrativeGroup = "First Administrative Group" 'Nome dell'Administrative Group strExchangeOrg = "ExchangeORG" 'Nome dell'organizzazione Exchange Public UtenteNonCreato Public Errati Public DominioClient Public DomainController Public ServerDC Public DomainNameDc Public strAccountDomain strAccountDomain = "@" & strDomain ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' ----------------- main() ------------------------ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Const OPEN_FILE_FOR_APPENDING = 8 DIM Totale Errati=0 Totale=0 Mailbox=0 LogMessage " " Logmessage ">==== Inizio esecuzione dello script: " & Now() 'Seleziona il tipo di comando da inviare Wscript.Echo( "Script per la creazione di utenti all'interno del dominio '" & strDomain & "'" & vbCrLf _ & "File di input: " & NomeFile & vbCRLF & vbCrLf & "Digita 'ok' per continuare" & vbCrLf ) WScript.StdOut.Write(">") WScript.StdIn.Read(0) strOk = WScript.StdIn.ReadLine() If (UCase(strOK) <> "OK") Then Logmessage ">==== Esecuzione annullata: " & Now() WScript.Quit End If LogMessage "Esecuzione su Domain Controller: " & ServerDC set ofs=wscript.createobject("scripting.FileSystemObject") strInputFile = ofs.GetAbsolutePathName(NomeFile) LogMessage "Utilizzo file di input: " & strInputFile LogMessage " " on error resume Next FindDomain 'Open input file 'Start EXCEL and display it to the user Set oXL = WScript.CreateObject("EXCEL.application") 'oXL.Visible = True 'Open the workbook passed in the command line oXL.workbooks.open strInputFile 'Activate the Add page oXL.sheets("Add").Activate 'Put the cursor in the starting cell oXL.ActiveSheet.range("A1").Activate 'Step to the next row 'oXL.activecell.offset(1, 0).Activate 'Until we run out of rows Do While oXL.activecell.Value <> "" 'Lettura delle celle nella riga di input strName = TRIM(oXL.activecell.offset(0, 0).Value) strSurname = TRIM(oXL.activecell.offset(0, 1).Value) strPassword = TRIM(oXL.activecell.offset(0, 2).Value) strGroup = TRIM(oXL.activecell.offset(0, 3).Value) strAccount = Trim(oXL.activecell.offset(0, 4).Value) strSmtpAddress1 = Trim(oXL.activecell.offset(0, 5).Value) Totale= Totale + 1 Wscript.Echo (vbCrLf & "Creazione Utente '" & strName & " " & strSurname & "'") LogMessage " " LogMessage "Creazione Utente " & strName & " " & strSurname CreateUser strName, strSurname, strAccount, strPassword, strGroup, strSmtpAddress1 'Step to the next user... oXL.activecell.offset(1, 0).Activate Loop LogMessage " " LogMessage "Utenti totali: " & totale LogMessage "Utenti inseriti correttamente: " & totale - Errati LogMessage "MailBox create: " & Mailbox 'Done. close excel spreadsheet Wscript.Echo(vbCrLf & "Fine esecuzione." & vbCrLf & vbCrLf & "Utenti errati: " & Errati & vbCrLf _ & "Utenti inseriti: " & Totale - Errati & vbCrLf _ & "MailBox create: " & Mailbox) Logmessage "<==== Termine esecuzione dello script: " & Now() oXL.application.quit Set objFileSystem = Nothing 'Definizione Funzioni '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Sub FindDomain () '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub FindDomain () Set rootDSE = GetObject("LDAP://RootDSE") DominioClient = rootDSE.Get("defaultNamingContext") ParzDomainController = Replace(DominioClient,"DC=",".") DomainController = ServerDC & Replace(ParzDomainController ,",","") End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Sub CreateUser () '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub CreateUser (strName,strsurname,strAccount,strPassword,strGroup,strSmtpAddress1) Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 DomainName = "DC=" & ServerDC & DomainNameDC DisplayName = strName & " " & strSurname UtenteNonCreato=0 on error resume Next account = strAccount IF Searchuser (account) = 0 Then Set objOU = GetObject("LDAP://cn=users,"& DomainNameDC) If Err.Number <> 0 Then Wscript.Echo("*** '"& DisplayName &"'" & " - Utente non creato. Riferimenti errati. Errore=" & CStr(Err.Number) & _ " " & CStr(Err.Description)) LogMessage "*** " & DisplayName & " - Utente non creato. Riferimenti errati. Errore=" & CStr(Err.Number) & _ " " & CStr(Err.Description) UtenteNonCreato=1 Err.Clear Errati=Errati+1 Exit Sub End If 'Cerca il gruppo a cui aggiungere l'utente. Se non esiste non crea l'utente Set objGroup = GetObject("LDAP://cn=" & strGroup & ",cn=users," & DomainNameDC) If Err.Number <> 0 Then Wscript.Echo("*** '"& DisplayName &"'" & " - Utente non creato. Gruppo non esistente: '" & strGroup & "'" & vbCrLf _ & "Errore= " & CStr(Err.Number) & " " & CStr(Err.Description)) LogMessage "*** " & DisplayName & " - Utente non creato. Gruppo non esistente: " & strGroup & vbCrLf _ & "Errore= " & CStr(Err.Number) & " " & CStr(Err.Description) UtenteNonCreato=1 Err.Clear Errati=Errati+1 Exit Sub End If Set objUser = objOU.Create("User", "cn=" & strName & " " & strsurname) objUser.Put "sAMAccountName", account objUser.Put "givenname", strName objUser.Put "sn", strSurname objUser.Put "displayName", DisplayName objUser.Put "userPrincipalName", account & strAccountDomain objUser.SetInfo objUser.SetPassword strPassword objUser.AccountDisabled = False objUser.SetInfo 'Imposta 'password never expire' objUser.userAccountControl = objUser.userAccountControl Or ADS_UF_DONT_EXPIRE_PASSWD objUser.SetInfo 'Aggiunge l'utente al gruppo objGroup.Add(objUser.AdsPath) objGroup.SetInfo Set objGroup = Nothing Wscript.Echo("Creato utente: '" & DisplayName & "' - Group= '" & strGroup & "'") LogMessage "Creato utente: '" & DisplayName & "' - Group= '" & strGroup & "'" ' Crea la MailBox strUrL = "LDAP://CN="& strMailboxStore &",CN=" & strStorageGroup & ",CN=InformationStore," & _ "CN=" & strExchangeServer & ",CN=Servers,CN=" & strAdministrativeGroup & ",CN=Administrative Groups," & _ "CN=" & strExchangeOrg & ",CN=Microsoft Exchange,CN=Services,CN=Configuration," & DomainNameDc TimeInterval = 10000 NumofTry = 9 iCounter = 0 ' A seconda della grandezza della rete, l'aggiornamento del Directory potrebbe impiegare alcuni secondi ' Proviamo a creare la mailbox con tentativi ogni 10 secondi per 1,5 minuti Do While iCounter < NumofTry ' Crea la mailbox all'interno del MailBox Store bContinue = CreateNewUserMailbox(objUser, strUrL, DisplayName) ' Continua se CreateNewUserMailbox ha successo If bContinue Then Exit Do iCounter = iCounter + 1 ' attende prima di riprovare wscript.sleep(TimeInterval) Loop ' Se non riesce a creare la mailbox da errore If iCounter >= NumofTry Then wscript.echo "*** Errore nella creazione della mailbox: " & DisplayName & "." LogMessage "*** " & DisplayName & " - MailBox non creata. " & vbCrLf _ & "Errore= " & CStr(Err.Number) & " " & CStr(Err.Description) bContinue = False Exit Sub End If If strSmtpAddress1 <> "" Then 'crea l'alias nome.cognome@domain strSmtpAddress2 = Lcase(Replace(strName," ","") & "." & Replace(strsurname," ","") & strSmtpDomain) AddSmtpAddress objUser,strSmtpAddress1,strSmtpAddress2 Set objUser = Nothing End If Else WScript.Echo("*** '" & DisplayName & "'" & " - Utente non creato. Account '" & account & "' già esistente.") LogMessage "*** " & DisplayName & " - Utente non creato. Account " & account & " già esistente." Errati=Errati+1 UtenteNonCreato=1 end IF End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Sub CreateNewUserMailbox () '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function CreateNewUserMailbox(objUser, strLDAPUrl,strName) On Error Resume Next CreateNewUserMailbox = False ' Variables Dim objMailbox 'As CDOEXM.IMailboxStore ' Get the IMailboxStore interface. Set objMailbox = objUser ' Create a mailbox for the recipient on the specified Exchange server. objMailbox.CreateMailbox strLDAPUrl 'Enable immediate-logon for the user. objUser.Put "msExchUserAccountControl", 2 ' Save changes to the user object. objUser.SetInfo ' Error handling. If Err.Number <> 0 Then WScript.Echo("*** '"& strName &"'" & " - MailBox non creata. " & vbCrLf _ & "Errore= " & CStr(Err.Number) & " " & CStr(Err.Description)) LogMessage "*** " & strName & " - MailBox non creata. " & vbCrLf _ & "Errore= " & CStr(Err.Number) & " " & CStr(Err.Description) ' Clean up. Set objUser = Nothing Set objMailbox = Nothing CreateNewUserMailbox = False Exit Function End If ' Clean up. Set objMailbox = Nothing WScript.Echo("'" + strName + "' Mailbox creata.") LogMessage strName & " - MailBox creata. " & vbCrLf Mailbox = mailbox + 1 CreateNewUserMailbox = True End Function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Sub AddSmtpAddress () '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function AddSmtpAddress(objUser,strSmtpAddress1,strSmtpAddress2) Const ADS_PROPERTY_APPEND = 3 '// This adds a non-primary address. for primary use "SMTP:" objUser.PutEx ADS_PROPERTY_APPEND, "proxyAddresses", array ("smtp:" & strSmtpAddress1) objUser.SetInfo LogMessage "Aggiunto SMTP Address: " & strSmtpAddress1 WScript.Echo("Aggiunto SMTP Address: " & strSmtpAddress1) objUser.PutEx ADS_PROPERTY_APPEND, "proxyAddresses", array ("smtp:" & strSmtpAddress2) objUser.SetInfo 'LogMessage "Aggiunto SMTP Address: " & strSmtpAddress2 'WScript.Echo("Aggiunto SMTP Address: " & strSmtpAddress2) End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Sub Searchuser () ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Searchuser (strSearchUser) strConnect = "LDAP://" & DomainController set oContainer = GetObject(strConnect) searchpath = oContainer.ADsPath set oConnect = CreateObject("ADODB.Connection") set oCommand = CreateObject("ADODB.Command") 'apre la connessione oConnect.Provider = "ADsDSOObject" oConnect.Open "Active Directory Provider" Set oCommand.ActiveConnection = oConnect strCN = strSearchUser oCommand.CommandText = "SELECT samAccountName FROM '" & searchpath & "' WHERE objectClass='user' AND samAccountName = '" & strSearchUser & "'" set rs = oCommand.Execute 'scorre il record set if rs.EOF and rs.BOF then Searchuser = 0 ' Crea l'utente else Searchuser = 1 'non crea l'utente end if end Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Sub LogMessage() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub LogMessage(Msg) 'Apre il file di scrittura Set objFileSystem = CreateObject("Scripting.fileSystemObject") Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, OPEN_FILE_FOR_APPENDING,True) 'WScript.Echo msg objOutputFile.WriteLine msg objOutputFile.Close End Sub ====================END: CreateUser-Mailbox.vbs================= Tag: Briefcase update Tag: 158380
  - 17
    - ADSI SID-type attribute write Hello everybody I'm not still able to fill one attribute of SID-type when creating new user. (it's msExchMasterAccountSID). Is that any possibility to fill SID-type attribute using VBScript, or I have to use ldf file (as in http://support.microsoft.com/default.aspx?scid=kb;EN-US;278966 Thanx Tag: Briefcase update Tag: 158378
  - 18
    - Msgbox or email Notification Function Does anyone know if its possible to include something in the script so that the script can determine if it was started by a user or the sceduled task? The reason for this is that I would like to use MSGBOX if the user manually started the script to display a notification, and email if the script was started from a sceduled task event. TIA, Colin Tag: Briefcase update Tag: 158376
  - 19
    - ADO: How to create database & table? 1. I know how to create *.mdb in VB using DAO. Is it possible to create *.mdb in VBScript? 2. Is it possible to create a table withing an existing database *.mdb in VBScript WITHOUT using SQL statement "create table ..."? 3. Is it possible to copy structure of an existing table in a database *.mdb in VBScript WITHOUT using SQL statement "select * into newtable from oldtable ..."? Tag: Briefcase update Tag: 158367
  - 20
    - how to mail merge with word perfect Is there a way to open up a Word Perfect object and perform a mail merge using script? I can do this with MS Word with the following code: Dim objWord, objDoc Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(TemplatePath) objDoc.MailMerge.OpenDataSource DataPath objDoc.MailMerge.Execute objDoc.Close False objWord.Visible = True Is there a 'Word Perfect' equivalent to the above code? Any clues would be appreciated. Thanks. Tag: Briefcase update Tag: 158363
  - 21
    - script to enamurate os and installed MS Office version hello, I need a script that would enumerate OS and Installed software on member computers and move computer accounts with specified software to specified OU. Thank you! Eimis Tag: Briefcase update Tag: 158357
  - 22
    - Getting the entire Internet Explorer history Quick question: what would the code look like to grab the entire contents of Internet Explorer's history? Thanks! Tag: Briefcase update Tag: 158353
  - 23
    - Redundency of IsNull(Trim(myvar)) ? Hi, I am wondering if the following two statements always yield the same results: 1) If IsNull(Trim(myVariable)) Then [...] 2) If IsNull(myVariable) Then [...] Basically, if myVariable is Null, then won't Trim(myVariable) also be Null? Are there any instances when I would want to leave the Trim() function in the above statement? Also, are the answers to these questions dependent on which VBA platform is used (i.e. VB6 vs. VBScript)? Thanks in advance! JC Tag: Briefcase update Tag: 158352
  - 24
    - Newbie question - printer selection from HTML If I want to make sure an HTML document gets printed to a specific MS Windows printer, no matter what the default printer is, can I? Basically (rewording), is it possible to select a known MS Windows printer via VBScript in an HTML document? If so, how? As added explanation, the HTML document is being created on the fly from information in a database and the VBScript would be included in the HTML code. The purpose for the document is to print generated information to a specific printer, no matter what printer is default. The entire process is automated: the document generation, printer selection, form printing and document closing. Best yet, the entire process should be done minimized to the taskbar so the user is not watching a lot of stuff show up on his desktop and then disappear! I am not a VB programmer, nor into VBScript. I am especially not into ActiveX. I am a long time programmer with a certain legacy database that is now trying to co-exist (the database that is) with current technology. Therefore, your answers need to be explicit! TIA Tag: Briefcase update Tag: 158351
  - 25
    - Getting Html Field to Display as a Link Why won't this display as a link when going from an access table (field defined as html) on an asp page <TD><%Response.Write rsPeople("EMailAddr")%><a href="mailto:<%=rsPeople("EMailAddr")%>"></a></TD></TR Thanx in Advanc Ton Tag: Briefcase update Tag: 158346
- Next
  - 1
    - Backup up system state with NTbackup through a VB script (I need error checking) I am currently backing the system state on various machines with ntbackup that is launched through a VB script. The script also sends e-mails when its completed. What I need to do is add code that does error checking for when ntbackup fails.Instead of sending an e-mail when it completes I need to change it to send one when it fails. Does anyone have any code out there that does that? Any help would be appreciated. Thanks Robert Tag: Briefcase update Tag: 158341
  - 2
    - Connect to E-Mail Address in Database Field I have E-Mail addresses in a field in a table. I can get them to display is ASP, But I cannot go to the address it displays. I tried to re-write it in HTML but it would not connect to the server to display the names and corresponding E-Mail addresses This is the current code I have at this minute <%Do Until rsSchools.EOF%><TR><TD NoWrap><%Response.Write rsSchools("Educator")%></TD><TD NoWrap><%Response.Write rsSchools("PriPos")%></TD><TD NoWrap><%Response.Write rsSchools("SecPos")%></TD><TD NoWrap><%Response.Write rsSchools("PhoneNo")%></TD><TD><%Response.Write rsSchools("EMailAddrH")%><a href="mailto:<%=rsSchools("EMailAddrH")%>"></a></TD></TR><%rsSchools.MoveNext%><%Loop% Does Anyone know what I need to change to make it work I am not a Web Page developer, I do everything in Assembler so object oriented programming is strange to mei Tag: Briefcase update Tag: 158339
  - 3
    - logon with another account i have logoned on a remote computer \\ybserver (win200) using username 8604 now i want to logon on the same computer with username charney i wouldn't like to logoff win200 how can i make it Tag: Briefcase update Tag: 158337
  - 4
    - Backup up system state with NTbackup through a VB script (I need error checking) I am currently backing the system state on various machines with ntbackup that is launched through a VB script. The script also sends e-mails when its completed. What I need to do is add code that does error checking for when ntbackup fails.Instead of sending an e-mail when it completes I need to change it to send one when it fails. Does anyone have any code out there that does that? Any help would be appreciated. Thanks Robert Tag: Briefcase update Tag: 158335
  - 5
    - apostrophe in file name How can I open a file that has an apostrophe or other strange characters in the filename? When I run the script below it works until it hits a file name that has an apostrophe in it. I've tried putting quotes around it but that didn't work? Will I need to replace apostrophes with the chr() in the string? Thank you. 'Jason 'Last accessed script ' 'Description: I want to make a script that will tell me the last accessed date on 'a file. Eventually I want to make a script that will check files for last access 'and delete them if they are older than a certain time amount. ' ' 'Setting constants Set fs = CreateObject("Scripting.FileSystemObject") Set filelist = fs.OpenTextFile(wscript.arguments(0),1) StaleTime = 14 'two weeks wscript.echo "These files should be deleted:" While Not filelist.AtEndOfStream filenym = filelist.ReadLine wscript.echo filenym If not fs.FileExists(filenym) then wscript.echo "File " & filenym & " does not exist or invalid name." else Set f = fs.GetFile(filenym) TimeInterval = now() - f.DateLastAccessed if TimeInterval > StaleTime then wscript.echo "Time since " & f.name & " last accessed: " & TimeInterval end if end if Set f = nothing Wend filelist.close 'closing it all out 'Set f = nothing set fs = nothing Tag: Briefcase update Tag: 158332
  - 6
    - is that you zac? lets get together *SEXY* *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Briefcase update Tag: 158323
  - 7
    - vbs and automated FTP Using VBscript how can I do the following Get a list of all the files in a particular directory on a FTP site? -J P.S. I basically want a script that can check to see if a particular file exists on a FTP site and if not then upload but if it does exist then I DO NOT want to overwrite it. Tag: Briefcase update Tag: 158320
  - 8
    - Service stop and restarting: I created a Sub to stop and start a service. However it seems that the service sometimes doe's not start. What is the bet way of performing this? Thank you in advance... ******************************** VBS Example ******************************** Dim strComputer, strService, sMode strComputer = "AD0" strService = "SMTPSS" sMode = "1" ss_Srvc sMode sMode = "" ss_Srvc sMode Sub ss_Srvc(sMode) Dim sc Set sc = GetObject("WinNT://" & strComputer & "/" & strService) If sMode = "1" and sc.Status <> 1 Then sc.Stop() WScript.Sleep 6000 Do Until sc.Status = 1 WScript.Sleep 3000 Loop sSta = sc.Status End If If sMode = "" and sc.Status <> 4 Then sc.Start() WScript.Sleep 3000 Do Until sc.Status = 4 WScript.Sleep 3000 Loop sSta = sc.Status End If 'Service Status Codes '1 = Stopped or disabled, 4 = Started, 7 = Paused If sSta = 1 Then oShell.LogEvent 4, "Security Service Stopped" Else oShell.LogEvent 4, "Security Service Started" End If Set sc = Nothing End Sub Tag: Briefcase update Tag: 158316
  - 9
    - Windows Script Host Does WSH also read jscript files besides vbscript? I understand that it reads .wsf files, too for advanced users. I am now concerned with vbscripts. -- alan Tag: Briefcase update Tag: 158311
  - 10
    - How to open a text file in a share mode I've declared an odbc to a text file with the "Microsoft text driver", From an asp page am opening that file an doing some search ont it the problem, is when I try to open two pages the same time, it told me that the text file is already open by another user How can I declare the connection to the file as a share connection in order to allow my numerous users to do their searches in the same time thanks Tag: Briefcase update Tag: 158303
  - 11
    - Inventory Script I would like to let people know of my Sourceforge Project. I have received help at various times in the past from people on this newsgroup - thankyou. Without your help, this would not have been possible. My project runs a vb script, outputs to MySQL (or a file). The results can be displayed in a web page. Needed are MySQL, PHP, WMI, VBScript.... It is only v0.2, so there is still some work left to be done... http://winventory.sourceforge.net Tag: Briefcase update Tag: 158302
  - 12
    - Terminal Services Profile Path update? I'm doing a phased migration for all my profiles from one storage platform to another. My active directory paths are all UNCs and need to be changed in bulk. Does anyone have a vbscript to change the profile path along the lines of a search and replace? Thanks! Rick Slan Tag: Briefcase update Tag: 158300
  - 13
    - Please help: Getting REGISTRY info w/ StdRegProv I'm building a script for software inventory purposes. I've use Torgeir's script to get "DisplayName"s from the registry with no problems and needed to get more info so, after a lot of digging, the resulting script is below. The output is confusing me. I'm thinking that 'aryValueNames' and 'aryValueTypes' are either not being created properly or not being read properly (out of sync). I'm not exactly sure what is going on as I am fairly new to vbscript and wmi. Below the script is a small portion of the results. Any help is much appreciated, THANKS! UNoHu '=== The Script === sComputerName = "." ' use "." for local computer Set oFSO = CreateObject("Scripting.FileSystemObject") Set WSHShell = CreateObject("WScript.Shell") Dim DUMPFILE, EXPORTFILE, DUMPVIEW EXPORTFILE = "C:\InstalledApps.txt" Set DUMPFILE = oFSO.CreateTextFile(EXPORTFILE, True) DUMPFILE.Write InstalledApplications(sComputerName) WScript.Echo "DONE!" Function InstalledApplications(node) Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Const REG_SZ = 1 Const REG_EXPAND_SZ = 2 Const REG_BINARY = 3 Const REG_DWORD = 4 Const REG_MULTI_SZ = 7 Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & node & "/root/default:StdRegProv") sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" oRegistry.EnumKey HKLM, sBaseKey, arySubKeys For Each sKey in arySubKeys oRegistry.EnumValues HKLM, sBaseKey & sKey, aryValueNames, aryValueTypes If IsArray(aryValueNames) = "True" Then InstalledApplications = InstalledApplications & "Key: " & sKey & vbCrLf For Each iValueName in aryValueNames For i=0 to UBound(aryValueTypes) Select Case aryValueTypes(i) Case REG_SZ oRegistry.GetStringValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_SZ: " & sValue Case REG_EXPAND_SZ oRegistry.GetExpandedStringValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_EXPAND_SZ: " & sValue Case REG_BINARY oRegistry.GetBinaryValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_BINARY: " & sValue Case REG_DWORD oRegistry.GetDWORDValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_DWORD: " & sValue Case REG_MULTI_SZ oRegistry.GetMultiStringValue HKLM, sBaseKey & sKey, iValueName, sValue sValue = "REG_MULTI_SZ: " & sValue End Select Next InstalledApplications = InstalledApplications & iValueName & ": " & sValue & vbCrLf Next End If Next End Function === The Results === Key: KB810217 DisplayName: REG_SZ: Windows XP Hotfix - KB810217 UninstallString: REG_SZ: C:\WINDOWS\$NtUninstallKB810217$\spuninst\spuninst.exe TSAware: REG_SZ: <-----------------should be REG_DWORD: 1 NoModify: REG_SZ: <-----------------should be REG_DWORD: 1 Publisher: REG_SZ: Microsoft Corporation NoRepair: REG_SZ: <-----------------should be REG_DWORD: 1 HelpLink: REG_SZ: http://support.microsoft.com?kbid=810217 DisplayVersion: REG_SZ: 20030806.140405 Key: KB810243 DisplayName: REG_DWORD: <--------should be REG_SZ: Windows XP Hotfix (SP2) [See KB810243 for more information] UninstallString: REG_DWORD: <------should be REG_SZ: TSAware: REG_DWORD: 1 NoModify: REG_DWORD: 1 Publisher: REG_DWORD: <-----should be REG_SZ: Microsoft Corporation NoRepair: REG_DWORD: 1 NoRemove: REG_DWORD: 1 Key: KB817778 DisplayName: REG_DWORD: <---should be REG_SZ: Advanced Networking Pack for Windows XP UninstallString: REG_DWORD: <---should be REG_SZ: C:\WINDOWS\$NtUninstallKB817778$\spuninst\spuninst.exe TSAware: REG_DWORD: 1 NoModify: REG_DWORD: 1 Publisher: REG_DWORD: <-----should be REG_SZ: Microsoft Corporation NoRepair: REG_DWORD: 1 IPv6: REG_DWORD: 0 Tag: Briefcase update Tag: 158297
  - 14
    - Updating Binary Registry Value I am trying to update the User Name info for MS Office but am getting an error message when I try to update the field which is a Binary type value This is the script I am trying to use Set WshShell = WScript.CreateObject("WScript.Shell") arrValue = CreateValue("User Name") WshShell.RegWrite "HKCU\Software\Microsoft\Office\10.0\Common" _ & "\UserInfo\UserName", arrValue, "REG_BINARY" Function CreateValue(strText) Dim strReturnText For i = 1 to Len(strText) strReturnText = strReturnText & Hex(Asc(Mid(strText,i,1))) & "," strReturnText = strReturnText & 0 & "," Next strReturnText = strReturnText & 0 & "," & "0" CreateValue = split(strReturnText,",") End Function I get this error when I try to run it C:\testuser.vbs(4, 1) Microsoft VBScript runtime error: Type mismatch -- Cheers, Spyke Tag: Briefcase update Tag: 158296
  - 15
    - help: Question about DHTML Transitions This is a multi-part message in MIME format. ------=_NextPart_000_0016_01C43DC6.FB095BD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi Everybody! I=B4ve got this code (working code) to make a transition over a <div> = element. When I press de "PLAY TRANSITION" button, I assign a new value to the = "mode" attribute (tr1.mode=3D"out"), and re-play the transition. Ok, thats work fine... but i=B4ve got a simple question about that = stuff, HOW can i detect when the transition ends????...may be the = transition generates any event???..... Any help about that??? Thanks a lot!.... Gabriel. THE CODE: <HTML xmlns:t =3D 'urn:schemas-microsoft-com:time'> <html> <head> <STYLE> .time { behavior: url(#default#time2) } .looks {width:200;height:100;background:yellow} </STYLE> <script language=3D"vbscript"> sub button1_onclick tr1.mode=3D"out" oDiv.beginElement End sub </script> </head> <body> <?import namespace =3D t urn =3D 'urn:schemas-microsoft-com:time' = implementation =3D '#default#time2' /> <DIV ID=3D"oDiv" CLASS=3D"time looks" align=3D"center"> <center>HELLO WORLD</center> <t:transitionFilter id=3Dtr1 name=3Dtr1 TYPE=3D"fanWipe" BEGIN=3D"oDiv.begin" SUBTYPE=3D"centerTop" DUR=3D"1" MODE=3D"in" FROM=3D"0.0"=20 TO=3D"1.0" CALCMODE=3D"linear" REPEATCOUNT=3D"1" /> </DIV> <BUTTON id=3Dbutton1 name=3Dbutton1>Play Transition</BUTTON> </body> </html> ------=_NextPart_000_0016_01C43DC6.FB095BD0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Hi Everybody!</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I=B4ve got this code (working code) to = make a=20 transition over a <div> element.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>When I press de "PLAY TRANSITION" = button,=20 I assign a new value to the "mode" attribute = (tr1.mode=3D"out"), and=20 re-play the transition.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Ok, thats work fine... but i=B4ve got a = simple=20 question about that stuff,  <STRONG>HOW can i detect when the = transition=20 ends????...may be the transition generates any=20 event???.....</STRONG></FONT></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><STRONG><FONT face=3DArial size=3D2>Any help about=20 that???</FONT></STRONG></DIV> <DIV><STRONG><FONT face=3DArial size=3D2></FONT></STRONG> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks a lot!.... Gabriel.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>THE CODE:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><HTML xmlns:t =3D=20 'urn:schemas-microsoft-com:time'><BR><html><BR><head><BR>&= lt;STYLE><BR>  =20 .time { behavior: url(#default#time2) }<BR>   .looks=20 {width:200;height:100;background:yellow}<BR></STYLE></FONT></DIV> <DIV><BR><FONT face=3DArial size=3D2><script = language=3D"vbscript"><BR>sub=20 button1_onclick<BR>  tr1.mode=3D"out"<BR>  = oDiv.beginElement<BR>End=20 sub</FONT></DIV> <DIV><FONT face=3DArial size=3D2></script></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></head></FONT></DIV> <DIV><FONT face=3DArial size=3D2><body><BR><?import namespace = =3D t urn =3D=20 'urn:schemas-microsoft-com:time' implementation =3D '#default#time2'=20 /><BR><DIV ID=3D"oDiv" CLASS=3D"time looks" = align=3D"center"></FONT></DIV> <DIV><FONT face=3DArial size=3D2><center>HELLO=20 WORLD</center></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><t:transitionFilter id=3Dtr1=20 name=3Dtr1<BR>TYPE=3D"fanWipe"<BR>BEGIN=3D"oDiv.begin"<BR>SUBTYPE=3D"cent= erTop"<BR>DUR=3D"1"<BR>MODE=3D"in"<BR>FROM=3D"0.0"=20 <BR>TO=3D"1.0"<BR>CALCMODE=3D"linear"<BR>REPEATCOUNT=3D"1"<BR>/></FONT= ></DIV> <DIV><FONT face=3DArial size=3D2></DIV></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><BUTTON id=3Dbutton1 = name=3Dbutton1>Play=20 Transition</BUTTON></FONT></DIV> <DIV><BR><FONT face=3DArial=20 size=3D2></body><BR></html></FONT></DIV></BODY></HTML> ------=_NextPart_000_0016_01C43DC6.FB095BD0-- Tag: Briefcase update Tag: 158294
  - 16
    - DTPicker in ASP.NET Page Hello I'm using the DTPicker control in my aspx page, (eg. <OBJECT id="dStart" style="Z-INDEX: 139; ...." codeBase="MSCOMCT2.CAB" classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" VIEWASTEXT Everything works great except the control is not using the Windows XP Theme version. I've read about creating a manifest and placing it in the same folder as an .exe but how do I do this for ASP.NET (aspx) page <NectaR/> Tag: Briefcase update Tag: 158282
  - 17
    - Tabstrip I am using interdev 6. I have added 4 tabstrips and dynamically created tabs and captionds. I need to add objects(textboxs) to the tab, how do I do that. Whe I try in design, the designer will not allow a drag and drop unto the control Tag: Briefcase update Tag: 158272
  - 18
    - vbs sample I copied it as a sample from miscrosoft site and tried to run it. Got compilation error. Can you find the error below? Another question: Is it possible to get highlighted various methods after the period in FSO with any vbs editor.? Does Microsoft have vbs editor? It is not possible to get highlighted list for selection with wordpad. ================================================ Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\testfile.txt", True) MyFile.WriteLine("This is a test.") MyFile.Close -- alan Tag: Briefcase update Tag: 158271
  - 19
    - get printer share name Hello I am using vbscript to configure a Windows 2000 command batch file Is it possible to get a network printer share name from vbscript? The Network.EnumPrinterConnections seems to only return the printer device name, which is not the share name. The device name cannot be used in the command print /D:\\server\print_shar If the share name is not a possiblity, can the port returned by EnumPrinterConnections be used in the print command? I can't seem to make it work with the port either Thank you Jonatha Tag: Briefcase update Tag: 158269
  - 20
    - http/ftp copy I would like to use vbscript to copy files from remote ftp/http locations, is this possible, how ? - Magnus Tag: Briefcase update Tag: 158266
  - 21
    - Local Policy Access from vbscript I'm new to vbscript, I'm trying to access the local security policy on a Windows 2000 server and a Windows NT 4 server for SarbOx auditing compliance. I've looked at the MS object broswer but I can't find the object class to gain access, anyone have any ideas Thanks Andy Tag: Briefcase update Tag: 158264
  - 22
    - Problem in ActiveX event for Explorer New Window I've a problem with an application that uses Internet Explorer, an ActiveX Ocx hosted on the page and some VB script code to manage the Ocx events. If my page opens in a new instance of Internet Explorer it works If I place an anchor on another page and set my page as the href it works If I do the same but specify also a target="_blank" for the anchor all the events are not fired from the page. I suppose is some sort of security problem, but I cannot find any reference around. I've also tried to use window.open instead of target but it does not work, it seems that if you open a new window, regardless of how you do it, Ocx events for VBScript code stops firing. Any idea? Regards Massimo Tag: Briefcase update Tag: 158261
  - 23
    - getting the username of the user running the script Hello there is there a way to get the user name of the user running the script? as well as the machine name on which the script ran, I can get that through WMI, any other suggestions? Regards Sameh Tag: Briefcase update Tag: 158260
  - 24
    - Map network ressource Want to map a network resource like http://server1/page1 (MS SharePoint portal) on client device with vbs script. Anybody an idea how I can do this? It doesn't work with MapNetworkDrive! Thanks! Tag: Briefcase update Tag: 158259
  - 25
    - Combo ? Hi I have a combo box, when the program opens the text in it i highlighted and can be deleted, if I pick an item from the dropdow list this is also highlited and the cursor is flashing next to it What I am after is how do you disable this feature because if I us "Enable = False " it becomes unusable I have used key trapping to not allow anything to be typed in but want to get rid of the highlighting and the cursor. I just want to b able to pick an item and put it in the top box without any othe interaction Does anyone have any ideas Thanks Tag: Briefcase update Tag: 158258

Hi,

Does sombody have an idee how to automatic a Windows briefcase folder with
a script

something like
Set Brief = createobject("Briefcase")
Brief.path="c:\BC"
Brief.update

Jan

Top