Double byte characters (Chinese/Japanese/)

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
    - Date Picker value Dear Experts, Currently I am creating a webform using sp.net 2.0. I would like to create a date picker in my webform. I managed to create a a button to call-up the calendar and using the Calendar control from the toolbox. I would like to know how can I pass the value back to a textbox in my original form with the selected date from the calendar? Also, can I have the selection of the time as well? Regards, SB Tag: Double byte characters (Chinese/Japanese/) Tag: 186413
  - 2
    - Problems with outputting attributes Hi, I want to output the what members each global distribution group has. For some reason it doesn't allow me to do so. It comes up with a type mismatch error when I try and output it to a file. The code is: Const ADS_SCOPE_SUBTREE = 2 Const ForAppending = 8 set fso = CreateObject("Scripting.FileSystemObject") set ofile = fso.OpenTextFile("c:\groups.txt",ForAppending, True) Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext") strBase = "<LDAP://" & strDNSDomain & ">" strFilter = "(objectClass=group)" strAttributes = "name,groupType,Member" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" 'Search for all global distribution lists and write to file objCommand.CommandText = strQuery Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst 'Record the groups to a text file. ofile.writeLine(" ") ofile.WriteLine("GLOBAL DISTRIBUTION GROUPS") Do Until objRecordSet.EOF strGrpType = objRecordSet.Fields("groupType") If strGrpType = 2 Then strText = objRecordSet.Fields("name") & " " & objRecordSet.Fields("Member") ofile.WriteLine(strText) End If objRecordSet.MoveNext Loop 'Cleanup Set objRecordSet = Nothing Set objRootDSE = Nothing objConnection.Close ofile.close Hope you can help! Tag: Double byte characters (Chinese/Japanese/) Tag: 186411
  - 3
    - Help me again with Script please Following is my script my computer startup script in my GP. I'm not very good in scripting but I managed to put this script together. Two things are not working right in this script. Firstly, I want the unistallation process complete before the login prompt appears but this does not happen. I am using sleep wscript.sleep this is not ideal and not working well because some machines need longer time and others need shorter time, depending on the network connection and speed of PCs. In a thinking in the lines of putting a function where if the uninstall process begins the login prompt is hidden/disabled or unavailable is until the whole proccess is completed and rebooted. Please, help me as I need to have this working by the end of this week. Secondly, After unistall process completes I want it to reboot the machine again but this does not happen as well. This probably because not completing the uninstall process and the using logon interferring but I'm not sure. Is anything wrong with my RebootPC() function? how can I fix it? Thank you everyone for your quick help ' ---------------------------------------------------------------- Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set WSHShell=WScript.CreateObject("WScript.Shell") Set fs=CreateObject("Scripting.FileSystemObject") Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ strComputer & "\root\default:StdRegProv") rem check if file exist, if it is jump out If Not fs.fileExists("c:\UninstallOfficepro.log") Then 'WScript.Echo "officepro removed" 'Else 'Set the registry key path And thi strKeyPath = _ "Software\Microsoft\Windows\CurrentVersion\Uninstall\{90110409-6000-11D3-8CFE-0050048383C9}" strValueName = "DisplayName" Return = objReg.GetExpandedStringValue(HKEY_LOCAL_MACHINE,_ strKeyPath,strValueName,strValue) ' If key does exist and display name is Microsoft Office XP Professional then run uninstall command If (Return = 0) And (strValue="Microsoft Office XP Professional") And (Err.Number = 0) Then rem WScript.Echo "Program is " & strValue & " " & StrKeypath WshShell.Run _ ("%systemroot%\System32\msiexec.exe /x{90110409-6000-11D3-8CFE-0050048383C9} /passive /qb /l*v C:\UninstallOfficepro.log") WScript.Sleep(5000) 'RestartPC() 'WScript.Sleep(5000) Else 'WScript.Echo _ ' "GetExpandedStringValue failed. Error = " & Err.Number WScript.Quit(0) End If End If WScript.Quit(0) ' --------------------------------------------------------------------------------- ' This function reboots the Pc after uninstalling officepro Function RestartPC() strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Reboot() Next End Function Tag: Double byte characters (Chinese/Japanese/) Tag: 186410
  - 4
    - JScript VBScript and using Eval() I primarily use js because that's what I know. Presently I use vbs only for goodies like MsgBox and FormatCurrency. I'd like to know if there is a better way than Eval() to handle a string in vbs or, a better approach than what I'm doing. Here is a web page example that adds MsgBox for Internet Explorer. // JS var vb_btnFocus='vbDefaultButton2'; function iniMsgBox(){ window.confirm=function(msgStr){ return vb_confirm(msgStr) } } ' VBS iniMsgBox() Function vb_confirm(msgStr) vb_confirm = MsgBox(msgStr,vbOKCancel + vbQuestion + Eval(vb_btnFocus) + vbApplicationModal,"Some Title") = vbOK End Function -- gph ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Double byte characters (Chinese/Japanese/) Tag: 186408
  - 5
    - copying from an msi with a vbscript "Set fso = CreateObject(""Scripting.FileSystemObject""): src = property(""SourceDir"") & " & chr(34) & "Filename.ext" & chr(34) & ": dest = property(""INSTALLDIR"") & ""\"" & " & chr(34) & "idcfg.ini" & chr(34) & ": fso.CopyFile src,dest,True" anyone know what is wrong with this script? I'm totally new to this and can do with some help. Thank you Sam Tag: Double byte characters (Chinese/Japanese/) Tag: 186406
  - 6
    - enumerating all OUs in a Domain and then using the result to populate drop-down list Good afternoon! I hope that this question has not been asked and answered in either of these two news groups. I looked but did not find anything. So, now to my question. Several months ago I created an HTA (using VBScripting) that creates user account objects. It is nice and simple but does a really good job. However, a lot of it is hard coded. I would like to change this to be a bit more dynamic. What I would like to do is to enumerate all of the OUs in the organization (that should not be very difficult to do...) and then use the result of this to populate a drop-down list. That is where I have a problem. I do not know how to do this. I know how to echo the results to the screen. However, this does not help me in what I am trying to do. If anyone can guide me to some references - or share the code that does this - I would be very appreciative. I worked on this for a couple of weeks several months ago and then got pulled into other directions. Before that I did a very little bit of VBScripting. So, my 'base knowledge' is lacking. Thank you, Cary W. Shultz Roanoke, VA 24012 Tag: Double byte characters (Chinese/Japanese/) Tag: 186401
  - 7
    - Getting screen parameters in a script When I use VBS in a HTML file, I can get the screen width and height with width=screen.width and height=screen.height I would like to get the width and height in a stand alone .vbs script so that I can place display objects where I want them in relation to the screen size. Can anybody help? -- Crash Tag: Double byte characters (Chinese/Japanese/) Tag: 186388
  - 8
    - regular expression to extract e-mail address Greetings, how do I create a regulare expression that isolates the e-mail address (and places it into another string variable) in the following input line (read in from a text file): From: "Shmoe, Joe" <joe.shmoe@work.com> Thanks Tag: Double byte characters (Chinese/Japanese/) Tag: 186386
  - 9
    - Update Access File Hello; i am studing vbscrip but my office ask me if i can write a script. In particular i need a script for update a field in a access database with the current day. How can help me ? Bye BYE THanks Tag: Double byte characters (Chinese/Japanese/) Tag: 186357
  - 10
    - Talking between HTA and dialog box Hello, I have been working on an HTA application for work and I have hit a wall. In a nutshell I am trying to gather information from the user in a dialog box that I have opened with the window.showModalDialog() method. The Dialog box opens fine but when it comes time to pass information to or from the dialog box I get "permission denied" and "exception occured". I have tried using the window.open() method with similar results. I ran into a similar problem with the iFrames that I have in the application but resolved it with the application="yes" attribute. It's obvious that this is some sort of security related issue but the answer has been eluding me. Can anyone drop me a clue? Tag: Double byte characters (Chinese/Japanese/) Tag: 186355
  - 11
    - Can't determine if checkbox is checked I'm using VB script to determine how this form is filled out: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Name</title> </head> <body> <font <p style='margin-left:'>Name:       <input type='text' name='UID' size='10' style='font-family: Times New Roman; font-size: 8pt'><p style='margin-left:'>Password: <input type='password' name='PWD' size='8' style='font-size: 8pt; font-family: Times New Roman'> </p> <p style='margin-left:'>Remember this logon? <input type ='checkbox' name='CBREM' value='OFF'>   <input type='submit' value='LOGON' name='Submit' style='font-size: 8pt; font-family: Times New Roman'></p> </form> </body> </html> I can get the value of both UID and PWD using Session("UID") and Session("PWD") but I can't find the status of CBREM. I've tried both Session("CBREM") and Request.Form("CBREM") but no joy. How can I determine if the checkbox is checked? Tag: Double byte characters (Chinese/Japanese/) Tag: 186353
  - 12
    - No progress with progress bar Hi I am attempting to implement an AJAX (-like) application using IIS on Windows XP. Here is the process: 1. An XMLHTTPRequest is made initially for a report that can take up to 10 secinds to complete. While it is running, it periodically updates a session variable showing how far along it is. 2. After this request is started on the client, a Window.SetInterval(500) call is made that itself initiates another XMLHTTPRequest to the server (all separate vars and functions are used) to see how the report is progressing. It reads the Session var and returns the progress. The screen is updated with this progress text and %complete via a div acting as a progress bar. 3. When the initial XMLHTTPRequest returns, it cancels the Progress XMLHTTPRequest request using Window.ClearInterval Each of the XMLHTTPRequest starts and ends. The trouble is that the Progress requests, though they leave the client browsers as expected, they are not sensed at the server until after the inital report XMLHTTPRequest has completely finished. It appears that the 2nd and subsequent XMLHTTPRequest arrive at the server and are queued to be sequentially acted upon. You only see 0% and 100% - nothing in between. My question is: can more than one request from the same client and the same session be acted upon in IIS 5.1? Have I got this right? Thanks in advance, UmbraLimi Tag: Double byte characters (Chinese/Japanese/) Tag: 186350
  - 13
    - No progress with progress bar Hi I am attempting to implement an AJAX (-like) application using IIS on Windows XP. Here is the process: 1. An XMLHTTPRequest is made initially for a report that can take up to 10 secinds to complete. While it is running, it periodically updates a session variable showing how far along it is. 2. After this request is started on the client, a Window.SetInterval(500) call is made that itself initiates another XMLHTTPRequest to the server (all separate vars and functions are used) to see how the report is progressing. It reads the Session var and returns the progress. The screen is updated with this progress text and %complete via a div acting as a progress bar. 3. When the initial XMLHTTPRequest returns, it cancels the Progress XMLHTTPRequest request using Window.ClearInterval Each of the XMLHTTPRequest starts and ends. The trouble is that the Progress requests, though they leave the client browsers as expected, they are not sensed at the server until after the inital report XMLHTTPRequest has completely finished. It appears that the 2nd and subsequent XMLHTTPRequest arrive at the server and are queued to be sequentially acted upon. You only see 0% and 100% - nothing in between. My question is: can more than one request from the same client and the same session be acted upon in IIS 5.1? Have I got this right? Thanks in advance, UmbraLimi Tag: Double byte characters (Chinese/Japanese/) Tag: 186349
  - 14
    - Query status of virus scanner and 3rd party firewall in security I am working on a vbscript that analyzes some parameters of a system installation. As part of it I want to check which virus scanner and which 3rd party firewall is installed and its status. Basically I am interested in the status information just the way it is shown in the security center. I know how to query wmi through the winmgmts:\\.\root\SecurityCenter object. However, it seems as if this information is not always accurate. In particular certain anti-virus and 3rd party firewall products can not be found through wmi although the security center does display that they are installed and the proper status. Is there any other way to retrieve this information in vbs? Thx, Gerald Tag: Double byte characters (Chinese/Japanese/) Tag: 186343
  - 15
    - Function calculation of numeric array Thanks to all for the recent help. I am a newbie with an incpmplete knowledge of vbscript. I am attempting to create a very simple function to learn functions which calculate numerical arrays. The function here called TotalEvents simply counts the passes through the array. It is called through the variable mytotalevents(myarray) The two problem areas are delimited within ======== signs If I "comment out" the function and the function call, all works well (it calcuates an average). But the page "dies" when I attempt to implement the function. Is it in the wrong place? Script follows <html> <head><title>Calculate Average</title> <script type="text/vbscript">  </SCRIPT> </HEAD> <BODY> <H3>Calculate Average</H3><HR> <FORM NAME="myInputForm"> Enter a column of numbers <textarea name=Text1 rows=11 cols=6></textarea> <INPUT NAME="Submit" TYPE="BUTTON" VALUE="Submit"> </FORM> </BODY> </HTML> Tag: Double byte characters (Chinese/Japanese/) Tag: 186254
  - 10
    - Newbie question I am trying to paste a column of numbers from Excel into this script, adapted from a MSFT example. The script works if I hand-type numbers and carriage returns but not when I paste from excel. Can anyone help me? I know the script is primitive....aploogies...script follows <HTML> <HEAD><TITLE>Calculate Average</TITLE> <SCRIPT LANGUAGE="VBScript">  </SCRIPT> </HEAD> <BODY> <H3>Calculate Average</H3><HR> <FORM NAME="myInputForm"> Enter a column of numbers <textarea name=Text1 rows=11 cols=6></textarea> <INPUT NAME="Submit" TYPE="BUTTON" VALUE="Submit"> </FORM> </BODY> </HTML> Tag: Double byte characters (Chinese/Japanese/) Tag: 186253
  - 11
    - Positioning the VBscript MsgBox Is there any way to locate in the top right corner the Vbscript MshBox? Thanks -- GillesABelanger Tag: Double byte characters (Chinese/Japanese/) Tag: 186251
  - 12
    - Can I change client DNS and WINS IP ? Can I change client DNS and WINS IP by VBScript ? Because I want to change DNS and WINS Server IP,I have to change from old IP to new IP in client PC. Eric -- Tag: Double byte characters (Chinese/Japanese/) Tag: 186248
  - 13
    - Script to enumerate all installed software Greetings all, Admittingly I'm still new when it comes to VB (so please bare w/ me). I need a script that I can run against all machines in an exisiting OU. For example -- "OU=HRS,OU=oak-street,OU=UM,DC=my,DC=school,DC=edu" I need a script that I can run on that OU that will list of all the installed software on each of the machines in the OU. I have a working script that will enumerate all installed software on my local machine, but what I'm having trouble w/ is glueing it all togather to make it work w/ the OU. Here is the script I have that will return a list of all the installed software on my local machine. p.s. all of the machines in the OU are Win XP SP2 Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE strComputer = "." strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" strEntry1a = "DisplayName" strEntry1b = "QuietDisplayName" strEntry2 = "InstallDate" strEntry3 = "VersionMajor" strEntry4 = "VersionMinor" strEntry5 = "EstimatedSize" Set objReg = GetObject("winmgmts://" & strComputer & _ "/root/default:StdRegProv") objReg.EnumKey HKLM, strKey, arrSubkeys WScript.Echo "Installed Applications" & VbCrLf For Each strSubkey In arrSubkeys intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _ strEntry1a, strValue1) If intRet1 <> 0 Then objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry1b, strValue1 End If If strValue1 <> "" Then WScript.Echo VbCrLf & "Display Name: " & strValue1 End If objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry2, strValue2 If strValue2 <> "" Then WScript.Echo "Install Date: " & strValue2 End If objReg.GetDWORDValue HKLM, strKey & strSubkey, _ strEntry3, intValue3 objReg.GetDWORDValue HKLM, strKey & strSubkey, _ strEntry4, intValue4 If intValue3 <> "" Then WScript.Echo "Version: " & intValue3 & "." & intValue4 End If objReg.GetDWORDValue HKLM, strKey & strSubkey, _ strEntry5, intValue5 If intValue5 <> "" Then WScript.Echo "Estimated Size: " & Round(intValue5/1024, 3) & " megabytes" End If Next Thank-you all for your time and effort Tag: Double byte characters (Chinese/Japanese/) Tag: 186245
  - 14
    - String translate 2 Okay, now that Evertjan told me about the VB Script replace function, I'm trying to change all apostrophes ( ' ) to quotes ( " ). So I've tried replace(string, " ' ", ' " ') but I get a syntax error on the last argument. I've tried replace(string, " ' ", ' \" ') but of course that doesn't work either. I've looked thoroughly through VB script help file but no joy. Help please. Tag: Double byte characters (Chinese/Japanese/) Tag: 186237
  - 15
    - String translate Is there a VB script function that will translate characters in a string. For example, if I have a string "abcabc" and I want to change each instance of "b" to "e" so the string would now be "aecaec". Tag: Double byte characters (Chinese/Japanese/) Tag: 186226
  - 16
    - FileSystemObject I am trying to make sure that a directory exsists using the FileSystemObject and the FolderExists. The problem I have is that this works great when I run it from Windows XP it gives me false results when I run it from a Windows 2003 server. I can't find anything about VBScript issues on W2K3. Any ideas? Rich Friedel Tag: Double byte characters (Chinese/Japanese/) Tag: 186223
  - 17
    - Pass form values to script variables I'am (very) new to vbscript, so please be patient. I'd like to create a html form with some textboxes and pass the values to my vbscript. It's a local stand alone script. Susan Tag: Double byte characters (Chinese/Japanese/) Tag: 186220
  - 18
    - Using Loop to Map Drives I want to map drives using a loop. For example, map Drive1, Drive2, etc. I am trying to make a very efficient, yet easy to modify, script. Any help is appreciated. Here is my script thus far: Dim WshNet, Username, sOffice Set WshNet = WScript.CreateObject("WScript.Network") Set MSIE = CreateObject("InternetExplorer.Application") Set FileSysObj = CreateObject("Scripting.FileSystemObject") Drive1 = "G:" Share1 = "\\blah\blahsh" Desc1 = "OFFICE" Drive2 = "H:" Share2 = "\\blahblah\" & WshNet.Username & "$" Desc2 = "HOME" Drive3 = "M:" Share3 = "\\blahblahblah\stuff" Desc3 = "GIS" Tag: Double byte characters (Chinese/Japanese/) Tag: 186207
  - 19
    - How to capture text out of a few rows of info? Hey! I'm not a VBScript person, so I need help coming up with a solution to only get a specific value out of a few rows of text... I found you can use this line to get the "Description" of a Security Event: (caused by somebody resetting a password, Event 628) strMessage = objLatestEvent.TargetInstance.Message That returns this info: *** User Account password set: Target Account Name: Testing Target Domain: DOMAIN Target Account ID: DOMAIN\Testing Caller User Name: Administrator Caller Domain: DOMAIN Caller Logon ID: (0x0,0x196A7) *** How do I only pick out the "Target Account ID:"? The only info I need in this case is a string to get the value of "DOMAIN\Testing". Any help greatly appreciated!! TIA! / Per Tag: Double byte characters (Chinese/Japanese/) Tag: 186202
  - 20
    - What should be easy Ok, admittantly I am not a script guy, but figured i could pick it up quick for something I'm trying to do but can't find the solution at all. I want a script to open a folder and to remove the x/close button. Is it that hard? Can someone give me a pointer Tag: Double byte characters (Chinese/Japanese/) Tag: 186201
  - 21
    - Please help me why this script is not doing correctly I am expecting it to return true because the registry key clearly exists. Why is it returning false. I know scripting very little enough to get this wrong. Please help me, its urgent ----------------------- Option Explicit Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Dim StrComputer Dim objReg StrComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ strComputer & "\root\default:StdRegProv") Dim key1 Dim WSHShell ' Get WSHShell object for Registry methods Set WSHShell = WScript.CreateObject("WScript.Shell") ' Query key name for new key HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\") key1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" If KeyExists (key1) = True Then MsgBox "Key: " + key1 + " Value: " + WSHShell.RegRead(key1) Else MsgBox "Key: " + key1 + " doesn't exists" End If WScript.Quit() ' Helper function: tests, whether the key exists Function KeyExists (key) Dim key2 key2="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" On Error Resume Next key2 = WSHShell.RegRead (key2) If err <> 0 Then KeyExists = False Else KeyExists = True End If End Function Tag: Double byte characters (Chinese/Japanese/) Tag: 186198
  - 22
    - Help removing end of file character from csv files All, Apologies, I originally posted this under a different subject. I re posted with a more descriptive subject. The script below was created with the assistance of some of the folks here and it works great but how can I tweak this script to check for the existence of an end of file character and remove it if it exists? The files being manipulated are being imported into Oracle and I must delete the header and the EOF before they will load properly. The script reads the files except line one, the header and writes a new file in a new folder. The EOF I see says SUB in several text editors and in Excel looks like a square 'Read csv files minus the header and write to a file with the same name in a new location ' ' 'Declare variables source and target to identify which files to read and where to write them source="C:\Projects\Oracle conversion\CRP1\Project Exports" target="C:\Projects\Oracle conversion\CRP1\Project Exports No Headers" 'specify file system object method to read files and where to find them Set fso = CreateObject("Scripting.FileSystemObject") Set src=fso.getFolder(source) 'recurse through and process each file in the source folder for each file in src.files fname=lcase(file.name) 'Identify that only files with the extension .csv are read, open the file skipping the first line, 'read all the remaining lines in the file and close the file if right(fname,4)=".csv" then Set textStream=file.OpenAsTextStream(1) textStream.skipLine data=textStream.readAll textStream.close 'Specify file system object method to write files, write them and close them afterwards set oFile=fso.CreateTextFile(target & "\" & file.name) oFile.write data oFile.close end if next TX! ...............Chris cmoorhead@mindspring.com Tag: Double byte characters (Chinese/Japanese/) Tag: 186196
  - 23
    - Script to obtain a report from AD Hello, Can someone please guide me in the right direction, looking for a script to run monthly reports from AD and email the report to few members. Thanks Report would contain the following for all users in the AD. UserName, FullName, comment, OU info., email address LastLogonTime LastLogonServer AcctDisabled AcctExpiresTime Tag: Double byte characters (Chinese/Japanese/) Tag: 186195
  - 24
    - Account ownershipt permissions hi, does anyone have a script to change the owner of an AD user account to a specific account, reason being whoever creates an AD account is automatically assigned ownership, any help is greatly appreciated. Craigh Tag: Double byte characters (Chinese/Japanese/) Tag: 186193
  - 25
    - How to share globals between script hosts Hello, Let says I have a VBScript A "Dim var_a" which is running into is A host. Q/ How can I make the global variable "var_a" visible to other hosts so that for instance, my VBScript B "MsgBox var_a" whould works? I tried to give a name to A::ParseScriptText() and use it whith B::AddNamedItem() and B::GetItemInfo() but it failed :( Any idea ? Thank you in advance. Tag: Double byte characters (Chinese/Japanese/) Tag: 186185

Hi.......

Need some serious help................

I'm trying to write a script that can determine the filenames that have
doublebyte characters............. by reading a text file or recursing
through a directory.....

Has anyone ever done something like this before.....

Thanks in advance........

Zeno

Top