WIM WMIC开发技术资料全收藏(持续更新中......) - 中国DOS联盟论坛

7.再来传一个WMI的有关工具,这个还是从MS网站上搞下来的.MS把这个东西吹的很好哟.这个实际上是一个HTML文件.我把代码贴上来,请复制所有代码到文本文件中,然后保存为"scriptomatic.hta"双击运行即可.
;代码开始====================================
<html>

<title>Windows .NET Server Resource Kit - Scriptomatic</title>

<HTA:APPLICATION
ID="objScriptomatic"
APPLICATIONNAME="Scriptomatic"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<head>

<style>
BODY
{
background-color: buttonface;
font-family: Helvetica;
font-size: 8pt;
margin-top: 10px;
margin-left: 10px;
margin-right: 10px;
margin-bottom: 10px;
}

.button
{
font-family: Helvetica;
font-size: 8pt;
width: 35px;
}

textarea
{
font-family: arial;
font-size: 8pt;
margin-left: 3px;
}

select
{
font-family: arial;
font-size: 8pt;
width: 450px;
margin-left: 0px;
}

</style>

<script language="vbscript">

'*********************************************
'* WHILE LOADING...
'*
'* As the application loads, we open a new
'* browser window to act as a crude progress dialog
'* while we wait for the enumeration of the WMI
'* classes to complete.
'*
'* We minimize the parent window prior to presenting
'* the progress dialog and resize it back to normal
'* once the classes are enumerated.
'*
'*********************************************

Sub Window_Onload

'* resize parent window

self.ResizeTo 1,1
self.MoveTo 300,300

'* create dialog window

Set objDialogWindow = window.Open("about:blank","ProgressWindow","height=15,width=250,left=300,top=300,status=no,titlebar=no,toolbar=no,menubar=no,location=no,scrollbars=no")
objDialogWindow.Focus()
objDialogWindow.ResizeTo 250,15
objDialogWindow.document.body.style.fontFamily = "Helvetica"
objDialogWindow.document.body.style.fontSize = "11pt"
objDialogWindow.document.writeln "<html><body>Loading WMI Classes.</body></html>"
objDialogWindow.document.title = "Please wait."
objDialogWindow.document.body.style.backgroundColor = "buttonface"
objDialogWindow.document.body.style.borderStyle = "none"
objDialogWindow.document.body.style.marginTop = 15

'****************************************************************************
'* enumerate the WMI classes in the cimv2 namespace, filling up a recordset
'* with the names of the classes that begin with Win32_ and are not association
'* classes. we'll use the class names stored in the recordset to populate a
'* pulldown.
'*****************************************************************************

Const adVarChar = 200
Const MaxCharacters = 255
strComputer = "."

Set rsDataList = CreateObject("ADODB.Recordset")
rsDataList.Fields.Append "ClassName", adVarChar, MaxCharacters
rsDataList.Open

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

iCounter = 0
For Each objclass in objWMIService.SubclassesOf()

'* write a . to the dialog window once for every 250 classes
'* to let the user know something is still happening.

iCounter = iCounter + 1
If iCounter Mod 250 = 0 Then
objDialogWindow.document.writeln "."
End If
bIsQualifier = False
If UCase(Left(objClass.Path_.Class,5)) = "WIN32" Then
For Each Qualifier in objClass.Qualifiers_
If UCase(Trim(Qualifier.Name)) = "ASSOCIATION" Then
bIsQualifier = True
End If
Next

'* the class name starts with win32_ and is not an association
'* class - so append it to the recordset

If bIsQualifier = False Then
rsDataList.AddNew
rsDataList("ClassName") = objClass.Path_.Class
rsDataList.Update
End If
End If
Next

'* populate the pulldown

rsDataList.Sort = "ClassName"
rsDataList.MoveFirst
strHTML = "<select onChange=""ComposeCode()"" name=ClassesPulldown>" &_
"<option value=""PulldownMessage"">Begin by selecting a class"
Do Until rsDataList.EOF
strHTML = strHTML & "<option value= " & chr(34) &_
rsDataList.Fields.Item("ClassName") & chr(34) &_
">" & rsDataList.Fields.Item("ClassName")
rsDataList.MoveNext
Loop
strHTML = strHTML & "</select>"
wmi_classes.insertAdjacentHTML "beforeEnd", strHTML

'* the classes are enumerated, close the progress dialog
'* and resize the main window

objDialogWindow.Close
self.Focus()
self.ResizeTo 670,550
self.MoveTo 200,200

'* the user hasn't had a chance to select a class and generate
'* a script - so disable the run and save buttons because
'* they are not yet meaningful.

run_button.disabled = True
save_button.disabled = True

End Sub

'****************************************************************************
'* when the user selects a class from the pulldown, the ComposeCode subroutine
'* is called. it queries WMI to determine the properties of the class the user
'* selected and uses the information to construct sample code which it puts
'* in the main window's textarea.
'****************************************************************************

Sub ComposeCode

'* if the user happens to select the message instead of a class, just
'* disable the run and save buttons and exit the subroutine

If ClassesPulldown.Value = "PulldownMessage" Then
run_button.disabled = True
save_button.disabled = True
Exit Sub
End If

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objClass = objWMIService.Get(ClassesPulldown.Value)
strHTML = "<textarea cols=100 rows=30>"
strHTML = strHTML & "On Error Resume Next" & Chr(10)
strHTML = strHTML & "strComputer = " & chr(34) & "." & chr(34) & Chr(10)
strHTML = strHTML & "Set objWMIService = GetObject(" & chr(34) & "winmgmts:\\" & chr(34) & " & strComputer & " & chr(34) & "\root\cimv2" & chr(34) & ")" & Chr(10)
strHTML = strHTML & "Set colItems = objWMIService.ExecQuery(" & chr(34) & "Select * from " & ClassesPulldown.value & chr(34) & ",,48)" & Chr(10)
strHTML = strHTML & "For Each objItem in colItems" & Chr(10)
For Each objProperty in objClass.properties_
strHTML = strHTML & "    Wscript.Echo " & chr(34) & objProperty.name & ": " & chr(34) & " & " & "objItem." & objProperty.name & Chr(10)
Next
strHTML = strHTML & "Next" & "</textarea>"
code.InnerHTML= strHTML

'* once the code is successfully composed and put into the textarea, ensure
'* that the run and save buttons are enabled

run_button.disabled = False
save_button.disabled = False

End Sub

'****************************************************************************
'* when the user presses the Run button, we use the WshShell object's Run
'* method to run the code currently in the textarea under cscript.exe. we use
'* cmd.exe's /k parameter to ensure the command window remains visible after
'* the script has finished running.
'****************************************************************************

Sub RunScript

Set objFS = CreateObject("Scripting.FileSystemObject")
strTmpName = "temp_script.vbs"
Set objScript = objFS.CreateTextFile(strTmpName)
objScript.Write code.InnerText
objScript.Close
Set objShell = CreateObject("WScript.Shell")
strCmdLine = "cmd /k cscript.exe "
strCmdLine = strCmdLine & strTmpName
objShell.Run(strCmdLine)

End Sub

'****************************************************************************
'* when the user presses the Save button, we present them with an InputBox
'* and force them to give us the full path to where they'd like to the save
'* the script that is currently in the textarea. The user is probably quite
'* upset with our laziness here....and who can blame them?
'****************************************************************************

Sub SaveScript

Set objFSO = CreateObject("Scripting.FileSystemObject")
strSaveFileName = InputBox("Please enter the complete path where you want to save your script (for example, C:\Scripts\MyScript.vbs).")
If strSaveFileName = "" Then
Exit Sub
End If

Set objFile = objFSO.CreateTextFile(strSaveFileName)
objFile.WriteLine code.InnerText
objFile.Close

End Sub

'****************************************************************************
'* when the user presses the Open button, we present them with an InputBox
'* and force them to give us the full path to the script they'd like to open.
'* This is, of course, rather wonky - but it's meant to be.
'****************************************************************************

Sub OpenScript

Set objFSO = CreateObject("Scripting.FileSystemObject")
strOpenFileName = InputBox("Please enter the complete path name for your script (for example, C:\Scripts\MyScript.vbs).")
If strOpenFileName = "" Then
Exit Sub
End If

Set objFile = objFSO.OpenTextFile(strOpenFileName)
strHTML = "<textarea cols=100 rows=30>"
strHTML = strHTML & objFile.ReadAll()
strHTML = strHTML & "</textarea>"
code.InnerHTML = strHTML
objFile.Close
run_button.disabled = False
save_button.disabled = False

End Sub

'****************************************************************************
'* when the user presses the Quit button, the file where we've been storing
'* the scripts gets deleted and the main window closes.
'****************************************************************************

Sub QuitScript

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "temp_script.vbs"
Set objFSO = Nothing
self.Close()

End Sub

</script>
</head>

'***********************************************************
'* our HTML layout - the only thing of note here is that when
'* each of the buttons is pressed (clicked), their onClick
'* attributes causes the appropriate subroutine to be called
'***********************************************************

<body>

<table>
<td>
<span id="wmi_classes"> </span>
<input id=runbutton class="button" type="button" value="Run" name="run_button" onClick="RunScript()">
<input id=savebutton class="button" type="button" value="Save" name="save_button" onClick="SaveScript()">
<input id=openbutton class="button" type="button" value="Open" name="open_button" onClick="OpenScript()">
<input id=quitbutton class="button" type="button" value="Quit" name="quit_button" onClick="QuitScript()">
<div ID=code_header></div>
<div id="code"></div>
</td>
</tr>
</table>

</body>

</html>

;代码结束==============================================

第16楼　HUNRYBECKY	发表于 2006-12-13 02:51
银牌会员　发帖 442　积分 1,179
6.再来一段关于检查电脑所有脚本版本检测的有关脚本,请把代码保存为version.vbs.双击运行或在CMD下输入 start version.vbs (注意匹配自己的路径) ;代码开始=============================================== On Error Resume Next WScript.Echo "WSH Version: " & WScript.Version Wscript.Echo "VBScript Version: " & ScriptEngineMajorVersion _ & "." & ScriptEngineMinorVersion strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer _ & "\root\cimv2") Set colWMISettings = objWMIService.ExecQuery _ ("Select * from Win32_WMISetting") For Each objWMISetting in colWMISettings Wscript.Echo "WMI Version: " & objWMISetting.BuildVersion Next Set objShell = CreateObject("WScript.Shell") strAdsiVersion = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{E92B03AB-B707-11d2-9CBD-0000F87A369E}\Version") If strAdsiVersion = vbEmpty Then strAdsiVersion = objShell.RegRead("HKLM\SOFTWARE\Microsoft\ADs\Providers\LDAP\") If strAdsiVersion = vbEmpty Then strAdsiVersion = "ADSI is not installed." Else strAdsiVersion = "2.0" End If End If WScript.Echo "ADSI Version: " & strAdsiVersion ;代码结束==========================================

第17楼　kcdsw	发表于 2006-12-13 02:55
中级用户　发帖 179　积分 404
我都能下 600K / s

第18楼　namejm	发表于 2006-12-13 02:58
荣誉版主　发帖 1,737　积分 5,226　来自成都
资料很好，加分鼓励。　　链接地址有脱节的现象，点下去之后不能正确跳转，如果能修正一下就好了。

第19楼　HUNRYBECKY	发表于 2006-12-13 02:58
银牌会员　发帖 442　积分 1,179
7.再来传一个WMI的有关工具,这个还是从MS网站上搞下来的.MS把这个东西吹的很好哟.这个实际上是一个HTML文件.我把代码贴上来,请复制所有代码到文本文件中,然后保存为"scriptomatic.hta"双击运行即可. ;代码开始==================================== <html> <!--******************************************************************** '* '* File: scriptomatic.hta '* Created: August 2002 '* Version: 1.0 '* '* Description: Learning tool. Enables users to generate and run '* WSH scripts (in VBScript) that use WMI to display '* properties available through the Win32_ classes. '* '* '* Copyright (C) 2002 Microsoft Corporation '* '******************************************************************--> <title>Windows .NET Server Resource Kit - Scriptomatic</title> <HTA:APPLICATION ID="objScriptomatic" APPLICATIONNAME="Scriptomatic" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="normal" > <head> <style> BODY { background-color: buttonface; font-family: Helvetica; font-size: 8pt; margin-top: 10px; margin-left: 10px; margin-right: 10px; margin-bottom: 10px; } .button { font-family: Helvetica; font-size: 8pt; width: 35px; } textarea { font-family: arial; font-size: 8pt; margin-left: 3px; } select { font-family: arial; font-size: 8pt; width: 450px; margin-left: 0px; } </style> <script language="vbscript"> '******************************************* '* WHILE LOADING... '* '* As the application loads, we open a new '* browser window to act as a crude progress dialog '* while we wait for the enumeration of the WMI '* classes to complete. '* '* We minimize the parent window prior to presenting '* the progress dialog and resize it back to normal '* once the classes are enumerated. '* '********************************************* Sub Window_Onload '* resize parent window self.ResizeTo 1,1 self.MoveTo 300,300 '* create dialog window Set objDialogWindow = window.Open("about:blank","ProgressWindow","height=15,width=250,left=300,top=300,status=no,titlebar=no,toolbar=no,menubar=no,location=no,scrollbars=no") objDialogWindow.Focus() objDialogWindow.ResizeTo 250,15 objDialogWindow.document.body.style.fontFamily = "Helvetica" objDialogWindow.document.body.style.fontSize = "11pt" objDialogWindow.document.writeln "<html><body>Loading WMI Classes.</body></html>" objDialogWindow.document.title = "Please wait." objDialogWindow.document.body.style.backgroundColor = "buttonface" objDialogWindow.document.body.style.borderStyle = "none" objDialogWindow.document.body.style.marginTop = 15 '**************************************************************************** '* enumerate the WMI classes in the cimv2 namespace, filling up a recordset '* with the names of the classes that begin with Win32_ and are not association '* classes. we'll use the class names stored in the recordset to populate a '* pulldown. '***************************************************************************** Const adVarChar = 200 Const MaxCharacters = 255 strComputer = "." Set rsDataList = CreateObject("ADODB.Recordset") rsDataList.Fields.Append "ClassName", adVarChar, MaxCharacters rsDataList.Open Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") iCounter = 0 For Each objclass in objWMIService.SubclassesOf() '* write a . to the dialog window once for every 250 classes '* to let the user know something is still happening. iCounter = iCounter + 1 If iCounter Mod 250 = 0 Then objDialogWindow.document.writeln "." End If bIsQualifier = False If UCase(Left(objClass.Path_.Class,5)) = "WIN32" Then For Each Qualifier in objClass.Qualifiers_ If UCase(Trim(Qualifier.Name)) = "ASSOCIATION" Then bIsQualifier = True End If Next '* the class name starts with win32_ and is not an association '* class - so append it to the recordset If bIsQualifier = False Then rsDataList.AddNew rsDataList("ClassName") = objClass.Path_.Class rsDataList.Update End If End If Next '* populate the pulldown rsDataList.Sort = "ClassName" rsDataList.MoveFirst strHTML = "<select onChange=""ComposeCode()"" name=ClassesPulldown>" &_ "<option value=""PulldownMessage"">Begin by selecting a class" Do Until rsDataList.EOF strHTML = strHTML & "<option value= " & chr(34) &_ rsDataList.Fields.Item("ClassName") & chr(34) &_ ">" & rsDataList.Fields.Item("ClassName") rsDataList.MoveNext Loop strHTML = strHTML & "</select>" wmi_classes.insertAdjacentHTML "beforeEnd", strHTML '* the classes are enumerated, close the progress dialog '* and resize the main window objDialogWindow.Close self.Focus() self.ResizeTo 670,550 self.MoveTo 200,200 '* the user hasn't had a chance to select a class and generate '* a script - so disable the run and save buttons because '* they are not yet meaningful. run_button.disabled = True save_button.disabled = True End Sub '**************************************************************************** '* when the user selects a class from the pulldown, the ComposeCode subroutine '* is called. it queries WMI to determine the properties of the class the user '* selected and uses the information to construct sample code which it puts '* in the main window's textarea. '**************************************************************************** Sub ComposeCode '* if the user happens to select the message instead of a class, just '* disable the run and save buttons and exit the subroutine If ClassesPulldown.Value = "PulldownMessage" Then run_button.disabled = True save_button.disabled = True Exit Sub End If strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objClass = objWMIService.Get(ClassesPulldown.Value) strHTML = "<textarea cols=100 rows=30>" strHTML = strHTML & "On Error Resume Next" & Chr(10) strHTML = strHTML & "strComputer = " & chr(34) & "." & chr(34) & Chr(10) strHTML = strHTML & "Set objWMIService = GetObject(" & chr(34) & "winmgmts:\\" & chr(34) & " & strComputer & " & chr(34) & "\root\cimv2" & chr(34) & ")" & Chr(10) strHTML = strHTML & "Set colItems = objWMIService.ExecQuery(" & chr(34) & "Select * from " & ClassesPulldown.value & chr(34) & ",,48)" & Chr(10) strHTML = strHTML & "For Each objItem in colItems" & Chr(10) For Each objProperty in objClass.properties_ strHTML = strHTML & "    Wscript.Echo " & chr(34) & objProperty.name & ": " & chr(34) & " & " & "objItem." & objProperty.name & Chr(10) Next strHTML = strHTML & "Next" & "</textarea>" code.InnerHTML= strHTML '* once the code is successfully composed and put into the textarea, ensure '* that the run and save buttons are enabled run_button.disabled = False save_button.disabled = False End Sub '**************************************************************************** '* when the user presses the Run button, we use the WshShell object's Run '* method to run the code currently in the textarea under cscript.exe. we use '* cmd.exe's /k parameter to ensure the command window remains visible after '* the script has finished running. '************************************************************************** Sub RunScript Set objFS = CreateObject("Scripting.FileSystemObject") strTmpName = "temp_script.vbs" Set objScript = objFS.CreateTextFile(strTmpName) objScript.Write code.InnerText objScript.Close Set objShell = CreateObject("WScript.Shell") strCmdLine = "cmd /k cscript.exe " strCmdLine = strCmdLine & strTmpName objShell.Run(strCmdLine) End Sub '************************************************************************** '* when the user presses the Save button, we present them with an InputBox '* and force them to give us the full path to where they'd like to the save '* the script that is currently in the textarea. The user is probably quite '* upset with our laziness here....and who can blame them? '************************************************************************** Sub SaveScript Set objFSO = CreateObject("Scripting.FileSystemObject") strSaveFileName = InputBox("Please enter the complete path where you want to save your script (for example, C:\Scripts\MyScript.vbs).") If strSaveFileName = "" Then Exit Sub End If Set objFile = objFSO.CreateTextFile(strSaveFileName) objFile.WriteLine code.InnerText objFile.Close End Sub '************************************************************************** '* when the user presses the Open button, we present them with an InputBox '* and force them to give us the full path to the script they'd like to open. '* This is, of course, rather wonky - but it's meant to be. '************************************************************************** Sub OpenScript Set objFSO = CreateObject("Scripting.FileSystemObject") strOpenFileName = InputBox("Please enter the complete path name for your script (for example, C:\Scripts\MyScript.vbs).") If strOpenFileName = "" Then Exit Sub End If Set objFile = objFSO.OpenTextFile(strOpenFileName) strHTML = "<textarea cols=100 rows=30>" strHTML = strHTML & objFile.ReadAll() strHTML = strHTML & "</textarea>" code.InnerHTML = strHTML objFile.Close run_button.disabled = False save_button.disabled = False End Sub '************************************************************************** '* when the user presses the Quit button, the file where we've been storing '* the scripts gets deleted and the main window closes. '************************************************************************** Sub QuitScript On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile "temp_script.vbs" Set objFSO = Nothing self.Close() End Sub </script> </head> '********************************************************* '* our HTML layout - the only thing of note here is that when '* each of the buttons is pressed (clicked), their onClick '* attributes causes the appropriate subroutine to be called '*********************************************************** <body> <table> <td> <span id="wmi_classes"> </span> <input id=runbutton class="button" type="button" value="Run" name="run_button" onClick="RunScript()"> <input id=savebutton class="button" type="button" value="Save" name="save_button" onClick="SaveScript()"> <input id=openbutton class="button" type="button" value="Open" name="open_button" onClick="OpenScript()"> <input id=quitbutton class="button" type="button" value="Quit" name="quit_button" onClick="QuitScript()"> <div ID=code_header></div> <div id="code"></div> </td> </tr> </table> </body> </html> ;代码结束==============================================

第20楼　HUNRYBECKY	发表于 2006-12-13 03:00
银牌会员　发帖 442　积分 1,179
Originally posted by namejm at 2006-12-13 02:58: 　　资料很好，加分鼓励。　　链接地址有脱节的现象，点下去之后不能正确跳转，如果能修正一下就好了。 namejm斑竹:连接是有点问题,我复制过来就这样,不知道是不是上传系统的问题,所以下载的时候要时候一定要复制整个正确的连接然后在浏览地址中输入回车就可以下载了.

第21楼　HUNRYBECKY	发表于 2006-12-13 03:03
银牌会员　发帖 442　积分 1,179
注意<WMI技术指南>是一个压缩包,里面有个文本文件,里面有密码和打开方式.该PDF必须使用7.0的才能打开.

第22楼　HUNRYBECKY	发表于 2006-12-13 03:08
银牌会员　发帖 442　积分 1,179
8.再来一个WMI查询分析工具.是外国网站的.里面赋有源代码,不下载的要后悔哟.不过我的电脑上运行不了该程序,不知道为什么，大家测试反馈下是什么问题.谢谢。下载地址: http://zhenlove.com.cn/cndos/fileup/files/WQLAnalyzer_1.02(wmi查询分析工具有源代码).zip

第23楼　HUNRYBECKY	发表于 2006-12-13 03:15
银牌会员　发帖 442　积分 1,179
9.再来一个WMI脚本教程.这个也是从网络上搜集的，不记得下载地址了.好象里面差一个第四章的,可以自己到网络上搜索,好象在MS网站也有，地址是http://www.microsoft.com/china/MSDN/library/enterprisedevelopment/softwaredev/WDdnclinicscripting.mspx. 下载地址:http://zhenlove.com.cn/cndos/fileup/files/wmi脚本入门(pdf不完整).rar 我搜集的所有的有关WMI WMIC的资料已经发完.

第24楼　lxmxn	发表于 2006-12-13 03:26
版主　发帖 4,938　积分 11,386
Originally posted by kcdsw at 2006-12-13 02:55: 我都能下 600K / s 　　我下载的时候，楼主还没有上传完整，所以不能下载。你能下载是因为群主已经全部上传完毕了。　　600k/s？？接的什么线哦？我这里用迅雷最快不过50k/s，汗……

第25楼　lxmxn	发表于 2006-12-13 03:29
版主　发帖 4,938　积分 11,386
提供这么多资料，加分鼓励一下。

第26楼　HUNRYBECKY	发表于 2006-12-13 03:43
银牌会员　发帖 442　积分 1,179
希望大家搜集的WMI WMIC有关的资料都贴到这里来，丰富相关资料，为批处理编程提供参考资料，最好不要相同。

第27楼　kcdsw	发表于 2006-12-13 09:23
中级用户　发帖 179　积分 404
呵呵我接的是宽带啊附件新建 BMP 图像.JPG (22.58 KiB)

第28楼　vkill	发表于 2006-12-14 05:48
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
很好哈~谢谢

第29楼　9527	发表于 2006-12-14 05:57
银牌会员　发帖 438　积分 1,185　来自北京
我以为是电子书呢？唉，这本书早在2年前就有了，看下图，主要是WMI的讲解，还有，除了书还有我的那只手（刚刚拍的，呵呵 .............)

第30楼　lxmxn	发表于 2006-12-14 06:01
版主　发帖 4,938　积分 11,386
9527，你~~ 　　　　有好东西不分享？！！