Shulou(Shulou.com)06/03 Report--

This article will explain in detail what the vbs script is, and the editor thinks it is very practical, so I share it with you for reference. I hope you can get something after reading this article.

VBS

Get native IP

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ cimv2")

Set IPConfigSet = objWMIService.ExecQuery ("Select IPAddress from

Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE ")

For Each IPConfig in IPConfigSet

If Not IsNull (IPConfig.IPAddress) Then

For Each strAddress in IPConfig.IPAddress

WScript.Echo strAddress

Next

End If

Next

2 get the local computer name

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ cimv2")

Set colComputers = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers

Wscript.Echo objComputer.Name

Next

4 check the upgrade package

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ cimv2")

Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "."

ObjOperatingSystem.ServicePackMinorVersion

Next

5 check Hot Fix

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ cimv2")

Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering")

For Each objQuickFix in colQuickFixes

Wscript.Echo "Description:" & objQuickFix.Description

Wscript.Echo "HotFixID:" & objQuickFix.HotFixID

Next

6 check the number of local administrators

Set objNetwork = CreateObject ("Wscript.Network")

StrComputer = objNetwork.ComputerName

Set objGroup = GetObject ("WinNT://" & strComputer & "/ Administrators,group")

For Each objUser in objGroup.Members

Wscript.Echo objUser.Name

Next

7 disk system

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ cimv2")

Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DriveType =

3 ")

For Each objDisk in colDisks

Wscript.Echo "Disk drive:" & objDisk.DeviceID & "-" & objDisk.FileSystem

Next

8 detect whether automatic login is turned on

Const HKEY_LOCAL_MACHINE = & H80000002

StrComputer = "."

Set objReg=GetObject ("winmgmts:\\" & strComputer & "\ root\ default:StdRegProv")

StrKeyPath = "Software\ Microsoft\ Windows NT\ CurrentVersion\ WinLogon"

StrValueName = "AutoAdminLogon"

ObjReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue

If dwValue = 1 Then

Wscript.Echo "Auto logon is enabled."

Else

Wscript.Echo "Auto logon is disabled."

End If

9 turn off automatic login

Const HKEY_LOCAL_MACHINE = & H80000002

StrComputer = "."

Set objReg=GetObject ("winmgmts:\\" & strComputer & "\ root\ default:StdRegProv")

StrKeyPath = "Software\ Microsoft\ Windows NT\ CurrentVersion\ WinLogon"

StrValueName = "AutoAdminLogon"

DwValue = 0

OReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue

10 check whether Guest is disabled

Set objNetwork = CreateObject ("Wscript.Network")

StrComputer = objNetwork.ComputerName

Set objUser = GetObject ("WinNT://" & strComputer & "/ Guest")

If objUser.AccountDisabled Then

Wscript.Echo "The Guest account is disabled."

Else

Wscript.Echo "The Guest account is enabled."

End If

11 turn off Guest

Set objNetwork = CreateObject ("Wscript.Network")

StrComputer = objNetwork.ComputerName

Set objUser = GetObject ("WinNT://" & strComputer & "/ Guest")

If objUser.AccountDisabled Then

Wscript.Echo "The Guest account is already disabled."

Else

ObjUser.AccountDisabled = True

ObjUser.SetInfo

Wscript.Echo "The Guest account has been disabled."

End If

12 retrieve local common images

StrComputer = "."

Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ cimv2")

Set colShares = objWMIService.ExecQuery ("Select * from Win32_Share")

For each objShare in colShares

Wscript.Echo "Name:" & objShare.Name

Wscript.Echo "Path:" & objShare.Path

Wscript.Echo "Type:" & objShare.Type

Next

13 script retrieves .txt files under a folder. Sweat Oh, it's worth learning.

Set objWMIService = GetObject ("winmgmts:\\.\ root\ cimv2")

Set colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile WHERE Path ='\\ Documents

And Settings\\ Administrator\\ Desktop\\ 'AND Drive =' Epura 'AND Extension =' txt' ")

Wscript.Echo "Number of .txt files found:" & colFiles.Count

For each aa in colFiles

NL=NL & vbcrlf & aa.name

Next

Wscript.Echo NL

14 how do I display a dialog box for selecting files to the user?

Q:

Hey, Scripting Guy! Is there any way for me to use a script to show the user a dialog box for the user to select a file to use?

-- BF

A:

Hello, BF. If you are using Windows 2000, we don't know how to do this, at least it is not built into the operating system.

The same way. But if you are using Windows XP, the situation is different. On Windows XP, you can use the

The UserAccounts.CommonDialog object displays a standard File Open dialog box to the user. You can use code similar to the following

Script of:

Set objDialog = CreateObject ("UserAccounts.CommonDialog")

ObjDialog.Filter = "All Files | *. *" objDialog.InitialDir = "C:\" intResult =

ObjDialog.ShowOpen

If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If

This is a small script, so let's explain it line by line. Let's first create a UserAccounts.CommonDialog object for the

Object reference named "objDialog" Next, we set the filter property of the dialog box. We need to display all the files, so

So we set the filter like this:

ObjDialog.Filter = "All Files | *. *"

What if we just want to display text files? In this case, we will use the following filter:

ObjDialog.Filter = "Text Files | * .txt"

You may be able to see how it works: we provide a description for the file type (Text Files), and then insert a vertical bar separator

(|), and finally use standard wildcards to indicate all .txt files (* .txt). Do you want to display the .txt file by default and then use the

Does the user provide the option to view all files? Then you can use the following code:

ObjDialog.Filter = "Text Files | * .txt | All Files | *. *"

Have a try and you'll see what we mean.

Then we specify the default folder. By default, we want the dialog box to display the files located in the root folder of drive C, so

We set the "InitialDir" property as follows:

ObjDialog.InitialDir = "C:\"

Do you want to display the files in the C:\ Windows folder? Then you can use the following code:

ObjDialog.InitialDir = "C:\ Windows"

Don't worry: this is a real File Open dialog box, so you can click at will and stop at any time. You learn from

C:\ Windows doesn't mean you can only open files in that folder.

Finally, we display the dialog box using the following line of code:

IntResult = objDialog.ShowOpen

Now we just sit down and wait for the user to select the file and click OK (or wait for the user to click cancel). If the user order

Click cancel and the variable intResult will be set to 0. In our script, we check the value of intResult, if it is 0

We will only need to use Wscript.Quit to terminate this script.

But what if the user actually selects the file and clicks OK? In this case, intResult will be set to

-1, the "FileDialog" property will be set to the pathname of the selected file. Our script only returns the path name, which means we will get

Output similar to the following:

C:\ WINDOWS\ Prairie Wind.bmp

Needless to say, you are not limited to echoing file paths. In fact, you can use WMI, FileSystemObject, or some other technology

To bind the file, and then perform operations such as deleting, copying, compressing, or retrieving file properties-what you can do with the file

It can be carried out as much as possible.

But in any case, you need to use scripts.

By the way, with this method, you can only select one file at a time, but you cannot press and hold the "Ctrl" key to select multiple files. There's a way.

You can select multiple files, at least on a XP computer, but we can only discuss this issue in a future column.

15 how do I determine under which account the process is running?

Q:

Hey, Scripting Guy! I have a script that returns information about all processes running on the computer, but I don't know how to get

Gets the name of the user account under which these processes are running. Can you help me?

-- DL

A:

Hello, DL. Yes, we can help you. Determining under which account the process is running is actually quite simple, just how to get started.

This is not particularly obvious. If you are like most people, you may scan the Win32_Process class's

Property to find a property named Account or UserName or similar. There's a good chance you won't find it. The reasons for this are:

Win32_Process does not have an attribute that tells you under which account the process is running.

You need to use the "GetOwner" method to capture this information. The following script will tell you Microsoft Word (Winword.exe)

Under which account do you run:

StrComputer = "." Set objWMIService = GetObject (" winmgmts:\\ "& strComputer &"\ root\ cimv2 ")

Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name =

'Winword.exe' ")

For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain

Wscript.Echo "Process" & objProcess.Name & "is owned by" _ & strUserDomain & "\"

StrUserName & "." Next

What interests us most is the following line of code:

ObjProcess.GetOwner strNameOfUser, strUserDomain

What we are doing here is calling the "GetOwner" method. GetOwner returns two "output parameters", one of which returns the

The name of the user, which returns the domain to which the user belongs. To capture these two output parameters, we need to provide two variations for the GetOwner method

Quantity. In this sample script, we use two variables called strUserName and strUserDomain. The name can follow the

Choose; you can call variables An and B or X and Y or any other name you want.

However, the order of variables cannot be set at will: the first value returned is always the user name, and the second value is always the domain. This means that if you want

Use X for the user name and Y for the domain, so make sure your code looks like this line of code:

ObjProcess.GetOwner X, Y

After calling GetOwner, we can directly echo the process name and owner. Please note that we can do it a little bit-use

Domain\ user format. This way, we can echo a name similar to "fabrikam\ kenmyer".

Another script is provided below that lists all processes on the computer and the owners of each process:

StrComputer = "." Set objWMIService = GetObject (" winmgmts:\\ "& strComputer &"\ root\ cimv2 ")

Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process")

For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain

Wscript.Echo "Process" & objProcess.Name & "is owned by" _ & strUserDomain & "\"

StrUserName & "." Next

It may come as a surprise to some that January 3, 2005 happens to be the official rest day for Microsoft employees. So why is there a "Hi" today?

Scripting Guy! "column? this can only be due to the incredible dedication and dedication shown by Microsoft scripting experts to their work.

Keep your spirits up. Or, it could be because some script expert-who can't say his or her name-doesn't realize that today is a holiday, so

Come as usual (and at 7: 00 in the morning! ).

16 can I copy the output of the script to the clipboard?

Q:

Hey, Scripting Guy! Is there a way to copy the script output to the clipboard?

-- ZW, Marseilles, France

A:

Hello, ZW. If you don't mind some crazy solutions, it's actually pretty easy to copy the script output to the clipboard. First,

You need to construct a string that contains the desired output. Then, create an instance of Internet Explorer, and then in its

Open a blank page in the. Then, using the built-in function of the Internet Explorer object model, the string is copied to the clipboard.

No, you can use the clipboardData.SetData method to implement this technique. A sample script to copy some data to the clipboard, such as

Below:

StrCopy = "This text has been copied to the clipboard."

Set objIE = CreateObject ("InternetExplorer.Application")

ObjIE.Navigate ("about:blank")

ObjIE.document.parentwindow.clipboardData.SetData "text", strCopy

ObjIE.Quit

Run the script, then open Notepad, and then click paste; you should see the copied string.

By the way, all of this is happening "behind the scenes", and Internet Explorer doesn't really appear on the screen. This is because

By default, any IE instance created by a script is hidden at run time unless you display it with the following statement

Come on:

ObjIE.Visible = True

This is the end of this article on "what are the vbs scripts?". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, please share it for more people to see.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.