setting home director using vb script

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
    - Patches Looking for a script verify patches install on a server or multiple servers. thx Tag: setting home director using vb script Tag: 193576
  - 2
    - wScript.Shell Problems I am in the process of building a script to FTP files to another location. What i am curious to know is how can i dump what is being sent displayed in the comand window to a text file. Here is my code. And you will see that i am not getting anywhere. The two variables being sent to the Function just contain FTP Commands and the OutputFileName such as strCMD = "PUT test.txt rmdirectory/test.txt" & vbCrLf oFile = "C:\output.txt" Function FTP( strCMD, oFile ) Dim objFSO Dim strFile, objTempFldr, objFile, objRegExp Dim objShell, WSX, ReturnCode, Output, strLog, strErrorLog Set objFSO = CreateObject("Scripting.FileSystemObject") Set oFileFSO = objFSO.OpenTextFile(oFile,2,True) set objTempFldr = objFSO.GetSpecialFolder( 2 ) strFile = objFSO.GetTempName strFile = objTempFldr & "\" & left(strFile,Len(strFile)-4) & ".ftp" if not objFSO.FileExists( strFile ) then objFSO.CreateTextFile( strFile ) Set objFile = objFSO.OpenTextFile( strFile, 2, True ) objFile.WriteLine( strUser ) objFile.WriteLine( strPass ) objFile.WriteLine( Mode ) objFile.WriteLine( strCMD ) objFile.WriteLine( "bye" ) objFile.Close() Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "cmd /c " & COMMAND_FTP & strFile & " " & strHost,1,TRUE set objFSO = nothing End If Tag: setting home director using vb script Tag: 193569
  - 3
    - MS Visual C++ Debug Library Serveral workstations in my network receive a 'debug assertion failed' alert, when browsing the web and / or using word, outlook etc, how ever you respond to this 'alert' it simply closes whatever your working on, web page, word document etc and your work is lost!! but then you can go back to the same web page and every thing will work fine? 'debug assertion failed' Program: C:\Program Files\Internet Explorer\iexplorer.exe File: dbgdel.cpp Line: 47 Expression: _Block_Type_Is_Valid(pHead->nBlockUse) For information on how your program can cause an assertion failure, see the Visual C++ documentation on asserts. Can you help!! is it some thing left over fron a spyware/anti spam program now uninstalled? Tag: setting home director using vb script Tag: 193568
  - 4
    - list templates in MS Word files with VBScript Hello All, I am trying to write a script that scans a drive, and searches for all *.doc files, and then prints out the file name of the DOC file along with it's attached template (as we are currently having problems with non-existing templates on the network). This is what i have so far, but it is not giving me the desired result. Any help would be greatly appreciated!! SCRIPT: '=================================================================== Dim file, template Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add() objWord.FileSearch.FileName = "*.doc" objWord.FileSearch.LookIn = "C:" 'objWord.FileSearch.SearchSubfolders = True objWord.FileSearch.Execute For Each objFile in objWord.FileSearch.FoundFiles file = objFile 'Send filename to Sub FindTemplate file Next Sub FindTemplate(byVal Template) wscript.echo "File: " & template Set objDoc1 = objWord.Documents.Open(Template) For Each objTemplate in objWord.Templates Wscript.Echo "Template:", objTemplate Next End Sub '================================================================== Tag: setting home director using vb script Tag: 193566
  - 5
    - Error handling bug on GetObject? Hi, I seem to have hit a bug in the error handling of VBScript. I ran into the problem when trying to assign a user to a group, but the group doesnâ??t exist. If Error Handling is not turned on, then the script crashes on the GetObject statement as expected. However, I want to catch and log the error, and continue on with the script. So, I used the normal code: Set objGroup = GetObject(â??LDAP://cn=Sales,cn=Users,dc=fabrikam,dc=comâ??) If Err.Number <> 0 Then WScript.Echo â??Error â?? unable to bind to groupâ?? Else WScript.Echo â??Group boundâ?? End If In a main routine, this code behaves exactly as expected. However, if I put this code into a Function, like so: On Error Resume Next If SetGroup() Then WScript.Echo "Set Group Fine" Else WScript.Echo "Set Group Failed" End If Function SetGroup() SetGroup = FALSE set objGroup = GetObject("LDAP://cn=Sales,cn=Users,dc=fabrikam,dc=com") WScript.Echo "Did we get to this line?" If Err.Number <> 0 Then WScript.Echo "Error" SetGroup = FALSE Else WScript.Echo "Fine" SetGroup = TRUE End If End Function ' Set Group The Error Handling code no longer runs. Instead the Script drops out of the function back to the main routine. The WScript.Echo directly after the GetObject was added to verify that the problem was on the GetObject line, not with the Error Handling afterwards. In this simplified sample program, the program does not crash at the GetObject (though it will, as expected, without the On Error Resume Next), instead it simply drops back to the main routine. In this particular case, reporting â??Set Group Fineâ??. The full script where I ran into this problem is much more complicated, and the GetObject is in nested routines. The main routine calls a subroutine, which calls another subroutine, which calls the function that contains the GetObject statement. In this complex program, the script drops all the way back to the main routine, not just out of the Function. So far, I have not found any code examples for testing for the existence of a Group the way I can test for the existence of a file. With the GetObjectâ??s incorrect behavior when an error occurs Iâ??m not even sure how such a test can be written and incorporated into real-world scripts, as such error handling belongs in a Function or Subroutine. In most complex scripts you probably wouldnâ??t even know the data you are looking for until you were into a subroutine or function. Any help would be greatly appreciated. Jim Winner Program Manager The Catholic University of America Tag: setting home director using vb script Tag: 193562
  - 6
    - VBS Output for Multiple Video Cards I am currently working with a systems inventory script & database. I am running into a problems where computers have multiple video cards (for dual displays) an I am unable to place them in an access table correctly. Any help would be greatly appreciated, thank you in advance. The current section of my script that deals with video is: Set colVid = objCallWMI.ExecQuery ("SELECT * FROM Win32_VideoController") For Each objVid In colVid recADO.Fields("VideoCard1").Value = objVid.Name (The following line is not in my code but a sample of what I am trying to do) recADO.Fields("VideoCard2").Value = objVid.Name recADO.Fields("VideoRAM").Value = Int(objVid.AdapterRAM/1048576) & "MB" recADO.Fields("VideoDAC").Value = objVid.AdapterDACType Next Tag: setting home director using vb script Tag: 193557
  - 7
    - Change Shortcut icon via Vbs Hi , I need change the icon of a ShortCut via Vbs on login Scripts. Ex: This is the Script than i use to create the ShortCuts Set objShortcut = objShell.CreateShortcut(DesktopPath & "\" & CompanyName & " New Corporate Website.url") objShortcut.TargetPath = "ht*p://xxxxxx/" objShortcut.Save Tag: setting home director using vb script Tag: 193555
  - 8
    - Edit a remote registry help Hello, I'm looking for a code sample to edit some registry values on remote Win2k / win2k3 servers. I'll need to connect to the remote machines using different credentials than those running the script. Got any samples for me? Thanks, Troy Tag: setting home director using vb script Tag: 193554
  - 9
    - Change drivers ACPI to Standard PC Hello I've got a need to change a driver and was hoping I could do it via a vbscript instead of going through the Windows Hardware Update Wizard. In device manager, my computer is set up as a ACPI Pc and I need to change that to a standard pc. Anyone know how to accomplish that. Thanks Tag: setting home director using vb script Tag: 193552
  - 10
    - changing COM+ application settings Is there a way to use VBS to change the Identity information on the properties of an application in component services? We have to change the password of the account that is in use for this identity, and it's locally set on my clients. I'm looking for a way to change this setting without having to visit each client. Thanks! Tag: setting home director using vb script Tag: 193544
  - 11
    - RE: http://cwashington.netreach.net/ What happened to W32scriping ... http://cwashington.netreach.net/main/default.asp?topic=library did the sight move or did something else happened to it? it was a great resource for scripting. Marcus Tag: setting home director using vb script Tag: 193535
  - 12
    - need to post form data via vbs (not asp) lets say i have a webpage with the following very simplified form: <form action="somepage.asp"> <input name="username"> <input name="password"> </form> so when this form is submitted the values in the 2 input fields get sent to the asp page. i want to do this without using a browser by simply clicking a vbs file on the desktop. can i do it simply? Tag: setting home director using vb script Tag: 193525
  - 13
    - Error compacting access database I'm trying to compact an access database from a vbs script with the following code: Set objAccess = CreateObject("Access.Application.11") objAccess.DbEngine.CompactDatabase strDB, strTempDB Set objScript= CreateObject("Scripting.FileSystemObject") objScript.CopyFile strTempDB, strDB, True objScript.DeleteFile strTempDB It worked great while I executed it in my Windows XP, but from the moment it's running on a Windows 2003 Server, I get a 424 error (Object required) most of the times (not always)... What could be the cause?? Thank you in advance !! Bernardo Achirica Rodriguez IBERIA L.A.E. - Dirección de Sistemas Subdirec. Producción / U. Producción Red Tfno. +34 91 587 56 72 bachirica [at] iberia [dot] es Tag: setting home director using vb script Tag: 193519
  - 14
    - script for getting os version hi, how can we ge the version of os installed using script. Tag: setting home director using vb script Tag: 193517
  - 15
    - Prepend a list of filenames with a string Hi, I'm trying to automate some repetative tasks using a set of simple scripts. I have a handful of file lists for files that are in a directory structure and in order to upload the files via ftp, i need to prepend the filelist with some text i.e. 'put directory\' for each line in the text file. Not being used to using vbscript I need to know how *exactly* to accomplish this in vbscript (since I can't get any where close using DOS commands). Thanks J Tag: setting home director using vb script Tag: 193516
  - 16
    - Excel object... AEONS! Hi, I have a script where I'm doing this: objExcel.Workbooks.Open strFile objExcel.Cells(EXCEL_DATA_ROW_START, EXCEL_DATA_COLUMN).Select Which works (almost) perfectly... It just takes FoReVeR!!! I'm opening the file from a UNC share, and I've timed it about 15 times, and the average came out at 17 seconds for the first line, and 11 seconds for the second! And all the second line does is select a cell! am I using something incorrectly? Should it really take almost 30 seconds to open an Excel file and get the contents of a cell? (And this is running on a P4, 3,0GHz, 2GB, XP SP2, so it can't be because it's a slow machine!) If I open the file manually, it takes an average of 4 seconds to open, and then as quick as I can be with a mouse to select a cell and copy its contents. Any advice greatly appreciated! :) Plankmeister Tag: setting home director using vb script Tag: 193515
  - 17
    - Handling User Intervention whilst MoveFolder Object execution HI all I would like to know what is the method or idea to handle a renaming of folder that requires user intervention. When i performed a manual rename of a folder, i find that there is a manual input required to proceed with renaming: "Renaming, deleting "Program" could make the program may cause the program not to work... It prompts for OK or Cancel... How do i handle this case in VB Script..? Thanks Karthik Tag: setting home director using vb script Tag: 193514
  - 18
    - Attempting to Run a script with Admin privileges Hey, We have an admin wrapper here that runs using local admin rights. It uses the run as command to kick off a script with privileges but when we put it into AD login scripts it runs ok but as soon as something takes focus away from the command prompt window it stops the password from being passed and it sits there prompting the user for a password. Here is the script we are using is there anything we can do to get around having to bring up the command prompt to pass the password or is there a decent third party ap that could do it for us. Any help would be appreciated. Script: Note user names and password changed for obvious reasons Function RunUpdates appl="runas /user:Adminuser " & """wscript update.vbs""" WshShell.run appl,2,bwaitonreturn Do Until WshShell.Appactivate("runas.exe") wscript.sleep(200) Loop WshShell.sendkeys "password" & "{ENTER}" End Function Tag: setting home director using vb script Tag: 193512
  - 19
    - Read in text to array help The text file I'm trying to read in looks like this: -u www.test1.com (0,0) -i 192.154.3.25 (0,1) -e 2 (0,2) -s 1 (0,3) -n 1 (0,4) -u www.test2.com (1,0) -i 195.142.5.84 (1,1) -e 1 (1,2) -s 2 (1,3) -n 2 (1,4) What I'm trying to do is to make a two dimensional array with the data stored as shown above. I'm aslo trying to add an IF statement that goes like this If read -u then increase one to rows place. (as shown in example above) If anyone could help me with a little example of something like this that'd be awsome. This is what I have so far, but I don't know if I'm even going in the right direction. It looks a little messy and confusing to me. Again thanks for the help in advance. Set objTextFile = objFSO.OpenTextFile("c:\scripts\servers and services.txt", ForReading) Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline arrSplitChar = Split(strNextLine , " ") If (arrSplitChar(0) = "-u") Then Redim arrHoldStuff = arrWebSiteInfo(i, j) Redim arrWebSiteInfo(i + 1, 0) For i = 0 To Next ElseIf ((arrSplitChar(0) = "-i") || (arrSplitChar(0) = "-e") || (arrSplitChar(0) = "-s") || (arrSplitChar(0) = "-n")) Then ReDim arrWebSiteInfo( i, arrSplitChar(1)) Else Loop Tag: setting home director using vb script Tag: 193481
  - 20
    - Separating characters from username Hi, I am trying to write a script which will help map a users network drive on logon. It requires me to separate the username into 3 parts. For example:- if the username is abc123 The network drive address would be \\serveraddress\users\a\b\abc123 I am using vbs to write this script and have gotten this far - Run "net use u: \\serveraddress\users\" & oNetwork.UserName & " /persistent:no" Does anyone know how I can get about doing this? Thanks. Dikshant Tag: setting home director using vb script Tag: 193470
  - 21
    - Update Database (mdb) script How do you update all of the records in an Access (.mdb) table where the checkboxes are not checked? -- Cadstillo Tag: setting home director using vb script Tag: 193467
  - 22
    - string to array How to convert string to Array in VB/VBScript I have a string and I need to parse each chars to check if that chars is the one I am looking for...looks simple ut not striking me at this moment.... I was planning to iterating the array to its length and find out the chars by ASC function.... Tag: setting home director using vb script Tag: 193466
  - 23
    - Rescursive file search DateLastModified Hi, I'm relative new to vbscript, so i need a little help. I'd like to make a script that recursively searches for files with a DateLastModified within an hour or two from the current date and time. It's from a root folder and all it's subfolders. Thanks in advance, Robertico Tag: setting home director using vb script Tag: 193465
  - 24
    - Controlling VPN via VBScript Hi, I have a VPN connection using Microsoft's VPN client that is brought up initially when the computer is started up. I need a VBScript that can monitor this connection, make note when it gets disconnected, and then schedule it to reconnect 30 or so seconds later. Is there a way to do something like this? Unfortunately, the redial feature is not an option. Thanks, Chris Tag: setting home director using vb script Tag: 193461
  - 25
    - deleting folders created more than 3 days old I am writing a script that deletes any empty folders created more than 3 days ago. It won't however go more than 4 days. I am not sure I understand why. It is a case statement that checks for the current date and 3 days prior and ends with: Case Else objFSO.DeleteFolder(strFolder) 'uncomment this to delete the folders Any ideas why it would stop after 4 days? I mean it should be that if it isn't one of the 3 days given it would default to deleting it, right? Or am I totally off base here? Tag: setting home director using vb script Tag: 193460
- Next
  - 1
    - Copy file Hello! I'm writing a script, that will copy 3 files. I need to do this in order (not in the same time). How can i check, that copy of first file ended? Leszek Tag: setting home director using vb script Tag: 193453
  - 2
    - Copy files up to 1Mbyte I use this command xcopy c:\source m:\dest\local /m/e/e/v/h/y which works quite well. Now I need to copy only files below 1 MByte because files greater than 1 MByte are rare but can fill the destination too quickly. (Sorry for my English) I think, the answer will be in VBS. Thanks for all Bernd Tag: setting home director using vb script Tag: 193450
  - 3
    - rename a folder full of jpgs with the size of the file Is it possible to use vbscript to rename a folder full of jpgs, giving each one a new name with its size in kilobytes? So "sample.jpg" would become "29.jpg" indicating that the file size of 29.jpg is 20 kb. Tag: setting home director using vb script Tag: 193449
  - 4
    - READONLY Form fields So, I want to have a form that gets submitted to itself adn then I set the fields to readonly, but I want to have an "Edit" button so that people have one last chance to fix everything without sending them to an all new page before submitting. Does anybody out there know of away within VBscript to change this setting within each form field w/o having to re-submit the whole page again? For instance: <input type="text" name="church_phone" value="" size="16" maxlength="20" class="dfinput" ID="Text10" <% IF request("formstatus")="locked" THEN %>READONLY<% END IF %>> So, when I first submit the form I set a variable formstatus to "locked", but when I click the edit button I want it to change to "editable". Thanks! Willie Tag: setting home director using vb script Tag: 193446
  - 5
    - Accessing Nodelistvalues from mssoap client with vbs Hi I should write a script with vbs which calls a webservice with the mssoap client. If I call a service which returns only one value there is no problem. But if I try to call a webservice which returns an array of objects i get some problems. The following code works without problems in vba but not in vbs. I found out that i get the error if I try to access a value from a nodelist like items(i).length. Is there an other solutions to access values from a object array? Does someone have an idea how I could solve this problem? thank's michel Public Function TestSoap2() Dim objSoap Dim strReturn() Dim strWsdl Dim strError Dim strEmbDate Dim items Dim item Dim i Dim z ' ' EXAMPLE calling a google web service strWsdl = "http://www.omnisolutions.ch/SLXService/service.asmx?WSDL" Set objSoap = CreateObject("MSSOAP.SoapClient") objSoap.mssoapinit (strWsdl) items = objSoap.GetDocuments2("Name") For i = 0 To UBound(items) Step 1 For z = 0 To items(i).length - 1 MsgBox items(i).item(z).Text Next 'item = items(i).item(0) 'MsgBox items.length Next ' msgbox items Set objSoap = Nothing End Function Tag: setting home director using vb script Tag: 193445
  - 6
    - Error Handling Hello friends, I have written a script that goes through folder looking for a sub-folder named "Cookies". If it filnds Cookies then it will enumarate all files in that folder and delete te files which are older than 7 days. I want to implemnet error handling where it reports what is wrong if it cannot perform the above mentioned functions and contunie with the loop. It displays the error message if there is a directory permmission related issue and exits the script rather than going through it. Can youplease point out the error? As you see I have implemented On Error Resume Next ststement pretty much in every loop just for troubleshooting but I really cannot pinpoint where it is not working __________________________________________________________________________ Dim objShell, objFSO, sUserProfile, objUserProfile, sAppDataFolder, sUserDir, SFolders Dim sAppData, objDocsAndSettings, objUser, IDate, oCookies, oFile, File, oFilesCollection, tCookies, col Set objShell = CreateObject("Shell.Application") Set objFSO = CreateObject("Scripting.FileSystemObject") set sUserDir = objFSO.GetFolder("D:\TEST") ' Get user profile folder ShowSubFolders objFSO.GetFolder(sUserDir) ' Get Sub Folders 'On Error Resume Next Sub ShowSubFolders(Col) On Error Resume Next For Each SubFolder In Col.SubFolders If SubFolder.name = "Cookies" Then Wscript.echo "Deleteing Files From" & Space(2) & SubFolder.Path Set oFilesCollection = SubFolder.Files 'On Error GoTo 0 'On Error Resume Next For Each oFile IN oFilesCollection IF DateDiff("d",oFile.DateLastModified,Now)>7 Then oFile.Delete(True) If Err.Number <> 0 Then WScript.Echo "Can't Delte the file" & Space(2) & oFile.Path WScript.Echo "(" & Err.Number & ") " & Err.Description 'WScript.Echo "" WScript.Quit Err.Number End if 'Wscript.echo oFile.name Err.clear End If next 'On Error GoTo 0 End If 'On Error GoTo 0 ShowSubFolders SubFolder 'Err.clear Next 'Err.clear End Sub Thanks cha Tag: setting home director using vb script Tag: 193443
  - 7
    - Writing to Excel appending Please Help here is the problem this file will be on a network share when i rum the script the top portion works fine it opens the script and finds the first unused cell, the second part is just an example of what i want to do. when i run this on a computer i want it to write or append the information to the spreadsheet, and on a second computer third ect, can you please help i will need to write to at least 6 cells across x whatever down then the top portion will find the last used cell and it can start over again appending Thank you Bob M ----------------------------------------------------------------------------------------------------------------------------------- Const xlCellTypeLastCell = 11 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Test.xls") Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.Activate Set objRange = objWorksheet.UsedRange objRange.SpecialCells(xlCellTypeLastCell).Activate intNewRow = objExcel.ActiveCell.Row + 1 strNewCell = "A" & intNewRow objExcel.Range(strNewCell).Activate objRange.EntireColumn.Autofit() '========================================================================================= '========================================================================================= '========================================================================================= On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Bus") For Each objItem in colItems Wscript.Echo "Bus Number: " & objItem.BusNum Wscript.Echo "Bus Type: " & objItem.BusType Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Name: " & objItem.Name Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Next Tag: setting home director using vb script Tag: 193440
  - 8
    - update multiple PowerPoint files and modify ShockWave Flash page with new movies??? I'm lost trying to do this. I need to write a script to go thru many small Powerpoint presentations and embed new versions of movies in the ShockWaveFlash object. I can get to the right slide and detect the OleObject for the Flash but I can't figure out how to reference/modify it from the script. It's crude but I loop thru the slides looking for the OleObject ActiveWindow.Selection.SlideRange.Shapes(i).Select Select Case .Type Case msoOLEControlObject 'Type 12 If it's a OLEControlObject then I have the right page (all it contains is the ShockWave Flash movie. I just want to embed a new movie on this slide then save the presentation and move on. Is this possible?. If someone has a code snippett, it would help a lot.. Alternatively: I assume I could create a newslide and embed the movie Many Thanks from a VBS/WSH novice! Tag: setting home director using vb script Tag: 193435
  - 9
    - How users can update their own personal properties in Active Directory I wonder if it is possible for users update their personal properties in Windows 2003 - AD but only the fields i want to/choose. Can someone give me a tip or script how can this be done?... Thanks [] Ricky (sorry for so must posts) Tag: setting home director using vb script Tag: 193434
  - 10
    - HTA Logon Script I'm trying to create what I think would be a simple logon script. I've posted the general idea of what I want my log in script to do. We have AD 2003 wither xp and 2000 clients. I was assuming that it would be easy to crate a vbscript and then convert it to HTA. But I can't find any websites that are very clear. Can any one please suggest a beginners website? What I want to do is: -Have IE start with no tool bar or close button: -Display the school logo -Display a welcome message -Perhaps displeay something like the date and time and the name of the computer they're logged on to -Map several drives and then display the drives that are mapped (i.e. "Your home drive is H:, The Documents Drive is R:) -Map one or two printers and display the mapping -Display a link to report computer issues to the help desk -Display a link that goes to another HTA to allow users to add/delete printers -Display a link that goes to instructions of how to upgrade their computers to XP (a link to instructions to explain how to inititate an unattended install) -Then display a 'Close this window" -Just for fun, I thought it might be fun to have it setup so that when they click the close this window button, either it moves five inches and they have to click it again. Or it brings up another window saying "Are you sure you read the instructions" Or are you sure you want to close this window? But that would only confuse/annoy people so I wouldn't do it. It's just a passing thought. After they read it the first couple of times anyway, they'd know just to hit enter twice so they could ignore the messages. Tag: setting home director using vb script Tag: 193433
  - 11
    - Running a vbs file from a network path at logon What is the proper way of executing a vbs file from a network path upon start up of a machine in a workgroup not an ADSI? I have tried a variety of different netlogon paths and setting the home local to the network path, but I have not had any luck. I am sure I am missing something very simple, Thank you in advance. Tag: setting home director using vb script Tag: 193425
  - 12
    - capture a users home directory path to use as a folder name Below is part of a script I'm working on. This part is supposed to determine the user's existing home directory path so it can copy all the contents to the user's new home drive. How can I capture the existing home directory path? Thanks, Jeremy _____________________________ ' Determin existing home directory share path somehowe ' Pass existing home directory share path to variable objOldHomeDirectory = existing home directory share path ' Determining if existing home directory share is already on my server If InStr(objOldHomeDirectory, "\\s047") = 0 Then ' Create and share new home directory on \\s047-s0371-01 ***Code not presented here*************** ' Copy contents of existing home directory (including subfolders) and paste into the new home directory Set FSO = Wscript.CreateObject ("Scripting.FileSystemObject") objFSO.CopyFolder objOldHomeDirectory, \\s047-s0371-01\ & objHomeDirectory ' Change the Home Directory path in the Profiles tab objGroup.Put "HomeDirectory", \\s047-s0371-01\students\" & objHomeDirectory Tag: setting home director using vb script Tag: 193422
  - 13
    - Wxp - Locking CD-ROM Door Closed. Hello Everyone! ISSUE: locking CD-Rom door. (eg: you push the button and the tray dosn't open) OS: Windows XP Scripting Lang.: Visual Basic Script (.VBS) ================================ Basicly to use in a login script to lock the CD tray closed. and keep it locked untill I run a script to unlock the tray. I found some VB code to do this with the API's Since I'm new to .vbs I don't know how I could convert it to a script. can anyone help?? Thanks a million in advance. ~Marc Tag: setting home director using vb script Tag: 193418
  - 14
    - laptop / Desktop? Hi All, i would write a script that have difference procedure for laptop and desktop but i don't know which function can be check. any advise? thanks, William Tag: setting home director using vb script Tag: 193413
  - 15
    - xml.send errors???? 254643 cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\" "Siglist.txt" c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210. For the past 2 years, I have been successully issueing the following commands, every night, on Windows XP Pro, via the Task Scheduler. cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/Siglist.txt" "C:\TEMP\" "Siglist.txt" cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/ii_nt86.exe" "C:\TEMP\" "ii_nt86.exe" cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/iv_nt86.exe" "C:\TEMP\" "iv_nt86.exe" cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/fi_nt86.exe" "C:\TEMP\" "fi_nt86.exe" cscript //nologo c:\util\ftpvbs.vbs "ftp://ftpav.ca.com/pub/inoculan/scaneng/fv_nt86.exe" "C:\TEMP\" "fv_nt86.exe" The c:\util\ftpvbs.vbs file contains: Dim objArgument Set objArgument = Wscript.Arguments URL=objArgument(0) DestFolder=objArgument(1) ImageFile=objArgument(2) Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", URL, False, "user", "pass" xml.Send set oStream = createobject("Adodb.Stream") Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Const adSaveCreateNotExist = 1 oStream.type = adTypeBinary oStream.open oStream.write xml.responseBody ' Do not overwrite an existing file oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist ' Use this form to overwrite a file if it already exists ' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing About a week ago, I started to receive: c:\util\ftpvbs.vbs(8, 1) msxml3.dll: System error: -2146697210. I have no idea why or how to resolve this. I can manually download the 5 files with no problem. Prior to running the script, the previous versions of the 5 files are deleted from C:\temp. KB 254643 is the only article which has "System error" and -2146697210 Any help would be appreciated. Jerold Schulman Windows Server MVP JSI, Inc. http://www.jsiinc.com http://www.jsifaq.com Tag: setting home director using vb script Tag: 193406
  - 16
    - VBS file imports xml into access adp Hi everyone, I have a vbs file on a timed WinXP scheduled task that opens up Access 2003 then deletes older data from mssql server tables and then imports from an xml file using objAccess.ImportXML. This worked perfectly until last night when the server with the xml on it was down. Is there a way to check to make sure the xml is there before the routine starts? Kindest regards, Kevin Tag: setting home director using vb script Tag: 193404
  - 17
    - Dim stmt OK, first here is the code: sqlcmd = "SELECT space_available, ministry_id, pricing_id, min_group, max_group FROM tbl_event WHERE event_id = " + int_event + " AND (event_year = DATEPART(YYYY,GetDate()) OR event_year = (DATEPART(YYYY,GetDate()+1)))" set rs = conn.Execute(sqlcmd) IF rs("pricing_id") = 0 THEN bln_group = "false" ELSEIF rs("pricing_id") <> 0 THEN bln_group = "true" END IF 'This is the IF stmt that is giving me the problems IF num_spaces > rs("space_available") THEN bln_space = "false" ELSEIF num_spaces < rs("space_available") THEN bln_space = "true" END IF So, I am passing form data to this form, then doing a compare on some of the values. I pull from the database the total number of spaces available for the specified event and then compare that to the number of people they want to send to the event to determine if there is space available. I know this doesn't take into account if there are already registrations, that is the next step, but for now the compare is failing. When I write out the values, I get that the num_spaces is right, let's say 12 and the rs("space_available") is right, 225, but the compare is wrong, it resolves to bln_space="false". Now, I have been working on isolating this problem for like 18 hours (pathetic, I know), so perhaps some fresh eyes/minds can see where I have gone astray? Any input would be most appreciated. Willie Tag: setting home director using vb script Tag: 193399
  - 18
    - Uninstall software through VB scrips Trying to uninstall a software with it instead of reaching out to add and remove programs. Tag: setting home director using vb script Tag: 193394
  - 19
    - Stream object's Write method I'm trying out the following code: Set Shell = CreateObject("WScript.Shell") Set Stream = CreateObject("adodb.stream") adTypeBinary = 1 adSaveCreateOverWrite = 2 Stream.type = adTypeBinary Stream.Open Stream.Write Shell.RegRead("HKEY_CLASSES_ROOT\.zip\CompressedFolder\ShellNew\Data") Stream.SaveToFile "test.zip",adSaveCreateOverWrite The code errors out at the call to Stream.Write. According to the documentation for the Write method, it's expecting a Variant array of bytes. A type check of the Shell.RegRead call reveals that it does return a variant array containing bytes. The same thing happens if I replace the Shell.RegRead call with an Array of integers converted to bytes. The only thing that I can think of is that the Write method is expecting strongly-typed bytes, which is not possible in script. Is that the problem? Write method docs: http://msdn.microsoft.com/library/en-us/ado270/htm/mdmthwrite.asp Tag: setting home director using vb script Tag: 193390
  - 20
    - Tool to convert PERL to VBS I am looking for a tool which can be used to convert PERL script to an equivalent VB script. I have done some googling but did not find one yet. If some one has done this please let me know. I tried Scriptomatic but could not convert it fully. Basically I have a PERL script that lists all shares on a list of servers (500), and add a deny group to them except admin shares. If anyone has a VB script please share. Thanks Tag: setting home director using vb script Tag: 193388
  - 21
    - Updating Access Information VIA VBS I have created an Access Database with a corresponding table to a script being executed. The vbs script will be executed at logon of a variety of different PCs (At this time not in an ADSI). When executed it will fill in the table with a variety of system information; comp name, ram, cpu, ect.... I have pretty much tweaked and finish the script to my liking, the only stage I have left is make sure that upon logon the script will check for updates to any of the system information, if updates exists to change the proper fields listed under that computer name (in the row). Currently I am using the computer name as the primary key, to avoid duplicate computer entries. (If there is a better way to handle duplicate information please let me know!) I found the following in TechNet Office Space. I believe the answer to my question is some how intertwined to a Recordset.Update, but I am unsure how to approach doing this. If anyone can help that would be fantastic any information needed from me please let me know and I will provide it ASAP. On Error Resume Next Const adOpenStatic = 3 Const adLockOptimistic = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.Recordset") objConnection.Open _ "Provider = Microsoft.Jet.OLEDB.4.0; " & _ "Data Source = c:\scripts\inventory.mdb" objRecordSet.Open "SELECT * FROM GeneralProperties" , _ objConnection, adOpenStatic, adLockOptimistic strCriteria = "ComputerName = 'atl-ws-99'" objRecordSet.Find strCriteria objRecordset.Fields.Item("Department") = "Finance" objRecordset.Update objRecordSet.Close objConnection.Close Tag: setting home director using vb script Tag: 193381
  - 22
    - How to use WScript to execute DOS command line in VBScript Hi VBScript Expert, I am trying to execute the commandline from WScript object, but don't know the correct syntax as well as how to retrieve the commandline output result. Here are part of the codes for your reference: dim obj Set obj = WScript.CreateObject("WScript.Shell") obj.Run "Netstat.exe -n | find ""172.16.1.186:1388"" | find /C ""ESTABLISHED""" The whole purpose is to detect whether the connection to port 1388 has been established or not. If yes, do someting, else exit. Thanks for your help!!! -adam Tag: setting home director using vb script Tag: 193380
  - 23
    - WMI Output from different classes to CSV Hello, Using scriptomatic I thought it would be helpful to make a script to find the type of machine (Dell GX60, GX520, GX260 and so on) and BIOS version. I made the two scripts, whittled down the parts I don't need and now I want to put it into a CSV, the problem is that since the queries run against two different classes the For loops are seperated, making two lines per PC rather one in my destination CSV file. Is there a way to make the second For loop append to the correct line or have the loop run in such a way that the line I want is created? Here's my code (ignore wrapping by the NG engine): filePath = "C:\Temp\" filePrefix = "BIOS" fileExt = ".csv" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(filePath & filePrefix & fileExt) objFile.WriteLine "Computer Name,ID Number,Sytem Model,UUID,Serial Number,BIOS Version,Status,Version" arrComputers = Array("pc1","pc2","pc3) For Each strComputer In arrComputers Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems objFile.WriteLine UCase(strComputer)&","&objItem.IdentifyingNumber&","&objItem.Name&","&objItem.UUID Next Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems objFile.WriteLine UCase(strComputer)&","&objItem.SerialNumber&","&objItem.SMBIOSBIOSVersion&","&objItem.Status&","&objItem.Version Next Next Function WMIDateStringToDate(dtmDate) WScript.Echo dtm: WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _ Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _ & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2)) End Function Tag: setting home director using vb script Tag: 193379
  - 24
    - VB Script in totaling sums I have an Access database and am using Front Page with a little SQL and VB script to manipulate and display data. I am having some problems with a page that is displaying data properly but is not totaling points correctly by the desired variable. It is also not providing total points for the last entry on the page. I'm not sure this is the correct list to get help with this or not. Here is some of the code from the page. I need it to total points by NWHAHP even if there is a newshow or lastshow. I also need it to provide total points for the last NWHAHP entry on the page. Thanks in advance for any suggestions and assistance. If you need more information, please let me know.......DN <%@ LANGUAGE=VBScript %> <%dim Lastshow, Newshow, LastNWHAHP, NewNWHAHP Lastshow = " " Newshow = " " LastNWHAHP = " " NewNWHAHP = " " %> <%dim Totalpoints Totalpoints = 0.0 %> Within this area is the Database Results info.  </font> </font> <% Newshow = FP_FieldVal(fp_rs,"Name")%> <% NewNWHAHP = FP_FieldVal(fp_rs,"NWHAHP")%> <%if ((NewNWHAHP <> LastNWHAHP) and (LastNWHAHP <> " ")) or ((Newshow <> Lastshow) and (Lastshow <> " ")) then%> <tr><td nowrap colspan="3"> </td><td nowrap colspan="2"><font face="Arial" size="1" >Total Points</font></td><td nowrap ><font face="Arial" size="1" > <%=Totalpoints%></font></td></tr> <tr><td colspan="6"><hr width="100%"></td></tr> <% Totalpoints = 0%> <% end if %> <td nowrap ><font face="Arial" size="1" color="#000080"> <% Totalpoints =Totalpoints + FP_FieldVal(fp_rs,"Points")%> <%if ((NewNWHAHP <> LastNWHAHP) ) then%>  </tbody> <tr><td nowrap colspan="3"> </td><td nowrap colspan="2"><font face="Arial" size="1" >Total Points</font></td><td nowrap ><font face="Arial" size="1" > <%=Totalpoints%></font></td></tr> Tag: setting home director using vb script Tag: 193378
  - 25
    - Mapnetwork drive (not on the own machine) Hi, I'm a beginner in scripting and have a question about mapping a network drive. On my local machine (or as a logon script) this code works exactly as it should : Dim NetworkObject Set NetworkObject = CreateObject("Wscript.Network") NetworkObject.MapNetworkDrive "Z:", "\\server\user\LogFiles" But how can i do this e.g. from my machine on a remote machine ? I though that strComputer = "computername" defines the machine on which this script should run, but when i add this line to this basic script, it still runs on my machine. Please apologize for this question, but i'm just learning how to script in VB and currently i can't explain myself why this is not running in that case, in some other script i used this variable already and there it worked ? Best regards Uwe Tag: setting home director using vb script Tag: 193374

Hi,

I am a newbie to scripting.

Im try to set homedirectory for particular users in a group using
script.(using wsh)

Can anyone provide me the solution for it.

cheers,
Nuti

Top

Re: setting home director using vb script by mr_unreliable

mr_unreliable
Wed Jul 12 15:37:05 CDT 2006

hi Nuti,

You might find what you want on the page entitled:

"HOW TO: Assign a Home Directory to a User"

found here:

http://support.microsoft.com/?kbid=320043

cheers, jw
____________________________________________________________

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

Nuti wrote:
> Hi,
>
> I am a newbie to scripting.
>
>
> Im try to set homedirectory for particular users in a group using
> script.(using wsh)
>
>
> Can anyone provide me the solution for it.
>
>
> cheers,
> Nuti
>

Top