Run on startup, but only in this hardware profile?

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
    - Modify existing script that creates mailboxes and users Hello all, I have this great script it creates users with mailboxes what i want to do is modify how the user login name is created right now its firstname_lastname what i need it to be is FLastname First Initial of firstname then lastname no spaces no underscore. currently this is how it is Username: Firstname_Lastname Email address: Firstname_Lastname@domain.com This is how i would like it to work Username: FLastname Email Address: FLastname@domain.com There is just so much to this script i dont know what to do with it. Thanks ~Brian Script Below 'Copyright (c) Microsoft Corporation. All rights reserved. '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateMailboxBeforeLogon '// Purpose: Creates a new user in Active Directory and a mailbox for '// the new user before they logon. '// '// Input: strDCServerName = The domain controller on which the Active '// Directory users will be created. '// '// strServerName = The Exchange server on which the mailboxes '// will be created. '// strStorageGroup = The storage group in which the mailboxes '// will be created. '// strMailboxStore = The mailbox store in which the mailboxes '// will be created. '// strUserFileName = The name of the text file containing the '// information for the new users. '// strFolderLang = The language in which the mailbox '// folders will be created. '// '// Example: cscript CreateMailboxBeforeLogon.vbs "DCServerName" "ServerName" "First Storage '// Group" "Mailbox Store (SERVERNAME)" "UserFile.txt" "en-us" '// '// The UserList.txt file format example: '// '// John;Doe '// '// So the format is: FirstName;LastName '// '// The script creates log file UserMail.log in directory where te script was run from '// '// '///////////////////////////////////////////////////////////////////////////////// Option Explicit On Error Resume Next ' Check number of input arguments. If wscript.Arguments.count <> 6 Then wscript.echo "Usage: cscript CreateMailboxBeforeLogon.vbs strDCServerName strServerName " & _ "strStorageGroup strMailboxStore strUserFileName strFolderLang" wscript.Quit End If ' Declare variables for input parameters. Dim strDCServerName 'As String Dim strServerName 'As String Dim strStorageGroup 'As String Dim strMailboxStore 'As String Dim strUserFileName 'As String Dim strGivenName 'As String Dim strSurname 'As String Dim strAlias 'As String Dim strPassword 'As String Dim strFolderLang 'As String ' Declare variables used for verifying the existance of the mailbox store ' where the mailbox is to be created. Dim iDS ' As IDataSource Dim iAdRootDSE 'As ActiveDs.IADs Dim objServer ' CDOEXM.ExchangeServer Dim objSG ' CDOEXM.StorageGroup Dim objMSDB ' CDOEXM.MailboxStoreDB Dim storegroup Dim mbx Dim bFound ' As Boolean ' Declare variables for iterating through the ' file of new users. Dim objUser 'As IADsUser Dim strDomainDN 'As String Dim strLDAPUrl 'As String Dim arrNewUsersInfo Dim strCurrUserInfo Dim arrCurrUserInfo Dim fs ' As FileSystemObject Dim tsNewUsers ' As FSO.TextStream Dim iLineNum ' As Integer Dim bContinue ' As Boolean Dim TimeInterval Dim NumofTry 'As Integer Dim iCounter 'As Integer '=============================================================================================== ' Dim ath, ath1, ath2 Dim Msg Dim tsNewUsersLog Dim where Dim strLogFile strLogFile = "UserMail.log" '=============================================================================================== ' Get input parameters. strDCServerName = wscript.Arguments(0) strServerName = wscript.Arguments(1) strStorageGroup = wscript.Arguments(2) strMailboxStore = wscript.Arguments(3) strUserFileName = wscript.Arguments(4) strFolderLang = wscript.Arguments(5) ' Validate input parameters. If ValidateInput(strDCServerName) = False Then wscript.Quit If ValidateInput(strServerName) = False Then wscript.Quit If ValidateInput(strStorageGroup) = False Then wscript.Quit If ValidateInput(strMailboxStore) = False Then wscript.Quit ' Verify that the specified mailbox store exists. ' Initialize bFound. bFound = False ' Get the default naming context. Set iAdRootDSE = GetObject("LDAP://RootDSE") strDomainDN = iAdRootDSE.Get("defaultNamingContext") ' Create objects for verifying existance of ' the mailbox store where the mailbox will be created. Set objServer = CreateObject("CDOEXM.ExchangeServer") Set objSG = CreateObject("CDOEXM.StorageGroup") Set objMSDB = CreateObject("CDOEXM.MailboxStoreDB") Set iDS = objServer.GetInterface("IDataSource") ' Bind to the Exchange server. iDS.Open strServerName ' Check that the destination mailbox store exists. For Each storegroup In objServer.StorageGroups objSG.DataSource.Open storegroup ' Error handling. If CDOEXM attempts to open a Recovery ' Storage Group, a 0xC1032221 error will be returned. If Err <> 0 Then wscript.echo "An error occurred opening the specified storage group." wscript.echo "Error: 0x" & Hex(Err.Number) & " " & Err.Description wscript.echo "Exiting the application." ' Clean up. Set objSG = Nothing ' Exit the application. wscript.Quit End If If UCase(strStorageGroup) = UCase(objSG.Name) Then For Each mbx In objSG.MailboxStoreDBs objMSDB.DataSource.Open mbx If UCase(strMailboxStore) = UCase(objMSDB.Name) Then bFound = True ' Get the LDAP URL for the mailbox store. strLDAPUrl = "LDAP://" + mbx Exit For End If Next End If If bFound Then Exit For Next ' Clean up. Set objServer = Nothing Set objSG = Nothing Set objMSDB = Nothing ' If the mailbox store was not found, exit the program. If bFound = False Then wscript.echo "The specified mailbox store could not be found." wscript.Quit End If ' Create the FileSytemObject object. Set fs = CreateObject("Scripting.FileSystemObject") '=============================================================================================== 'Build path for the log file - NOT USED 'ath = fs.GetAbsolutePathName(strUserFileName) 'ath1 = instrrev(ath, "\") 'ath = left(ath, len(ath)-ath1) 'ath2 = ath & "UserMail.log" '=============================================================================================== ' Open the log file Set tsNewUsersLog = fs.OpenTextFile(strLogFile, 2, 1) If Err <> 0 Then wscript.echo "An error occurred creating the log file." wscript.echo "Error: " & Err.Number & " " & Err.Description wscript.echo "Exiting the application." err.clear set fs = Nothing set tsNewUsersLog = Nothing wscript.Quit End If '=============================================================================================== ' Open the new users file. Set tsNewUsers = fs.OpenTextFile(strUserFileName, 1, -1) ' Error handling. If Err <> 0 Then LogMessage tsNewUsersLog, "An error occurred opening the file of new users." LogMessage tsNewUsersLog, "Error: " & Err.Number & " " & Err.Description LogMessage tsNewUsersLog, "Exiting the application." ' wscript.echo "An error occurred opening the file of new users." ' wscript.echo "Error: " & Err.Number & " " & Err.Description ' wscript.echo "Exiting the application." ' Clean up. Set fs = Nothing Set tsNewUsers = Nothing Set tsNewUserLog = Nothing wscript.Quit End If ' Get all lines from the new users file and split ' them into an array of strings. arrNewUsersInfo = Split(tsNewUsers.ReadAll, vbCrLF)'Chr(13)) ' Iterate through the array of new users. For iLineNum = 0 To UBound(arrNewUsersInfo) bContinue = True ' Split the given name, surname, alias, and ' password strings into the array. arrCurrUserInfo = Split(arrNewUsersInfo(iLineNum), ";", -1, 1) ' Check the number of elements in the array. If UBound(arrCurrUserInfo) = 1 Then ' Get the given name, surname, e-mail alias, ' and password from the array. strGivenName = arrCurrUserInfo(0) strSurname = arrCurrUserInfo(1) strAlias = strGivenName & "_" & strSurname '=============================================================================================== '============= what the password is set to ==================================================== strPassword = "Pa$$word12" '=============================================================================================== '=============================================================================================== ' Display the e-mail alias. LogMessage tsNewUsersLog, strSurname & " " & strGivenName & " ..." ' wscript.echo strSurname & " " & strGivenName & " ..." ' Validate the given and surnames. If ValidateName(strGivenName) = False Or ValidateName(strSurname) = False Then bContinue = False End If ' Validate the e-mail alias. If ValidateAlias(strAlias) = False Then bContinue = False End If Else bContinue = False End If ' If input validation passed, then attempt to create the ' user object. If bContinue Then bContinue = CreateNewUser(strDCServerName, strGivenName, strSurname, strAlias, _ strPassword, objUser, strDomainDN) End If ' If the user object was successfully created, then ' attempt to create the mailbox. If bContinue Then ' Initialize the variables. TimeInterval = 60000 NumofTry = 10 iCounter = 0 ' Depending on the size of the network, the Recipient Update ' Service may take some time to propagate the new user ' to the Exchange server. Attempt to create the mailbox every ' 60 seconds for 10 minutes. Do While iCounter < NumofTry ' Attempt to create the mailbox in the specified ' mailbox store. bContinue = CreateNewUserMailbox(objUser, strLDAPUrl) ' Continue if CreateNewUserMailbox succeeded. If bContinue Then Exit Do iCounter = iCounter + 1 ' Wait before trying again. wscript.sleep(TimeInterval) Loop ' Could not create the mailbox after NumofTry attempts. If iCounter >= NumofTry Then LogMessage tsNewUsersLog, "Failed to create a mailbox for " & strAlias & "." ' wscript.echo "Failed to create a mailbox for " & strAlias & "." bContinue = False End If End If ' ' If the mailbox was created, then attempt to force the ' ' Exchange server to create the mailbox folders. ' If bContinue Then ' ' ' Initialize the variables. ' TimeInterval = 60000 ' NumofTry = 10 ' iCounter = 0 ' ' ' Directory Service replication may take some time. Attempt ' ' to force the Exchange server to create the mailbox folders ' ' every 60 seconds for 10 minutes. ' Do While iCounter < NumofTry ' ' Wait for a certain time interval before trying again. ' wscript.sleep(TimeInterval) ' ' ' Attempt to force the Exchange server to create the ' ' mailbox folders in the specified language.. ' If CreateMailboxFolders(strServerName, strDomainDN, strAlias, _ ' strPassword, strFolderLang) Then Exit Do ' iCounter = iCounter + 1 ' Loop ' ' ' Could not create the mailbox folders after NumofTry attempts. ' If iCounter >= NumofTry Then ' wscript.echo "Failed to create the mailbox folders for " & strAlias & " before logon." ' End If ' End If LogMessage tsNewUsersLog, " " ' wscript.echo("") Next ' Close the file. tsNewUsers.Close tsNewUsersLog.Close ' Clean up. Set fs = Nothing Set tsNewUsers = Nothing Set tsNewUsersLog = Nothing ' Exit the application. wscript.Quit '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateNewUser '// '// Purpose: Creates a new user in Active Directory with the specified given name, '// surname, e-mail alias, and password. '// '// '// Input: strDCServerName = The domain controller on which the user '// object will be created. '// '// strGivenName = The given name of the new user. '// '// strSurname = The surname of the new user. '// '// strAlias = The e-mail alias of the new user. '// '// strPassword = The password for the new user. '// '// Output: objUser = The user object for the new user. '// '// strDomainDN = The domain DN of the new user. '// '// Returns: True if AD user object is created, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function CreateNewUser(strDCServerName, strGivenName, strSurname, strAlias, _ strPassword, objUser, strDomainDN) On Error Resume Next CreateNewUser = False ' Declare program variables. Dim objContainer 'As IADsContainer Dim strRecip 'As String ' Build the recipient string. ''''' strRecip = "CN=" & strAlias strRecip = "CN=" & strSurname & "\, " & strGivenName ' Get the container. '=============================================================================================== '======= change the "OU=Test Accounts," to OU where you want users to be created =============== '======= EXAMPLES: "OU=Users,OU=IMS,OU=Business Units," to create user for IMS '======= "OU=Users,OU=Aviation Group,OU=Business Units," to create user for Aviation Set objContainer = GetObject("LDAP://" & strDCServerName & "/" & "OU=Construction, OU=Test Accounts," & _ strDomainDN) '=============================================================================================== '=============================================================================================== ' Initialize the user object. Set objUser = objContainer.Create("User", strRecip) ' Set the display name, account name, given name, surname, an ' and userprinciple properties of the user object. objUser.Put "displayname", strSurname & ", " & strGivenName objUser.Put "sAMAccountName", strAlias objUser.Put "givenName", strGivenName objUser.Put "sn", strSurname '=============================================================================================== '=============================================================================================== '=== change UPN suffix to what you need - @domain etc. ================== objUser.Put "userPrincipalName", strAlias & "@domain" '=============================================================================================== '=============================================================================================== ' Save the changes to the user object. objUser.SetInfo ' Error handling. If Err.Number <> 0 Then LogMessage tsNewUsersLog, "Error creating user object for " & strAlias LogMessage tsNewUsersLog, "Error: " & Err.Number & " " & Err.Description ' wscript.echo "Error creating user object for " & strAlias ' wscript.echo "Error: " & Err.Number & " " & Err.Description ' Clean up. Set objContainer = Nothing Set objServer = Nothing Set objSG = Nothing Set objMSDB = Nothing If Err.Number = -2147019886 Then LogMessage tsNewUsersLog, "The object already exists." ' wscript.echo "The object already exists." CreateNewUser = False Exit Function End If CreateNewUser = False Exit Function End If ' Set the password for the new user. This should be changed by the user ' after he or she logs on. objUser.SetPassword strPassword '=============================================================================================== '=============================================================================================== '========== comment out if you do not want "change password at the next logon" activated ======= ''''objUser.Put "pwdLastSet", 0 '=============================================================================================== '=============================================================================================== ' Enable the new user account. objUser.AccountDisabled = False '=============================================================================================== '===== comment previous line and uncomment next line if you want create disabled account ======= ' objUser.AccountDisabled = True '=============================================================================================== '=============================================================================================== ' Clean up. Set objContainer = Nothing Set objServer = Nothing Set objSG = Nothing Set objMSDB = Nothing LogMessage tsNewUsersLog, "User object for " + strAlias + " created successfully." ' wscript.echo "User object for '" + strAlias + "' created successfully." CreateNewUser = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateNewUserMailbox '// '// Purpose: Creates a mailbox for the new user in the specified '// mailbox store. '// '// '// Input: objUser = The user object for the new user. '// '// strLDAPUrl = The LDAP URL for the new user. '// '// Returns: True if the mailbox is created, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function CreateNewUserMailbox(objUser, strLDAPUrl) On Error Resume Next CreateNewUserMailbox = False ' Variables Dim objMailbox 'As CDOEXM.IMailboxStore ' Get the IMailboxStore interface. Set objMailbox = objUser ' Create a mailbox for the recipient on the specified Exchange server. objMailbox.CreateMailbox strLDAPUrl 'Enable immediate-logon for the user. objUser.Put "msExchUserAccountControl", 2 ' Save changes to the user object. objUser.SetInfo ' Error handling. If Err.Number <> 0 Then LogMessage tsNewUsersLog, "Error creating mailbox for " & strAlias LogMessage tsNewUsersLog, "Error: " & Err.Number & " " & Err.Description ' wscript.echo "Error creating mailbox for " & strAlias ' wscript.echo "Error: " & Err.Number & " " & Err.Description ' Clean up. Set objUser = Nothing Set objMailbox = Nothing CreateNewUserMailbox = False Exit Function End If '=============================================================================================== '============== comment out the next two lines if you do not want to hide the user ============= objUser.Put "msExchHideFromAddressLists", True objUser.SetInfo '=============================================================================================== '=============================================================================================== ' Clean up. Set objUser = Nothing Set objMailbox = Nothing wscript.echo "Mailbox for " + strAlias + " created successfully." CreateNewUserMailbox = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: CreateMailboxFolders '// '// Purpose: Forces the specified Exchange server to create the user's mailbox '// folders if they don't already exist. '// '// Input: strServerName = The Exchange server on which the mailbox '// has been created. '// '// strDomainDN = The domain DN of the new user. '// '// strAlias = The e-mail alias of the new user. '// '// strPassword = The password for the new user. '// '// strFolderLang = The language in which the mailbox '// folders will be created. '// '///////////////////////////////////////////////////////////////////////////////// Function CreateMailboxFolders(strServerName, strDomainDN, strAlias, _ strPassword, strFolderLang) On Error Resume Next CreateMailboxFolders = False ' Variables Dim strMailboxURL 'As String Dim strUserDomain 'As String ' Build the URL to the user's mailbox. strMailboxURL = "http://" & strServerName & "/Exchange/" & strAlias & "/" ' Build the Domain\Username string. strUserDomain = Left(strDomainDN, InStr(1, strDomainDN, ",", vbTextCompare) - 1) strUserDomain = Right(strUserDomain, Len(strUserDomain) - 3) + "\" + strAlias ' Create the XMLHTTP object. Dim oXMLHTTP Set oXMLHTTP = CreateObject("microsoft.xmlhttp") ' Open the request object with the GET method. Specify the source URI, ' that it will run asynchronously, and the username/password of the ' new user. oXMLHTTP.Open "GET", strMailboxURL, False, strUserDomain, strPassword ' Set the language in which the mailbox folders will be created. oXMLHTTP.setRequestHeader "Accept-Language", strFolderLang oXMLHTTP.setRequestHeader "Connection", "Keep-Alive" ' Send the GET method request. If the mailbox folders ' have not yet been created, this method will have the side ' effect of forcing the Exchange server to create them in ' the language specified in the "Accept-Language" header. oXMLHTTP.Send ("") If oXMLHTTP.Status >= 200 And oXMLHTTP.Status < 300 Then wscript.echo "Mailbox folders for " & strAlias & " successfully created." CreateMailboxFolders = True Else 'GET method did not successfully force creation of mailbox folders. CreateMailboxFolders = False End If Set oXMLHTTP = Nothing End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: ValidateInput '// '// Purpose: Verifies that the specified server, mailbox store, or storage group name '// is not longer than 64 characters and doesn't contain any illegal characters. '// '// Input: sInput = The specified server, mailbox store, or storage group name. '// '// Returns: True if the string is validated, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function ValidateInput(sInput) ValidateInput = False Dim strPattern 'As String Dim regex 'As RegExp If Len(sInput) > 64 Then LogMessage tsNewUsersLog, "The length of the specified server, mailbox store, or storage group name" _ + " cannot exceed 64 characters." ' wscript.echo "The length of the specified server, mailbox store, or storage group name" _ ' + " cannot exceed 64 characters." Exit Function End If ' Create the regular expression object. Set regex = New RegExp ' Set the pattern to search for. strPattern = ";|/|\\" regex.Pattern = strPattern regex.Global = True ' Exit the application if ';', '\', or '/' ' is found in the input string. If regex.Test(sInput) Then LogMessage tsNewUsersLog, "The specified server, mailbox store, or storage group name cannot contain ';', '\', or '/'." ' wscript.echo "The specified server, mailbox store, or storage group name cannot contain ';', '\', or '/'." ' Clean up. Set regex = Nothing ' Exit the application. Exit Function End If ' Clean up. Set regex = Nothing ValidateInput = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: ValidateAlias '// '// Purpose: Verifies that the specified e-mail alias is not longer than 256 '// characters, doesn't contain any illegal characters. '// '// Input: sInput = The specified e-mail alias. '// '// Returns: True if the string is validated, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function ValidateAlias(sInput) ValidateAlias = False Dim strPattern 'As String Dim regex 'As RegExp If Len(sInput) > 256 Then LogMessage tsNewUsersLog, "The length of the e-mail alias cannot exceed 256 characters." ' wscript.echo "The length of the e-mail alias cannot exceed 256 characters." Exit Function End If ' Create the regular expression object. Set regex = New RegExp ' Set the pattern to search for. strPattern = ":|\*|;|<|>|\||\""" regex.Pattern = strPattern regex.Global = True ' Exit the application if ';', '\', or '/' ' is found in the input string. If regex.Test(sInput) Then LogMessage tsNewUsersLog, "The specified server, mailbox store, or storage group name cannot contain ':', '*', " & _ " '|', ';', '<', '>', or '""'." ' wscript.echo "The specified server, mailbox store, or storage group name cannot contain ':', '*', " & _ ' " '|', ';', '<', '>', or '""'." ' Clean up. Set regex = Nothing ' Exit the application. Exit Function End If ' Clean up. Set regex = Nothing ValidateAlias = True End Function '////////////////////////////////////////////////////////////////////////////////// '// Function: ValidateName '// '// Purpose: Verifies that the specified name is not longer than 28 '// characters and doesn't contain the '<script' tag. '// '// Input: sInput = The specified name. '// '// Returns: True if the string is validated, False if it isn't. '///////////////////////////////////////////////////////////////////////////////// Function ValidateName(sInput) ValidateName = False Dim strPattern 'As String Dim regex 'As RegExp If Len(sInput) > 28 Then LogMessage tsNewUsersLog, "The length of the name cannot exceed 28 characters." ' wscript.echo "The length of the name cannot exceed 28 characters." Exit Function End If ' Create the regular expression object. Set regex = New RegExp ' Set the pattern to search for. strPattern = "<script" regex.Pattern = strPattern regex.Global = True ' Exit the application if "<script" ' is found in the input string. If regex.Test(sInput) Then LogMessage tsNewUsersLog, "The specified name cannot contain '<script'." ' wscript.echo "The specified name cannot contain '<script'." ' Clean up. Set regex = Nothing ' Exit the application. Exit Function End If ' Clean up. Set regex = Nothing ValidateName = True End Function '================================================================================================ Sub LogMessage(where, Msg) Wscript.Echo msg where.WriteLine msg End Sub '================================================================================================ Tag: Run on startup, but only in this hardware profile? Tag: 172754
  - 2
    - Solution found: change directory and then type text Thanks Björn. I have now found a solution which works: Set objshell = CreateObject("WScript.Shell") objshell.Environment("process")("prompt") = "$V$_$T$_$P$G" objshell.CurrentDirectory = "C:\Programme\PostgreSQL\8.0\bin\" objshell.Run "%comspec% /c Mytext" Looks always easier in the end! Rgds Francois Tag: Run on startup, but only in this hardware profile? Tag: 172753
  - 3
    - remove HTML from variables Hi, is there a function to clean a variable of HTML tags. this variable is being sent from a database call. please advise Tag: Run on startup, but only in this hardware profile? Tag: 172750
  - 4
    - Execute program First of all I want to limit one users access on a stand alone PC. I set the login time window with the NET USER command which indeed limits login. However, it doesn't force logout after exceeding login time frame. Now I want to schedule a script that warns the user that a logoff will occur, and thereafter loggs off the current user. I can create messages in VBScript but my questions are these: How can I identify the current logged on user and compare this with a constant? How can I execute the shutdown program since Shell doesn't work in scripting? Many thanks. Tag: Run on startup, but only in this hardware profile? Tag: 172748
  - 5
    - logon script We're looking to use a logon script in VBscript that does something like this: If WorkstationName = "test" and the user is a member of global group "X" then Do stuff here end if Anyone have a basic syntax for these actions? We're new to the scripting stuff obviously! Tag: Run on startup, but only in this hardware profile? Tag: 172747
  - 6
    - Advanced reg.exp pattern needed Hello I was wondering if you guys could help me. I want to remove all rows in a text that starts with Menu to ";" and not the ones that start with Menu2 to ";" Like this: Menu1_34 (lsadflasdjflaksdffjd); Menu2_1 (asldfjalsdjfalkjsdfld); Menu2 (asdjasldfalsdjf); Menu5 (aldjfaslkjfd); should return: Menu2_1 (asldfjalsdjfalkjsdfld); Menu2 (asdjasldfalsdjf); Any clues? TIA /Lasse Tag: Run on startup, but only in this hardware profile? Tag: 172744
  - 7
    - Filetransfert problem Hi there I have two windows server 2003 on the same network. From server 1 I have the move files to server 2. On server 1 I have a directory like this ..\year\month\day\file1.dat file2.dat .... and so on I have to move the files with the directorys yyyy\mm\dd, but the directory my already exist on server 2 but I could also happen that they have to be created. Can somebold help me out ? Thanks in advance Ralf Tag: Run on startup, but only in this hardware profile? Tag: 172740
  - 8
    - DFS Link script I need a script to create links in a domain based DFS. I have 3 roots and about 1 hundred link folders. ie Root = Drive 1 Link1 = data share 1 link2 = data share 2 -- TDS Tag: Run on startup, but only in this hardware profile? Tag: 172736
  - 9
    - Script to copy groups to new OU I need a script to copy a group to a new OU and then rename it as i want to keep the original groups aswell. can anyone help. -- TDS Tag: Run on startup, but only in this hardware profile? Tag: 172735
  - 10
    - Configuring Error Handling with in this Script Below is a copy of my script that I'm using to set a random password to the local administrator. I would like to improve but would like some help doing it. I would like to put some error handling in so that I can control an error and take approrate action if it fails, because at the moment if it fails say user not found the program just stops. Also I didn't know if there was a way to query the name of the default local administrator. Be honest if needs completly rewriting then say so. TIA Gary Option Explicit Dim Title, NumChar, Count, strRdm, intRdm, wshShell, oWshNet, sUserName, sComputerName, oUser NumChar = 127 Randomize Timer Do Until Count = NumChar Count = Count + 1 GetRdm strRdm = strRdm & Chr(intRdm) Loop Sub GetRdm intRdm = Int((122 - 49) * Rnd + 48) If intRdm > 57 And intRdm < 65 Or intRdm > 90 And intRdm < 97 Then GetRdm End Sub wscript.echo strRdm Set oWshNet = CreateObject("WScript.Network") sUserName = "localadmin" sComputerName = oWshNet.ComputerName Set oUser = GetObject("WinNT://" & sComputerName & "/"& sUserName & ",user") oUser.SetPassword(strRdm) oUser.Setinfo Tag: Run on startup, but only in this hardware profile? Tag: 172726
  - 11
    - I need help!!!! Hi everybody, I've got a very big problem with a VBScript. I've got a ActiveX DLL compiled with Visual Basic 6.0. In that DLL I've got a Pulic Collection with elements within, but when I do a reference to the objects in the collection, the script returns an incredible error: Error: Unknown runtime error: 'Cod_Collection.Item' Code: 800A0062 Source: Microsoft VBScirpt runtime error I've been debugging the DLL and it works fine. When I do a msgbox Cod_Collection.Count, it returns ok the value. I need help!!!! Please!!! Thanks, Eider. Tag: Run on startup, but only in this hardware profile? Tag: 172723
  - 12
    - Scriptomatic Any script I try to run from scriptomatic, fails at the "For Each objItem In colItems" I'm running the scrips, (and scriptomatic as well) from WinXP. I've also tried on the scripts several other PC's with the same result. Is there something I need to add to the scripts to make them function? What I get back when running the scrips is something like..( I do have to rem out the first line, on error resume next, in order to get a dos shell with the following) ========================================== Computer: Script-tester ========================================== C:\Scripts\Scriptomatic2\temp_script.sm(17, 4) (null): 0x80041003 C:\Scripts\Scriptomatic2> Tag: Run on startup, but only in this hardware profile? Tag: 172717
  - 13
    - how can I read EXIF data from a JPEG file I know windows can read the exif data out of jpeg files, but can I retrieve that data with vbscript? please help, Rafael Tag: Run on startup, but only in this hardware profile? Tag: 172710
  - 14
    - ADO multiple field recordset search This is a multi-part message in MIME format. ------=_NextPart_000_000C_01C53A0F.CEB7CE40 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hey there, I have a script that writes to an Access database with the following = columns. ComputerName UserID ProfileSize LastModDate I would like to perform a multiple field search in ADO rather than a = single column recordset search. Is there anyway to do that. Below is = what I currently have for single column searches. **************************** PCName =3D "mycomputer" ProfileName =3D "dabungis" strSearchCriteria =3D "ComputerName =3D '" & PCName & "'" objRecordSet.Find strSearchCriteria If objRecordset.EOF Then 'if not found, then add new record objRecordset.AddNew End If ************************ I would like to perform a multiple field search such as below. ****************************** PCName =3D "mycomputer" ProfileName =3D "dabungis" strSearchCriteria =3D "ComputerName =3D '" & PCName & "' and UserID =3D = '" & ProfileName & "'" objRecordSet.Find strSearchCriteria If objRecordset.EOF Then 'if not found, then add new record objRecordset.AddNew End If ****************************** However, I always receive an error like below. "ADODB.Recordset: Arguments are of the wrong type, are out of acceptable = range, or are in conflict with one another." What's wrong? -Jeff ------=_NextPart_000_000C_01C53A0F.CEB7CE40 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.1492" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial>Hey there,</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>I have a script that writes to an Access = database with the=20 following columns.</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>ComputerName    = UserID   =20 ProfileSize    LastModDate</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>I would like to perform a multiple field search = in ADO=20 rather than a single column recordset search.  Is there anyway to = do=20 that.  Below is what I currently have for single column=20 searches.</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>****************************</FONT></DIV> <DIV><FONT face=3DArial>PCName =3D "mycomputer"</FONT></DIV> <DIV><FONT face=3DArial>ProfileName =3D "dabungis"</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>strSearchCriteria =3D "ComputerName =3D '" = & PCName=20 & "'"<BR>  objRecordSet.Find strSearchCriteria</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>  If objRecordset.EOF Then   'if = not found,=20 then add new record<BR>    objRecordset.AddNew<BR>  = End=20 If</FONT></DIV> <DIV> <DIV><FONT face=3DArial>************************</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>I would like to perform a multiple field search = such as=20 below.</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>******************************</FONT></DIV> <DIV><FONT face=3DArial> <DIV><FONT face=3DArial>PCName =3D "mycomputer"</FONT></DIV> <DIV><FONT face=3DArial>ProfileName =3D "dabungis"</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>strSearchCriteria =3D "ComputerName =3D '" = & PCName=20 & "' and UserID =3D '" & ProfileName & "'"<BR>  = objRecordSet.Find=20 strSearchCriteria</FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>  If objRecordset.EOF Then   'if = not found,=20 then add new record<BR>    objRecordset.AddNew<BR>  = End=20 If</FONT></DIV> <DIV>******************************</DIV> <DIV> </DIV> <DIV>However, I always receive an error like below.</DIV> <DIV>"ADODB.Recordset: Arguments are of the wrong type, are out of = acceptable=20 range, or are in conflict with one another."</DIV> <DIV> </DIV> <DIV>What's wrong?</DIV></FONT></DIV> <DIV><FONT face=3DArial></FONT> </DIV> <DIV><FONT face=3DArial>-Jeff</FONT></DIV></DIV></BODY></HTML> ------=_NextPart_000_000C_01C53A0F.CEB7CE40-- Tag: Run on startup, but only in this hardware profile? Tag: 172709
  - 15
    - how can I use IIS mail object? Hi. I have used rental space and used web mail there in ASP, like; Set Mail = Server.CreateObject("Some.MailSender") Mail.Host = somerHost Mail.From = fromAddress ----- Mail.AddAddress bccAdr Mail.AddBCC bccAdr Mail.Subject = "Some matter" ' message subject Mail.Body = "Something to someone" ----- Mail.Send ' send message Then can I use the same method in IIS's built-in mail server? Thanks. M.M. Tag: Run on startup, but only in this hardware profile? Tag: 172707
  - 16
    - Add ISAPI filter throug script Hi, I was wondering if anybody know how to add a ISAPI filter into IIS 6.0 through script ? thanks Tag: Run on startup, but only in this hardware profile? Tag: 172703
  - 17
    - Automation - CPL file Hi, I'd like to know if there's a way to create a vb script to launch and CPL file and set some values. For example, %windir%\system32\inetcpl.cpl file (this file brings up IE "Internet Options" dialog) and I'd like to set some values on the dialog, e.g. "home page address" on the "General" tab, "customs level" on "security" tab, edit "web sites" list on "privacy" tab, etc. etc. etc. Is it doable in vb script? If yes, how to? If no, any other way to approach this? Please advice, thanks! -P Tag: Run on startup, but only in this hardware profile? Tag: 172701
  - 18
    - Build a hyperlink with user logon name in it Hi there, I have a simple HTML page. I would like to create a hyperlink on it that points to the logon user's home directory on a known server. For example: <A HREF = "http://[Server name]/[Logon User name]/Info.html">Your info here</A> Basically I would like to construct the hyperlink on the fly. BTW, the server name is known and it will be the same for all users. Do you know if I can do that on a HTML page with VBScript? Thanks. Abel Chan Tag: Run on startup, but only in this hardware profile? Tag: 172697
  - 19
    - 2 different dates returned Hi, I have written a generic script has successfully worked on all servers it was deployed on. Recently it was brought to my attention that not all the information was being correctly gathered. Through much testing I discovered that the same line of code returns different values on 2 different servers each running windows 2003. The line of code is: strDate=cstr(date()-1) On our server it returns 4/4/2005. On the other w2003 server it returns 04/04/05. Any idea as to why this may be? Thanks in advance, Rowland Tag: Run on startup, but only in this hardware profile? Tag: 172693
  - 20
    - Launch "printers and faxes" How can I launch the PRINTERS AND FAXES window on W2K and WXP using vbscript? Thanks in advance. Ian Matthews MCSE2001 Tag: Run on startup, but only in this hardware profile? Tag: 172690
  - 21
    - is it possible to script a transparent IE window? I have seen some cool .NET apps that use transparent windows and I would like to know if anyone knows how to script a transparent window in IE? I use IE to display output/interfaces for vbscript apps and I am wondering if this is possible? Tag: Run on startup, but only in this hardware profile? Tag: 172689
  - 22
    - Schedule Task Ok can anyone point me on how to use VBScript to schedule a task? I am clueless on this....thanks. Tag: Run on startup, but only in this hardware profile? Tag: 172687
  - 23
    - =?Utf-8?Q?ActiveX_component_cant=E2=80=99t_create_?= I am trying to learn VB scripting by following the Windows 2000 Scripting guide. Following along in the book (printout) using a script that reports back free space on the c drive. Const CONVERSION_FACTOR = 1048576 Set objWMIService = GetObject("winmgmts:") Set objlogicalDisk = objWMIservice.Get("win32_LogicalDisk.DeviceID='C:â??â??) FreeMegBytes = objLogicalDisk.freespace / CONVERSION_FACTOR Wscript.Echo Int(FreeMegBytes) When I add the line to access a remote computer ("winmgmts://" & Computer) Const CONVERSION_FACTOR = 1048576 Computer = "billy" Set objWMIService = GetObject("winmgmts://" & Computer) Set objLogicalDisk = objWMIService.Get("win32_LogicalDisk.DeviceID='C:â??â??) FreeMegBytes = objLogicalDisk.freespace / CONVERSION_FACTOR Wscript.Echo Int(FreeMegBytes) I get a VBScript runtime error Script: c:\vbstestarea\t1.vbs Line: 3 Char: 1 Error: ActiveX component cantâ??t create object: â??GetObjectâ?? Code: 800A01AD Source: Microsoft VBScript runtime error Any help would most helpful Tag: Run on startup, but only in this hardware profile? Tag: 172685
  - 24
    - Retrieving Exit Code from Script executing using Exec command I suspect I know the answer, but I want to confirm. If I have a controlling script (script A) which calls another script (Script B) using Wscript.Exec command, will the ExitCode always be 0 when I read ExitCode attribute on the returned WshScriptExec object? For example: 'Script A Set objShell = CreateObject("WScript.Shell") Err.Clear Set objExec = objShell.Exec("%comspec% /c cscript //nologo c:\temp\test2.vbs") Do While objExec.Status = 0 Wscript.Sleep(100) Loop Wscript.WriteLine("Error Code: (" & objExec.ExitCode & ") ") 'Script B Wscript.Echo " Starting Test - Test2.vbs" Wscript.Sleep(4000) Wscript.Echo " Ending Test - Test2.vbs" Err.Raise vbObjectError+3,"","Testing Failure Code 3" Wscript.Quit(3) I would expect that the last line in Script A would print "Error Code: (3)", but rather I get a 0. Tag: Run on startup, but only in this hardware profile? Tag: 172682
  - 25
    - How to get a second IE window right after closing the first one Hi, I'm trying to open another IE window with VBS right after the previous one has been closed. Playing around with the OnQuit event helps, but somehow the first IE windows crash. Could anybody help me, please? Thanks. Stefan ############################## Option Explicit Dim objIE Dim Counter, Max Counter = 0 Max = 5 Call ShowIE Sub ShowIE Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_") objIE.Visible = True objIE.navigate "http://www.yahoo.com" While True WScript.Sleep 5 Wend End Sub Sub IE_onQuit Counter = Counter + 1 If Counter <= Max Then Call ShowIE End If End Sub Tag: Run on startup, but only in this hardware profile? Tag: 172675
- Next
  - 1
    - change directory and then type text Hi all, I am a newbie to VBS and get stuck with my script when I want to type a string after a prompt. My script looks as follows: Set objshell = CreateObject("WScript.Shell") objshell.Environment("process")("prompt") = "$V$_$T$_$P$G" objshell.CurrentDirectory = "C:\Programme\PostgreSQL\8.0\bin\" objshell.Run "%comspec%" --> so far everything works fine WScript.StdOut.Writeline "String I want to issue" --> Message "invalid handle" Any idea? thanks in advance Francois Tag: Run on startup, but only in this hardware profile? Tag: 172673
  - 2
    - Simple Script Returns No Entries How can I filter a query to printers that are on a specific print server? When I run the following script I get no hits. ________________ strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer Where ServerName='\\print_server'") For Each objItem in colInstalledPrinters Wscript.Echo "Name: " & objItem.Name Wscript.Echo "ServerName: " & objItem.ServerName Wscript.Echo "Shared: " & objItem.Shared Wscript.Echo "ShareName: " & objItem.ShareName Wscript.Echo "Status: " & objItem.Status Next ________________ The script was built with script-o-matic except I added -- Where ServerName='\\print_server'") -- which I am pretty sure is the correct syntax. Of course I substituted my real printer servers name for \\print_server . Any suggestions would be appreciated. Ian Matthews MCSE2001 Tag: Run on startup, but only in this hardware profile? Tag: 172672
  - 3
    - example of how to append all txt files in a directory into one file Can someone post an example of how I can merge (append) a list of text files (all in same directory) into one big text file? This would be easy in unix shell scripting, but I cant figure it out with vbscript. If it cant be done, I would take a DOS solution if someone knows how. -thanks! Tag: Run on startup, but only in this hardware profile? Tag: 172668
  - 4
    - map drive names ? Is there any way to customize the drive names when i map , i mean i have vbscript as follows Dim objNet Set objNet = CreateObject("Wscript.Network") objNet.MapNetworkDrive "H:", \\main\share WSCript.Quit this creats a Network Drive called share on 'main' drive letter H i want it to look like Managment, Sales or things like that ? is it possible ? thanks Tag: Run on startup, but only in this hardware profile? Tag: 172665
  - 5
    - Default page size ? Here is a script that i use to set default printer for my clients @ logon , Dim net Set net = CreateObject("WScript.Network") net.SetDefaultPrinter "\\itzkhi\NRgd4452" i am facing a problem which is we use A4 page size on printer & this script sets it to Letter size , can we also set the default page size to A4 with vbscript ? please guide me .. thanks Tag: Run on startup, but only in this hardware profile? Tag: 172664
  - 6
    - VBScript on Intranet webpage works on only some PCs. Hi! I've been using the code below to send the results of a form on our intranet using the users Outlook installation. I've recently learned that it's not working on all machines. Normally, the user would complete the form, click SUBMIT, and there would be a security popup warning that another application was trying to use Outlook. The uesr would click YES and the message would be sent. The error is "ActiveX component can't create object: 'Outlook.Application' I believe that one of two things might be causing this (please correct me if I'm wrong)... 1) The security settings in IE or an IE security update is preventing the VBScript to work. I've set the Intranet and Internet settings as low as possible and still get the error. My development machine may not have all the updates that the problem machine has. 2) The machine with the error is running Outlook 2003. My development machine runs Outlook 2002 and has no issues. Do I need to use a different object to make this 2003 compatible? Is there a setting in Outlook 2003 that would allow this to work? 3) ... Any other ideas??? All machines are running WinXP Pro with SP1. Any help is appreciated. '************************************************* '* '* Send an HTML email message using users Outlook '* '* strTo = List of addresses to send to '* strFrom = Senders name/address '* strSubject = Subject line of message '* strMsg = Message content - HTML formatted '* '************************************************* sub OutlookHTMLSend( strTo, strFrom, strSubject, strMsg ) Set objOlApp = CreateObject("Outlook.Application") Set objMsg = objOlApp.CreateItem(olMailItem) objMsg.To = strTo objMsg.Subject = strSubject objMsg.HTMLBody = strMsg objMsg.Save 'Show message and let user edit and send manually. ' !! Formatting is messed up if user has Word set as their email editor. !! 'objMsg.Display 'Just send message. User may get security warning objMsg.Send 'Destroy object set objMsg = Nothing set objOlApp = Nothing 'Send user to index page document.location ="default.asp" end sub Tag: Run on startup, but only in this hardware profile? Tag: 172657
  - 7
    - send a mail include an attachment with CDO, if the attachment is in the DataBase, How to do it? Dim MyMail Set MyMail = Server.CreateObject("CDO.Message") MyMail.From = "justme@myaddress.com" MyMail.To = "friend1@address1.com;friend2@address2.com" MyMail.Subject = "Sending Mail via CDOSYS for Windows 2000/XP" MyMail.TextBody = "Sending email with CDOSYS Message " &_ "objects is easy! Try it!" MyMail.AddAttachment "c:\path\smiley.gif" MyMail.Fields("urn:schemas:httpmail:importance").Value = 2; MyMail.Fields.Update() MyMail.Send() Set MyMail = Nothing If the "smiley.gif" is in the database(e.g. sql server),how to do it? Tag: Run on startup, but only in this hardware profile? Tag: 172655
  - 8
    - Schedule + VBScipt Hi this might be the wrong place to put this but I am currently trying to find out how I would use vbscript to schedule a .bat file to run two weeks after I restore certain files. It's basically a backup restore bat file that I run to take stuff up and down on the network. What I want to do is set it up after I restore the files that it run a vbscript that would schedule a task two weeks from the restore date. The AT command is great but I want to be able do the two week thing instead of next day. Any help or direction would greatly be appreciated as I am new to VBScipt. Thank you, Rob Tag: Run on startup, but only in this hardware profile? Tag: 172652
  - 9
    - Open a console window Hello world, I'd like to make a VBScript to... 1. open a console window, 2. execute a few commands within the console (such as cd D:\mydir), 3. then terminate, but leave the console window open I couldn't find helpful infos in the documentation, so I wonder if this is possible. Could anyone please give me a push how to go? Cheers, Jens Tag: Run on startup, but only in this hardware profile? Tag: 172647
  - 10
    - Copy file from specific https url to local drive Hi, Not sure if i got the right forum, i want to do this with a vbs file anyways, or dos cmd. I have a specific https url that points to a .xls file: ie. https://url/test.xls When i enter the url into a web browser, i firstly get the 'single sign on' authentication box (entering my username and password for https access) and then i get a save dialog box where i can save the file. I want to automate this using the easiest method possible. I dont know where to look, what would be the best approach? Thanks heaps, Josh Tag: Run on startup, but only in this hardware profile? Tag: 172627
  - 11
    - del Reg Key Value and stop and start service I am new to this and I am trying to get the code below to: 1) delete a reg key value ""SOFTWARE\Intel\LANDesk\Virusprotect6\CurrentVersion\GUID 2) stop the SAV client servuce 3) Start the SAV client service To a list of 2003 and 2000 servers. I am not sure how to consolidate the three parts Thanks ' Delete reg value Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Intel\LANDesk\Virusprotect6\CurrentVersion" strStringValueName = "GUID" oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strStringValueName 'Stop all service and dependents strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServiceList = objWMIService.ExecQuery("Associators of " _ & "{Win32_Service.Name='NetDDE'} Where " _ & "AssocClass=Win32_DependentService " & "Role=Antecedent" ) For Each objService in colServiceList objService.StopService() Next Wscript.Sleep 20000 Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where Name='NetDDE'") For Each objService in colServiceList errReturn = objService.StopService() Next 'start service and dependecies strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where Name='NetDDE'") For Each objService in colServiceList errReturn = objService.StartService() Next Wscript.Sleep 20000 Set colServiceList = objWMIService.ExecQuery("Associators of " _ & "{Win32_Service.Name='NetDDE'} Where " _ & "AssocClass=Win32_DependentService " & "Role=Dependent" ) For Each objService in colServiceList objService.StartService() Next -- Thank You Tag: Run on startup, but only in this hardware profile? Tag: 172622
  - 12
    - Help - How to display system time (continuously updating) on page complete Tag: Run on startup, but only in this hardware profile? Tag: 172620
  - 13
    - Launch a Microsoft Access Macro Hi....Is there a way to automatically launch a Microsoft Access 97 Macro using vb script. Any help would be greatly appreciated. Thanks!!! Tag: Run on startup, but only in this hardware profile? Tag: 172619
  - 14
    - Ldap property Hi , I'm developing a vbs program that access to a Active Directory. I'm getting an object and I want to know if the property value is null or have a value What I'm doing is the next While Not objRecordSet.EOF strMsExchHomeServerName = objRecordSet.Fields.Item("msExchHomeServerName") if err.number <> 0 then hasmb = false else WriteLog logfile, "msExchHomeServerName = " & strMsExchHomeServerName End if wend Always returns code = 0. Please, help me Thank in advance olivarbudia Tag: Run on startup, but only in this hardware profile? Tag: 172618
  - 15
    - using vbscript to transfer/move files I'm looking for some code example on how to move a folder/file from one server to another inside the same domain. I have code to move a folder from on location to another on the same server, but when I try to move a folder/file from one server to another, I get a permission denied error. Any help would be greatly appreciated. Ron Tag: Run on startup, but only in this hardware profile? Tag: 172616
  - 16
    - A couple of questions about VBScript I've got a couple of questions WRT VBScript. I am using VBScript with Windows Script Host on Windows XP and incorporating the scripts into a WSF file. My questions are as follows: 1. Do classes allow for public or private Const declarations? I've tried, but I can't seem to find a way to do this. I have been able to duplicate the behavior by using properties with only a Get accessor, but this seems to be a bit of a hack. I have several constants that are only needed internal to the class and several that are helpful as arguments to methods. The amount of code needed for the property hack seems wasteful and the initialization of private data members is cumbersome. 2. Does VBScript allow Enums? The documentation doesn't appear to disallow it, but I am unable to code them without getting a runtime error. I've likely missed something in the documentation, but I thought that I would ask. 3. Is it possible to have some sort of class constructor that takes an argument as opposed to Class_Initialize which does not allow arguments? I have several classes where it makes sense to only have single step contruction as the class is in an indeterminate state unless several properties are known at class instantiation time. Two-step construction would require the user of the classes to know that the second method call is required. Thanks in advance.. -Pete Tag: Run on startup, but only in this hardware profile? Tag: 172611
  - 17
    - IExplore.exe Below is a vb script that will destroy any Iexplore.exe processes. It works fine but is there a way to determine which ones not destroy. For example, lets say the following websites are currently open. www.google.com www.yahoo.com www.microsoft.com Is there a way to destory yahoo and google but leave the microsft site open. We have a webapplication that is menu enabaled that launches several websites. I want to be able to see if a website is open before intiaiting another instance. strWMIMoniker = "winmgmts:!//posdtdc357407b" strQuery = "select * from Win32_Process where Name='iexplore.exe'" WScript.Echo(strQuery) For Each wmiProcess in GetObject(strWMIMoniker).ExecQuery(strQuery) WScript.Echo wmiProcess.Name & " (" & wmiProcess.ProcessId & ") is being terminated" wmiProcess.Terminate Next Tag: Run on startup, but only in this hardware profile? Tag: 172609
  - 18
    - Enable / Disable 802.1x with some script Hi everyone, I have been searching the answer to my question for a very long time now, but there is no solution in sight. So here is my problem: I want to enable / disable 802.1x Authentication on network adaptors using some sort of automation (some script / program). Does anyone out there knows a solution for that? I'll highly appreciate any helpful suggestions or pointers. Thanks in Advance. T. Shafi Tag: Run on startup, but only in this hardware profile? Tag: 172601
  - 19
    - Editing the nth byte of a BINARY Registry Value Hello I'm trying to edit a Binary Registry value which I can do by doing a full replace of the data, but because the data could be different from machine to machine and only specific bytes change I was trying to write a script that would allow me just edit specific bytes for example byte 6 and 63, but I don't know the best way to go about it. Could I use to the Replace function in this example? Replace(reg_string, "00", "01", 63, 1, 0) If so would someone be able be able to help me read in a binary registry value that I could run the replace on. I really don't have any preference how I get to how I get this to work, my programming knowledge is limited so any advice or help would be most appreciated. Thanks for time Gary PS My reference to a byte is if you export out from the registery a binary value eg "1"=hex:03,00,00,00,00,00,00, I'm asuming that the number inbetween the coma's represets a byte and I've worked out byte's that I would need to change. Please feel free to tell me if i'm being a doughnut Tag: Run on startup, but only in this hardware profile? Tag: 172598
  - 20
    - Scripting for local user admin I am looking for a script that I can run that will search all computers in my windows 2000 domain, display the username logged on and see if that user has local admin rights to his local machine Any help? Thanks Tag: Run on startup, but only in this hardware profile? Tag: 172595
  - 21
    - Removing "File Extension Assoication" Hi all, I wonder if anyone knows how to remove a "file extension assoication" programmatically with VBScript/WSH/WMI or maybe simply with a ".reg" file? Thanks in advance. T. Tag: Run on startup, but only in this hardware profile? Tag: 172593
  - 22
    - same script ok on 2K but return nothing on NT4 This is a multi-part message in MIME format. ------=_NextPart_000_0029_01C5394E.45CFB640 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, I have the vbscript abstract to query installed software information = from registry, the script runs perfect on Win2k/2k3, however returns = nothing on NT4, even though I have already installed WMIcore for NT4. = There is no error msgs, the output file is still created, but no = installed software is enumerated. I checked NT registry and it seems the software list is in the same = location = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"= , the users account used to run the script is under administrators = group.=20 Any ideas?=20 Thanks Frank This is part of the script: -------------------------------------------------------------------------= -------------------------------------------------------------------------= -- ' To enumarate installed software from the reg key which will also = appear on add/remove programs ' to enumurate the UninstPath for subkeys using EnumKey method,=20 ' then Get correponding value from the key Path using GetStringValue = method for string keys ' In order to remove invalid output, check the display name of the reg = key is not Null. ' Then check the version and Installed date which if null set to empty = so that output correctly Const HKEY_LOCAL_MACHINE =3D &H80000002 Const UnInstPath =3D = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set objReg=3DGetObject("winmgmts:{impersonationLevel=3Dimpersonate}!\\" = & _ strComputer & "\root\default:StdRegProv") objReg.EnumKey HKEY_LOCAL_MACHINE, UnInstPath, arrSubKeys objFile.WriteLine () objFile.Writeline("-------------------Installed Software = Information------------------------") For Each subkey In arrSubKeys strKeyPath =3D UnInstPath & "\" & subkey objReg.GetStringValue = HKEY_LOCAL_MACHINE,strKeyPath,"DisplayName",strValueDisplayName objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath , = "DisplayVersion",strValueDisplayVersion objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath , = "InstallDate",strValueInstallDate If Not IsNull(strValueDisplayName) Then strSoftwareName =3D strValueDisplayName End If If Not IsNull(strValueDisplayVersion) Then strSoftwareVersion =3D strValueDisplayVersion Else=20 strSoftwareVersion =3D Empty=20 End If If Not IsNull(strValueInstallDate) Then strSoftwareInstallDate =3D "Installed on " & = WMIDateStringToDate1(strValueInstallDate) Else strSoftwareInstallDate =3D Empty End If If Not IsNull(strValueDisplayName) Then objFile.WriteLine(strSoftwareName & " " & strSoftwareVersion & " " = &strSoftwareInstallDate) End If ------=_NextPart_000_0029_01C5394E.45CFB640 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.1491" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV> </DIV> <DIV>I have the vbscript abstract to query installed software = information from=20 registry, the script runs perfect on Win2k/2k3, however returns nothing = on NT4,=20 even though I have already installed WMIcore for NT4. There is no error = msgs,=20 the output file is still created, but no installed software is = enumerated.</DIV> <DIV> </DIV> <DIV>I checked NT registry and it seems the software list is in the same = location=20 "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"= , the=20 users account used to run the script is under administrators group. = </DIV> <DIV> </DIV> <DIV>Any ideas? </DIV> <DIV> </DIV> <DIV>Thanks</DIV> <DIV>Frank</DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV>This is part of the script:</DIV> <DIV>--------------------------------------------------------------------= -------------------------------------------------------------------------= -------</DIV> <DIV><FONT face=3DArial size=3D2>' To enumarate installed software from = the reg key=20 which will also appear on add/remove programs<BR> ' to enumurate = the=20 UninstPath for subkeys using EnumKey method, <BR> ' then Get = correponding=20 value from the key Path using GetStringValue method for string = keys<BR> '=20 In order to remove invalid output, check the display name of the reg key = is not=20 Null.<BR> ' Then check the version and Installed date which if null = set to=20 empty so that output correctly</FONT></DIV> <DIV><FONT face=3DArial size=3D2><BR> Const HKEY_LOCAL_MACHINE =3D=20 &H80000002<BR> Const UnInstPath =3D=20 "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"<BR> Set=20 objReg=3DGetObject("winmgmts:{impersonationLevel=3Dimpersonate}!\\" = &=20 _<BR>     strComputer &=20 "\root\default:StdRegProv")<BR> objReg.EnumKey HKEY_LOCAL_MACHINE,=20 UnInstPath, arrSubKeys<BR> objFile.WriteLine=20 ()<BR> objFile.Writeline("-------------------Installed Software=20 Information------------------------")<BR> For Each subkey In=20 arrSubKeys<BR>   strKeyPath =3D UnInstPath & "\" = &=20 subkey<BR>      objReg.GetStringValue=20 HKEY_LOCAL_MACHINE,strKeyPath,"DisplayName",strValueDisplayName<BR> =    =20  objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath ,=20 "DisplayVersion",strValueDisplayVersion<BR>    =20  objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath ,=20 "InstallDate",strValueInstallDate<BR>      If = Not=20 IsNull(strValueDisplayName) = Then<BR>    strSoftwareName =3D=20 strValueDisplayName<BR>   End If<BR>   If = Not=20 IsNull(strValueDisplayVersion)=20 Then<BR>    strSoftwareVersion =3D=20 strValueDisplayVersion<BR>   Else=20 <BR>    strSoftwareVersion =3D=20 Empty <BR>   End If<BR>   If Not=20 IsNull(strValueInstallDate)=20 Then<BR>    strSoftwareInstallDate =3D "Installed on = " &=20 WMIDateStringToDate1(strValueInstallDate)<BR>   Else<BR>&n= bsp;   strSoftwareInstallDate=20 =3D Empty<BR>   End If<BR>     =  If Not=20 IsNull(strValueDisplayName)=20 Then<BR>    objFile.WriteLine(strSoftwareName & = " "=20 & strSoftwareVersion & " "=20 &strSoftwareInstallDate)<BR>   End=20 If<BR></FONT></DIV></FONT></DIV></BODY></HTML> ------=_NextPart_000_0029_01C5394E.45CFB640-- Tag: Run on startup, but only in this hardware profile? Tag: 172591
  - 23
    - Passing arrays as DialogArguments.. ?? VBS to JS Hi Passing objects from Javascript via the DialogArgs works fine. Creating an Obj in VBScript to pass...?? but Real Question is Having created a dynamic array in VBscript, populated with the values 1 to 10 ie dim Arr() .. // Set the values redim preserrve etc in a loop .. I call the window.showModalDialog("XXX.htm", arr, "....") and the receiving XXX.htm dialog window receives the dialog args as (in JavaScipt ) var oMyObject = window.dialogArguments; and fails as Type MisMatch Is this maybe because of slightly different implementations in the languages of the dialogArguments or ..? Nonetheless, how do I resolve this ? (I have about 3 days of scripting total to my name... (years of VB proper though)) TIA Neal Neal Rogers University of Cape Town Tag: Run on startup, but only in this hardware profile? Tag: 172587
  - 24
    - Calling VBS function Hi all, is there a way to call froma a vbs file a function that resides into another vbs file ? Thanks, bye -- SM Tag: Run on startup, but only in this hardware profile? Tag: 172580
  - 25
    - VBScript to Move Ex2003 Mailbox Hello, I want to use a VBScript to move a 2003 mailbox from one server to another. I would prefer to not have to rely on third party software. This seems like an obvious one but I just can't work it out. Thsnk you Shaun Tag: Run on startup, but only in this hardware profile? Tag: 172579

Hello,

Is there a way to launch an application at login depending on the current
hardware profile?

For example, when using the "Docked" profile, I'd like to launch a certain
.EXE. But when I'm not booting up under the Docked profile, the .EXE would
not run.

If not natively supported, could it be something that's scripted?

Thanks.

--
William Fields
MCSD - Microsoft Visual FoxPro
US Bankruptcy Court
Phoenix, AZ

"Beer is proof that God loves us
and wants us to be happy."

- Benjamin Franklin

Top

Re: Run on startup, but only in this hardware profile? by Jerold

Jerold
Wed Apr 06 13:26:30 CDT 2005

On Wed, 6 Apr 2005 10:11:19 -0700, "William Fields" <Bill_Fields@azb.uscourts.gov> wrote:

>Hello,
>
>Is there a way to launch an application at login depending on the current
>hardware profile?
>
>For example, when using the "Docked" profile, I'd like to launch a certain
>.EXE. But when I'm not booting up under the Docked profile, the .EXE would
>not run.
>
>If not natively supported, could it be something that's scripted?
>
>Thanks.
Whatch out for line wrap.
REG.EXE is built into Windows XP and later, and available in Windows 2000 by installing the Support Tools from the CD-ROM.

call HardwareProfile Name
Where Name is the name of an environment variable that will be set to the friendlyName of the booted profile.
See tip 3790 in the 'Tips & Tricks' at http://www.jsifaq.com

@echo off
if {%1}=={} @echo Syntax: HardwareProfile FriendlyName&goto :EOF
setlocal
for /f "Tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\IDConfigDB" /V CurrentConfig^|FIND "REG_DWORD"') do (
set /a profile=%%b
)
set /a profile=%profile% + 10000
set profile=%profile:~1%
for /f "Tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\IDConfigDB\Hardware Profiles\%profile%" /V FriendlyName^|Find "REG_SZ"') do (
set FN=%%b
)
@echo %FN%
endlocal&set %1=%FN%

Jerold Schulman
Windows Server MVP
JSI, Inc.
http://www.jsiinc.com

Top