how to convert a Hex string into a Long data type?

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
    - Determine logon and logoffs from which workstations Any ideas how I can script determining the last workstation a user has logged onto and logged off of? I know logins can be retrieved from AD with userstat.exe, but this does not tell me the location of the logons, nor if/when they logged off. I've also looked into parsing event logs, but events 538 and 540 did not contain workstation data, (even though there was a parameter for workstation, it was blank). Event 528 did contain the workstations, but there are not nearly as many 528's as there are 538. Any other ideas? Surely someone has done this already!!! Tag: how to convert a Hex string into a Long data type? Tag: 152715
  - 2
    - SystemParametersInfo not working with VBScript? I am trying to use the SystemParametersInfo API to change the wallpaper from a VBScript run by Windows Script Host locally on the computer. This is what I have: Dim bmpFile bmpFile = "C:\WINDOWS\WALLPAPR.BMP" Call SystemParametersInfo(SPI_SETDESKWALLPAPER,0,bmpFile,SPIF_SENDWININICHANGE) When I run it, Windows Script Host gives me the following error information: Script: C:\changeWallpaper.vbs Line: 3 Char: 1 Error: Type mismatch: 'SystemParametersInfo' Code: 800A000D Source: Microsoft VBScript runtime error Is there something I need to do prior to using SystemParametersInfo to make the VBScript recognize it as valid? Tag: how to convert a Hex string into a Long data type? Tag: 152714
  - 3
    - Help with sending email without having SMTP Services Installed In this below vbs script, I am trying to send email without having smtp services installed on my machine. However since most of my machines doesn't have access to the internet, how can I change "("http://schemas.microsoft.com/cdo/configuration/se ndusing")" in my script to use an internal server. Set objEmail = CreateObject("CDO.Message") objEmail.From = "swrobins@ebay.com" objEmail.To = "swrobins@ebay.com" objEmail.Subject = "RegKey Apllied on "&Var1&" " objEmail.Textbody = "" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "server.domain.com" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send Thank for the help. Robnson Tag: how to convert a Hex string into a Long data type? Tag: 152706
  - 4
    - read text from txt file and create directory from that Hello all I have a text file that basically contains one line that reads, as an example adduser -u jsmith -n "xxxxxxxxx now, what i'd like to do is to be able to make a directory name called jsmith, or whatever username that the text file will contain (as designated after the -u), and create a directory in that name. The username length will vary, but the -n will always appear after the username, and the -u will always appear before the username. Thanks in advance everyone Tag: how to convert a Hex string into a Long data type? Tag: 152705
  - 5
    - little squares in output text Hello and thanks in advance for any help here. I am working on a script that is taking information from a database with no line breaks and passing the information through this function that I have designed to put line breaks in near a certain column size. The ultimate destination for the text is a text file. When I run this code on a piece of text with carriage returns already in it the function outputs little boxes or NewLine control chars wherever a new line needs to happen. Does anyone know of a way to get rid of those little boxes? Thanks in advance, -Jason Function HardBreak(text, col) Dim myArray(50) lc = 0 Do Until Len(text) < col If InStrRev(text, vbCr, col) Then br = InStrRev(text, vbCr, col) myArray(lc) = Mid(text, 1, br) text = Mid(text, br + 1) Else If InStr(col - 6, text, " ") < col Then br = InStr(col - 6, text, " ") Else br = InStrRev(text, " ", col) End If myArray(lc) = Mid(text, 1, br) text = Mid(text, br + 1) End If lc = lc + 1 Loop myArray(lc) = text lc = 0 Do Until myArray(lc) = "" If myArray(lc + 1) = "" Then HardBreak = HardBreak & " " & myArray(lc) Else HardBreak = HardBreak & " " & myArray(lc) & vbNewLine End If lc = lc + 1 Loop End Function Tag: how to convert a Hex string into a Long data type? Tag: 152704
  - 6
    - Enumerate Software Script **Help** I found this script on the web and it works awesome, however it is above my knowledge of VBS. What I need it to do instead of displaying each software installed I would like to simply output it to a flat text file, can anyone help? Thanks in advanced.. On Error Resume Next sComputer = "." MsgBox InstalledApplications(sComputer) Function InstalledApplications(node) Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & node & "/root/default:StdRegProv") sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys) For Each sKey In arSubKeys iRC = oRegistry.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue) If iRC <> 0 Then oRegistry.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue End If If sValue <> "" Then InstalledApplications = InstalledApplications & sValue & vbCrLf End If Next End Function Tag: how to convert a Hex string into a Long data type? Tag: 152701
  - 7
    - File System Object network overhead I have a vbscript that looks through a folder structure for the most recently updated file. I noticed that when I point it at a network folder (\\server\folder) it does quite a bit more network I/O than I would expect. No big deal when I'm at work, on our 100Mb ethernet, but dialing in from home it becomes v e r y s l o w. When I go to a DOS prompt and use "dir /s" to display the same folders, it's much quicker (less network I/O). Is this just the way it is with the FileSystemObject? I'm ready to rewrite my folder access to attach the desired folder as a drive, and use the DOS DIR command to get the info I want. Excatly what the FSO helps us avoid! -- jcf Tag: how to convert a Hex string into a Long data type? Tag: 152694
  - 8
    - noob do...loop question Being a noob and am trying piece this script together I seem to have broken the do.....loop. I would appreciate it if some one would take a peak at it and let me know what I have done wrong. Thanks in advance. Jason <package> <reference object="ActiveDs.IADsContainer"/> <reference object="ActiveDs.IADsUser"/> <reference object="MSIMADMLib.IMServers"/> <reference object="MSIMADMLib.IMVirtualServer"/> <reference object="MSIMADMLib.IMUserAdmin"/> <reference object="MSIMADMLib.IIMUser"/> <reference object="CDO.Person"/> <reference object="CDOEXM.ExchangeServer"/> <reference object="CDOEXM.IMailboxStore"/> <reference object="CDOEXM.IMailRecipient"/> <reference object="CDOEXM.IDataSource2"/> <reference object="Excel.Application"/> <Job id="BulkAddFromExcel"> <script language="VBScript"> 'THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT 'WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, 'INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 'OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 'PURPOSE ' ' You are free to use this code within your own applications, ' but you are expressly forbidden from selling or otherwise ' distributing this source code without prior written consent. ' This includes both posting free demo projects made from this ' code as well as reproducing the code in any other format. ' '--------------------------------------------------------------------------- --- ' ' NAME: BulkAddFromExcel.wsf ' ' FILE DESCRIPTION: This Windows Script File creates new user objects in ' Active Directory from an Excel Spreadsheet using Active ' Directory Services Interface (aka ADSI) ' After they are created, CDO for Exchange 2000 (aka CDOEXM) ' is used to mailbox enable each user object ' Finally the Exchange Instant Messaging Administration Library ' is used to IM enable each user object ' ' Note that the Lightweight Directory Access Protocol (LDAP) ' requires that you escape the following characters with a backslash ' (\) character when you use them in Active Directory: ' ,=+<>#;\" ' ' Copyright (c) CDOLive 2000-2001, Siegfried Weber. All rights reserved. ' http://www.cdolive.net/samples/adusermanagement.eml ' mailto:samples@cdolive.com?subject=ADUserManagement ' With contributions by (in alphabetical order): ' Sjaak van der Poel, Sjaak.vanderPoel@Getronics.Com ' ' Portions: ' Copyright (c) Microsoft Corporation 1996. All rights reserved. ' '--------------------------------------------------------------------------- --- ' Initialize error handling Option Explicit On Error Resume Next ' Declare variables Dim objArguments ' As Wscript.Arguments Dim objContainer ' As ActiveDs.IADsContainer Dim objUser ' As ActiveDs.IADsUser Dim objIMServers ' As MSIMADMLib.IMServers Dim objIMVirtualServer ' As MSIMADMLib.IMVirtualServer Dim objIMUserAdmin ' As MSIMADMLib.IMUserAdmin Dim objIMUser ' As MSIMADMLib.IIMUser Dim objPerson ' As CDO.Person Dim objExchangeServer ' As CDOEXM.ExchangeServer Dim objMailboxStore ' As CDOEXM.IMailboxStore Dim objRecipient ' As CDOEXM.IMailRecipient Dim objDataSource ' As CDOEXM.IDataSource2 Dim objExcel ' As Excel.Application Dim strCRLF ' As String Dim strExcelWorkBook ' As String Dim strLDAP ' As String Dim strRoot ' As String Dim strOU ' As String Dim strBuilding ' As String Dim strUserName ' As String Dim strSamName ' As String Dim strDisplayName ' As String Dim strAlias ' As String Dim strHomeMDBUrl ' As String Dim strPersonURL ' As String Dim blnExcelInstalled ' As Boolean Dim blnCDOInstalled ' As Boolean Dim blnCDOEXMInstalled ' As Boolean Dim blnLDAPConnect ' As Boolean Dim varProxyAddresses(10) ' As Variant ' Initialize variables Set objExchangeServer = Nothing Set objExcel = Nothing Set objIMServers = Nothing Set objIMVirtualServer = Nothing Set objIMUserAdmin = Nothing Set objPerson = Nothing Set objMailboxStore = Nothing Set objRecipient = Nothing Set objDataSource = Nothing strCRLF = Chr(13) & Chr(10) blnExcelInstalled = False blnLDAPConnect = False blnExcelInstalled = False blnCDOInstalled = False blnCDOEXMInstalled = False ' Get the script command line arguments Set objArguments = WScript.Arguments ' Excel file containing users is the first (and only valid) argument If objArguments.Count <> 0 Then strExcelWorkBook = objArguments.Item(0) End If ' Check if first comannd line argument isn't empty If strExcelWorkBook = "" Then WScript.Echo "No input file provided. Script execution terminated. Please make sure you provide a valid Excel file as input." Else ' Check if necessary objects are installed by simply create an instance of each Err.Clear Set objExcel = WScript.CreateObject("Excel.Application") If Err.Number = 0 Then blnExcelInstalled = True End If Err.Clear Set objPerson = CreateObject("CDO.Person") If Err.Number = 0 Then blnCDOInstalled = True End If Err.Clear Set objExchangeServer = CreateObject("CDOEXM.ExchangeServer") If Err.Number = 0 Then blnCDOEXMInstalled = True End If ' Check if required components are installed If (blnExcelInstalled = False Or blnCDOInstalled = False Or blnCDOEXMInstalled = False) Then ' Display error message WScript.Echo "One of the required components could not be started. Please make sure the machine is running the following software: " & _ strCRLF & " Microsoft Windows 2000 (or higher) Server or Professional" & _ strCRLF & " Microsoft Winodws 2000 (or higher) Administrative Tools (a separate install if running on Windows 2000 Professional)" & _ strCRLF & " Microsoft Exchange 2000 (or higher) System Manager" & _ strCRLF & " Microsoft Excel 2000 (or higher)" Else ' Initialize other objects Set objIMServers = CreateObject("MSExchangeIM.IMServers.1") Set objIMVirtualServer = CreateObject("MSExchangeIM.IMVirtualServer.1") Set objIMUserAdmin = CreateObject("MSExchangeIM.IMUserAdmin.1") Set objMailboxStore = objPerson.GetInterface("IMailboxStore") Set objRecipient = objPerson.GetInterface("IMailRecipient") Set objDataSource = objPerson.GetInterface("IDatasource") ' We will use strOU to control loop, so set initial value to null strBuilding = "" ' Activate Excel With objExcel ' Open the workbook passed in the command line Err.Clear .Workbooks.open strExcelWorkBook ' Check for errors If Err.Number = 0 Then ' Activate it blnExcelInstalled = True .Sheets("Add").Activate ' Put the cursor in the starting cell and read the DS root .ActiveSheet.Range("A2").Activate 'This cell holds the building label strBuilding = .Activecell.Value ' This is the starting point in the ds 'Hard set by me as A2 is not the DS root in the file from skyward. strRoot = "dc=ad,dc=roseville,dc=k12,dc=mn,dc=us" ' Step to the next row ' commented out as there is no dummy row. '.Activecell.Offset(1, 0).Activate Else ' Display error message WScript.Echo "Error opening Excel workbook. Check if Excel is installed and the file is not readonly " & Err.Number & Err.Description blnExcelInstalled = False End If End With ' Check if Excel could be opened If blnExcelInstalled = True Then ' Loop until we run out of rows Do While objExcel.Activecell.Value <> "" ' If the requested OU is a new one... If objExcel.Activecell.Value <> strBuilding Then ' Pick up the OU name msgBox "here:" & strBuilding If strBuilding = "RAHS" then strOU="OU=RAHS,OU=staff,OU=secondary" strHomeMDBUrl = "CN=SecondaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "RAMS" then strOU="OU=RAMS,OU=staff,OU=secondary" strHomeMDBUrl = "CN=SecondaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "PCS" then strOU="OU=PCS,OU=staff,OU=secondary" strHomeMDBUrl = "CN=SecondaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "BH" then strOU="OU=BH,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot Elseif strBuilding = "CP" then strOU="OU=CP,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "EDG" then strOU="OU=EDG,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "EDW" then strOU="OU=EDW,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "FH" then strOU="OU=EDW,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "LC" then strOU="OU=LC,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "DC" then strOU="OU=DC,ou=District" strHomeMDBUrl = "CN=Mailbox Store (RoseMail),CN=First Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "FVCC" then strOU="OU=FVCC,OU=District" strHomeMDBUrl = "CN=Mailbox Store (RoseMail),CN=First Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot End If 'This is where my mod ends ' Compose the LDAP path strLDAP = "LDAP://" & strOU & "," & strRoot ' Show it to the user WScript.Echo "Processing entries for: " + strLDAP ' And get the object Err.Clear Set objContainer = GetObject(strLDAP) ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error retrieving Active Directory settings. Please check if the provided LDAP string is correct " & Err.Number & Err.Description Else blnLDAPConnect = True End If 'End If ' Check if we could connect to AD If blnLDAPConnect = True Then objExcel.ActiveSheet.Range("A2").Activate ' Compose the user common name name from last and first name strUserName = "CN=" + objExcel.activecell.offset(0, 3).Value + "\, " + objExcel.activecell.offset(0, 2).Value ' Compose the user display name from first and last names strDisplayName = objExcel.Activecell.Offset(0, 3).Value & ", " & objExcel.Activecell.Offset(0, 2).Value ' Compose the user Instant Messaging alias name from first and last names 'strAlias = Left(LCase(Left(objExcel.Activecell.Offset(0, 3).Value, 1) + objExcel.Activecell.Offset(0, 2).Value), 20) ' Show to user that we now create a new object WScript.Echo "Processing entry: " + strDisplayName ' Create the new user object Err.Clear Set objUser = objContainer.Create("user", strUserName) ' Check for errors If Err.Number = 0 Then ' Set the properties of the new user. This is the part that is broken. Need to get a better file and know ' exactly where the first active cell is, that way we can make sure that the offsets are used correctly. With objUser ' First name If Trim(objExcel.Activecell.Offset(0, 2).Value) <> "" Then .Put "givenName", CStr(objExcel.Activecell.Offset(0, 2).Value) End If ' Last name If Trim(objExcel.Activecell.Offset(0, 3).Value) <> "" Then .Put "sn", CStr(objExcel.Activecell.Offset(0, 3).Value) End If ' Display name If Trim(strDisplayName) <> "" Then .Put "displayName", strDisplayName End If ' Pre-Windows 2000 account name If Trim(objExcel.Activecell.Offset(0, 1).Value) <> "" Then .Put "sAMAccountName", Left(CStr(objExcel.Activecell.Offset(0, 1).Value), 20) End If ' Windows 2000 UPN (user principale name) If Trim(objExcel.Activecell.Offset(0, 1).Value) <> "" Then .Put "userPrincipalName", CStr(objExcel.Activecell.Offset(0, 1).Value) End If ' Phone number If Trim(objExcel.Activecell.Offset(0, 8).Value) <> "" Then .Put "telephoneNumber", CStr(objExcel.Activecell.Offset(0, 8).Value) End If ' Fax number 'If Trim(objExcel.Activecell.Offset(0, 6).Value) <> "" Then ' .Put "facsimileTelephoneNumber", CStr(objExcel.Activecell.Offset(0, 6).Value) 'End If ' Cell phone number 'If Trim(objExcel.Activecell.Offset(0, 7).Value) <> "" Then ' .Put "mobile", CStr(objExcel.Activecell.Offset(0, 7).Value) 'End If ' Home phone number If Trim(objExcel.Activecell.Offset(0, 9).Value) <> "" Then .Put "homePhone", CStr(objExcel.Activecell.Offset(0, 9).Value) End If ' ZIP/Postal code If Trim(objExcel.Activecell.Offset(0, 7).Value) <> "" Then .Put "postalCode", CStr(objExcel.Activecell.Offset(0, 7).Value) End If ' Street If Trim(objExcel.Activecell.Offset(0, 5).Value) <> "" Then .Put "streetAddress", CStr(objExcel.Activecell.Offset(0, 5).Value) End If ' City If Trim(objExcel.Activecell.Offset(0, 7).Value) <> "" Then .Put "l", CStr(objExcel.Activecell.Offset(0, 7).Value) End If ' P.O. Box 'If Trim(objExcel.Activecell.Offset(0, 12).Value) <> "" Then ' .Put "postOfficeBox", CStr(objExcel.Activecell.Offset(0, 12).Value) 'End If ' State/Province If Trim(objExcel.Activecell.Offset(0, 8).Value) <> "" Then .Put "st", CStr(objExcel.Activecell.Offset(0, 8).Value) End If ' Country code 'If Trim(objExcel.Activecell.Offset(0, 14).Value) <> "" Then ' .Put "c", CStr(objExcel.Activecell.Offset(0, 14).Value) 'End If ' Department 'If Trim(objExcel.Activecell.Offset(0, 15).Value) <> "" Then ' .Put "department", CStr(objExcel.Activecell.Offset(0, 15).Value) 'End If ' Company 'If Trim(objExcel.Activecell.Offset(0, 16).Value) <> "" Then ' .Put "company", CStr(objExcel.Activecell.Offset(0, 16).Value) 'End If ' Title 'If Trim(objExcel.Activecell.Offset(0, 17).Value) <> "" Then ' .Put "title", CStr(objExcel.Activecell.Offset(0, 17).Value) 'End If ' Pager 'If Trim(objExcel.Activecell.Offset(0, 18).Value) <> "" Then ' .Put "pager", CStr(objExcel.Activecell.Offset(0, 18).Value) 'End If ' Webpage URL 'If Trim(objExcel.Activecell.Offset(0, 19).Value) <> "" Then ' .Put "wWWHomePage", CStr(objExcel.Activecell.Offset(0, 19).Value) 'End If ' Office 'If Trim(objExcel.Activecell.Offset(0, 20).Value) <> "" Then ' .Put "physicalDeliveryOfficeName", CStr(objExcel.Activecell.Offset(0, 20).Value) 'End If ' Description 'If Trim(objExcel.Activecell.Offset(0, 21).Value) <> "" Then ' .Put "description", CStr(objExcel.Activecell.Offset(0, 21).Value) 'End If ' HomeDrive 'If Trim(objExcel.Activecell.Offset(0, 39).Value) <> "" Then ' .Put "homeDrive", CStr(objExcel.Activecell.Offset(0, 39).Value) 'End If ' homeDirectory 'If Trim(objExcel.Activecell.Offset(0, 40).Value) <> "" Then ' .Put "homeDirectory", CStr(objExcel.Activecell.Offset(0, 40).Value) 'End If ' scriptPath 'If Trim(objExcel.Activecell.Offset(0, 41).Value) <> "" Then ' .Put "scriptPath", CStr(objExcel.Activecell.Offset(0, 41).Value) 'End If ' ProfilePath 'If Trim(objExcel.Activecell.Offset(0, 42).Value) <> "" Then ' .Put "ProfilePath", CStr(objExcel.Activecell.Offset(0, 42).Value) 'End If ' Save data Err.Clear .SetInfo ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error setting user properties " & Err.Number & Err.Description End If End With ' Set Exchange IM and enable account With objUser If Trim(objExcel.Activecell.Offset(0, 22).Value) <> "" Then If Trim(objExcel.Activecell.Offset(0, 23).Value) <> "" Then ' Get IM Virtual Server For Each objIMVirtualServer In objIMServers(1).VirtualServers If (objIMVirtualServer.DisplayName = CStr(objExcel.Activecell.Offset(0, 22).Value)) Then ' Enable user for Exchange 2000 IM Err.Clear Set objIMUser = objIMUserAdmin.EnableUser(objUser, strAlias, CStr(objExcel.Activecell.Offset(0, 23).Value), objIMVirtualServer) ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error IM enabling user " & Chr(13) _ & Err.Number & Chr(13) & Err.Description End If Exit For End If Next End If End If ' Set password and enable the account 'If Trim(objExcel.Activecell.Offset(0, 24).Value) <> "" Then '.SetPassword objExcel.Activecell.Offset(0, 24).Value .SetPassword strSamName 'End If .AccountDisabled = False ' Save data Err.Clear .SetInfo ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error setting user properties " & Err.Number & Err.Description End If End With ' This is taken care of way above 'If Trim(objExcel.Activecell.Offset(0, 25).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 26).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 27).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 28).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 29).Value) <> "" Then ' Construct Exchange 2000 mailbox url 'Constructed elsewhere see above 'strHomeMDBUrl = "CN=" & objExcel.Activecell.Offset(0, 29).Value & ",CN=" & objExcel.Activecell.Offset(0, 28).Value & "," & _ ' "CN=InformationStore,CN=" & objExcel.Activecell.Offset(0, 26).Value & ",CN=Servers," & _ ' "CN=" & objExcel.Activecell.Offset(0, 27).Value & ",CN=Administrative Groups," & _ ' "CN=" & objExcel.Activecell.Offset(0, 25).Value & ",CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot 'End If 'End If 'End If 'End If 'End If If Trim(strUserName) <> "" Then ' Construct LDAP URL to AD object strPersonURL = "LDAP://" + strUserName + "," + strOU + "," + strRoot ' Open user object with CDO for Exchange 2000 Set objPerson = CreateObject("CDO.Person") Set objDataSource = objPerson.GetInterface("IDataSource") Err.Clear objDataSource.Open strPersonURL ' Check for errors If Err.Number = 0 Then Set objMailboxStore = objPerson.GetInterface("IMailboxStore") Set objRecipient = objPerson.GetInterface("IMailRecipient") If Trim(strHomeMDBUrl) <> "" Then ' Set Exchange 2000 Server mailbox home database property objMailboxStore.CreateMailbox strHomeMDBUrl ' Write mailbox restrictions With objMailboxStore ' Issue warning at (KB) If Trim(objExcel.Activecell.Offset(0, 30).Value) <> "" Then .StoreQuota = objExcel.Activecell.Offset(0, 30).Value ' Disable store defaults .EnableStoreDefaults = False End If ' Prohibit send at (KB) If Trim(objExcel.Activecell.Offset(0, 31).Value) <> "" Then .OverQuotaLimit = objExcel.Activecell.Offset(0, 31).Value ' Disable store defaults .EnableStoreDefaults = False End If ' Prohibit send and receive at (KB) If Trim(objExcel.Activecell.Offset(0, 32).Value) <> "" Then .HardLimit = objExcel.Activecell.Offset(0, 32).Value ' Disable store defaults .EnableStoreDefaults = False End If End With End If ' Save data Err.Clear objPerson.DataSource.Save End If End If ' Tidy up strHomeMDBUrl = "" strPersonURL = "" Set objUser = Nothing Set objPerson = Nothing End If ' Step to the next user objExcel.Activecell.Offset(1, 0).Activate Else ' Exit loop Exit Do End If Loop ' Close Excel spreadsheet objExcel.Application.Quit End If End If End If ' Tidy up Set objArguments = Nothing Set objExchangeServer = Nothing Set objUser = Nothing Set objContainer = Nothing Set objExcel = Nothing Set objIMServers = Nothing Set objIMVirtualServer = Nothing Set objIMUserAdmin = Nothing Set objPerson = Nothing Set objMailboxStore = Nothing Set objRecipient = Nothing Set objDataSource = Nothing Set strSamName = Nothing ' Show to user WScript.Echo "Finished running script." </script> </Job> </package> Tag: how to convert a Hex string into a Long data type? Tag: 152692
  - 9
    - Find Image Source using a Variable GifJpg = "Bth" & TXHQstnNo(346) & "R.gif Response.Write GifJpg%><%rsTests.Open "SELECT * FROM TXHQsnts WHERE TXHNo = 657", cnnct, 3, If rsTests("RghtWrng") = "Y" then%><TD Width="43%"><Img Src="<%=" & GifJpg & "%>" Width="37" Height="37" The Contents if GifJpg are Tst657R.gif There is an existing Question (Image) in the directory The Image (Tst657R.gif) in GifJpg will not display, However the Response.Write GifJpg shows it is correct All the Questions are in Image Files in a directory Thank Yo Anthony Tag: how to convert a Hex string into a Long data type? Tag: 152690
  - 10
    - Printer script I am applying through a GPO a script to run under Computer Configuration>Windows Settings>Startup Here is an example of the script: rundll32 printui.dll, PrintUIEntry /in /n \\server\printershare Using this script the printer will show up in the Printer folder on a Windows 2000 box as the default printer. When the script runs on an Windows XP Pro box it acts like it runs, but no printer show up in the Printer folder? Why does this work for W2K, but not XP Pro? Thanks Tag: how to convert a Hex string into a Long data type? Tag: 152688
  - 11
    - icon in the task bar Hello all, I have a non-rectangular form... Really, it is just a bitmap with a transparencykey and a backgroundimage with formborderstyle = none. I set my icon for the object through the property window for the form. However, when I run the application, only the title shows in the taskbar... Not the icon. Any ideas? Thanks in advance, Andrew Mueller Tag: how to convert a Hex string into a Long data type? Tag: 152684
  - 12
    - windows 98 login script for clients connecting to 2k server A client that I am working with is trying to write a login script to connect users from different ou's (groups)to various shares and map the drives as they log in. Can this be done? Is this proposed solution a good work around for not using XP and group policies and where on earth would they start ? Tag: how to convert a Hex string into a Long data type? Tag: 152678
  - 13
    - open file with blanks in path Hi! I have the problem that I have to open Files via VBScript (for excample a document or an excel sheet) in an environment where the directories are like that: u:\unternehmen\A L L\S E K\... So there are blanks in the directory and it's not possible to open the file with this code: dim str str = "" for intLoop = 0 to Wscript.Arguments.Count-1 str = str & WScript.Arguments.Item(intLoop) if intLoop<>Wscript.Arguments.count-1 then str = str & " " end if next 'msgbox str set MyShell=Wscript.CreateObject("Wscript.Shell") myshell.run str The system does not find the file - What can i do? best regards Andreas Wöckl Tag: how to convert a Hex string into a Long data type? Tag: 152677
  - 14
    - script an odbc connection Does anyone know how to setup an ODBC connection silently with a script? Tag: how to convert a Hex string into a Long data type? Tag: 152675
  - 15
    - Good book? Can anyone recommend a good book to get started with scripting. I am very well versed with batch scripting and Auto-it but I would like to gain more experience so as far as I see the next logical step would be to learn vb-script. What do you think. What are some good books. Tag: how to convert a Hex string into a Long data type? Tag: 152674
  - 16
    - Connection Errors Hey group. I'm having a problem with a script I'm writing. I'm writing a script to use a net use command, map a drive, connect to this mapped drive, and do a couple things. The script runs fine up to and including the net use command. After that though, it doesnt work; bascally I don't have permissions (with the script) to go to the newly mapped drive (the account I am using to run it is a domain admin). For testing purposes, I'm only trying to connect to one box. Here's a code snipit: strComputer="est213-01" strdirlist = "net use k: \\" & strComputer & "\c$" Wscript.Echo strdirlist Set doit = WshShell.Exec(strdirlist) strdirlist = "k:" Wscript.Echo strdirlist Set doit = WshShell.Exec(strdirlist) As soon as I try to connect to k:, I get errors. However, it does create k: in the first net use command (I can manually get to it). Any suggestions? Thanks. Anthony Tag: how to convert a Hex string into a Long data type? Tag: 152673
  - 17
    - ASP Help... asp script.. select day,month,year next... write text... http://www.polatliborsa.org.tr/tr/GunlukEndeks.htm thanks Tag: how to convert a Hex string into a Long data type? Tag: 152670
  - 18
    - Display Image of a Test Question I have 1,803 Test questions in the form of images in a directory. The question to be given to the student is random within ranges. I have tried for days to get the images to display. The examples from the books have not worked. This is what I have last GifJpg = "Tst" & TXHQstnNo(346) & "R.gif Response.Write GifJpg%><%rsTests.Open "SELECT * FROM TXHQsnts WHERE TXHNo = 657", cnnct, 3, If rsTests("Wrong") = "Y" then%><TD Width="43%"><Img Src="<%=" & GifJpg & "%>" Width="937" Height="137" All the Images are labeled Tst a Number than one letter at the end. The number part is what is random. The example above is Test Question # 657. The Question is # 346. The lettter R means the question was answered in-correctly the first time the question was asked. Does anyone know why I am having trouble to display the Image Thank You in Advanc Bill Barber Tag: how to convert a Hex string into a Long data type? Tag: 152667
  - 19
    - Monitor windows service Hi, anyone has a script to Monitor windows service ? thanks Tag: how to convert a Hex string into a Long data type? Tag: 152665
  - 20
    - indexing service hi everybody, i have a problem with the indexing service when i have to do a second search in my internal portal, the first search is always good but if i want to searh another word the following message appears: CreateRecordset error '8001010e' The application called an interface that was marshalled for a different thread. My code: <% dim numerr, abouterr dim str_search dim Q Dim Rs dim strQuery str_search = Request.Form("CompSearch") Response.Write "Stringa " & str_search 'On Error Resume Next If str_search <>"" then Set Q=Server.CreateObject("ixsso.Query") Q.Query = str_search Q.Catalog="Catalogo_Portale" Q.SortBy="rank[d]" Q.Columns="doctitle, filename, create, size, characterization, vpath" Q.MaxRecords=5 Response.write "ciao1" 'On Error Resume Next Set Rs = Q.CreateRecordset("nonsequential") Q.Reset set Q = Nothing if Rs.EOF then Response.Write "Mi dispiace. Nessun risultato trovato." Response.Write " FILENAME " & Rs.Fields("filename") else Response.Write "<p><strong>" Response.Write Rs.RecordCount Response.Write "</strong> risultati trovati:</p>" Do While Not Rs.EOF Response.Write "<strong>" Response.Write ("<a target=_blank href="& Rs.Fields("vpath")& ">" & Rs.Fields("doctitle")& ": " & Rs.Fields("filename")& "</a>") response.Write "</strong> " Response.Write "<br>" Response.Write "Create:" Response.Write Rs.Fields("create") Response.Write "<br>" Response.Write "Size:" Response.Write Rs.Fields("size") Response.Write "<br>" Response.Write "<I>" Response.Write Rs.Fields("vpath") response.Write "</I> " Response.Write "<br><br>" ' Spacing between results Rs.MoveNext Loop Rs.close set Rs = Nothing end if end if if Err.number <> 0 Then Response.Write "An Error has occured! Error number " & Err.number & " of_ the type: " & Err.description & Err.Column & Err.Line & Err.Source End If 'Response.Write "Your Session ID is " & Session.SessionID %> can you help me? thanks Tag: how to convert a Hex string into a Long data type? Tag: 152661
  - 21
    - how can i calculate with currencies/money values? As a VBS newbe I am trying to create a calculation witch needs to result in a two digit decimal notation like: 11.90 I keep getting results like: 11.90423 or 11.9 Can anyone please help me solve this problem? Thanks a lot! Casper Tag: how to convert a Hex string into a Long data type? Tag: 152660
  - 22
    - How can I calculate with currencies/money values? As a VBS newbe I am trying to create a calculation witch needs to result in a two digit decimal notation like: 11.90 I keep getting results like: 11.90423 or 11.9 Can anyone please help me solve this problem? Thanks a lot! Casper Tag: how to convert a Hex string into a Long data type? Tag: 152659
  - 23
    - Word.Application Hi On our intranet, in IE on a client with WinXP Pro sp1, IE6 sp1, Office XP Pro and Office 2k Pro: set oWrd = createobject("Word.Application") is erroring with "...(DLL) initialization routine failed" The site is in the Trusted zone and ALL security options are set to enabled However, on a client with Win2k Pro sp3, IE5.5, Office 2k Pro the page works OK I have examined the registry and all Word.Application entries have the same clsid (if that is relevant... Can anyone tell me why?? eg should I try uninstalling one of the Office versions or is it more likely a security issue with WinXP or what.. Thanks for any thought Arth Tag: how to convert a Hex string into a Long data type? Tag: 152657
  - 24
    - Controling MS-Agent events from a standalone vb script Hello, I'm trying to control ms-agent from vbs. That works fine when the script is embedded in a web page but, when I try to do that in a stnadalone script nothing happens ! Nom = "peedy" Set Agent = CreateObject("Agent.Control.2") Agent.Connected = true Agent.Characters.Load Nom, Nom+".acs" Set Merlin = Agent.Characters(Nom) Merlin.Show Merlin.Play "DoMagic2" Do While Merlin.Visible:wscript.sleep 10:loop Agent.connected = false Set Merlin = Nothing Set Agent = Nothing sub Agent_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) Merlin.Hide end sub The click event is never triggered, I tried with _Command, _DblClick ans so on. Does anyone have an idea ? Thanks in advance. -- Gilles COSTA, Géomètre-expert Selarl Gross-Allain 17, grande rue, BP 23 91311 Montlhéry cedex, France Tag: how to convert a Hex string into a Long data type? Tag: 152652
  - 25
    - Runtime Error Hello all I have a problem with a small VB script, which I want to use as login script. -------------------- Set oNet = CreateObject("Wscript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") oDrive = "O:" If oFSO.DriveExists(oDrive) Then oNet.RemoveNetworkDrive oDrive End If oNet.MapNetworkDrive oDrive, "\\server\share" Set oNet = Nothing Set oFSO = Nothing Set oDrive = Nothing -------------------- When I start the vbs I receive this error: Line: 2 Char: 1 Error: ActiveX component can't create object: 'Scripting.FileSystemObject' Code: 800A01AD Source: Microsoft VBScript runtime error Any ideas? Thanks in advance GoTTi Tag: how to convert a Hex string into a Long data type? Tag: 152648
- Next
  - 1
    - Is there an equivalent to continue in vbscript Hi : Sometimes, i want to use the "continue" comman , but ,i can't find an equivalent in VbScript .Can any one tell me how to do it ? Tag: how to convert a Hex string into a Long data type? Tag: 152644
  - 2
    - Problem with UTF-8 and Server.URLEncode Hi I'm usin Windows 2000 Advanced Serve Service Pack IIS 5. Charset UTF- Codepage= 6500 I have a problem when using the method Server.URLEncode. It converts for instance the character "Ã?" to D6(hexadecimal), but according to the ASCII-table(Extended ASCII codes) the value should be 99(hexadecimal). When I then use the method Request.QueryString the value is corrupt. I am aware of the Knowledge Base article 294831, but the service pack seems to make no difference in this case. Does anyone have any ideas how I can fix this problem?? Please help.. Thanks Christopher Tag: how to convert a Hex string into a Long data type? Tag: 152643
  - 3
    - Join Nt4 Domain using VBS Hi All, Does anyone have a script to join a PC to a NT4 domain, just using the script and no external apps? I found a script last week that worked however overwrote it and cant find the site again. Any help would be great. Thanks Brett ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: how to convert a Hex string into a Long data type? Tag: 152642
  - 4
    - WMI unable to read HKEY_USERS Hi All I've been trying to run a simple WMI script to read a value from registry path on HKEY_USERS (See below), . but haven't been able to get it to work on Windows 2000 SP4 machines for some reason (works OK on NT4 SP6a machines)...returnvalue/err.number I get is 2. Even trying to enumerate subkeys under HKEY_USERS I'm unable to do it (HKLM is fine), wondering if anyone else has seen this problem, if this is a bug or a functionality that has been taken away recently by Service Packs, hotfixes... or if there is anything wrong you can see with the script below.... any help is much appreciated. Thanks in Advance... ------------------------------------------------------------ Const HKEY_LOCAL_MACHINE = &H8000000 Const HKEY_USERS = &H80000003 CONST HKEY_CURRENT_USER = &H8000000 Set objreg = Getobject("winmgmts:{impersonationLevel=impersonate}!\\TESTPC\root\default:StdRegProv" regpath = "S-1-5-21-1606980848-1965331169-1417001333-233556\Software\DFS\IRESS\File retval = objreg.getstringvalue (HKEY_USERS,Regpath,"userdir", regvalue wscript.echo "Retval is: " & retva wscript.echo "regvalue: " & regvalu Tag: how to convert a Hex string into a Long data type? Tag: 152641
  - 5
    - Computer Name I would like to read the Computer Name from the registry other than the SET command to show %COMPUTERNAME%. Is there anyway to do it ? Which one is it ? Thanks. JW Tag: how to convert a Hex string into a Long data type? Tag: 152638
  - 6
    - Saving an MSWord Page Hi I have an MSWord document displayed in an iframe on a web page I want to allow a user to click a "save" button A dialog box would then be displayed allowing the user to save th MSWord iframe\document to disk. Is there a way to do this (I can't find a "save" dialog box or anything similar) If so - how Tag: how to convert a Hex string into a Long data type? Tag: 152632
  - 7
    - Updating Proxy in IE I would like to script the IE proxy settings, (Connections, Lan settings, and advanced "Exceptions" ) Would anyone have a sample script I could test. Thanks in advance- Bill Tag: how to convert a Hex string into a Long data type? Tag: 152631
  - 8
    - Starting Internet Explorer How would I start Internet explorer from a script and open a specific web page? Thanks for your help - Mike Tag: how to convert a Hex string into a Long data type? Tag: 152628
  - 9
    - Current Process Hello, I need to know the current ID process of a running script. In other words, while a script is being executed, I need to get the ID process of the script itself. Thx in advance for any help. Alfredo Tag: how to convert a Hex string into a Long data type? Tag: 152625
  - 10
    - How To read the COM port This is a multi-part message in MIME format. ------=_NextPart_000_0062_01C3EE3B.4AECCD20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi friends: Somebody knows how to read the COM port from VBScript or = Jscript. I need read it for the output of a scale of trucks. = Oscar Onorato ------=_NextPart_000_0062_01C3EE3B.4AECCD20 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.1276" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DVerdana size=3D2> <DIV><FONT face=3DVerdana size=3D2>Hi friends:</FONT></DIV> <DIV><FONT face=3DVerdana=20 size=3D2>          &nbs= p;    Somebody=20 knows how to read the COM port from VBScript or Jscript. I need read it = for the=20 output of a scale of trucks.</FONT></DIV> <DIV><FONT face=3DVerdana size=3D2></FONT> </DIV> <DIV><FONT face=3DVerdana size=3D2></FONT> </DIV> <DIV><FONT face=3DVerdana size=3D2>        =             =    =20             =    =20             =    =20             =    =20             =    =20             =    =20             =    =20         Oscar=20 Onorato</FONT></DIV></FONT></DIV></BODY></HTML> ------=_NextPart_000_0062_01C3EE3B.4AECCD20-- Tag: how to convert a Hex string into a Long data type? Tag: 152623
  - 11
    - AutoDefrag program Is there a program like AutoDefrag that runs the disk cleanup tool? Brian Tag: how to convert a Hex string into a Long data type? Tag: 152617
  - 12
    - Adding computer name to wallpaper Hi, I'm asking a lot of stupid questions today, but please bear with me, it won't get worse than this! We use unattended or RIS installation, and today, whenever a server is an administrator logs on and performs a few tasks that we haven't been able to automate yet. When deploying servers we include a branded desktop wallpaper, and one of the manual tasks is to edit the wallpaper (using Paint) to include the server name etc.. Questions: * Is there any way to script the editing of the wallpaper file? * Or are there any utilities out there which can perform this task? * Or alternatively, is there another (smarter) way to have the server name and other info displayed in a similar fashion as when using a wallpaper? Any input highly appreciated! Thanks, Jørn Tag: how to convert a Hex string into a Long data type? Tag: 152607
  - 13
    - Time to display Startup and Recovery Options Hi, Does anyone know how activate the 'Time to display recovery options when needed' setting and change the default time using scripting? (My Computer -> Properties -> Advanced -> Startup and Recovery). Alternatively, are these settings stored in a file somewhere, like the list of operating system are stored in Boot.ini? Regards, Jørn Tag: how to convert a Hex string into a Long data type? Tag: 152606
  - 14
    - Minidump directory Hi, I'm having problems getting Windows to 'accept' a change I make to the 'Small dump directory'. I've included below a copy of the script (which is largely copied from the Windows 2000 Scripting Guide): strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colRecoveryOptions = objWMIService.ExecQuery _ ("SELECT * FROM Win32_OSREcoveryConfiguration") For Each objOption in colRecoveryOptions objOption.DebugFilePath = "C:\Dir\memory.dmp" objOption.KernelDumpOnly = True objOption.DebugInfoType = 3 objOption.OverWriteExistingDebugFile = False objOption.MiniDumpDirectory = "%systemroot%\Dir" objOption.Put_ Next When I run the script it's completes OK without any errors, but when I check the properties of the 'Small dump directory' in the 'Startup and Recovery' options, it still says the default '%SystemRoot%\Minidump'. By the way, it makes no difference whether I change the script to read: objOption.MiniDumpDirectory = "C:\Dir". Any input appreciated! Regards Jørn Tag: how to convert a Hex string into a Long data type? Tag: 152605
  - 15
    - Managing local user objects Hi, I need to create, copy, rename and reset passwords for user obejcts that are local to a computer (both Windows XP and Windows Server 2003). I've browsed through the Windows 200 Scripting Guide, which I must say seems rather comprehensive, but I can only find information on Active Directory users. If anyone could point me to where I can find information on local user objects, I'd be much obliged! Regards, Jørn Tag: how to convert a Hex string into a Long data type? Tag: 152604
  - 16
    - WMI, services and WinXP Hello Everyone, I wrote from Italy so please be patient with my english, thanks. I am a programmer and I would like to use WMI (great!) with Visual Basic 6.0 (or VBSCRIPT) to obtain services enumeration on a remote computer, just for see what services are running and so on. The code below works well with Win2K O.S., but there are no chances to use it with WinXP; every time the error description is "Authorization denied". I think this is a problem with WinXp access security, because the API EnumServicesStatus (and related) like the WMI code dont' works with WinXp, but works well with Win2K. Same consideration with the SC.exe utility from Microsoft : impossible to query the remote service dtabase on a WinXp O.S. IMPORTANT I am convinced that this is a problem related to the security and permission because, as I say, I can't execute the code remotely (i.e. enumerating services on a WinXp PC over the network from an another Win2K PC...) but the code works well If I use VB directly on a WinXp PC. Consider that the computers with WinXp O.S. are correctly registered on the network (LAN), beacuse I can browse they shared folders with Explorer. Can someone help me, please? Thank You in advance for Your very very precious support. VB 6.0 CODE [START] 'this line gets an error on a WinXP computer (remotely), but the code works well with Win2K or WinXP (locally) Set WMI = GetObject("WinMgmts:\\MyRemoteComputerName") Set objs = WMI.InstancesOf("Win32_Service") 'Win32_BaseService For Each obj In objs Debug.Print obj.Description Next obj VB 6.0 CODE [END] GianPiero Tag: how to convert a Hex string into a Long data type? Tag: 152601
  - 17
    - Logon script Hi all, Looking for a programmer to help me with following: I am not familiar with vbscripting, but we are in desperate need for a logon script for our W3K domain clients. Clients are a mixture of NT4 SP5 and W2K Sp3 & 4 Up until now we used winbatch to perform certain tasks, but since this is an 'old' licence, we need to upgrade our scripts (and our licence). I want to switch to windows scripting to avoid to have to buy new licences for over 200 clients.. Current situation: Clients are members of one or more groups. In our netlogon share, we may have a CMD file with the same name of the group. When logging on, a login.cmd file is run. This cmd verifies if the user is member of a given group (GG-All). If not, it sends a net send to a given system, indicating the user is not a member of that group, and exits. If user is member of GG-All, the the winbatch script runs. The current winbatch script puts a full-screen window on the clients machine, used to indicate the progress in the logon. It then makes a list of all global groups the user belongs to. If there is a matching cmd file, then that cmd file is executed. (so if a user is memeber of 'GG-Testgroup' then 'GG-Testgroup.cmd' gets executed) Problems we have now: Most of the CMD files that are executed are doing four things: - Check if certain directories exist on the client machine. If not create them. - Creating network shares - Setting registry entries - Synchronising files between the fileserver and the client. We use robocopy to synchronise files (works perfectly). A lot of these CMD files have some sync-commands in common, so there is a possibility that these commands get executed more than once (resulting in lenghty logons....). These CMD files/groups are all named in the same format e.g. GG-SoftwareA, GG-SoftwareB, GG-SoftwareC, ... So what I need: Basically : same as above, but in vbs ;-) - Less code in login.cmd (I think the only line should be 'wscript login.vbs' , to please the NT4 machines...) - If user not memeber of 'GG-All' : message to user and \\console PC - Full screen window, listing user's display name, and a list of all the login 'jobs' that have to run (= all the groups a user is member of AND have a CMD file associated with it) (would be nice if an indication of already executed jobs could be made, or progress bar) - If user is memeber of at least 1 'GG-Software." group : execute common code in GG-Software.cmd - For all groups user is member of: execute group.CMD (minimized, or at least 'behind' logon screen) Someone can help me with this? If you are willing to help me, you can send a mail to t d e m e y e r [at] m u l t i n e t g r o u p [dot] c o m. Tim Tag: how to convert a Hex string into a Long data type? Tag: 152600
  - 18
    - DnsDomainSuffixSearchOrder. Does anyone have any suggestions to make this more elegant? It pulls the Dns Suffix Search Order from the registry and compares it to 'DnsSuffixes' which should be there by default. If the user already has additional suffixes, it adds them to the back-end of the string and then puts it back into the registry. Thanks, Rob Boger '> DNS Suffix Search Order. Function SetDnsSuffixes(Computer) Dim RegistryObject, CurrentDnsSuffixes, DnsSuffixes, NewDnsSuffixes, WshShell Set RegistryObject = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\default:StdRegProv") '> Define Dns Suffix Search Order. DnsSuffixes = Array("my.domain.com", _ "domain.com", _ "sbc.com") '> Get Current Dns Suffix Search Order. RegistryObject.GetStringValue &H80000002, _ "System\CurrentControlSet\Services\TCPIP\Parameters", "SearchList", CurrentDnsSuffixes CurrentDnsSuffixes = Split(CurrentDnsSuffixes,",") '> Compare Dns Suffixes. For J = 0 To Ubound(DnsSuffixes) For I = 0 To Ubound(CurrentDnsSuffixes) If Ucase(CurrentDnsSuffixes(I)) = Ucase(DnsSuffixes(J)) Then CurrentDnsSuffixes(I) = "" End If Next NewDnsSuffixes = NewDnsSuffixes & DnsSuffixes(J) If J <> Ubound(DnsSuffixes) Then NewDnsSuffixes = NewDnsSuffixes & "," End If Next '> Add Existing Dns Suffixes. For I = 0 To Ubound(CurrentDnsSuffixes) If CurrentDnsSuffixes(I) <> "" Then NewDnsSuffixes = NewDnsSuffixes & "," & CurrentDnsSuffixes(I) End If Next '> Update Dns Suffixes. Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite "HKLM\System\CurrentControlSet\Services\TCPIP\Parameters\SearchList", _ NewDnsSuffixes, "REG_SZ" End Function Tag: how to convert a Hex string into a Long data type? Tag: 152598
  - 19
    - Querying archived Security Logs I archive my NT Security Logs on a nightly basis (\\server\dir\tuesdaySecurityLog.evt) but would like to query these logs without manually having to open them in the event viewer first. Any thoughts how I could do this? TIA Tag: how to convert a Hex string into a Long data type? Tag: 152591
  - 20
    - work with a word doc file with my vbs , i want to open a word file and search different string in this file when i find this string i must create a new word file and put string in this file. an idea ?? thanks Tag: how to convert a Hex string into a Long data type? Tag: 152588
  - 21
    - setting windows wallpaper with a VBS script Hi guys, Iam not an expert in VBscripting, and I am trying to set a wallpaper and refresh it (without the user logoff) on winXP, win200 pro, and win98 using the following script (coz of company marketing strategy). Iam pushing this script via installshield to more than 1000 computers with any of above os'. The script seems to work fine on XP but doesnt work on win2k and win98. The registries seem to be changing fine but the background doesnot refresh with the rundll32 userdll call on the last line. Am I missing anything ?? Please help!! Thanks, NK ---------------------- ---------------------- Dim WshShell, wpFile, wpStyle set WshShell = CreateObject("Wscript.Shell") 'change this parameter for the destination wallpaper wpFile = "%windir%\web\wallpaper\dt1.bmp" 'wallpaper style 2-stretch, 1-center; wpStyle = 2 WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper",wpFile WshShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle",wpStyle WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\Wallpaper",wpFile WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\WallpaperStyle",wpStyle 'WScript.Echo WshShell.RegRead("HKCU\Control Panel\Desktop\Wallpaper") 'msgbox (WshShell.RegRead("HKCU\Control Panel\Desktop\WallpaperStyle")) WshShell.Run _ "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", _ 1, False ---------------------- ---------------------- Tag: how to convert a Hex string into a Long data type? Tag: 152585
  - 22
    - Netscape Can VBScript drive Netscape in a similar way it drives IE? Thanks YuriW Tag: how to convert a Hex string into a Long data type? Tag: 152584
  - 23
    - How to list Computer Description using winNT:// provider.. Hi I'm trying to list all the computers accounts in a NT4.0 Domain with their corresponding descriptions; I can list correctly the computer name but I get no description, even though the description does exist This is the code I'm using ----------------------------------------------------------------------------------------------- set DomainName = GetObject ("WinNT://MyDomain" DomainName.Filter = Array ("computer" For Each Computer In DomainNam Wscript.Echo Computer.Nam set Machine = GetObject ("WinNT://MyDomain/Computer.Name,computer" WScript.Echo Machine.Descriptio Next Tag: how to convert a Hex string into a Long data type? Tag: 152581
  - 24
    - guaranteed file copy I'm looking to write a script that will: 1.) Loop through a directory on a computer A.) Copy each file to another directory B.) Verify that is was copied C.) Delete the original file 2.) Log all actions to a text file Can anyone point me in the right direction to start? I'm pretty new to scripting, but if there was some existing code somewhere I'm sure I can piece it together and modify it to suite my needs. Tag: how to convert a Hex string into a Long data type? Tag: 152576
  - 25
    - Accessing Multiple Files w/ vbscript I'm having great difficulty figuring out a way to access multiple files using GetFolder, Subfolders, and Files to set a variable for the file to be accessed. The code below is a bit junky because I want you to see all the things I've tried. Even if I leave Subfolders out, and put all the log files in the same folder, I'm returned the same error, "File not found." I've even tried running the script in the same folder as the log files. However, if I add "wscript.echo objFile.name" in a line before "objOutputFile.Writeline(objfile.name)", I receive a message box indicating the correct filename. The bottom line is that I want to be able to parse multiple log files in a directory structure without having to specify the filenames manually. Does anyone know if this is a limitation of vbscript? Does anyone know how to access multiple files in vbscript? Any help would be greatly appreciated. ------------------------------- Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objParentFolder = objFSO.GetFolder("C:\Test\Logs") Set objOutputFile = objFSO.OpenTextFile("C:\Test\Reports\ListFiles.txt", ForWriting, True) Set objSubFolder = objParentFolder.SubFolders For Each objFolder in objSubFolder strBuildPath = objParentFolder & "\" & objFolder.name Set objFileFolder = objFolder.Files For Each objFile in objFileFolder ' response.write(objFile.name) ' wscript.echo objFile.name ' objOutputFile.WriteLine(objFile.name) Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objParentFolder = objFSO.GetFolder("C:\Test\Logs\2003\") ' Set objOutputFile = objFSO.OpenTextFile("ListFiles.txt", ForWriting, True) For Each objFiles in objParentFolder.Files ' response.write(objFiles.name) ' objOutputFile.WriteLine(objFiles.name) Next Set objFileFolder = objFolder.Files For Each objFile in objFileFolder ' response.write(objFile.name) ' objOutputFile.WriteLine(objFile.name) Next For Each objFiles in objParentFolder.Files ' response.write(objFiles.name) objOutputFile.WriteLine(objFiles.name) Next For Each objFiles in objParentFolder.Files Set objTextFile1 = objFSO.OpenTextFile(objFiles.name , ForReading) Next Next objOutputFile.close -------------------------------- TIA, Script Novice Tag: how to convert a Hex string into a Long data type? Tag: 152572

I have a variable which is an hex string that I need to convert into a
long data type

Dim myHex
Dim myLong

myHex = "FF00FF"
myLong = 1655545

if myHex < myLong then blah blah

Since I am comparing the two value I need to convert myHex into a Long
data type.

Thank you for your help.

Top

Re: how to convert a Hex string into a Long data type? by BlueFox

BlueFox
Mon Feb 09 18:10:13 CST 2004

Dim myHex
Dim myLong

myHex = "FF00FF"
myLong = 1655545

If CLng( "&H" & myHex) < myLong Then
End If

"Cubik" <cubik@yahoo.com> Ð´ÈëÏûÏ¢
news:6ffe9f65.0402091525.51506388@posting.google.com...
> I have a variable which is an hex string that I need to convert into a
> long data type
>
> Dim myHex
> Dim myLong
>
> myHex = "FF00FF"
> myLong = 1655545
>
> if myHex < myLong then blah blah
>
> Since I am comparing the two value I need to convert myHex into a Long
> data type.
>
> Thank you for your help.

Top