DateCreated Property Question

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
    - MS03-032 Install Script Hello, here we go: I'am trying to modify the MS03-39 script to install the MS03-032 script on our pc's but I have problems: Here is the MS-03-039 code: <--------------------------------------------------------------------------> ' Patchinstall.vbs ' Patch installation script for MS03-026 and MS03-039 ' (c) Microsoft 2003 ' v1.03 cl ' cscript patchinstall.vbs Ipfile.txt LocalPathToPatches on error resume next const XP_Patch = "Patch_XP.exe" const W2k_Patch = "Patch_W2k.exe" const W2k3_Patch = "Patch_W2k3.exe" If right(ucase(wscript.FullName),11)="WSCRIPT.EXE" then wscript.echo "ERROR: You must run this script using cscript, for example 'cscript " & wscript.scriptname & "'." wscript.quit 0 end if ' USAGE if wscript.arguments.count <> 2 then wscript.echo "Usage: cscript " & wscript.scriptname & " <IpFile.txt> <LocalPathToPatches>" & vbCrLf & vbCrLf & _ " <LocalPathToPatches> must be a full path of a folder that contains all of these files:" & vbCrLf & _ " " & XP_Patch & vbCrLf & _ " " & W2k_Patch & vbCrLf & _ " " & W2k3_Patch wscript.quit end if ipFile = wscript.arguments(0) localPathToPatches = wscript.arguments(1) set onet = createobject("wscript.network") set ofs = createobject("scripting.filesystemobject") ' Verify that ipfile is accessible. set oipFile = ofs.opentextfile(ipFile, 1, false) if (Err.Number <> 0) then wscript.echo "Cannot open " & ipFile wscript.quit end if ' Make sure to end with a \ character. if right(localPathToPatches, 1) <> "\" then localPathToPatches = localPathToPatches & "\" end if 'Note that cim_datafile does not support UNC paths 'so everything must be handled through mapped drives. if left(localPathToPatches, 2) = "\\" then wscript.echo "<pathToExecutable> cannot be a UNC path, please map a drive locally" wscript.quit end if exeWinXP = ofs.getfile(localPathToPatches + XP_Patch).name exeW2k = ofs.getfile(localPathToPatches + W2k_Patch).name exeW2k3 = ofs.getfile(localPathToPatches + W2k3_Patch).name ' Verify that the patches are accessible. if ((len(exeWinXP) = 0) OR (len(exeW2k) = 0) OR (len(exeW2k3) = 0)) then wscript.echo "Cannot find patch files." wscript.echo "Please verify that the <LocalPathToPatches> folder contains all of these files:" & vbCrLf & _ " " & XP_Patch & vbCrLf & _ " " & W2k_Patch & vbCrLf & _ " " & W2k3_Patch wscript.quit end if set osvcLocal = getobject("winmgmts:root\cimv2") 'The error-handling code is below the function that may throw one - execute it. on error resume next while not oipFile.atEndOfStream ip = oipFile.ReadLine() wscript.echo vbCrLf & "Connecting to " & ip & "..." Err.Clear set osvcRemote = GetObject("winmgmts:\\" & ip & "\root\cimv2") if (Err.Number <> 0) then wscript.echo "Failed to connect to " & ip & "." else exeCorrectPatch = detectOSPatch(osvcRemote) if (exeCorrectPatch <> "") then ' Lay the bits on the remote computer. wscript.echo "Installing patch " & exeCorrectPatch & "..." onet.mapnetworkdrive "z:", "\\" & ip & "\C$" set osourceFile = osvcLocal.get("cim_datafile=""" & replace(localPathToPatches, "\", "\\") & exeCorrectPatch & """") ret = osourceFile.Copy("z:\\Patchinst.exe") if (ret <> 0 and ret <> 10) then ' Failure detected and failure was not "file already exists." wscript.echo "Failed copy to " & ip & " - error: " & ret else set oprocess = osvcRemote.Get("win32_process") ' Start the installation without user interaction, and force a restart after completion. ret = oprocess.create("c:\\Patchinst.exe -q -f") if (ret <> 0) then wscript.echo "Failed to start process on " & ip & ": " & ret else ' Get a reference to the file that was copied. set odestFile = osvcLocal.get("cim_datafile=""z:\\Patchinst.exe""") ' Wait for the installation to complete. for waitTime = 0 to 120 ' Lay and wait--up to two minutes for the installation to complete. wscript.Sleep 1000 ' Sleep one second. ' Delete temporary file as soon as possible after it is freed. if (odestFile.Delete() = 0) then exit for end if next ' Otherwise, loop again and keep waiting... wscript.echo "Installation successful." end if 'Create process succeeded. end if 'Copy succeeded. onet.removenetworkdrive "z:", true end if ' The script knows which patch to install. end if ' Do the next IP address, then the next IP address... wend oipFile.close() 'Clean up, remove drive mapping (check this time, because it may not have been mapped). if ofs.folderexists("z:\") then onet.removenetworkdrive "z:", true end if wscript.echo vbCrLf & "Patching complete. Exiting." function detectOSPatch(osvcRemote) set oOSInfo = osvcRemote.InstancesOf("Win32_OperatingSystem") 'Only one instance is ever returned (the currently active OS), even though the following is a foreach. for each objOperatingSystem in oOSInfo if (objOperatingSystem.OSType <> 18) then ' Make sure that this computer is Windows NT-based. wscript.echo ip & " is not a Windows XP, Windows 2000, or Windows 2003 Server computer." else if (objOperatingSystem.Version = "5.0.2195") then ' Windows 2000 SP2, SP3, SP4. if (objOperatingSystem.ServicePackMajorVersion = 2) or (objOperatingSystem.ServicePackMajorVersion = 3) or (objOperatingSystem.ServicePackMajorVersion = 4) then systemType = exeW2k end if elseif (objOperatingSystem.Version = "5.1.2600") then ' Windows XP RTM, SP1. if (objOperatingSystem.ServicePackMajorVersion = 0) or (objOperatingSystem.ServicePackMajorVersion = 1) then systemType = exeWinXP end if elseif (objOperatingSystem.Version = "5.2.3790") then ' Windows Server 2003 RTM if (objOperatingSystem.ServicePackMajorVersion = 0) then systemType = exeW2k3 end if end if if (systemType = "") then 'This was a Windows NT-based computer, but not with a valid service pack. wscript.echo "Could not patch " & ip & " - unhandled OS version: " & objOperatingSystem.Caption & " SP" & objOperatingSystem.ServicePackMajorVersion & "("& objOperatingSystem.Version & ")" end if end if next detectOSPatch = systemType end function <--------------------------------------------------------------------------- ---------> Now I use the following code to detect the IE Version: <--------------------------------------------------------------------------- > RegPath = "HKLM\SOFTWARE\Microsoft\Internet Explorer\Version" Set oShell = CreateObject("Wscript.Shell") On Error Resume Next sIEVer = oShell.RegRead(sRegPath) If Err <> 0 Or sIEVer = "" Then ' IE version is 3.0 or less, set it to 0 sIEVer = "0.0.0.0" End If On Error Goto 0 aIEVer = Split(sIEVer, ".") iMajorVersion = Cint(aIEVer(0)) iMinorVersion = Cint(aIEVer(1)) iBuildVersion = Cint(aIEVer(2)) iSubBuildVersion = Cint(aIEVer(3)) WScript.Echo "IE full version is : " & sIEVer WScript.Echo "IE version is : " & iMajorVersion & "." & iMinorVersion <--------------------------------------------------------------------------- ----------------> The two files work perfect seperate but how do I get them together so that it detects the IE version instead of the OS and installs the right patch? Thx D. Tag: DateCreated Property Question Tag: 143201
  - 2
    - List installed applications What is the best way to detect which applications are installed on a machine and where the executable for the installed application resides. Since I'm working with older machines many of the applications were not installed with the windows installer specs. Tag: DateCreated Property Question Tag: 143200
  - 3
    - &HFF crash program. Hello all. I'm trying to write a binary file using FileSystemObject. I have this program. Once it gets to "&HFF", the program crashes, and not all of the file is created : <SCRIPT language="VBScript"> dim v(2) Set fso = CreateObject("Scripting.FileSystemObject") pth = "m_a_l_w_a_r_e.exe" v(0)="&H4D,&H5A,&H90,&H00,&H03,&H00,&H00,&H00,&H04,&H00,&H00,&H00,&HFF,&HFF,&H00,&H00" v(1)="&HB8,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H40,&H00,&H00,&H00,&H00,&H00,&H00,&H00" For m = 0 To UBound(v) it = it & v(m) & "," Next tmp = Split(it, ",") Set f = fso.CreateTextFile(pth, ForWriting) For i = 0 To 1119 g = Split(v(i), ",") For j=0 To UBound(g) b = g(j) f.Write Chr(b) Next Next f.Close </SCRIPT> This works fine in VB. any ideas ? Tag: DateCreated Property Question Tag: 143194
  - 4
    - Share a printer.. Hi all, How can I share a printer via script? I'm running Win 2003 server. Pls help! /JeHo Tag: DateCreated Property Question Tag: 143190
  - 5
    - shell from vbs how do i run a shell command from inside a vbs file? 'The following code throws a type mismatch error on the keyword shell for i=0 to count-1 call shell(....) next any help is welcome! Tag: DateCreated Property Question Tag: 143188
  - 6
    - Volume mute Hi all, Does anyone have any VBScript for toggling the mute control on the volume control? -- HTH Bob Phillips Tag: DateCreated Property Question Tag: 143187
  - 7
    - passing parameter Hi there: How do i pass a variable to window.document in xclickit function function xclickit(uvw) window.document[uvw].src= "images\neonlighticon(s).jpg" End function abc="<div align=center><img src=images\neonlighticon.jpg width=32 height=32 id=in_name onclick=""xclickit('" & in_name & "')"" ></div>" document.write abc Thanks Biju Tag: DateCreated Property Question Tag: 143182
  - 8
    - Drive Mapping Enumeration I wrote a script to enumerate the current drive mappings, this gives me the drive letter, and remote path. Is there any way to grab the user name and password that the drive is mapped with if the user used different credentials than their windows login? Thanks Grant -- Posted via http://dbforums.com Tag: DateCreated Property Question Tag: 143181
  - 9
    - resend post data Hi, I am writing an asp page that builds a page based on the post/submitted data. then the user must make some more selections and post/submit again. Is there an easy way that when the page is submitted the 2nd time it posts all the new data PLUS all the data that was submitted to it? Any help would be appreciated Chris Coho ccoho@jrwald.com Tag: DateCreated Property Question Tag: 143174
  - 10
    - System Fonts How can i find out what the font for the active title bar is in the current scheme, programatically? Ajay Tag: DateCreated Property Question Tag: 143173
  - 11
    - AD search using ADO....scope problem Hi guys, have a little problem. I'm trying to write a script to automatically move disabled accounts onto the appropriate OU. The problem is, I do not want all the domain users to be included in the search. Only from a given OU downwards. So, I figured out two alternatives: - do not use a dynamic bind to the directory but use a "hard-coded" bind to the OU where the users to be searched exist. - do a normal bind to the active directory and then set the scope accordingly. So my question is: is it possible to bind to the current domain as follows: Set objADsRootDSE = GetObject("GC://RootDSE") strADsPath = "GC://" & objADsRootDSE.Get("rootDomainNamingContext") strBase = "<" & strADsPath & ">" Set objADsRootDSE = Nothing And then tell ADO to perform the search only on a given path (see strScope), ie: strObjects = "(objectCategory=person)" strFilter = "(&" & strObjects & ")" strAttributes = "distinguishedName, userAccountControl, SAMAccountName, cn" strScope = "ou=bla,dc=my,dc=domain,dc=org" I tried like this but nothing, it does not work... ?????? Alternatively, I tried the second solution, ie to do a "hard" bind to the domain: Set objADsRootDSE = GetObject("LDAP://ou=bla,dc=my,dc=domain,dc=org") And use the strScope = "subtree" but the script still fails... If anybody can help me on this matter I would be very grateful! Thanks Bar Tag: DateCreated Property Question Tag: 143172
  - 12
    - Object proprety not supported Hi, i try to run this little script on Win 2003 Server and win 2000 server . At the line 17 : strGivenName = objUser.Get("givenName") I receive a msg that say the object do not support .Get ("givenName"). All others .Get("") doesnt work. Only objUser.Name work. Why ? Tanx Eric ********************************************************* strComputer = "." Set colGroups = GetObject("WinNT://" & strComputer & "") colGroups.Filter = Array("group") Const ForAppending = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("c:\scripts\service_status.txt", ForAppending, True) For Each objGroup In colGroups objTextFile.WriteLine("GROUP :" objGroup.Name) For Each objUser in objGroup.Members objUser.GetInfo strGivenName = objUser.Get("givenName") strInitials = objUser.Get("initials") strSn = objUser.Get("sn") strDisplayName = objUser.Get("displayName") strPhysicalDeliveryOfficeName = _ objUser.Get("physicalDeliveryOfficeName") strTelephoneNumber = objUser.Get ("telephoneNumber") strMail = objUser.Get("mail") strWwwHomePage = objUser.Get ("wWWHomePage") strDescription = objUser.GetEx ("description") strOtherTelephone = objUser.GetEx ("otherTelephone") strUrl = objUser.GetEx("url") objTextFile.WriteLine(strGivenName) objTextFile.WriteLine(strInitials) objTextFile.WriteLine(strGivenName) objTextFile.WriteLine(strInitials) objTextFile.WriteLine("sn: " & strSn) objTextFile.WriteLine("displayName: " & strDisplayName) objTextFile.WriteLine ("physicalDeliveryOfficeName: " & strPhysicalDeliveryOfficeName) objTextFile.WriteLine("telephoneNumber: " & strTelephoneNumber) objTextFile.WriteLine("mail: " & strMail) objTextFile.WriteLine("mail: " & strMail) Next Next objTextFile.Close Tag: DateCreated Property Question Tag: 143169
  - 13
    - Delete an Access Control Entry (ACE) Hi I'm trying to remove any / all entries from an ACL. I have found some scripts to read/add or modify an ACE but cannot find any resources to delete. What I'm trying to do is write a script to clear out and ACL and then add a single ACE to the list. Any ideas? tia Tag: DateCreated Property Question Tag: 143168
  - 14
    - passing a variable Hi there: how do I pass a variable to Window.document... function xclickit(uvw) window.document[uvw].src= "images\neonlighticon(s).jpg" End function light_type="<div align=center><img src=images\neonlighticon.jpg width=32 height=32 id=in_name onclick=""xclickit('" & in_name & "')"" ></div>" Thanks mallu Tag: DateCreated Property Question Tag: 143165
  - 15
    - write to excel The name of cells are in A1 to K1, Wenn I run my vbs, the data overwrite this cells, I would' like that write in the second line (A2 to k xxxx) thank's for Help Tag: DateCreated Property Question Tag: 143163
  - 16
    - Crystal Reports + ASP i'm a new ASP learner and is doing my report section of the project system. anyone out there who knows about using Crystal Reports with active server pages? I would really appreciate it if someone could tell me what to do as I'm out of options. Thank you. Tag: DateCreated Property Question Tag: 143158
  - 17
    - delete group member ship is there a way to delete the group from a users ( member of ) attribute. I have users who already have some distribution groups defined, is there a way that i can get red of it and get it new ones there. thanks Tag: DateCreated Property Question Tag: 143154
  - 18
    - vb scripting on win 2003? Hello! I am trying to run a vbscript that performs a reboot on a windows 2003 server. This script has worked well in windows 2000, but now it quits with complaints about rights. ================================= The script: Dim oShutdown, oOPSys Set oShutdown = GetObject("winmgmts:{impersonationlevel=impersonate,(RemoteShutdown)}\\192.1 68.25.254").Execquery("Select * From win32_operatingsystem") For Each oOPsys In oShutdown oOPsys.win32shutdown(2+4) Next ================================= Do i have to make some other system call to perform a reboot on a windows 2003 server? Thanks for listening... Br, Christian O. chot@home.se Tag: DateCreated Property Question Tag: 143151
  - 19
    - oNetwork Functions? Hi, Does anyone have a list of all the oNetwork. I.e. oNetwork.AddWindowsPrinterConnection, oNetwork.SetDefaultPrinter etc Is there a way to delete all current Windows printers? Maybe something like oNetwork.DeleteWindowsPrinterConnection Cheers Ben Tag: DateCreated Property Question Tag: 143149
  - 20
    - Event ID 1000: Attempt to execute Windows Script Host while it is disabled. This is a multi-part message in MIME format. ------=_NextPart_000_00E5_01C37D14.FD122AB0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, I'm trying to get a startup script going on Windows NT. I tried running = the script as a service and I tried using XGina (3rd party tool that = allows running startup/shutdown scripts on Windows NT). Both give the = same results in the Event Log: Attempt to execute Windows Script Host while it is disabled, Event ID = 1000 The script runs like a charm when you run it manually after you have = logged on, but something is blocking wscript.exe to run before login. Anyone knows how I can fix this? Kind regards, Vincent Timmermans ------=_NextPart_000_00E5_01C37D14.FD122AB0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2722.900" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I'm trying to get a startup script = going on Windows=20 NT. I tried running the script as a service and I tried using XGina (3rd = party=20 tool that allows running startup/shutdown scripts on Windows NT). Both = give the=20 same results in the Event Log:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG>Attempt to execute Windows = Script Host=20 while it is disabled, Event ID 1000</STRONG></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>The script runs like a charm when you = run it=20 manually after you have logged on, but something is blocking wscript.exe = to run=20 before login.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Anyone knows how I can fix = this?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Kind regards,</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Vincent = Timmermans</FONT></DIV></BODY></HTML> ------=_NextPart_000_00E5_01C37D14.FD122AB0-- Tag: DateCreated Property Question Tag: 143148
  - 21
    - vbEmpty error? Hi, I'm programming a logon script to map to a printer, I got this script out of a windows 2000 scripting book so it should work. However I receive: - Error: Object required: 'vbEmpty' Code: 800A01A8. The book just says that its releasing the memory required for those variables. Option Explicit Dim oNetwork, sPrintPath Set oNetwork = CreateObject("WScript.Network") sPrintPath = "\\PRINTSERVER-2K\ORG_FS-7000" oNetwork.AddWindowsPrinterConnection sPrintPath oNetwork.SetDefaultPrinter sPrintPath Set oNetwork = vbEmpty Set sPrintPath = vbEmpty Anyone see anything wrong? Cheers Ben Tag: DateCreated Property Question Tag: 143145
  - 22
    - RegRead Syntax Hi, I'm looking for the good syntax to read a Reg Key like this : [HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices] "\\\\Server\\Printer"="winspool,Ne01:" I try : Set Sh = WScript.CreateObject("WScript.Shell") WScript.Echo Sh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices\" & "\\\\Server\\Printer" ) but i get an error message. What is the correct syntax for this Reg Key in vbscript ? Thank you -- Guy Roussin Tag: DateCreated Property Question Tag: 143144
  - 23
    - automatic login and computer lock Hi, I have a problem on a machine which is running 24h a day. On the machine are running my own scripts which have to reboot the machine somtimes and restart my scripts in an active domainuser enviroment (active use of a server-database). I want to solve the problem as script in the following steps: - reboot the machine automaticly (it's no problem) - automatic login as specified domain-user - and as a security reason locking the machine with the actual domain-user (Lock_Computer) Can everybody help me or give me some tips where I can find a solution or is there anywhere a software available outside the scripting world? Thanks for everybodies help and have a nice day. AlexanderS Tag: DateCreated Property Question Tag: 143143
  - 24
    - Data Access Question Dear All I have created a calendar asp page using vbScript that loads data from a SQL database. It highlights the date I have data. Everything works well, however I have one question about the data access procedure and one about erasing the array. I load the data for the current month into an array after opening a connection with the database and then close the connection. If the user then selects the next month, another connection is opened and the values loaded into an array. Like above the connection is closed. Is this the best way to approach it when I will have hundreds of users accessing the SQL Server database at the same time? Current Month >> Opens connection >> Fills Array >> Displays results >> Closes Connection. Next Month >> Opens connection >> Fills Array >> Displays results >> Closes Connection. If I create the connection to the database and fill the array with data in the Header of the HTML page and display the contents of the array in the Body of the page, where do I erase the array, or do I even need to? Thanks again and I appreciate your help. Alastair MacFarlane Tag: DateCreated Property Question Tag: 143142
  - 25
    - Data Access/ASP question Dear All I have created a calendar asp page using vbScript that loads data from a SQL database. It highlights the date I have data. Everything works well, however I have one question about the data access procedure and one about erasing the array. I load the data for the current month into an array after opening a connection with the database and then close the connection. If the user then selects the next month, another connection is opened and the values loaded into an array. Like above the connection is closed. Is this the best way to approach it when I will have hundreds of users accessing the SQL Server database at the same time? Current Month >> Opens connection >> Fills Array >> Displays results >> Closes Connection. Next Month >> Opens connection >> Fills Array >> Displays results >> Closes Connection. If I create the connection to the database and fill the array with data in the Header of the HTML page and display the contents of the array in the Body of the page, where do I erase the array, or do I even need to? Thanks again and I appreciate your help. Alastair MacFarlane Tag: DateCreated Property Question Tag: 143141
- Next
  - 1
    - Renaming local user in Windows 2000 Hi I would like to change the name of severel but not all users in a lot of windows 2000 servers. Does anybody know how to do this with scripting. Or any other way as well? Best Regards Henrik Alstsrsjo Tag: DateCreated Property Question Tag: 143140
  - 2
    - Submit a part of page In my page i have two list box and other information. On change of the first listbox i want to refresh the values in the second listbox from the database. I would not like to submit the whole page. Is there any way to submit just a part of page. I would also not prefer using frames. Thanks. Tag: DateCreated Property Question Tag: 143139
  - 3
    - Stumped !! Hello, I need to create a couple scheduled tasks on +515 W2K DCs that are located in many different time zones. I can create the tasks this way: '(Using hard coded time) '******************************************************** Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewJob = objWMIService.Get("Win32_ScheduledJob") ShutdownJobCreated = objNewJob.Create ("Notepad.exe",_ & "********180000.000000-300", False , , , , JobID) '******************************************************** I cannot create the task this way: '******************************************************** strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colTimeZone = objWMIService.ExecQuery ("Select * from Win32_TimeZone") For Each objTimeZone In colTimeZone If objTimeZone.DayLightBias = 0 Then If objTimeZone.Bias >= 0 Then objTZoffsetMinutes = "+" & objTimeZone.Bias Elseif objTimeZone.Bias < 0 Then objTZoffsetMinutes = objTimeZone.Bias End If Else If objTimeZone.Bias = 0 Then objTZoffsetMinutes = "+" & (objTimeZone.Bias) Elseif objTimeZone.Bias >0 Then objTZoffsetMinutes = "+" & (objTimeZone.Bias - 60) Elseif objTimeZone.Bias < 0 Then objTZoffsetMinutes = (objTimeZone.Bias + 60) End If End If Next Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objShutdownJob = objWMIService.Get("Win32_ScheduledJob") shutdownJobToCreate = objShutdownJob.Create _ & ("Shutdown.exe", "********1800000.000000" & objTZoffsetMinutes, _ & False , , , , JobID) Wscript.Echo shutdownJobCreated '*********************************************************** Variable replacement will not work - keep getting an error that a ")" was expected. Any suggestions will be greatly appreciated. Thanks in advance, Bill Burke bill@2burkes.com Tag: DateCreated Property Question Tag: 143126
  - 4
    - Form data validation methods Greetings. This post is related to my recent post, and may better explain what I am trying to do .... hopefully :- ) Question, what is the most efficient way to validate data in a form? For instance, I know I can do something like this: Function Form1_onSubmit() If Form1.txtuser1.Value = "" Then ' do something here End If If Form1.txtuser2.Value = "" Then ' do something here End If End Function However, what if I have several like fields, e.g. txtuser1, txtuser2, txtuser3, etc. ... in that case the above approach to data validation is not very efficient. Especially when I want to run several like fields against the same validation methods (i.e. is it blank, does it or does it not contain this or that character?). To further complicate matters, what if the amount of like fields I have on my page will vary on each load because they are created "dynamically" thru ASP code? In that case, there is no way to setup the above, functional albeit inefficient, method of validating my data. In a nutshell, what I am trying to accomplish on the client-side is what I can rather easily do on the server-side: For x = 1 To Request.Form.count() strFrmKey = Request.Form.key(x) strFrmItm = Request.Form.item(x) ' Do whatever other checking I would like here Next Is there, or what is an equivalent for client-side validation? Any and all answers are greatly appreciated. Doug Tag: DateCreated Property Question Tag: 143125
  - 5
    - Iterate thru all elements in form Hi, Just wondering if there is a way to iterate thru all elements in a form for the purpose of validating data on a form. What I would like to do is something like: Set objElements = document.Form1.Elements For Each objElement in objElements If objElement.type = "text" AND objElement.name = "txtUName" Then 'Do something here End If Next The above does not seem to work. In fact the only thing that I can get to work is this: Set objElements = document.Form1.Elements For Each objElement in objElements MsgBox objElement Next The above only responds with several messages containing "[object]" ... not very useful. Can anyone shed some light on this? Thanks, Doug Tag: DateCreated Property Question Tag: 143124
  - 6
    - Reboot multiple CPs Hi, How can I reboot, multiple, remote PCs ( Windows2000 PCs ) using input from a text file containing workstation number/name, of course using a loop. Before rebooting, I want to verify if the PCs is on by pinging it from within the script. Let me please know if there is a vb script available to perform the above mentioned task. Thanks Tag: DateCreated Property Question Tag: 143122
  - 7
    - How do I get the AD username for the current logged on user? Does anyone know how to use vbs or wsh scripting to get the AD username for the currently logged in user? What I am trying to do is write a logon script that looks at the current user's group memberships to map printers. I do not know how to retrieve the username of the person that is logged in. I have the rest of the script but with the username hard coded as seen below: Set objUser = GetObject _ ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") Thanks, Gary Tag: DateCreated Property Question Tag: 143121
  - 8
    - How to convert cmd to vbs How do I convert this cmd file to a vbs file, any suggestions what to do,. 'All one line C:\WINDOWS\system32\cscript.exe "c:\program files\gpmc\scripts\BackupAllGPOs.wsf" "O:\GPO Policies\" DEVELOPMENT "GP Backup" Thanks Don Tag: DateCreated Property Question Tag: 143120
  - 9
    - OS SCRIPT Could someone please help me(a non AppDev person) put a script together that will determine OS type and then execute a file germane to the result, that I could either place in a login script or execute manually? I.e. WINNT = NT4.exe WIN2KSRV = NT2KSRV.EXE Thank you in advance, Bart Tag: DateCreated Property Question Tag: 143117
  - 10
    - detemine local computername hi, i have a question, iam making a logon script for laptop users (windows xp) on terminal server, when there in the office they work on terminal service (citrix) and out of the office they work local, when loggin on the citrix server we want to determine the computername of he user to copy files to, how can we do this with vbs script? when i use this i get the computername of the server back, sComputer = oNet.ComputerName sAdsPath = "WinNT://" & sComputer & "/lanmanserver" Set oAdsObj = GetObject(sAdsPath) greets martijn Tag: DateCreated Property Question Tag: 143106
  - 11
    - Configuring addresses for users Hello, I have 150 users under single ou=employees, I need to configure a script so that it would configure addresses for the users. Here is what I got so far: Const ADS_PROPERTY_UPDATE = 2 Set objUser = GetObject _ ("LDAP://cn=whatever,ou=employees,dc=test,dc=org") objUser.Put "streetAddress", "999 test st" objUser.Put "l", "Boston" objUser.Put "st", "MA" objUser.Put "postalCode", "11111" objUser.Put "c", "US" objUser.PutEx ADS_PROPERTY_UPDATE, _ "postOfficeBox", Array objUser.SetInfo But this only does for single user, I don't want to go to 150 users properties and update manually or retype the script user name everytime. Thank you Eimis Tag: DateCreated Property Question Tag: 143096
  - 12
    - InStr function not working Help! I have a script here that will not work correctly according to the InStrRev function rules. When it runs, the file path comes out really weird. For example, the path: "C:\Documents and Settings\user1\My Mail\personal.pst" is coming back "gs\user1\my mail\personal.pst" instead of just displaying the file name "personal.pst" like it should. Can someone please take a look? If you need the rest of the code, let me know. Basically what I have is a list of file path names in lstPSTList and I'm trying to trunkate the whole path so I just get the file name. strKeys = lstPSTList.Keys For intPST = 0 To lstPSTList.Count - 1 strPSTFilePath = lstPSTList.Item(strKeys(intPST)) strPSTFile = Right(strPSTFilePath, InStrRev (strPSTFilePath, "\")) MsgBox strPSTFile Next Tag: DateCreated Property Question Tag: 143090
  - 13
    - TDC Control and Colors Hi I'm using the TDC (Tabluar Data Control) to display computer system information out of a text file. The first column contains the event type (information, warning, error). Is there a way to define a color (for the text or the cell) based on the content (information, warning, error) in a TDC Control? Many Thanks Pius Tag: DateCreated Property Question Tag: 143088
  - 14
    - Updating DAT files with logon script Hello, How can I update new dat files for users with active directory group policy? On winnt4 domain we just run .bat file and it calls for dat.exe file. Maybe I can create logon script .vbs file to call silently for the new dat file? Thank you Eimis Tag: DateCreated Property Question Tag: 143084
  - 15
    - looping I am trying to figure out how to loop inside a script. I am using a .vbs file where I set wshshell = wscript.createobject ("wscript.shell) then I run the user32.dll lockworkstation. I have used For i = 1 to 3 then the lockworkstion code and then next. The script will only run one time. Am I using the wrong syntax for looping? Thanks for your time. Tag: DateCreated Property Question Tag: 143083
  - 16
    - MSHTA - Logon Script I'm using a logon script on a Novell network. This logon script calls a batch file which, in turn, calls mshta with the parameter being the url to the asp.net intranet web site. This works great on all machines (after numerous fixes and tweaks to the hta). The only problems I have seen are, on Windows 2000 machines that have IE 6.0 with no other updates to IE (via Windows Update), the hta hangs. mshta.exe is still listed in the list of processes, but the hta never gets displayed. One of the August, 2003 updates from windows update fixes this problem, but we can't depend on the users to do this to fix it (as they don't want this application running anyways). None of the updates listed in August list anything about HTA's or (afaik) script bugs (other than cross domain exploits that have been fixed and aren't an issue here afaik). So, any other ideas? Thanks, Mythran Tag: DateCreated Property Question Tag: 143080
  - 17
    - installing patch i am trying to deploy Windows2000-KB824146-x86-ENU.exe using psexec in quite mode. i found a problem with the "-u -z" parameters, cos when i execute c:/>psexec \\computername -i \\servername\dir1\patch.exe it runs well. any idea how to include "-u -z" to the command string? Tag: DateCreated Property Question Tag: 143069
  - 18
    - How to remove add-on from MSProject? I've written an add-on to MSProject (dll). It adds some buttons to toolbar in MSProject. When I unregister my addon using regsvr32, buttons still remain on toolbar. Is it possible to remove them programmatically? Thanks in advance. Tag: DateCreated Property Question Tag: 143066
  - 19
    - Unicode to Ascii I have a listbox which items I want to save in a textfile. This one must be ascii but so far as I found out the list elements are all unicode. How can I convert this Unicode ones into good old Ascii ones? I already tried StrConv(...,vbFromUnicode) but there only my debugger strikes? What shall I do? thx 4 any hint chris -- Using M2, Opera's revolutionary e-mail client: http://www.opera.com/m2/ Tag: DateCreated Property Question Tag: 143065
  - 20
    - manipulate binary structs/files Hi group, Is there a way to manipulate binary structs/files in JScript/VBscript. I have in mind some components that would have methods like var buf; // whatever bytearray variant or something more apporpriate f.open(filename); f.read(offset, buf, sizeof(buf)); b.scanf(buf, format= "%c[4]%d ....", v1, v2, ....); b.printf(buf, format= "%c[4]%d ....", v1, v2, ....); f.write(offset, buf, sizeof(buf)); Perl has pack()/unpack() functions that are very alike to the above ones. Thanks! George VS (gogovsh@abv.bg) Tag: DateCreated Property Question Tag: 143063
  - 21
    - Class in vbscript Hi, I'm going to develop a solution in vbscript and I have chosen to use Class in vbscript, but my question is the following: Is there any reason not to prefer Classes use instead of a basical solutions (functions, etc..) ? Thx for your time, Vince. Tag: DateCreated Property Question Tag: 143058
  - 22
    - Simple Code <%@ Language=VBScript %> <% Dim BooKName,Price,BookID Dim lib,rec Dim path,sql path = Server.MapPath("/books/Books.mdb") Set lib = Server.CreateObject("ADODB.Connection") Set rec = Server.CreateObject("ADODB.Recordset") sql = "INSERT INTO OrderList (BookID,BooKName,Price) VALUES (15,'abc',89)" lib.Provider = "Microsoft.Jet.OLEDB.4.0" lib.Open path lib.Execute sql rec.Close lib.Close Set rec = Nothing Set lib = Nothing %> -- Posted via http://dbforums.com Tag: DateCreated Property Question Tag: 143053
  - 23
    - Help on copying Hi all I am trying to copy a file to %USERPROFILE%\start Menu\programs\startup but the script cannot accept the path. Is there a way round this without knowing the actual path?? Thanks Tag: DateCreated Property Question Tag: 143050
  - 24
    - Passing Dictionary object byref Ive created an ASP class that uses a dictionary object which is filled from a recordset. It passes the object to the propterty of another ASP class byref: Public Property Let dicReplaceVars(byref vdicReplaceVars) set p_ReplaceVars = vdicReplaceVars End Property Private p_ReplaceVars where it is used in this other class a few times to replace values in an array: Function ReplaceVars(vArrayItem) '' turn it into an array split at spaces vArrayItem = split(vArrayItem," ") '' loop through the array for count = lbound(vArrayItem) to ubound(vArrayItem) ''See if it is a replacement variable and exists in the dictionary if left(vArrayItem(count),6) = "tkRep_" and p_ReplaceVars.exists(vArrayItem(count)) then '' then replace it Error occurs here >> vArrayItem(count) = p_ReplaceVars.Item(cstr(vArrayItem(count))) end if next dim vArrayItemNew vArrayItemNew = "" '' Loop through the array and put it back together for count = lbound(vArrayItem) to ubound(vArrayItem) if vArrayItem(count) = ubound(vArrayItem) then vArrayItemNew = vArrayItemNew & vArrayItem(count) else vArrayItemNew = vArrayItemNew & vArrayItem(count) & " " end if next '' return the vArrayItemNew to the function ReplaceVars = vArrayItemNew End Function The error message I get is: ADODB.Field (0x800A0D5C) Object is no longer valid. D:\WWW\LCDEV\DOC_FUNCTIONS\../classes/classlcDocTKit_item.asp, line 52 However I have no idea why, it is a dictionary object and not a recordset, the object should still be open. Any help is greatly appreciated. Thanks ----------------------------- This message is posted by http://Asp.ForumsZone.com Tag: DateCreated Property Question Tag: 143045
  - 25
    - HTTP_USER_AGENT and Safari/85 Problem I am trying to include the following server variable in an IF test: Request.ServerVariables("HTTP_USER_AGENT") in my global.asa. Works fine in all browsers except Safari/85. I get the following error: --------------- Microsoft OLE DB Provider for ODBC Drivers error '80040e57' [Microsoft][ODBC SQL Server Driver][SQL Server]String or binary data would be truncated. ------------------- Any suggestions?? Thanks, Dale Tag: DateCreated Property Question Tag: 143043

Is there no way to programmatically change the DateCreated property of a
File object through the FileSystemObject? The property is read-only but I
thought someone might have come up with a workaround.

This is an effort to automate the resorting in alphabetical order the custom
views in a custom list a on SharePoint Team Services web site.

Re: DateCreated Property Question by Walter

Walter
Wed Sep 17 21:27:15 CDT 2003

You can change the modified date, but not the creation date, using a
FolderItem object, which exposes a Read-Write ModifyDate property.

http://msdn.microsoft.com/library/en-us/shellcc/platform/shell/reference/objects/folderitem/modifydate.asp

"Allen Davis" <AllenDavis@flex-n-gate.com> wrote in message
news:%23jFwjaVfDHA.4024@TK2MSFTNGP11.phx.gbl...
| Is there no way to programmatically change the DateCreated property of a
| File object through the FileSystemObject? The property is read-only but I
| thought someone might have come up with a workaround.
|
| This is an effort to automate the resorting in alphabetical order the
custom
| views in a custom list a on SharePoint Team Services web site.
|
|

RE: DateCreated Property Question by lukezhan

lukezhan
Thu Sep 18 01:54:18 CDT 2003

Hi Allen,

This property cannot be changed in FSO. If it is really necessary, you may
consider the API function SetFileTime.

Luke
Microsoft Online Partner Support

Get Secure! www.microsoft.com/security
(This posting is provided "AS IS", with no warranties, and confers no
rights.)

Re: DateCreated Property Question by Allen

Allen
Thu Sep 18 10:20:28 CDT 2003

Thanks, I'll look at that function and see if I can use it. (Of course, this
would not really be necessary if SharePoint Team Services had the capability
to sort custom views alphabetically. =)

"MSFT" <lukezhan@online.microsoft.com> wrote in message
news:lhim4GbfDHA.2492@cpmsftngxa06.phx.gbl...
> Hi Allen,
>
> This property cannot be changed in FSO. If it is really necessary, you may
> consider the API function SetFileTime.
>
> Luke
> Microsoft Online Partner Support
>
> Get Secure! www.microsoft.com/security
> (This posting is provided "AS IS", with no warranties, and confers no
> rights.)
>