|
发表于 2011-11-15 19:54:43
|
显示全部楼层
我刚试了,怎么出来个文本内容如下:
' Copyright (c) Microsoft Corporation. All rights reserved.
'
' Windows Software Licensing Management Tool.
'
' Script Name: slmgr.vbs
'
Option Explicit
Dim g_objWMIService, g_strComputer, g_strUserName, g_strPassword
g_strComputer = "."
Dim g_serviceConnected
g_serviceConnected = False
dim g_EchoString
g_EchoString = ""
dim g_objRegistry
Dim g_resourceDictionary, g_resourcesLoaded
Set g_resourceDictionary = CreateObject("Scripting.Dictionary")
g_resourcesLoaded = False
Dim g_DeterminedDisplayFlags
g_DeterminedDisplayFlags = False
Dim g_ShowKmsInfo
Dim g_ShowKmsClientInfo
Dim g_ShowTkaClientInfo
Dim g_ShowTBLInfo
Dim g_ShowPhoneInfo
g_ShowKmsInfo = False
g_ShowKmsClientInfo = false
g_ShowTBLInfo = False
g_ShowPhoneInfo = False
' Messages
'Global options
private const L_optInstallProductKey = "ipk"
private const L_optInstallProductKeyUsage = "Install product key (replaces existing key)"
private const L_optUninstallProductKey = "upk"
private const L_optUninstallProductKeyUsage = "Uninstall product key"
private const L_optActivateProduct = "ato"
private const L_optActivateProductUsage = "Activate Windows"
private const L_optDisplayInformation = "dli"
private const L_optDisplayInformationUsage = "Display license information (default: current license)"
private const L_optDisplayInformationVerbose = "dlv"
private const L_optDisplayInformationUsageVerbose = "Display detailed license information (default: current license)"
private const L_optExpirationDatime = "xpr"
private const L_optExpirationDatimeUsage = "Expiration date for current license state"
'Advanced options
private const L_optClearPKeyFromRegistry = "cpky"
private const L_optClearPKeyFromRegistryUsage = "Clear product key from the 0 |
|