Creating a DFS root

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
 - Michael Harris - How to disable-Enable Local area Connection PROPERTIES via script Hello, I read a post on google groups about how you handled enabling and disabling a Local Area Connection via script. Let me say it's awesome! But, I need to go down one more layer. I need to get into the local area connection properties and actually enable/disable the connection components. (ex. File and Printer Sharing for Microsoft Networks) Any ideas? I took your script and found the verb "Properties" in oLanConnection.Verbs, but all that does is open the properties window of the oLanConnection.Verb("Properties") object. I need to enable/disable the components depending what program is about to execute. Any help would be greatly appreciated. Thanks, Frank Tag: Creating a DFS root Tag: 152800
 - 2
 - Where does the property name HREF come from? That has been an issue in local usergroup. And how do you pronounce it? I wild-guessed it comes from Html Reference. I sugested to pronounce "H - Ref" separately. Tag: Creating a DFS root Tag: 152799
 - 3
 - Dynamic Arrays If I declare a dynamic array, e.g Dim emps(), and then later in my code, depending on certain conditions, the array will be ReDimmed, how can I determine whether the array has been ReDimmed or not? Tag: Creating a DFS root Tag: 152798
 - 4
 - loading an ACTIVEX vwith VBS or WSF Hi, I used a wsf script to connect a TSE server automatically, but before using this script I must have an TSE activex download on my PC. How to do this inside the script ? Hervé Tag: Creating a DFS root Tag: 152792
 - 5
 - [?] pass parameters to Access 97 With: Set oApp = CreateObject("Access.Application.8") oApp.Visible = True oApp.RunCommand MaximizeApplication oApp.OpenCurrentDatabase "c:\temp\db1.mdb " oApp.UserControl = True I can open a db1 mdb, but how I can pass a parameter to mdb??? if I open a db from command line I can use: "msacces db1.mdb /cmd parameter1" but in vbs???? Thanks and excuse me form my english -- Pennywise Questo messaggio è composto al 100% da elettroni riciclati. Nessun atomo è stato ionizzato per trasmettere questo messaggio. Tag: Creating a DFS root Tag: 152787
 - 6
 - executing scripts I have two scripts, perhaps not programmed the most efficient way, but anyways they work. How do i put this into one script, right now i need to execute them seperately, how do i say when script1 is finnished goto script 2 ? The reason i would like to know this is, because i do like to build in some conditions, like when people do connect over RRAS, do not run the auditing Thanks in advance Ralph script 1: 'On Error Resume Next Const OTTOYORK_GROUP = "cn=wij_ottoyork" Const ENGINEERING_GROUP = "cn=wij_engineering" Const ACCOUNTING_GROUP = "cn=wij_accounting" Const GLITSCH_GROUP = "cn=wij_glitsch" Const ENGINEERING_RO_GROUP = "cn=wij_engineering_ro" Const ITIS_GROUP = "cn=wij_itis" Const SDWORX_GROUP = "cn=wij_sdworx" Const SALES_GROUP = "cn=wij_sales" Const ISABEL_GROUP = "cn=wij_isabel" Const KMS_GROUP = "cn=wij_kms" Const ISO9000_GROUP = "cn=wij_iso9000" Const INTRASTAT_GROUP = "cn=wij_intrastat" Set wshNetwork = CreateObject("WScript.Network") wshNetwork.MapNetworkDrive "i:", "\\koytest\Users\" & wshNetwork.UserName Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) If InStr(strGroups, ENGINEERING_GROUP) Then WSHNetwork.MapNetworkDrive "l:", "\\koytest\engineering" End If If InStr(strGroups, ENGINEERING_RO_GROUP) Then WSHNetwork.MapNetworkDrive "l:", "\\koytest\engineering" End If If InStr(strGroups, OTTOYORK_GROUP) Then wsh.Network.MapNetworkDrive "k:", "\\koytest\ottoyork" End If If InStr(strGroups, ACCOUNTING_GROUP) Then wshNetwork.MapNetworkDrive "o:", "\\koytest\org_o" wshNetwork.MapNetworkDrive "p:", "\\koytest\org_p" End If If InStr(strGroups, GLITSCH_GROUP) Then WSHNetwork.MapNetworkDrive "g:", "\\koytest\glitsch" End If If InStr(strGroups, ITIS_GROUP) Then wshNetwork.MapNetworkDrive "m:", "\\koytest\it$" wshNetwork.MapNetworkDrive "v:", "\\koytest\software$" End If If InStr(strGroups, SDWORX_GROUP) Then WSHNetwork.MapNetworkDrive "x:", "\\koytest\sd worx" End If If InStr(strGroups, SALES_GROUP) Then WSHNetwork.MapNetworkDrive "s:", "\\koytest\sales" End If If InStr(strGroups, ISABEL_GROUP) Then WSHNetwork.MapNetworkDrive "u:", "\\koytest\isabel" End If If InStr(strGroups, KMS_GROUP) Then wshNetwork.MapNetworkDrive "k:", "\\koytest\koch" wshNetwork.MapNetworkDrive "s:", "\\koytest\shared" wshNetwork.MapNetworkDrive "x:", "\\koytest\project" End If If InStr(strGroups, ISO9000_GROUP) Then WSHNetwork.MapNetworkDrive "v:", "\\koytest\iso9000" End if script 2: Dim objFSO, objShell Set objFSO = Createobject("Scripting.Filesystemobject") Set objShell =CreateObject("WScript.Shell") objShell.Run "\\khmerd01n04\ezaudit\ezstart.exe /auto" ,1 , False Set objFSO = Nothing Set objShell = Nothing Tag: Creating a DFS root Tag: 152783
 - 7
 - A hard one... OK here is the problem: I have 4 interleaving loops like n = 1 for a = 1 to 3 for b = a + 1 to 4 for c = b + 1 to 5 for d = c + 1 to 6 response.write(right("00" & CStr(n), 2) & ": " & a & "." & b & "." & c & "." & d & " ") n = n + 1 next next next next ...providing the following output: 01: 1.2.3.4 02: 1.2.3.5 03: 1.2.3.6 04: 1.2.4.5 05: 1.2.4.6 06: 1.2.5.6 07: 1.3.4.5 08: 1.3.4.6 09: 1.3.5.6 10: 1.4.5.6 11: 2.3.4.5 12: 2.3.4.6 13: 2.3.5.6 14: 2.4.5.6 15: 3.4.5.6 I need an algorithm that would return the rank number (here from 1 to 15) if I enter any subsets of 4 numbers (from 1 to 6). ex. if I enter r=rank(1, 3, 5, 6) then r=9 I need also the reverse function that would return the subset of 4 numbers for any rank given. ex if I enter s=subset4(13) then s={2, 3, 5, 6} The goal here is to get rid of the interleaving loops and that's why both algorithms cannot be make by looping and since all the values (here from 1 to 6 or 1 to 4 for the subsets) can be increased significantly and would take too long to loop. I have been working on that one for days now and I can't figure it out... I would REALLY appreciate some help! Thank you in advance... Cubik Tag: Creating a DFS root Tag: 152781
 - 8
 - A hard one... OK here is the problem: I have 4 interleaving loops like n = 1 for a = 1 to 3 for b = a + 1 to 4 for c = b + 1 to 5 for d = c + 1 to 6 response.write(right("00" & CStr(n), 2) & ": " & a & "." & b & "." & c & "." & d & " ") n = n + 1 next next next next ...providing the following output: 01: 1.2.3.4 02: 1.2.3.5 03: 1.2.3.6 04: 1.2.4.5 05: 1.2.4.6 06: 1.2.5.6 07: 1.3.4.5 08: 1.3.4.6 09: 1.3.5.6 10: 1.4.5.6 11: 2.3.4.5 12: 2.3.4.6 13: 2.3.5.6 14: 2.4.5.6 15: 3.4.5.6 I need an algorithm that would return the rank number (here from 1 to 15) if I enter any subsets of 4 numbers (from 1 to 6). ex. if I enter r=rank(1, 3, 5, 6) then r=9 I need also the reverse function that would return the subset of 4 numbers for any rank given. ex if I enter s=subset4(13) then s={2, 3, 5, 6} The goal here is to get rid of the interleaving loops and that's why both algorithms cannot be make by looping and since all the values (here from 1 to 6 or 1 to 4 for the subsets) can be increased significantly and would take too long to loop. I have been working on that one for days now and I can't figure it out... I would REALLY appreciate some help! Thank you in advance... Cubik Tag: Creating a DFS root Tag: 152780
 - 9
 - Error Handling I'm using the following script to send an email with a .pdf attachment. Option Explicit: Dim ol: Dim myItem: Dim Args: Dim FMData1: Dim FMData2: Const olMailItem = 0: Set Args = WScript.Arguments: FMData1 = Args(0): FMData2 = Args(1): Set ol = CreateObject ("outlook.application"): Set myItem = ol.CreateItem(olMailItem): With myItem:.To = FMData2: .Subject = "Some subject": .Body = "Some information": .Attachments.add "U:\My Documents\Attachment.pdf": .Send: End With: Set ol = Nothing: Set myItem = Nothing: Set FMData1 = Nothing: Set FMData2 = Nothing: The .pdf attachment is created using Acrobat Distiller just before this script is called. Normally everything works just fine, but every once in a while, I get an error message indicating Outlook could not find the attached file for ".Attachments.add" I'm assuming the reason is Distiller had not yet released the file. I'd like to trap the error message and create a loop which would pause 1 sec, then issue another ".Attachment.add" command exiting the loop when no error was returned or after 10 tries. Any help with this will be appreciated. Tag: Creating a DFS root Tag: 152779
 - 10
 - cookies issue Hi, I have an application that when it loads, it checks for a cookie on the client side. If the cookie exists, it sets a variable on the specific ASP page for certain fields to be populated. Our problem is that some user sessions have data left over in cookies that are from a previous user session. Anyone ever have this problem. Please advise if you can help me fix it. thanks rafael Tag: Creating a DFS root Tag: 152773
 - 11
 - how do I keep double quotes in parameters to cscript? I need to call a iis script file to set up an application extension in the webserver. The call must go through cscript. So the resulting structure is: cscript myvbscript <myparameters> <myparametrs> is something like python.exe "%s" When I execute this it turns out that myvbscript gets the parameters with the double quotes stripped off. It does not help to double up the quotes either. Is there some escape sequence that makes it possible to pass a " character through cscript into the call to the vbscript??? /Bo Tag: Creating a DFS root Tag: 152768
 - 12
 - enumerate security on folder Anyone can point me to docs on how to get the security list (group ownership) to a folder. Thanks Andres Tag: Creating a DFS root Tag: 152760
 - 13
 - NT Domain: All objects of class User I'm writing a script to pull data from both Active Directory and NT4 Domains. The Active Directory code works just fine, and the NT4 code works great except for one thing. I'm probably just overlooking something, but all of my objects are of class User. Is there a way to tell Groups, Users, and Computers apart Under Active Directory I'm doing this with the objMember.objectCategory property. I don't think that NT4 Domains support this (at least it gave me an error). The objMember.class is what is returning "User" to me every time Any advice or assistance is greatly appreciated. Tag: Creating a DFS root Tag: 152758
 - 14
 - Reading excel using vbscript Hello I am trying to read an xls through vbscript. There is a small problem though. A column contains some numbers e.g. 1111, 2222, 3333, 4444 etc and also some alphanumeric characters like C2323, C3434 and so on. - one below the other (different rows When I run my query, I get all the numbers displayed properly, but the rows in which there are alphanumeric characters, a null value is returned and I am not able to work on that value at all (since that value is lost) Could someone please assist... Thanks, Tag: Creating a DFS root Tag: 152752
 - 15
 - methods of GetObject(...) Hello I often see a VBScript line like so Set myObject = GetObject("some object" But how do you know the methods of "some object"? Is this documented anywhere For example, if I wanted to open up Internet Explorer and save the HTML page, how could I find if the IExplore even has these methods, something like Set myObject = GetObject("IExplore" myObject.URL = "www.myPage.com myObject.SaveAs("c:\temp\myPage.htm" Is there any way to know which methods I can call on an object from GetObject Thanks Mark Tag: Creating a DFS root Tag: 152750
 - 16
 - requery listbox in data access page I'm working with Access2002, creating some data access pages How do I get a listbox lined to a query to requery/refresh on a data access page - what script do I need to enter Thanks in advance Eusi Tag: Creating a DFS root Tag: 152746
 - 17
 - Call script from within another script fails Hello, I have two scripts that run correctly by themselves but when I call the second from within the first the process does not occur. I cannot read the error - the cmd box goes away too quickly. The first script will be called from the user logon script. The second will be run with elevated privileges and is called by the first. As I said above, each run correctly alone but fail when run together. When these scripts are run together, the process gets to the first message box in the second script then fails. I have marked with a row of "+" signs where the second script fails. I have run this script as a domain admin, local admin and reqular user. I have pasted the scripts below. All suggestions will be greatly appreciated. TIA, Bill Burke bill@2burkes.com '******************************** '********* First Script ********* '******************************** Option Explicit On Error Resume Next dim WshShell, WshEnv, WinPath, rc, oArgs, FSO, sUser, sCmd, sPass sUser="susAdmin" sCmd="cscript /nologo c:\susRegChg.vbs" sPass="**************" & vbCrLf set WshShell = CreateObject("WScript.Shell") set WshEnv = WshShell.Environment("Process") WinPath = WshEnv("SystemRoot")&"\System32\runas.exe" ' Check to make sure the system is not a W2K or NT server. set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists("C:\WINNT\SYSTEM32\LDIFDE.EXE") Then WScript.Quit Elseif FSO.FileExists("C:\WINDOWS\SYSTEM32\LDIFDE.EXE") Then WScript.Quit Elseif FSO.FileExists("C:\WINNT\SYSTEM32\PBRUSH.EXE") Then WScript.Quit Elseif FSO.FileExists("C:\WINDOWS\SYSTEM32\PBRUSH.EXE") Then WScript.Quit End If If FSO.FileExists(winpath) Then 'wscript.echo winpath & " " & "verified" Else wscript.echo "!! ERROR !!" & VBCRLF & "Can't find or verify " & _ winpath &"." & VBCRLF & "You must be running Windows 2000 for _ this script to work." set WshShell=Nothing set WshEnv=Nothing set oArgs=Nothing set FSO=Nothing wscript.quit End If rc=WshShell.Run("runas /user:"& sUser & " " & CHR(34) & sCmd & CHR(34), 2, _ FALSE) Wscript.Sleep 30 WshShell.AppActivate(WinPath) WshShell.SendKeys sPass set WshShell=Nothing set oArgs=Nothing set WshEnv=Nothing set FSO=Nothing wscript.quit '******************************** '******** Second Script ********* '******************************** Option Explicit Dim strComputer, stdOut, oReg, strKeyPath, strKeyPath2 Dim objShell, strValueName, strValue, strYear, strMonth, strDay Dim strHour, strMinute, strCurrentDate, strCurrentTime, oShell Dim sEnvVarValue1, strLogonServer, objFSO, objTextFile, objEmail Dim WshShell, BtnCode, strComputerName, strUserName const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Const ADS_PROPERTY_UPDATE = 2 Const ForAppending = 8 Const eventSUCCESS = 0 strYear = DatePart("yyyy", Now) strMonth = DatePart ("m", Now) strDay = DatePart ("d", Now) strHour = DatePart ("h", Now) strMinute = DatePart ("n", Now) strCurrentDate = Right("0" & strMonth,2) & "-" & Right("0" & strDay,2) & "-" & Right(strYear,2) strCurrentTime = Right("0" & strHour,2) & ":" & Right("0" & strMinute,2) Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate" strValueName = "WUServer" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue If strValue = "http://172.16.146.18" Then WScript.Quit Else ' Create and destroy informational dialog box for end user information. Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell.Popup("AO's Windows Update Service is being _ installed on your system. " & vbCrLf & vbCrLf &_ "The installation process is completely automatic. " & _ vbCrLf & vbCrLf & "Please be patient, the process should take _ less that a minute. " & _ vbCrLf & vbCrLf & "(This message box will close itself in fifteen _ seconds...) ", 15, " Installing AO's Windows Update Service",0 + 64) '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' Set variables to modify the local system's registry. strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate" strKeyPath2 = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath2 ' Modify the local system's registry. ' Set objShell = WScript.CreateObject("WScript.Shell") Set objShell = CreateObject("WScript.Shell") objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUServer", "http://172.16.146.18" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\WUStatusServer", "http://172.16.146.18" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoRebootWithLoggedOnUsers", 00000001, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\RescheduleWaitTime", 00000015, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\UseWUServer", 00000001, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate", 00000000, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions", 00000004, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallDay", 00000000, "REG_DWORD" objShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallTime", 00000010, "REG_DWORD" ' Get the computer name and user name from the local "DOS" environment strComputerName = objShell.ExpandEnvironmentStrings("%COMPUTERNAME%") strUserName = objShell.ExpandEnvironmentStrings("%USERNAME%") WScript.Echo "Computer Name: " & strComputerName & vbCrlf & vbCrlf _ & "Username: " & strUserName ' Write to text file Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile ("\\USARNT03\SHARED\SUS_Update_Info\SUSupdateLog.txt", ForAppending, True) objTextFile.WriteLine strComputerName & "," & strUserName & "," & strCurrentDate & "," & strCurrentTime & "," & "Successful SUS Update" ' Below email section will not work in AO's environment ' Send an email notifying successful update ' Set objEmail = CreateObject("CDO.Message") ' objEmail.From = "bill.burke@atosorigin.com" ' objEmail.To = "DLUSO-DFW-NT-ADMIN-ARL@atosorigin.com" ' objEmail.Subject = "Workstation SUS Update Notification " ' objEmail.Textbody = "System Name" & vbTab & "Date" & vbTab & "Time" & vbTab & "Success/Fail" & vbCrLf &_ ' strComputerName & vbTab & strCurrentDate & vbTab & strCurrentTime & vbTab & "Success" ' objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "usdax003.arl.us.int.atosorigin.com" ' objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' objEmail.Configuration.Fields.Update ' objEmail.Send ' The following two lines write an event in the Application Log file of the 'local computer (the system logging *in*) Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.LogEvent eventSUCCESS, "Script to configure SUS has completed successfully." , "\\" & strComputerName ' Create and destroy information dialog box for the end user notifying them ' that the installation has completed. Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell.Popup("AO's Windows Update Service has been installed on your system. " & vbCrLf & vbCrLf &_ "The installation process is complete. " & vbCrLf & vbCrLf & "(This message box will close itself in ten seconds...) ", _ 10, " AO's Windows Update Service",0 + 64) End If WScript.Sleep(1000) WScript.Quit '****************************************** '****************************************** Tag: Creating a DFS root Tag: 152745
 - 18
 - joining serveral scripts All, I'm quite new to vbscript. I do have 4 scripts, that all do work fine. What i would like to do is put the 4 scripts into one big script, but how do i say if the first script has been executed, that it must go to script number 2? Thanks Ralph Tag: Creating a DFS root Tag: 152741
 - 19
 - IIS+authentication information into VBScript? I want to authenticate user on domain XXX with IIS and then provide this information to ASP page, how can I do that? Meaning that I could provide authentication from domain and keep up a log who has logged into the page and say posted a form. Thanks for the help. Tag: Creating a DFS root Tag: 152740
 - 20
 - NTFS Permissions Hi there! I've writted a script to create a batch of users, set up their home and profile folders, and share them appropriately. What I'm stumped on now is a way to set the Security permissions to allow a set user access to the newly created folder and then ensure that is cascading. If anyone has any examples I'd be very grateful! John Tag: Creating a DFS root Tag: 152731
 - 21
 - Passing parameters to a VBS program Many example code pages in the scripting centre contain line like the following Set objUser = GetObject ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com" Is there a way to pass the user name into the script at the time of running? You don't want to have to edit the code for each new user Tag: Creating a DFS root Tag: 152723
 - 22
 - Help with skipping files I am writing a script to read through CSV files. The files contain 5 fields that I then parse and use to create some shortcuts on the START menu. I want to be able to have 1 script that reads through the files and adds the icons accordingly. And so far it works great. My problem is this: Not all the CSV files will be readable by all users. I hope to create several CSV files, and give only file rights to read for the users/groups that will require those shortcuts. For example: I will have a menu-common.csv file that will have shortcuts for all users. I then want one for HR, admin, receiving, shipping... to have their shortcuts. My current script is set to read them both. But if I run it as a user that does not have rights to read a CSV (like HR's CSV), the script just loops and never ends. Is there a way to set it so if it cannot read the CSV file, it will just go down the list to the next CSV? Like "On Error Goto Next Section" command. Here is my script. -------------- ' Script to create start menu folders and shortcuts based on a csv file ' by: Dan King ' 2/6/04 ' ' ' ' Option Explicit On Error Resume Next Dim ws, smenu, fs, fsr, scut, scFldr, uName, mFile, uFile Set ws = WScript.CreateObject("WScript.Shell") smenu = ws.SpecialFolders("StartMenu") Set fs = CreateObject("Scripting.FileSystemObject") uName = ws.ExpandEnvironmentStrings("%USERNAME%") mFile = "menu-common.csv" 'Common menu file name and location uFile = "menu-" & uName & ".csv" 'User menu file name and location 'Delete Existing Folders. Add to this as you add to the fs.DeleteFolder(smenu & "\Data Trak") 'Delete folder from Start Menu fs.DeleteFolder(smenu & "\Install") 'Delete folder from Start Menu fs.DeleteFolder(smenu & "\Internet") 'Delete folder from Start Menu fs.DeleteFolder(smenu & "\Accounting") 'Delete folder from Start Menu Dim strOTF 'Object to contain contents of CSV file Dim strARR 'Array name created from CSV file Dim scFolder 'Array Field-0 : Start Menu folder name Dim scName 'Array Field-1 : Shortcut name Dim scTarget 'Array Field-2 : Target file of Shortcut Dim scArguments 'Array Field-3 : Shortcut Arguments Dim scIcon 'Array Field-4 : Icon for Shortcut '* '* Declare Objects '* Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objCTF Set objCTF = objFSO.OpenTextFile(mFile,1) Dim objUTF Set objUTF = objFSO.OpenTextFile(uFile,1) '* '* Read Common File '* Do While Not objCTF.AtEndOfStream strOTF = objCTF.ReadLine() strARR = Split(strOTF,",") scFolder = strARR(0) scName = strARR(1) scTarget = strARR(2) scArguments = strARR(3) scIcon = strARR(4) Set scFldr = fs.CreateFolder(smenu & "\" & scFolder) Set scut = ws.CreateShortCut(smenu & "\" & scFolder & "\" & scName & ".lnk") scut.TargetPath = scTarget scut.Arguments = scArguments scut.IconLocation = scIcon scut.Save scFolder = "" scName = "" scTarget = "" scArguments = "" scIcon = "" Loop '* '* Read Users File '* Do While Not objUTF.AtEndOfStream strOTF = objUTF.ReadLine() strARR = Split(strOTF,",") scFolder = strARR(0) scName = strARR(1) scTarget = strARR(2) scArguments = strARR(3) scIcon = strARR(4) Set scFldr = fs.CreateFolder(smenu & "\" & scFolder) Set scut = ws.CreateShortCut(smenu & "\" & scFolder & "\" & scName & ".lnk") scut.TargetPath = scTarget scut.Arguments = scArguments scut.IconLocation = scIcon scut.Save scFolder = "" scName = "" scTarget = "" scArguments = "" scIcon = "" Loop WScript.Echo "Done" Tag: Creating a DFS root Tag: 152721
 - 23
 - how to convert a Hex string into a Long data type? I have a variable which is an hex string that I need to convert into a long data type Dim myHex Dim myLong myHex = "FF00FF" myLong = 1655545 if myHex < myLong then blah blah Since I am comparing the two value I need to convert myHex into a Long data type. Thank you for your help. Tag: Creating a DFS root Tag: 152716
 - 24
 - Determine logon and logoffs from which workstations Any ideas how I can script determining the last workstation a user has logged onto and logged off of? I know logins can be retrieved from AD with userstat.exe, but this does not tell me the location of the logons, nor if/when they logged off. I've also looked into parsing event logs, but events 538 and 540 did not contain workstation data, (even though there was a parameter for workstation, it was blank). Event 528 did contain the workstations, but there are not nearly as many 528's as there are 538. Any other ideas? Surely someone has done this already!!! Tag: Creating a DFS root Tag: 152715
 - 25
 - SystemParametersInfo not working with VBScript? I am trying to use the SystemParametersInfo API to change the wallpaper from a VBScript run by Windows Script Host locally on the computer. This is what I have: Dim bmpFile bmpFile = "C:\WINDOWS\WALLPAPR.BMP" Call SystemParametersInfo(SPI_SETDESKWALLPAPER,0,bmpFile,SPIF_SENDWININICHANGE) When I run it, Windows Script Host gives me the following error information: Script: C:\changeWallpaper.vbs Line: 3 Char: 1 Error: Type mismatch: 'SystemParametersInfo' Code: 800A000D Source: Microsoft VBScript runtime error Is there something I need to do prior to using SystemParametersInfo to make the VBScript recognize it as valid? Tag: Creating a DFS root Tag: 152714
- Next
 - 1
 - Help with sending email without having SMTP Services Installed In this below vbs script, I am trying to send email without having smtp services installed on my machine. However since most of my machines doesn't have access to the internet, how can I change "("http://schemas.microsoft.com/cdo/configuration/se ndusing")" in my script to use an internal server. Set objEmail = CreateObject("CDO.Message") objEmail.From = "swrobins@ebay.com" objEmail.To = "swrobins@ebay.com" objEmail.Subject = "RegKey Apllied on "&Var1&" " objEmail.Textbody = "" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "server.domain.com" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send Thank for the help. Robnson Tag: Creating a DFS root Tag: 152706
 - 2
 - read text from txt file and create directory from that Hello all I have a text file that basically contains one line that reads, as an example adduser -u jsmith -n "xxxxxxxxx now, what i'd like to do is to be able to make a directory name called jsmith, or whatever username that the text file will contain (as designated after the -u), and create a directory in that name. The username length will vary, but the -n will always appear after the username, and the -u will always appear before the username. Thanks in advance everyone Tag: Creating a DFS root Tag: 152705
 - 3
 - little squares in output text Hello and thanks in advance for any help here. I am working on a script that is taking information from a database with no line breaks and passing the information through this function that I have designed to put line breaks in near a certain column size. The ultimate destination for the text is a text file. When I run this code on a piece of text with carriage returns already in it the function outputs little boxes or NewLine control chars wherever a new line needs to happen. Does anyone know of a way to get rid of those little boxes? Thanks in advance, -Jason Function HardBreak(text, col) Dim myArray(50) lc = 0 Do Until Len(text) < col If InStrRev(text, vbCr, col) Then br = InStrRev(text, vbCr, col) myArray(lc) = Mid(text, 1, br) text = Mid(text, br + 1) Else If InStr(col - 6, text, " ") < col Then br = InStr(col - 6, text, " ") Else br = InStrRev(text, " ", col) End If myArray(lc) = Mid(text, 1, br) text = Mid(text, br + 1) End If lc = lc + 1 Loop myArray(lc) = text lc = 0 Do Until myArray(lc) = "" If myArray(lc + 1) = "" Then HardBreak = HardBreak & " " & myArray(lc) Else HardBreak = HardBreak & " " & myArray(lc) & vbNewLine End If lc = lc + 1 Loop End Function Tag: Creating a DFS root Tag: 152704
 - 4
 - Enumerate Software Script **Help** I found this script on the web and it works awesome, however it is above my knowledge of VBS. What I need it to do instead of displaying each software installed I would like to simply output it to a flat text file, can anyone help? Thanks in advanced.. On Error Resume Next sComputer = "." MsgBox InstalledApplications(sComputer) Function InstalledApplications(node) Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & node & "/root/default:StdRegProv") sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys) For Each sKey In arSubKeys iRC = oRegistry.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue) If iRC <> 0 Then oRegistry.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue End If If sValue <> "" Then InstalledApplications = InstalledApplications & sValue & vbCrLf End If Next End Function Tag: Creating a DFS root Tag: 152701
 - 5
 - File System Object network overhead I have a vbscript that looks through a folder structure for the most recently updated file. I noticed that when I point it at a network folder (\\server\folder) it does quite a bit more network I/O than I would expect. No big deal when I'm at work, on our 100Mb ethernet, but dialing in from home it becomes v e r y s l o w. When I go to a DOS prompt and use "dir /s" to display the same folders, it's much quicker (less network I/O). Is this just the way it is with the FileSystemObject? I'm ready to rewrite my folder access to attach the desired folder as a drive, and use the DOS DIR command to get the info I want. Excatly what the FSO helps us avoid! -- jcf Tag: Creating a DFS root Tag: 152694
 - 6
 - noob do...loop question Being a noob and am trying piece this script together I seem to have broken the do.....loop. I would appreciate it if some one would take a peak at it and let me know what I have done wrong. Thanks in advance. Jason <package> <reference object="ActiveDs.IADsContainer"/> <reference object="ActiveDs.IADsUser"/> <reference object="MSIMADMLib.IMServers"/> <reference object="MSIMADMLib.IMVirtualServer"/> <reference object="MSIMADMLib.IMUserAdmin"/> <reference object="MSIMADMLib.IIMUser"/> <reference object="CDO.Person"/> <reference object="CDOEXM.ExchangeServer"/> <reference object="CDOEXM.IMailboxStore"/> <reference object="CDOEXM.IMailRecipient"/> <reference object="CDOEXM.IDataSource2"/> <reference object="Excel.Application"/> <Job id="BulkAddFromExcel"> <script language="VBScript"> 'THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT 'WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, 'INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 'OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 'PURPOSE ' ' You are free to use this code within your own applications, ' but you are expressly forbidden from selling or otherwise ' distributing this source code without prior written consent. ' This includes both posting free demo projects made from this ' code as well as reproducing the code in any other format. ' '--------------------------------------------------------------------------- --- ' ' NAME: BulkAddFromExcel.wsf ' ' FILE DESCRIPTION: This Windows Script File creates new user objects in ' Active Directory from an Excel Spreadsheet using Active ' Directory Services Interface (aka ADSI) ' After they are created, CDO for Exchange 2000 (aka CDOEXM) ' is used to mailbox enable each user object ' Finally the Exchange Instant Messaging Administration Library ' is used to IM enable each user object ' ' Note that the Lightweight Directory Access Protocol (LDAP) ' requires that you escape the following characters with a backslash ' (\) character when you use them in Active Directory: ' ,=+<>#;\" ' ' Copyright (c) CDOLive 2000-2001, Siegfried Weber. All rights reserved. ' http://www.cdolive.net/samples/adusermanagement.eml ' mailto:samples@cdolive.com?subject=ADUserManagement ' With contributions by (in alphabetical order): ' Sjaak van der Poel, Sjaak.vanderPoel@Getronics.Com ' ' Portions: ' Copyright (c) Microsoft Corporation 1996. All rights reserved. ' '--------------------------------------------------------------------------- --- ' Initialize error handling Option Explicit On Error Resume Next ' Declare variables Dim objArguments ' As Wscript.Arguments Dim objContainer ' As ActiveDs.IADsContainer Dim objUser ' As ActiveDs.IADsUser Dim objIMServers ' As MSIMADMLib.IMServers Dim objIMVirtualServer ' As MSIMADMLib.IMVirtualServer Dim objIMUserAdmin ' As MSIMADMLib.IMUserAdmin Dim objIMUser ' As MSIMADMLib.IIMUser Dim objPerson ' As CDO.Person Dim objExchangeServer ' As CDOEXM.ExchangeServer Dim objMailboxStore ' As CDOEXM.IMailboxStore Dim objRecipient ' As CDOEXM.IMailRecipient Dim objDataSource ' As CDOEXM.IDataSource2 Dim objExcel ' As Excel.Application Dim strCRLF ' As String Dim strExcelWorkBook ' As String Dim strLDAP ' As String Dim strRoot ' As String Dim strOU ' As String Dim strBuilding ' As String Dim strUserName ' As String Dim strSamName ' As String Dim strDisplayName ' As String Dim strAlias ' As String Dim strHomeMDBUrl ' As String Dim strPersonURL ' As String Dim blnExcelInstalled ' As Boolean Dim blnCDOInstalled ' As Boolean Dim blnCDOEXMInstalled ' As Boolean Dim blnLDAPConnect ' As Boolean Dim varProxyAddresses(10) ' As Variant ' Initialize variables Set objExchangeServer = Nothing Set objExcel = Nothing Set objIMServers = Nothing Set objIMVirtualServer = Nothing Set objIMUserAdmin = Nothing Set objPerson = Nothing Set objMailboxStore = Nothing Set objRecipient = Nothing Set objDataSource = Nothing strCRLF = Chr(13) & Chr(10) blnExcelInstalled = False blnLDAPConnect = False blnExcelInstalled = False blnCDOInstalled = False blnCDOEXMInstalled = False ' Get the script command line arguments Set objArguments = WScript.Arguments ' Excel file containing users is the first (and only valid) argument If objArguments.Count <> 0 Then strExcelWorkBook = objArguments.Item(0) End If ' Check if first comannd line argument isn't empty If strExcelWorkBook = "" Then WScript.Echo "No input file provided. Script execution terminated. Please make sure you provide a valid Excel file as input." Else ' Check if necessary objects are installed by simply create an instance of each Err.Clear Set objExcel = WScript.CreateObject("Excel.Application") If Err.Number = 0 Then blnExcelInstalled = True End If Err.Clear Set objPerson = CreateObject("CDO.Person") If Err.Number = 0 Then blnCDOInstalled = True End If Err.Clear Set objExchangeServer = CreateObject("CDOEXM.ExchangeServer") If Err.Number = 0 Then blnCDOEXMInstalled = True End If ' Check if required components are installed If (blnExcelInstalled = False Or blnCDOInstalled = False Or blnCDOEXMInstalled = False) Then ' Display error message WScript.Echo "One of the required components could not be started. Please make sure the machine is running the following software: " & _ strCRLF & " Microsoft Windows 2000 (or higher) Server or Professional" & _ strCRLF & " Microsoft Winodws 2000 (or higher) Administrative Tools (a separate install if running on Windows 2000 Professional)" & _ strCRLF & " Microsoft Exchange 2000 (or higher) System Manager" & _ strCRLF & " Microsoft Excel 2000 (or higher)" Else ' Initialize other objects Set objIMServers = CreateObject("MSExchangeIM.IMServers.1") Set objIMVirtualServer = CreateObject("MSExchangeIM.IMVirtualServer.1") Set objIMUserAdmin = CreateObject("MSExchangeIM.IMUserAdmin.1") Set objMailboxStore = objPerson.GetInterface("IMailboxStore") Set objRecipient = objPerson.GetInterface("IMailRecipient") Set objDataSource = objPerson.GetInterface("IDatasource") ' We will use strOU to control loop, so set initial value to null strBuilding = "" ' Activate Excel With objExcel ' Open the workbook passed in the command line Err.Clear .Workbooks.open strExcelWorkBook ' Check for errors If Err.Number = 0 Then ' Activate it blnExcelInstalled = True .Sheets("Add").Activate ' Put the cursor in the starting cell and read the DS root .ActiveSheet.Range("A2").Activate 'This cell holds the building label strBuilding = .Activecell.Value ' This is the starting point in the ds 'Hard set by me as A2 is not the DS root in the file from skyward. strRoot = "dc=ad,dc=roseville,dc=k12,dc=mn,dc=us" ' Step to the next row ' commented out as there is no dummy row. '.Activecell.Offset(1, 0).Activate Else ' Display error message WScript.Echo "Error opening Excel workbook. Check if Excel is installed and the file is not readonly " & Err.Number & Err.Description blnExcelInstalled = False End If End With ' Check if Excel could be opened If blnExcelInstalled = True Then ' Loop until we run out of rows Do While objExcel.Activecell.Value <> "" ' If the requested OU is a new one... If objExcel.Activecell.Value <> strBuilding Then ' Pick up the OU name msgBox "here:" & strBuilding If strBuilding = "RAHS" then strOU="OU=RAHS,OU=staff,OU=secondary" strHomeMDBUrl = "CN=SecondaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "RAMS" then strOU="OU=RAMS,OU=staff,OU=secondary" strHomeMDBUrl = "CN=SecondaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "PCS" then strOU="OU=PCS,OU=staff,OU=secondary" strHomeMDBUrl = "CN=SecondaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "BH" then strOU="OU=BH,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot Elseif strBuilding = "CP" then strOU="OU=CP,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "EDG" then strOU="OU=EDG,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "EDW" then strOU="OU=EDW,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "FH" then strOU="OU=EDW,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "LC" then strOU="OU=LC,OU=staff,OU=primary" strHomeMDBUrl = "CN=PrimaryMailboxes,CN=Second Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "DC" then strOU="OU=DC,ou=District" strHomeMDBUrl = "CN=Mailbox Store (RoseMail),CN=First Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot ElseIf strBuilding = "FVCC" then strOU="OU=FVCC,OU=District" strHomeMDBUrl = "CN=Mailbox Store (RoseMail),CN=First Storage Group,CN=InformationStore,CN=rosemail,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=rosemain,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot End If 'This is where my mod ends ' Compose the LDAP path strLDAP = "LDAP://" & strOU & "," & strRoot ' Show it to the user WScript.Echo "Processing entries for: " + strLDAP ' And get the object Err.Clear Set objContainer = GetObject(strLDAP) ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error retrieving Active Directory settings. Please check if the provided LDAP string is correct " & Err.Number & Err.Description Else blnLDAPConnect = True End If 'End If ' Check if we could connect to AD If blnLDAPConnect = True Then objExcel.ActiveSheet.Range("A2").Activate ' Compose the user common name name from last and first name strUserName = "CN=" + objExcel.activecell.offset(0, 3).Value + "\, " + objExcel.activecell.offset(0, 2).Value ' Compose the user display name from first and last names strDisplayName = objExcel.Activecell.Offset(0, 3).Value & ", " & objExcel.Activecell.Offset(0, 2).Value ' Compose the user Instant Messaging alias name from first and last names 'strAlias = Left(LCase(Left(objExcel.Activecell.Offset(0, 3).Value, 1) + objExcel.Activecell.Offset(0, 2).Value), 20) ' Show to user that we now create a new object WScript.Echo "Processing entry: " + strDisplayName ' Create the new user object Err.Clear Set objUser = objContainer.Create("user", strUserName) ' Check for errors If Err.Number = 0 Then ' Set the properties of the new user. This is the part that is broken. Need to get a better file and know ' exactly where the first active cell is, that way we can make sure that the offsets are used correctly. With objUser ' First name If Trim(objExcel.Activecell.Offset(0, 2).Value) <> "" Then .Put "givenName", CStr(objExcel.Activecell.Offset(0, 2).Value) End If ' Last name If Trim(objExcel.Activecell.Offset(0, 3).Value) <> "" Then .Put "sn", CStr(objExcel.Activecell.Offset(0, 3).Value) End If ' Display name If Trim(strDisplayName) <> "" Then .Put "displayName", strDisplayName End If ' Pre-Windows 2000 account name If Trim(objExcel.Activecell.Offset(0, 1).Value) <> "" Then .Put "sAMAccountName", Left(CStr(objExcel.Activecell.Offset(0, 1).Value), 20) End If ' Windows 2000 UPN (user principale name) If Trim(objExcel.Activecell.Offset(0, 1).Value) <> "" Then .Put "userPrincipalName", CStr(objExcel.Activecell.Offset(0, 1).Value) End If ' Phone number If Trim(objExcel.Activecell.Offset(0, 8).Value) <> "" Then .Put "telephoneNumber", CStr(objExcel.Activecell.Offset(0, 8).Value) End If ' Fax number 'If Trim(objExcel.Activecell.Offset(0, 6).Value) <> "" Then ' .Put "facsimileTelephoneNumber", CStr(objExcel.Activecell.Offset(0, 6).Value) 'End If ' Cell phone number 'If Trim(objExcel.Activecell.Offset(0, 7).Value) <> "" Then ' .Put "mobile", CStr(objExcel.Activecell.Offset(0, 7).Value) 'End If ' Home phone number If Trim(objExcel.Activecell.Offset(0, 9).Value) <> "" Then .Put "homePhone", CStr(objExcel.Activecell.Offset(0, 9).Value) End If ' ZIP/Postal code If Trim(objExcel.Activecell.Offset(0, 7).Value) <> "" Then .Put "postalCode", CStr(objExcel.Activecell.Offset(0, 7).Value) End If ' Street If Trim(objExcel.Activecell.Offset(0, 5).Value) <> "" Then .Put "streetAddress", CStr(objExcel.Activecell.Offset(0, 5).Value) End If ' City If Trim(objExcel.Activecell.Offset(0, 7).Value) <> "" Then .Put "l", CStr(objExcel.Activecell.Offset(0, 7).Value) End If ' P.O. Box 'If Trim(objExcel.Activecell.Offset(0, 12).Value) <> "" Then ' .Put "postOfficeBox", CStr(objExcel.Activecell.Offset(0, 12).Value) 'End If ' State/Province If Trim(objExcel.Activecell.Offset(0, 8).Value) <> "" Then .Put "st", CStr(objExcel.Activecell.Offset(0, 8).Value) End If ' Country code 'If Trim(objExcel.Activecell.Offset(0, 14).Value) <> "" Then ' .Put "c", CStr(objExcel.Activecell.Offset(0, 14).Value) 'End If ' Department 'If Trim(objExcel.Activecell.Offset(0, 15).Value) <> "" Then ' .Put "department", CStr(objExcel.Activecell.Offset(0, 15).Value) 'End If ' Company 'If Trim(objExcel.Activecell.Offset(0, 16).Value) <> "" Then ' .Put "company", CStr(objExcel.Activecell.Offset(0, 16).Value) 'End If ' Title 'If Trim(objExcel.Activecell.Offset(0, 17).Value) <> "" Then ' .Put "title", CStr(objExcel.Activecell.Offset(0, 17).Value) 'End If ' Pager 'If Trim(objExcel.Activecell.Offset(0, 18).Value) <> "" Then ' .Put "pager", CStr(objExcel.Activecell.Offset(0, 18).Value) 'End If ' Webpage URL 'If Trim(objExcel.Activecell.Offset(0, 19).Value) <> "" Then ' .Put "wWWHomePage", CStr(objExcel.Activecell.Offset(0, 19).Value) 'End If ' Office 'If Trim(objExcel.Activecell.Offset(0, 20).Value) <> "" Then ' .Put "physicalDeliveryOfficeName", CStr(objExcel.Activecell.Offset(0, 20).Value) 'End If ' Description 'If Trim(objExcel.Activecell.Offset(0, 21).Value) <> "" Then ' .Put "description", CStr(objExcel.Activecell.Offset(0, 21).Value) 'End If ' HomeDrive 'If Trim(objExcel.Activecell.Offset(0, 39).Value) <> "" Then ' .Put "homeDrive", CStr(objExcel.Activecell.Offset(0, 39).Value) 'End If ' homeDirectory 'If Trim(objExcel.Activecell.Offset(0, 40).Value) <> "" Then ' .Put "homeDirectory", CStr(objExcel.Activecell.Offset(0, 40).Value) 'End If ' scriptPath 'If Trim(objExcel.Activecell.Offset(0, 41).Value) <> "" Then ' .Put "scriptPath", CStr(objExcel.Activecell.Offset(0, 41).Value) 'End If ' ProfilePath 'If Trim(objExcel.Activecell.Offset(0, 42).Value) <> "" Then ' .Put "ProfilePath", CStr(objExcel.Activecell.Offset(0, 42).Value) 'End If ' Save data Err.Clear .SetInfo ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error setting user properties " & Err.Number & Err.Description End If End With ' Set Exchange IM and enable account With objUser If Trim(objExcel.Activecell.Offset(0, 22).Value) <> "" Then If Trim(objExcel.Activecell.Offset(0, 23).Value) <> "" Then ' Get IM Virtual Server For Each objIMVirtualServer In objIMServers(1).VirtualServers If (objIMVirtualServer.DisplayName = CStr(objExcel.Activecell.Offset(0, 22).Value)) Then ' Enable user for Exchange 2000 IM Err.Clear Set objIMUser = objIMUserAdmin.EnableUser(objUser, strAlias, CStr(objExcel.Activecell.Offset(0, 23).Value), objIMVirtualServer) ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error IM enabling user " & Chr(13) _ & Err.Number & Chr(13) & Err.Description End If Exit For End If Next End If End If ' Set password and enable the account 'If Trim(objExcel.Activecell.Offset(0, 24).Value) <> "" Then '.SetPassword objExcel.Activecell.Offset(0, 24).Value .SetPassword strSamName 'End If .AccountDisabled = False ' Save data Err.Clear .SetInfo ' Check for errors If Err.Number <> 0 Then ' Display error message WScript.Echo "Error setting user properties " & Err.Number & Err.Description End If End With ' This is taken care of way above 'If Trim(objExcel.Activecell.Offset(0, 25).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 26).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 27).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 28).Value) <> "" Then ' If Trim(objExcel.Activecell.Offset(0, 29).Value) <> "" Then ' Construct Exchange 2000 mailbox url 'Constructed elsewhere see above 'strHomeMDBUrl = "CN=" & objExcel.Activecell.Offset(0, 29).Value & ",CN=" & objExcel.Activecell.Offset(0, 28).Value & "," & _ ' "CN=InformationStore,CN=" & objExcel.Activecell.Offset(0, 26).Value & ",CN=Servers," & _ ' "CN=" & objExcel.Activecell.Offset(0, 27).Value & ",CN=Administrative Groups," & _ ' "CN=" & objExcel.Activecell.Offset(0, 25).Value & ",CN=Microsoft Exchange,CN=Services,CN=Configuration," & strRoot 'End If 'End If 'End If 'End If 'End If If Trim(strUserName) <> "" Then ' Construct LDAP URL to AD object strPersonURL = "LDAP://" + strUserName + "," + strOU + "," + strRoot ' Open user object with CDO for Exchange 2000 Set objPerson = CreateObject("CDO.Person") Set objDataSource = objPerson.GetInterface("IDataSource") Err.Clear objDataSource.Open strPersonURL ' Check for errors If Err.Number = 0 Then Set objMailboxStore = objPerson.GetInterface("IMailboxStore") Set objRecipient = objPerson.GetInterface("IMailRecipient") If Trim(strHomeMDBUrl) <> "" Then ' Set Exchange 2000 Server mailbox home database property objMailboxStore.CreateMailbox strHomeMDBUrl ' Write mailbox restrictions With objMailboxStore ' Issue warning at (KB) If Trim(objExcel.Activecell.Offset(0, 30).Value) <> "" Then .StoreQuota = objExcel.Activecell.Offset(0, 30).Value ' Disable store defaults .EnableStoreDefaults = False End If ' Prohibit send at (KB) If Trim(objExcel.Activecell.Offset(0, 31).Value) <> "" Then .OverQuotaLimit = objExcel.Activecell.Offset(0, 31).Value ' Disable store defaults .EnableStoreDefaults = False End If ' Prohibit send and receive at (KB) If Trim(objExcel.Activecell.Offset(0, 32).Value) <> "" Then .HardLimit = objExcel.Activecell.Offset(0, 32).Value ' Disable store defaults .EnableStoreDefaults = False End If End With End If ' Save data Err.Clear objPerson.DataSource.Save End If End If ' Tidy up strHomeMDBUrl = "" strPersonURL = "" Set objUser = Nothing Set objPerson = Nothing End If ' Step to the next user objExcel.Activecell.Offset(1, 0).Activate Else ' Exit loop Exit Do End If Loop ' Close Excel spreadsheet objExcel.Application.Quit End If End If End If ' Tidy up Set objArguments = Nothing Set objExchangeServer = Nothing Set objUser = Nothing Set objContainer = Nothing Set objExcel = Nothing Set objIMServers = Nothing Set objIMVirtualServer = Nothing Set objIMUserAdmin = Nothing Set objPerson = Nothing Set objMailboxStore = Nothing Set objRecipient = Nothing Set objDataSource = Nothing Set strSamName = Nothing ' Show to user WScript.Echo "Finished running script." </script> </Job> </package> Tag: Creating a DFS root Tag: 152692
 - 7
 - Find Image Source using a Variable GifJpg = "Bth" & TXHQstnNo(346) & "R.gif Response.Write GifJpg%><%rsTests.Open "SELECT * FROM TXHQsnts WHERE TXHNo = 657", cnnct, 3, If rsTests("RghtWrng") = "Y" then%><TD Width="43%"><Img Src="<%=" & GifJpg & "%>" Width="37" Height="37" The Contents if GifJpg are Tst657R.gif There is an existing Question (Image) in the directory The Image (Tst657R.gif) in GifJpg will not display, However the Response.Write GifJpg shows it is correct All the Questions are in Image Files in a directory Thank Yo Anthony Tag: Creating a DFS root Tag: 152690
 - 8
 - Printer script I am applying through a GPO a script to run under Computer Configuration>Windows Settings>Startup Here is an example of the script: rundll32 printui.dll, PrintUIEntry /in /n \\server\printershare Using this script the printer will show up in the Printer folder on a Windows 2000 box as the default printer. When the script runs on an Windows XP Pro box it acts like it runs, but no printer show up in the Printer folder? Why does this work for W2K, but not XP Pro? Thanks Tag: Creating a DFS root Tag: 152688
 - 9
 - icon in the task bar Hello all, I have a non-rectangular form... Really, it is just a bitmap with a transparencykey and a backgroundimage with formborderstyle = none. I set my icon for the object through the property window for the form. However, when I run the application, only the title shows in the taskbar... Not the icon. Any ideas? Thanks in advance, Andrew Mueller Tag: Creating a DFS root Tag: 152684
 - 10
 - windows 98 login script for clients connecting to 2k server A client that I am working with is trying to write a login script to connect users from different ou's (groups)to various shares and map the drives as they log in. Can this be done? Is this proposed solution a good work around for not using XP and group policies and where on earth would they start ? Tag: Creating a DFS root Tag: 152678
 - 11
 - open file with blanks in path Hi! I have the problem that I have to open Files via VBScript (for excample a document or an excel sheet) in an environment where the directories are like that: u:\unternehmen\A L L\S E K\... So there are blanks in the directory and it's not possible to open the file with this code: dim str str = "" for intLoop = 0 to Wscript.Arguments.Count-1 str = str & WScript.Arguments.Item(intLoop) if intLoop<>Wscript.Arguments.count-1 then str = str & " " end if next 'msgbox str set MyShell=Wscript.CreateObject("Wscript.Shell") myshell.run str The system does not find the file - What can i do? best regards Andreas Wöckl Tag: Creating a DFS root Tag: 152677
 - 12
 - script an odbc connection Does anyone know how to setup an ODBC connection silently with a script? Tag: Creating a DFS root Tag: 152675
 - 13
 - Good book? Can anyone recommend a good book to get started with scripting. I am very well versed with batch scripting and Auto-it but I would like to gain more experience so as far as I see the next logical step would be to learn vb-script. What do you think. What are some good books. Tag: Creating a DFS root Tag: 152674
 - 14
 - Connection Errors Hey group. I'm having a problem with a script I'm writing. I'm writing a script to use a net use command, map a drive, connect to this mapped drive, and do a couple things. The script runs fine up to and including the net use command. After that though, it doesnt work; bascally I don't have permissions (with the script) to go to the newly mapped drive (the account I am using to run it is a domain admin). For testing purposes, I'm only trying to connect to one box. Here's a code snipit: strComputer="est213-01" strdirlist = "net use k: \\" & strComputer & "\c$" Wscript.Echo strdirlist Set doit = WshShell.Exec(strdirlist) strdirlist = "k:" Wscript.Echo strdirlist Set doit = WshShell.Exec(strdirlist) As soon as I try to connect to k:, I get errors. However, it does create k: in the first net use command (I can manually get to it). Any suggestions? Thanks. Anthony Tag: Creating a DFS root Tag: 152673
 - 15
 - ASP Help... asp script.. select day,month,year next... write text... http://www.polatliborsa.org.tr/tr/GunlukEndeks.htm thanks Tag: Creating a DFS root Tag: 152670
 - 16
 - Display Image of a Test Question I have 1,803 Test questions in the form of images in a directory. The question to be given to the student is random within ranges. I have tried for days to get the images to display. The examples from the books have not worked. This is what I have last GifJpg = "Tst" & TXHQstnNo(346) & "R.gif Response.Write GifJpg%><%rsTests.Open "SELECT * FROM TXHQsnts WHERE TXHNo = 657", cnnct, 3, If rsTests("Wrong") = "Y" then%><TD Width="43%"><Img Src="<%=" & GifJpg & "%>" Width="937" Height="137" All the Images are labeled Tst a Number than one letter at the end. The number part is what is random. The example above is Test Question # 657. The Question is # 346. The lettter R means the question was answered in-correctly the first time the question was asked. Does anyone know why I am having trouble to display the Image Thank You in Advanc Bill Barber Tag: Creating a DFS root Tag: 152667
 - 17
 - Monitor windows service Hi, anyone has a script to Monitor windows service ? thanks Tag: Creating a DFS root Tag: 152665
 - 18
 - indexing service hi everybody, i have a problem with the indexing service when i have to do a second search in my internal portal, the first search is always good but if i want to searh another word the following message appears: CreateRecordset error '8001010e' The application called an interface that was marshalled for a different thread. My code: <% dim numerr, abouterr dim str_search dim Q Dim Rs dim strQuery str_search = Request.Form("CompSearch") Response.Write "Stringa " & str_search 'On Error Resume Next If str_search <>"" then Set Q=Server.CreateObject("ixsso.Query") Q.Query = str_search Q.Catalog="Catalogo_Portale" Q.SortBy="rank[d]" Q.Columns="doctitle, filename, create, size, characterization, vpath" Q.MaxRecords=5 Response.write "ciao1" 'On Error Resume Next Set Rs = Q.CreateRecordset("nonsequential") Q.Reset set Q = Nothing if Rs.EOF then Response.Write "Mi dispiace. Nessun risultato trovato." Response.Write " FILENAME " & Rs.Fields("filename") else Response.Write "" Response.Write Rs.RecordCount Response.Write " risultati trovati:" Do While Not Rs.EOF Response.Write "" Response.Write ("<a target=_blank href="& Rs.Fields("vpath")& ">" & Rs.Fields("doctitle")& ": " & Rs.Fields("filename")& "</a>") response.Write " " Response.Write " " Response.Write "Create:" Response.Write Rs.Fields("create") Response.Write " " Response.Write "Size:" Response.Write Rs.Fields("size") Response.Write " " Response.Write "" Response.Write Rs.Fields("vpath") response.Write " " Response.Write " " ' Spacing between results Rs.MoveNext Loop Rs.close set Rs = Nothing end if end if if Err.number <> 0 Then Response.Write "An Error has occured! Error number " & Err.number & " of_ the type: " & Err.description & Err.Column & Err.Line & Err.Source End If 'Response.Write "Your Session ID is " & Session.SessionID %> can you help me? thanks Tag: Creating a DFS root Tag: 152661
 - 19
 - how can i calculate with currencies/money values? As a VBS newbe I am trying to create a calculation witch needs to result in a two digit decimal notation like: 11.90 I keep getting results like: 11.90423 or 11.9 Can anyone please help me solve this problem? Thanks a lot! Casper Tag: Creating a DFS root Tag: 152660
 - 20
 - How can I calculate with currencies/money values? As a VBS newbe I am trying to create a calculation witch needs to result in a two digit decimal notation like: 11.90 I keep getting results like: 11.90423 or 11.9 Can anyone please help me solve this problem? Thanks a lot! Casper Tag: Creating a DFS root Tag: 152659
 - 21
 - Word.Application Hi On our intranet, in IE on a client with WinXP Pro sp1, IE6 sp1, Office XP Pro and Office 2k Pro: set oWrd = createobject("Word.Application") is erroring with "...(DLL) initialization routine failed" The site is in the Trusted zone and ALL security options are set to enabled However, on a client with Win2k Pro sp3, IE5.5, Office 2k Pro the page works OK I have examined the registry and all Word.Application entries have the same clsid (if that is relevant... Can anyone tell me why?? eg should I try uninstalling one of the Office versions or is it more likely a security issue with WinXP or what.. Thanks for any thought Arth Tag: Creating a DFS root Tag: 152657
 - 22
 - Controling MS-Agent events from a standalone vb script Hello, I'm trying to control ms-agent from vbs. That works fine when the script is embedded in a web page but, when I try to do that in a stnadalone script nothing happens ! Nom = "peedy" Set Agent = CreateObject("Agent.Control.2") Agent.Connected = true Agent.Characters.Load Nom, Nom+".acs" Set Merlin = Agent.Characters(Nom) Merlin.Show Merlin.Play "DoMagic2" Do While Merlin.Visible:wscript.sleep 10:loop Agent.connected = false Set Merlin = Nothing Set Agent = Nothing sub Agent_Click(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y) Merlin.Hide end sub The click event is never triggered, I tried with _Command, _DblClick ans so on. Does anyone have an idea ? Thanks in advance. -- Gilles COSTA, Géomètre-expert Selarl Gross-Allain 17, grande rue, BP 23 91311 Montlhéry cedex, France Tag: Creating a DFS root Tag: 152652
 - 23
 - Runtime Error Hello all I have a problem with a small VB script, which I want to use as login script. -------------------- Set oNet = CreateObject("Wscript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") oDrive = "O:" If oFSO.DriveExists(oDrive) Then oNet.RemoveNetworkDrive oDrive End If oNet.MapNetworkDrive oDrive, "\\server\share" Set oNet = Nothing Set oFSO = Nothing Set oDrive = Nothing -------------------- When I start the vbs I receive this error: Line: 2 Char: 1 Error: ActiveX component can't create object: 'Scripting.FileSystemObject' Code: 800A01AD Source: Microsoft VBScript runtime error Any ideas? Thanks in advance GoTTi Tag: Creating a DFS root Tag: 152648
 - 24
 - Is there an equivalent to continue in vbscript Hi : Sometimes, i want to use the "continue" comman , but ,i can't find an equivalent in VbScript .Can any one tell me how to do it ? Tag: Creating a DFS root Tag: 152644
 - 25
 - Problem with UTF-8 and Server.URLEncode Hi I'm usin Windows 2000 Advanced Serve Service Pack IIS 5. Charset UTF- Codepage= 6500 I have a problem when using the method Server.URLEncode. It converts for instance the character "Ã?" to D6(hexadecimal), but according to the ASCII-table(Extended ASCII codes) the value should be 99(hexadecimal). When I then use the method Request.QueryString the value is corrupt. I am aware of the Knowledge Base article 294831, but the service pack seems to make no difference in this case. Does anyone have any ideas how I can fix this problem?? Please help.. Thanks Christopher Tag: Creating a DFS root Tag: 152643

Hi,

Can someone tell me how to create a DFS root using VBScript, or
alternatively point me to a site with info?

There seems to be info out there on creating DFS links under an existing
rot, but not how to create itself. As you may have understood from this, I'm
not a scripting guru...

Regards,
Jørn

Top

Re: Creating a DFS root by Torgeir

Torgeir
Wed Feb 11 17:32:07 CST 2004

"Jørn Jørgensen" wrote:

> Can someone tell me how to create a DFS root using VBScript, or
> alternatively point me to a site with info?
>
> There seems to be info out there on creating DFS links under an existing
> rot, but not how to create itself. As you may have understood from this, I'm
> not a scripting guru...

Hi

If you can run your script on a Win2k3 Server, it looks like you can use
the Create method of the Win32_DFSNode WMI class:

http://msdn.microsoft.com/library/en-us/wmisdk/wmi/create_method_in_class_win32_dfsnode.asp

TechNet Scripts: Create a Dfs Node
http://www.microsoft.com/technet/scriptcenter/dfs/ScrDFS06.asp

The command line utility DFSUtil.exe and it's command line switch /ADDROOT
I would think also do this.

Some cleanup tips here by the way:
http://groups.google.com/groups?selm=ewwFDyojDHA.964%40TK2MSFTNGP10.phx.gbl

MS links Dfsutil (with download link to latest DFSUtil for Windows Server 2003):

http://search.microsoft.com/search/results.aspx?st=b&qu=Dfsutil&view=en-us

For Win2k Server:

Latest version of a downloadable DFSUtil.exe is in the SP4 Support Tools"
http://www.microsoft.com/windows2000/downloads/servicepacks/sp4/supporttools.asp

There is a newer version mentioned here:
http://support.microsoft.com/default.aspx?scid=kb;en-us;827414

As the article states, you need to call Microsoft Product Support Services to
obtain it (outside the US, customers should contact their local Microsoft
subsidiary.). The support call will be be free as long as you refer to the
Knowledge Base Article number and ask for nothing more.

--
torgeir
Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of the 1328 page
Scripting Guide: http://www.microsoft.com/technet/scriptcenter

Top