vbscript, how to define font

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
    - Install Fonts Hi Everyone, Could you please advise how I can install fonts via a script? I have a folder full of fonts that I want to install on each computer via AD. Any assistance is greatly appreciated. Thank you in advance, D Tag: vbscript, how to define font Tag: 211209
  - 2
    - html link to start EXPLORE.exe Hi Is it any way I can make an active link (on a html page) which make a command starts when clicked on. It should operate just the way it works when it does when I put into CMD: %SystemRoot%\explorer.exe /n, /e, C:\Documents and Settings\Administrator ( or like this one: %comspec% /c ping -n ) Any suggestions? Tag: vbscript, how to define font Tag: 211207
  - 3
    - Verify existence of computer object I'm writing a script that will allow a Help Desk user delete an Active Directory computer object prior to its re-imaging. My script binds to the containing OU then calls the Delete method of that OU, naming the computer object to be deleted. The script works fine. My question regards error-handling in the case that the computer object has already been deleted from Active Directory (say, the user already ran the script). The default error message is verbose, but probably a little scary to a non-scripter. I've been trying to find a way to verify the existence of a computer object BEFORE attempting to delete it so that I can include my own error message. (The Err object seems to have a blank description when a deletion fails because the object doesn't exist.) What would be the easiest way of doing this? -- David Stardate 7793.8 Tag: vbscript, how to define font Tag: 211205
  - 4
    - CDO.Message Font Question Is there a way for me to set different font options when using CDO.Message in a VBScript? For example if I want bold lettering. Thanks, Jeff Tag: vbscript, how to define font Tag: 211204
  - 5
    - script to view connected wireless network? Hey all...I want to try to use a script that allows nontechnical / locked down users to know what wireless network they are connected to. Problem is sometimes a machine cant connect to an intended preffered wireless access point and the machine connects to some neighboring open point and the client doesnt notice until something goes wrong. Is that possible? Tag: vbscript, how to define font Tag: 211193
  - 6
    - last login for only members of a group... i was asked by our audit compliance team to make sure that all of our contractors' domain accounts get disabled after 15 days of inactivity. they were initially in a sub-ou in active directory until i created a security group for them (which i've found makes for easier scripting). i'm fairly new to scripting, but i've managed to get a list of the users in the contractors group, and get the last logon date for all users in the domain. i can't seem to narrow the search to just members of the contractors group, though. script that follows lists all users in the domain that have a last logon date of over 15 days. any ideas? thanks in advance. Option Explicit Dim objRootDSE, strConfig, objConnection, objCommand, strQuery Dim objRecordSet, objDC, strgivenName, strSN, objExcel Dim strDNSDomain, objShell, lngBiasKey, lngBias, k, arrstrDCs() Dim strDN, dtmDate, objDate, lngDate, objList, strUser, strExcelPath Dim strBase, strFilter, strAttributes, lngHigh, lngLow, Row Dim objRange, objRange2, objRange3, arrInt Dim arrUserSN() Dim arrUsergivenName() Dim arrDN() Dim arrdtmDate() ' Use a dictionary object to track latest lastLogon for each user. Set objList = CreateObject("Scripting.Dictionary") objList.CompareMode = vbTextCompare ' Obtain local Time Zone bias from machine registry. Set objShell = CreateObject("Wscript.Shell") lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _ & "TimeZoneInformation\ActiveTimeBias") If UCase(TypeName(lngBiasKey)) = "LONG" Then lngBias = lngBiasKey ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then lngBias = 0 For k = 0 To UBound(lngBiasKey) lngBias = lngBias + (lngBiasKey(k) * 256^k) Next End If ' Determine configuration context and DNS domain from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("configurationNamingContext") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. ' This will identify all Domain Controllers. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strConfig & ">" strFilter = "(objectClass=nTDSDSA)" strAttributes = "AdsPath" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Enumerate parent objects of class nTDSDSA. Save Domain Controller ' AdsPaths in dynamic array arrstrDCs. k = 0 Do Until objRecordSet.EOF Set objDC = _ GetObject(GetObject(objRecordSet.Fields("AdsPath")).Parent) ReDim Preserve arrstrDCs(k) If Left(objDC.DNSHostName,2) > "L0" And Left(objDC.DNSHostName, 2)< "L7" Then arrstrDCs(k) = objDC.DNSHostName k = k + 1 objRecordSet.MoveNext Else objRecordSet.MoveNext End If Loop ' Retrieve lastLogon attribute for each user on each Domain Controller. For k = 0 To Ubound(arrstrDCs) strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">" strFilter = "(&(objectCategory=person)(objectClass=user))" strAttributes = "distinguishedName,lastLogon,givenName,SN" strQuery = strBase & ";" & strFilter & ";" & strAttributes _ & ";subtree" objCommand.CommandText = strQuery On Error Resume Next Set objRecordSet = objCommand.Execute If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Domain Controller not available: " & arrstrDCs(k) Else On Error GoTo 0 arrInt = 0 Do Until objRecordSet.EOF If Left(objRecordSet.Fields("distinguishedName"),5) >= "CN=L0" And Left(objRecordSet.Fields("distinguishedName"),5) <= "CN=L6"Then ReDim Preserve arrUserSN(arrInt) ReDim Preserve arrUsergivenName(arrInt) ReDim Preserve arrDN(arrInt) ReDim Preserve arrdtmDate(arrInt) strDN = objRecordSet.Fields("distinguishedName") arrDN(arrInt) = strDN strgivenName = objRecordSet.Fields("givenName") arrUsergivenName(arrInt) = strgivenName strSN = objRecordSet.Fields("SN") arrUserSN(arrInt) = strSN lngDate = objRecordSet.Fields("lastLogon") On Error Resume Next Set objDate = lngDate If Err.Number <> 0 Then On Error GoTo 0 dtmDate = #1/1/1601# Else On Error GoTo 0 lngHigh = objDate.HighPart lngLow = objDate.LowPart If lngLow < 0 Then lngHigh = lngHigh + 1 End If If (lngHigh = 0) And (lngLow = 0 ) Then arrdtmDate(arrInt) = #1/1/1601# Else arrdtmDate(arrInt) = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow)/600000000 - lngBias)/1440 End If End If If objList.Exists(arrDN(arrInt)) Then If arrdtmDate(arrInt) > objList(arrDN(arrInt)) Then objList(arrDN(arrInt)) = arrdtmDate(arrInt) End If Else objList.Add arrDN(arrInt), arrdtmDate(arrInt) End If arrInt = arrInt + 1 objRecordSet.MoveNext Else objRecordSet.MoveNext End If On Error Resume Next Loop End If 'End If Next Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Add' strExcelPath objExcel.Visible = "True" Set objExcel = objExcel.ActiveWorkbook.Worksheets(1) row = 2 'objExcel.ActiveWindow.FreezePanes = False objExcel.Columns(1).ColumnWidth = 75 objExcel.Columns(2).ColumnWidth = 25 objExcel.Columns(3).ColumnWidth = 25 objExcel.Columns(4).Columnwidth = 20 objExcel.Cells(1,1).Font.Bold = True objExcel.Cells(1,2).Font.Bold = True objExcel.Cells(1,3).Font.Bold = True objExcel.Cells(1,4).Font.Bold = True objExcel.Cells(1,1).value = "User Login ID" objExcel.Cells(1,2).value = "First Name" objExcel.Cells(1,3).value = "Last Name" objExcel.Cells(1,4).value = "Last Logon Time" ' Output latest lastLogon date for each user. arrInt = 0 For Each strUser In objList If Date - objList(strUser) >= 15 Then ' objExcel.Cells(Row,1).value = arrDN(arrInt)'strUser objExcel.Cells(Row,3).value = arrUserSN(arrInt) objExcel.Cells(Row,2).value = arrUsergivenName(arrInt) If objList(strUser) > "1/1/1601" Then objExcel.Cells(Row,4).value = objList(strUser) Else objExcel.Cells(Row,4).value = "Never" End If arrInt = arrInt + 1 Row = Row + 1 End If Next Set objRange = objExcel.Range("A1").SpecialCells(11) Set objRange2 = objExcel.Range("D1") Set objRange3 = objExcel.Range("A1") objRange.Sort objRange2,,,,,,,1 Wscript.Echo "Done" ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objConnection = Nothing Set objCommand = Nothing Set objRecordSet = Nothing Set objDC = Nothing Set objDate = Nothing Set objList = Nothing Set objShell = Nothing Tag: vbscript, how to define font Tag: 211192
  - 7
    - Detect shutdown type I have a shutdown script through Group policy that does some tidying up and defrags the hard drives before allowing the shutdown to complete. However if a user is just doing a restart this is a real pain. Is there anyway to detect that the user has selected shutdown and not restart? Thanks Huw Tag: vbscript, how to define font Tag: 211190
  - 8
    - Script To Determine If A Workstation Is Up I have a script that verifies who is logged on to a remote workstation (by checking for the explorer process and checking the owner). I check for an error on the query which will tell me if the machine is not up (or at least not on the network). It is working pretty well, but in the case of a workstation not being up it can take a minute or two to fail and then report that the machine is not up. I'm wondering if anyone knows of a faster way to determine if a machine is up or not. Currently I am checking the error status of a line that reads like this: Set objWorkStation = GetObject("winmgmts:\\" & strWorkStation & "\root \cimv2") Any thoughts or suggestions are appreciated. Thanks. David E. Thomas Tag: vbscript, how to define font Tag: 211189
  - 9
    - Problem with createElement("select") and onclick or onChange Hi, I have writen an hta application and i want to create some drop down. Creation of the drop down --> OK creation of options --> OK creation of the onClick/onchange event --> NOK I tried this : set objSelect.onChange = test("toto") --> error : type mismatch : 'test' set objSelect.onClick = test("toto") --> error : type mismatch : 'test' objSelect.onChange = test("toto") --> error : type mismatch : 'test' objSelect.onChange = function () { test("toto") } --> error : syntax error How can i set an onClick/onChange attribute ?? Here is my code : set objSelect = document.createElement("select") objSelect.name = "toto" objSelect.multiple = true objSelect.size = 10 objSelect.onChange = test("toto") set objOption = document.createElement("option") objOption.text = "text" objOption.value = "value" objSelect.options.add(objOption) spanSelect.appendChild(objSelect) sub test(v) msgbox (v) end sub Tag: vbscript, how to define font Tag: 211183
  - 10
    - copy a file to a location for all PCs in dommain Hi, Can I have a script that scans all PCs in a domain and checks the existance of a file in %winroor%\system32, if not copies the file to that location? Thanks in advance, Tag: vbscript, how to define font Tag: 211180
  - 11
    - Vbscript code to add and remove items from a listbox Hi, I have written one function in vbscript to add items to a listbox(on checking of a checkbox).Now i want to remove items from the listbox(on unchecking the checkbox).i want to do this in the below function after adding the items.Can anybody please help me out as its very urgent. <script language=vbscript event=uncheck for=FileListTreeView> Dim SelectedNode Dim strGetItems Dim alist Dim newOption Set SelectedNode = FileListTreeView.getTreeNode(window.event.TreeNodeIndex) strGetItems = SelectedNode.getAttribute("id") Set alist = document.getElementById("lstMultipleFileUpload") If (SelectedNode.getAttribute("Unchecked"))Then Set newOption = document.createElement("option") newOption.text = strGetItems alist.remove(newOption) End If </script> This is my listbox <SELECT id=lstMultipleFileUpload style="WIDTH: 450px; HEIGHT: 415px" size=26 name=lstMultipleFileUpload runat="server"> <option value=""></OPTION></SELECT> Tag: vbscript, how to define font Tag: 211179
  - 12
    - TR Align Stopped Working In Windows 2000 this code would center my graphics, in XP and Vista it aligns to the right. <Table> <TR Align = "Center"> <TD Width="16%"><Img Src="/Tivities/CTFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/MEFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="15%"><Img Src="/Tivities/MAFLAG.gif" Height="66" Width="100"> <TD Width="2%"> <TD Width="15%"><Img Src="/Tivities/NHFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/RIFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/VTFLAG.gif" Height="66" Width="100"> </TR> </Table> What do I need to change to make it work in XP and Vista? Thanks in Advance Granny Tag: vbscript, how to define font Tag: 211159
  - 13
    - VBScript, OpenTextFile(), Strings and Unicode - Possible? Hi, I've written a VBScript to manually update the version number in an AssemblyInfo.cs file. But all I get from the ReadAll() function is rubish. The string I'm assigning the function result to only contains loads of empty squares when watched from within Visual Studio Debugger. I can't even write the string back without modifications into the AssemblyInfo.cs file. Visual Studio shows only a bunch of Chinese characters when opening the saved file. (Perhaps the result of a new espionage attempt by the Axis of Evil? :) ) Moreover, I cannot modify the string. To VBScript the string doesn't seem contain anything near to a valid character. Can anybody help me on how to access and save the Unicode file's content from within VBScript? TIA, Axel Dahmen -------- Here's my test source code: ' VBScript source code Const ForReading = 1, ForWriting = 2, TristateTrue = -1 Dim fso,stream,strg,re Set fso = CreateObject("Scripting.FileSystemObject") Set stream = fso.OpenTextFile("C:\Temp\AssemblyInfo.cs",ForReading,False,TristateTrue) strg = stream.ReadAll() stream.Close Set stream = Nothing Set re = New RegExp re.Global = True re.IgnoreCase = False re.Multiline = True re.Pattern = "\d+\.\d+\.\d+\.\d+" strg = re.Replace(strg,"9.9.9.9") Set stream = fso.OpenTextFile("C:\Temp\AssemblyInfo2.cs",ForWriting,True,TristateTrue) stream.Write(strg) stream.Close Set stream = Nothing Tag: vbscript, how to define font Tag: 211158
  - 14
    - Size of Graphics and Text I am getting some complaints about how my pages are looking around the school district. On some XP machines (not all) and Vista machines my graphics are appearing very small, about 15% of the size on the 2000 machines. Also my text is smaller. Example: Enter Student ID - |text Box Here| appears as Enter Student ID - |Text Box Here| What do I need to change so that my pages appear the same on all of the machines? Thanks for any help in advance Granny Tag: vbscript, how to define font Tag: 211155
  - 15
    - Export Active Directory Hi all, I would like to develop a VBScript in order to export the content from different organisational units within Active Directory. I would like this script to be able to run on Windows XP SP2 and Windows Server 2003 Operating Systems. Within Active Directory I have an organisational unit which is called ComputersGPO with other organisational units within representing room numbers. I would like to export the names of the organisational units into a CSV file and then get all the data from within everyone of those organisational units in one go without me having to put the actual name of each organisation unit I want to export. I have not got a clue but how I would do this so any help in this matter would be highly appreciated. Thank you Tag: vbscript, how to define font Tag: 211154
  - 16
    - Determining Permission Inheritaance I have a very large shared folder, 68GB - 10,000 sub-folders - 115,000 files. For the past few years permissions on this share have been controlled by the share owner. Needless to say the permissions are a mess, there were no groups created so users have been added directly to folders at various levels. I have been tasked with cleaning up the mess with very minimal impact to the users. I tried writing a script to determine permissions using <see below> but, due to the size of the share, the script isn't practical. I need to write a script that can look at inheritance and output a list of permissions that are not being inherited from the parent. Basically something that shows me where permissions are explicitly granted. Is this possible or am I stuck with an impossible task? SE_DACL_PRESENT = &h4 ACCESS_ALLOWED_ACE_TYPE = &h0 ACCESS_DENIED_ACE_TYPE = &h1 FILE_DELETE = &h010000 FILE_READ_CONTROL = &h020000 FILE_WRITE_DAC = &h040000 FOLDER_ADD_FILE = &h000002 Thanks in Advance. Kevin Tag: vbscript, how to define font Tag: 211152
  - 17
    - Create Object of an Application type and invoke on Remote Computer Hi Friends, Badly need help in this case, I have a software installed on a remote computer and I want to create object of that application type and invoke it on that machine from local machine. I was successfully able to modify DCOM object on the remote machine to allow connection.. here is what I achieved.. I am able to create object and invoke the application on the remote machine only if I have the same application installed on the local machine. If I dont have that application installed on local system then it gives me Active X cannot Create Object. Dim qtApp Set qtApp = CreateObject("Application","Remote_Machine_Name") qtApp.Launch qtApp.Visible = TRUE The above code works only if I have that application installed on my local machine. I also tried using remote Scripting object and placed the code above in the remote mahine into a file called remote.vbs. I am using the code below to run the remote.vbs on the remote machine..... Set objController = CreateObject("WshController") Set objRemoteScript = objController.CreateScript("C:\remote.vbs","Remote_Machine_Name") objRemoteScript.Execute It gives me the same error ActiveX cannot create Object and sometimes doesn't even throw any object. Is there any COM/DCOM changes that I need to do .. would really appreciate ur comments Thanks Tag: vbscript, how to define font Tag: 211150
  - 18
    - MS Vista and the Class MSSOAP.SoapClient Hi, in Windows XP i access to my webservice with the following VB-Script-Code: dim osoapClient Set osoapClient = CreateObject("MSSOAP.SoapClient") osoapClient.mssoapinit "http://exch2003/exchwebservice/service1.asmx?WSDL" in Vista doesn't exist the Class "MSSOAP.SoapClient". How can i access to the Webservice in Vista? thx & bye Oskar Tag: vbscript, how to define font Tag: 211147
  - 19
    - XML to ADO Recordset Hello All, I am trying to import an xml file that I created into a Recordset. Found some code only but seem to be have a little trouble. Sub On_Load() Dim adoRS 'ADODB.Recordset Set adoRS = CreateObject("ADODB.Recordset") adoRS.Open "C:\Users\tmaiden\Documents\jmc\settings \Spells.xml","Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;" End Sub Provider Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. Line:18 Error:0 Scode:80040e21 Any ideas? Tag: vbscript, how to define font Tag: 211145
  - 20
    - Unable to pass parameter with spaces to VBSCript Sub I have no idea as to why or what's going on, however the code below doesn't work when the parameter contains spaces. I'm at a lost as to why. The first example Test_No_Spaces works fine, the other doesn't. Any ideas? <html> <head> </head> <body> <span onClick = openFile("Test_No_Spaces")>Test No Spaces</span><br><br> <span onClick = openFile("Test With Spaces")>Test With Spaces</span><br> <script type="text/vbscript"> function openFile (fileName) msgbox fileName end function </script> </body> </html> Tag: vbscript, how to define font Tag: 211140
  - 21
    - Exporting Active Directory Hi all. I would like to develop a VBScript that is able to run on a Windows XP SP2 computer and on a Windows Server 2003 Operating System. Within Active Directory there is an organisation unit which is called ComputersGPO and within that OU there are other other Organisation Units representing the room numbers. I would like to export the names of the organisational units within the ComputersGPO organisational unit and then export the data out of each of these organisational units at once. Is this possible? Any help in this matter would be highly appreciated. Thank you Tag: vbscript, how to define font Tag: 211126
  - 22
    - shortcut to mapped drive by machine group I have the following which works but the shortcut won't mapped to the desktop. Th e mapped drive is fine even know it says "Disconnected Network Drive: 'The Distinguished Name of the group containing the computers. strGroup = "cn=ScriptMap,cn=Users,dc=bst,dc=local" 'Determines the local computername Set objNet = CreateObject("Wscript.Network") strComputerName = objNet.ComputerName Set objGroup = GetObject ("LDAP://" & strGroup) For Each objComputer in objGroup.Members If objComputer.Class = "computer" And objComputer.CN = strComputerName Then 'map network drive objNet.MapNetworkDrive "S:", "\\Bst-main\Student\_Reception\Yr R 2007 - 2008", "True" Wscript.Sleep (5000) 'create a icon on the desktop Set WshShell = CreateObject("WScript.Shell") DesktopPath = WshShell.SpecialFolders("Desktop") Set link = WshShell.CreateShortcut(DesktopPath & "\Yr R 2007 - 2008.lnk") link.Description = "User Share Drive" link.HotKey = "CTRL+ALT+SHIFT+T" link.IconLocation = "explorer.exe,0" link.TargetPath = "S:" link.WindowStyle = 3 link.Save End If Next Tag: vbscript, how to define font Tag: 211117
  - 23
    - Access Error 047-ASDFG I have a working script that uses WMI querries to write inventory to a file. Running the script, I get a few 0x80041003 messages signifying I don't have admi rigts to the box. It's good to know this info obviously. But everytime I get the message, the script stops, I have to cut and past the offending machine's name to another file, and then start over. Should I be able to add an If Then statement that reads something like If I don't have admin rights to the box Then write the computer name to a file and try the next box on the list End If Tag: vbscript, how to define font Tag: 211115
  - 24
    - Local port printer I installed my printers on each computer with GPO. Unfortunatly, when I install printers with the following vbs script, I have duplex printing issues and other problems. Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\server\printername" I need a script that can install printers on "Local port", where I can also specify drivers and location for those drivers because they are not printer drivers included with Windows XP. Thanks for your help. Tag: vbscript, how to define font Tag: 211111
  - 25
    - Use LIKE to get a file name? I am getting the path in which the currently running VBS file is running using: sPath = WScript.CreateObject("WScript.Shell").CurrentDirectory & "\" This works great (unless someone else has a better method?); Now I need to get a file name in the current folder that looks like: *Form10g.xls I need the wild card "*" to locate particular files. Is it possible to use LIKE to return the file (there will always only be only one file that meets the criteria) name? If so, could someone please post example code? [e.g. something like sFile = sPath & " LIKE '*Form10g.vbs'"] If not, how can I return the full file name using a wildcard? Again, could you please post example VBS code? Thanks much in advance. Tag: vbscript, how to define font Tag: 211106
- Next
  - 1
    - Copying folders to and from different domains. I have been trying to create a script to automate my task of copying a folder to multiple systems under a different security context to different domains. The following is what I have been working with. I can connect to the source folder. However that is where the fun begins. I have to copy this folder around systems to get it to it's final home with all security in place. Domains do not have trusts in place either. There is no direct copy allowed. With this script I get a return code of 8 which is not very helpful. I figured using WMI was the way to go since it allows more functionality with security. Const OverwriteExisting = True strComputer = "wtec005" rmtComputer = "172.24.1.200" strDomain = "gsc-dev" Wscript.StdOut.Write "Please enter your user name:" strUser = Wscript.StdIn.ReadLine Set objPassword = CreateObject("ScriptPW.Password") Wscript.StdOut.Write "Please enter your password:" strPassword = objPassword.GetPassword() Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemService = objSWbemLocator.ConnectServer(rmtComputer, _ "root\cimv2", _ strUser, _ strPassword, _ "MS_409", _ "ntlmdomain:" + strDomain) WScript.Echo "" WScript.Echo "User is Authenticated !!!!!!!!!!!!!" Set colfolder = objSWbemService.ExecQuery("Select Name From Win32_Directory Where Name = 'F:\\Project\\project\\WebInstall\\Web\\QA-TEST UPDATES\\forms'") For Each objfolder In colfolder WScript.Echo "inside loop" errResults = objfolder.copy("F:\\Project\\project\\WebInstall\\Web\\QA-TEST UPDATES\\forms","\\\wtec005\\junk") WScript.Echo errResults Next Tag: vbscript, how to define font Tag: 211102
  - 2
    - Input Box I'm in need of a script that will allow me to input an Active Directory User's account name, search for that user in a specific OU, and move that user to another OU. Anyone have any suggestions? Thanks, JT Tag: vbscript, how to define font Tag: 211098
  - 3
    - Scritp to List All the Members of a Group Hi I have a problem wich follow scrip: Set objGroup = GetObject _ ("LDAP://cn=Administrators, cn=Builtin, dc=CP,dc=com") For each objMember in objGroup.Members Wscript.Echo objMember.Name Next Because I put this code on OnScript Software and work very well, but I change this parameters: Set objGroup = GetObject _ ("LDAP://cn=No Internet Mail, cn=Grupos, dc=CP,dc=com") For each objMember in objGroup.Members Wscript.Echo objMember.Name Next and doesn't work, I don't know why? the software OnScript show me this error: C:\Documents and Settings\lpacheco\Escritorio\2.vbs(10,1) (null). NOTE: No Internet Mail (is located in Capaco Maracay>Grupos) Tag: vbscript, how to define font Tag: 211097
  - 4
    - Script of DNS and DHCP I need to save my DNS and DHCP Server configurations f. ex. to text file. I have WAN environment with many (40 sites). Because management is delegated local IT admin can modify DNS zones, DHCP leases, etc... settings.. I was wondering that I will save DNS and DHCP configurations 2-3 times in week f. ex. to text file. I was planning WMIquery of those servers. It's easy to get disk volumen information using WMI, but how can I get DNS or DHCP settings? Br, Pasi Tag: vbscript, how to define font Tag: 211095
  - 5
    - Write to the Event logs Is it possible to create your own events and have them logged to the event logs? I am currently using LogEvent and my messages are being written to to event logs, but they show up for the source WSH. I found a reference to CreateEvent, but that seems to be only of MOM. Thanks. Don Jones Tag: vbscript, how to define font Tag: 211094
  - 6
    - Modify existing csv file with data from text file. Dear All I have a problem i need to write data to a .csv file (C:\Finished-Output) I need to add information to THIS file, the values i need to write are contained in psw.txt, and are all written on individual lines. Ive been able to read from txt file then "create" the csv but i want to ammend an existing not create. please help paul Tag: vbscript, how to define font Tag: 211088
  - 7
    - RegExp question. Hi NG, How can this regular expression be negated? (?:>|&\#62;|%3E|>) Sorry for posting here, but there's no ng related to Regular Expressions. Thanks, rusga Tag: vbscript, how to define font Tag: 211080
  - 8
    - Permision Denied Error 800A0046 Const OverWriteFiles = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFolder "D:\uSERS" , "\\Fred\BackupShare\WeeklyBackup" , OverWriteFiles I am logged in as administrator and can manually copy files to this share but everytime I run the script I receive the above error. Any Ideas. TIA -- Greg Tag: vbscript, how to define font Tag: 211079
  - 9
    - add to existing csv file (not create new) Dear all Im writing a script currently to create user passwords. Im on the last parts of it now. I have the below but Stu-passwords.csv has already been created. So i need to write to it not create a new file as in my scrit. Any help much appreaciated Paul Const ForReading = 1 Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True oExcel.Workbooks.Add i = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\passwords.txt", ForReading) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine arrLine = Split(strLine, ",") oExcel.Cells(i, 1).Value = arrLine(0) i = i + 1 Loop oExcel.ActiveWorkbook.SaveAs ("c:\stu-passwords.csv") objFile.Close oExcel.Quit Tag: vbscript, how to define font Tag: 211071
  - 10
    - Check link in ASP VBScript Hi, How can I check a link in ASP? I need to verify the exact link, just as http://validator.w3.org/checklink performs the validation - e.g.: if a user inserts http://www.exampleURL.com, i'd like to verify whether it's http://www.exampleURL.com OR http://exampleURL.com OR http://www.exampleURL.com/home.asp How can I do it? Thanks, Gabi Tag: vbscript, how to define font Tag: 211070
  - 11
    - =?gb2312?B?ucW2raOoMTkxMi0xOTQ5o6nD8bn6tMmy6Lr4NTI4sNGhorTJxvc0MDC8/sfrudvJzaOh?= ucW2raOoMTkxMi0xOTQ5o6nD8bn6tMmy6Lr4NTI4sNGhorTJxvc0MDC8/sfrudvJzaOhCsirsaPV 5tbQu6rD8bn6tMmy6Lr4NTI4sNGhorTJxvc0MDC8/sfrudvJzaGjCtDsvajQ2wq5xdLV0Pm5xbat ytWy2NautrwKzfjVvqO6aHR0cDovL3d3dy54ang1ODguY29tCrXn08qjunhqeF81ODhAdG9tLmNv bQogICAgICB4anhfNTg4QDEyNi5jb20Ktee7sKO6MDU3NS04MzEwMzczMQrK1rv6o7oxMzAwMjYz Mjc4Mgo= Tag: vbscript, how to define font Tag: 211055
  - 12
    - IsMember and IfMember In vbscript, is it correct that there is no direct IsMember or InMember command? I have to create a function to get them to work? Below I have posted a script I use with a GPO. I want to turn the GPO into a logon script so that the script will enumerate the department(s) to which the staff member is assigned and then assign departmental drives appropriately. 'on error resume next Set objArgs = WScript.Arguments 'assigns Arguments 'dim driveLetter:driveLetter = objArgs(0) dim drivePath:drivePath = objArgs(0) 'Creates network object Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") Set fso = CreateObject("Scripting.FileSystemObject") dim driveArr:driveArr = Array("S:","T:","U:") dim test:test = true dim count:count = -1 do while test count = count + 1 test = fso.DriveExists(driveArr(count)) loop WScript.Echo driveArr(count) & "is mapped as: " & drivePath 'driveLetter = driveArr(count) WshNetwork.MapNetworkDrive driveArr(count), drivePath WshNetwork.MapNetworkDrive "W:", "\\s047-a0371-01\scripts$" wscript.quit Tag: vbscript, how to define font Tag: 211051
  - 13
    - write in exist file hello this script run with policy, when the user logged in. I want a list of every computers. the problem is, that every user write a new textfile. the last user who log in is written in the textfile. how can I do that? Set NWT = CreateObject("WScript.Network") errorfile="\\server\temp$\vbs_error.txt" Set errorlogfile=FileSystem.CreateTextFile(errorfile, True) errorlogfile.WriteLine NWT.ComputerName thanks Tag: vbscript, how to define font Tag: 211040
  - 14
    - Opening a shortcut to a folder. On my PC, I have a folder which contains a number of shortcuts to other folders on the same PC. Using VBScript, I would like to open these shortcuts, and enumerate the subfolders of the shortcut destination. Following is some sample code. It echoes the shortcut filename fine, but then gives the error "Path Not Found" on line 6. Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder("C:\Shortcuts") Set oFiles = oFolder.Files For Each oFile in oFiles wscript.echo oFile set oDestFolder = fso.GetFolder(oFile) wscript.echo oDestFolder Next Tag: vbscript, how to define font Tag: 211038
  - 15
    - File in Use I'm using this script to capture files I want to Zip but when the Zip process start I get a File in use by another process message. Need some help on where I need to close my file. Option explicit Dim strPath, strCmd, strFile, strFileStem, strZipFile, strLogFile,strCapFile Dim objFSO, objShell, objLogFile,objCapFile Dim dNow, yy, mt, dd, hh, nn, ss, ZipFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = WScript.CreateObject ("WScript.shell") dNow = Now yy = Right(Year(dNow), 2) mt = Right("00" & Month(dNow), 2) dd = Right("00" & Day(dNow), 2) hh = Right("00" & Hour(dNow), 2) nn = Right("00" & Minute(dNow), 2) ss = Right("00" & Second(dNow), 2) ZipFile = "Send" & yy & mt & dd & hh & nn & ss ' ' Logging this run ' strLogFile = "C:\temp\"+WScript.ScriptName+".log" Set objLogFile = objFSO.OpenTextFile(strLogFile, 2, true ) objLogFile.WriteLine(WScript.ScriptName & " started.") ' ' Capture files to zip ' strCapFile = "C:\SourceFolder\ziplist"+".log" Set objCapFile = objFSO.OpenTextFile(strCapFile, 2, true ) strPath = "C:\sourcefolder" objLogFile.WriteLine(strPath) If objFSO.FolderExists(strPath) Then Dim f, objFile, fileCollection Set f = objFSO.GetFolder(strPath) Set fileCollection = f.Files For Each objFile in fileCollection 'msgbox objfile strFile = objFile.name If UCase(Right(strFile, 3)) = "PS1" then 'If DateDiff("h", objFile.DateLastModified, Now) > 0 then objLogFile.WriteLine("Zipping")+ " " +strPath+"\"+strFile objCapfile.writeline(strFile) 'End if End if Next else Wscript.echo "path not found: "+ strPath End if ' ' Zip the file ' ' strcmd = "%comspec% /c C:\winRar\rar a " + "-n@" + strCapfile + " " + ZipFile objLogFile.WriteLine(strCmd) objShell.run strCmd ,7 , true Set objShell = Nothing set objFSO = nothing objLogFile.WriteLine("ending") objLogFile.WriteLine(WScript.ScriptName & " ended.") objLogFile.close() Thanks. Tag: vbscript, how to define font Tag: 211036
  - 16
    - VBSCRIPT Debugger/Editor I'm comfortable using VBSCRIPT because of my VBA knowledge. Is there a debugger (editor) available? Should I focus on learning something else? any recommendations? I need a scripting language for my web sites. I tried to download the script-o-matic, but it wasn't available. If there is one, where is the location? Tag: vbscript, how to define font Tag: 211034
  - 17
    - If Not statement??? I am writing a script to perform a function if a file does not exists, but when I do an FSO and can use this statement. To see if a file exist, but I want the condition to run if file does not exits, is there a statement "If objtstFSO.FileNotExists(strfolder & strtstfile) Then" If objtstFSO.FileExists(strfolder & strtstfile) Then wscript.quit End If Tag: vbscript, how to define font Tag: 211023
  - 18
    - Copy file with multiple names I was finally able to get some mainfraim reports spooled to download to text files every morning rather than useing Document Direct. The problem is that for every report that comes down every morning there are multiple copies with names the same followed by "name.#####.20071011024021.txt" for example. I have been unsuccessful getting a script to move and rename the file. So Far: Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CopyFile "Q:\name*.txt","U:\DocDirectReports\name.txt", True Can anyone assist? Thanks in advance -- Jeff C Live Well .. Be Happy In All You Do Tag: vbscript, how to define font Tag: 211016
  - 19
    - Script to Remove Attachments in Exchange Mailbox Hi, I am frustrated with my users who send large files around the office instead of using the network shares. For instance, this is one of many emails I have sent around: "If you take the this kit it looks like J sent it to D, D sent it to you, then you sent it to me. The problem with that is just that now there are copies of this file: On J's drive or Comm drive J's sent items D's inbox D's sent items Your inbox Your sent items My inbox The comm. Drive once I save it there to be used. Which means that there are 8 copies of the same file 4MB taking up space, or a 4MB file turned into a 32MB file." My users just aren't getting it! And then they complain when they get quota messages! (and some people, when they are Important People, you cannot argue with). So, what I would like, is to write a script that parses the exchange mailbox, and removes all attachments over a certain size (say 500K) that are attached to messages that are more than 2 weeks old, or that are in sent items. I would like to write to a log file all the changes that are made then email that log file to the mailbox that was just trimmed. I will also like to have a verbose mode that allows the user when the script is run to ok each removal. I am trying to decide if I should do this in Python or VBScript. Any suggestions? Thanks. Tag: vbscript, how to define font Tag: 211006
  - 20
    - VBScript Code for Unzip Hi i need to write a VBscript to send the FTP command to unZIP the file at FTP server.Can any body tell how to run the FTP unZip command in VB script. Thanks in Advance Satu Tag: vbscript, how to define font Tag: 211004
  - 21
    - script via policy login hello we use policies. I copy some files from the local disk into quick launch. sometimes appears the following error message (see attached picture) that's the code: ' Kopiere Datei ' Eine Datei kopieren ' Autor: Walser Mark ' Datum: 31.05.2007 ' Anpassung ' =============================== Option Explicit ' Deklaration der Variablen Dim FSO, NWT, user Dim Ordner Dim File1, File2, File3, File4, File5, File6, File7, File8 Dim wFile 'Objekt erzeugen Set NWT = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") user = NWT.UserName ' Dateien bestimmen, welche gelöscht werden sollen File1 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft Word.lnk" File2 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft Excel.lnk" File3 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft Outlook.lnk" File4 = "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Microsoft PowerPoint.lnk" File5 = "C:\Daten\Vorlagen\Normal11.dot" File6 = "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Word 2007.lnk" File7 = "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Excel 2007.lnk" File8 = "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office PowerPoint 2007.lnk" ' Links aus Quick Launch löschen If fso.FileExists(File1) Then fso.DeleteFile(File1) End If If fso.FileExists(File2) Then fso.DeleteFile(File2) End If If fso.FileExists(File3) Then fso.DeleteFile(File3) End If If fso.FileExists(File4) Then fso.DeleteFile(File4) End If ' Ordner kopieren Ordner = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office" if FSO.FolderExists(Ordner) then 'FSO.CopyFile "\\server\program$\Tools\Office2007\*.lnk","C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", true If FSO.FileExists(File6) Then FSO.CopyFile "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Word 2007.lnk", "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", True End if If FSO.FileExists(File7) Then FSO.CopyFile "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office Excel 2007.lnk", "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", True End If If FSO.FileExists(File8) Then FSO.CopyFile "c:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Microsoft Office\Microsoft Office PowerPoint 2007.lnk", "C:\Dokumente und Einstellungen\"&user&"\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\", True End if end if ' Rename normal11.dot to normal.dot If fso.FileExists(File5) Then Set wFile = FSO.GetFile("C:\Daten\Vorlagen\Normal11.dot") wFile.Name = "Normal.dot" End If Thanks for your help, mark > Tag: vbscript, how to define font Tag: 210999
  - 22
    - Copying files after validating the source Hi, Being an absolute beginner with VBScript, I'm having a lot of trouble with this simple problem. Scenario: I'm writing a logon script that needs to copy various files to users' machines at logon. This I've acheived using the MapNetworkDrive nethod; however, one ovious sticking point in my script is taht if the share this command maps is unavailable for any reason, the script will fail. I'd like to create a sub which takes a collection of supplied UNC paths and checks the ability to map each in turn, iterating to the next without generating an error if this path is unavailable, and when it finds one that it can connect to, storing that path in my variable strUNCPath which is then used to actually map that path for file copying. Can anyone provide me with some sample code showing how this might be done? My main problems are how to initialise the collection with my manual values the best method of confirming a working path the means of referencing the "working path" element in the collection when setting the "strUNCPath" variable I'm using to do the actual mapping. Any help is appreciated; thanks for reading. Tag: vbscript, how to define font Tag: 210998
  - 23
    - Copy text file from web server to local drive Is there a way in VBA to copy a file from a web server to a local drive? Example: Every morning at 3AM a huge mainframe report is run and a copy of this report is saved as a text file on a web server: http://GLJobs.CliffKing.com/Reports_txt/MyReport101007.txt The name of my report is: MyReport101007.txt I manually download this report to the C:\ drive and then manually import it into access. Is there a way i can programmatically do this? Thanks Cliff Tag: vbscript, how to define font Tag: 210995
  - 24
    - login problem I enabled the following script,which i got from microsoft, for user login though active directory. On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") Set objNetwork = CreateObject("Wscript.Network") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN Select Case strGroupName Case "Finance Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\finance" Case "Human Resource Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\hr" Case "Manufacturing Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\manufacturing" Case "Shipping and Receiving Users" objNetwork.MapNetworkDrive "X:", "\\atl-fs-01\shipping" End Select Next I changed the script paths to fit our environment. When i have users login to their computer nothing happens. I know theirs issues with the "memberOf attribute" but everything that i did to changed it didnt work. Please Help -- The only easy day was Yesterday Tag: vbscript, how to define font Tag: 210985
  - 25
    - insert variable in Win32_Service.Name='servicio' The problem is that in the line & "(Win32_Service.Name='servicio') Where " _ the variable "servicio" is not entered by the script. A wscript.echo at the end of the script show the variable correctly. I think I don't write the syntax ok, but it gives no error. Thanks in advance The complet script is: strComputer = "." servicio = inputBox("Escribe el nombre del Servicio") ruta = inputBox("Escribe aqui la ruta completa del ejecutable, melon!") regkeyin1 = "HKLM\SYSTEM\CurrentControlSet\Services\" regkeyin2 = "HKLM\SYSTEM\CurrentControlSet\Services\" regkeylast1 = "\Parameters\Application" regkeylast2 = "\Start" regkey1 = regkeyin1&servicio&regkeylast1 regkey2 = regkeyin2&servicio&regkeylast2 Const OWN_PROCESS = 16 Const NOT_INTERACTIVE = False Const NORMAL_ERROR_CONTROL = 2 Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objService = objWMIService.Get("Win32_BaseService") errReturn = objService.Create(servicio ,servicio , _ "srvany.exe", OWN_PROCESS, NORMAL_ERROR_CONTROL, "Manual", _ NOT_INTERACTIVE, "NT AUTHORITY\LocalService", "" ) Set obj_Shell = WScript.CreateObject("WScript.Shell") obj_Shell.RegWrite regkey1, ruta, "REG_SZ" obj_Shell.RegWrite regkey2, "2", "REG_DWORD" 'Wscript.Echo errReturn Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where Name='servicio'") For Each objService in colServiceList objService.StartService() Next Wscript.Sleep 20000 Set colServiceList = objWMIService.ExecQuery("Associators of " _ & "(Win32_Service.Name='servicio') Where " _ & "AssocClass=Win32_DependentService " & "Role=Dependent" ) For Each objService in colSericeList objService.StartService() Next Tag: vbscript, how to define font Tag: 210977

I have a script that sends an e-mail upon completion. I was hoping to
define different font values (color, bold etc...) and quite frankly
don't know how. Can anyone point me in the right direction? A
tutorial site or something?

Thanks, Jeff

Top

Re: vbscript, how to define font by Bart

Bart
Wed Oct 17 14:35:48 PDT 2007

<jeff.j.carter@gmail.com> wrote in message
news:1192638528.705119.56850@i38g2000prf.googlegroups.com...
>I have a script that sends an e-mail upon completion. I was hoping to
> define different font values (color, bold etc...) and quite frankly
> don't know how. Can anyone point me in the right direction? A
> tutorial site or something?
>
> Thanks, Jeff
>

If you are generating an HTML email, you would use the HTML tags for fonts.
I have a paragraph at the end of an email that writes some stuff white on
white. This actually helps me troubleshoot sometimes. The span style is your
font reference.

"<p><span style='color:#FFFFFF'>" & _

"</span></p>"

Top

Re: vbscript, how to define font by mr_unreliable

mr_unreliable
Wed Oct 17 15:26:38 PDT 2007

Jeff, the font (html) tag is normally used for this.

There are many pages on the web describing how to use it.
Here is one:

http://www.tizag.com/htmlT/font.php

IMHO, the font tag is somewhat obsolete, with most people
now using css (style sheets) to enhance to look of their
web pages.

But, for what you want to do, the font tag is probably
the most straight-forward way.

As you probably know, your recipient's mail reader will
have to be setup to read html (rather than plain text)
to see the font faces, colors and boldface you set.

cheers, jw
____________________________________________________________

You got questions? WE GOT ANSWERS!!! ..(but,
no guarantee the answers will be applicable to the questions)

jeff.j.carter@gmail.com wrote:
> I have a script that sends an e-mail upon completion. I was hoping to
> define different font values (color, bold etc...) and quite frankly
> don't know how. Can anyone point me in the right direction? A
> tutorial site or something?
>
> Thanks, Jeff
>

Top