Question

在“If（IsNull（value））”行下面“我的代码是否正确？我想检查注册表项是否存在，如果没有，则显示一个网页。

Option Explicit
On error resume next
Dim SysVarReg, Value
Set SysVarReg = WScript.CreateObject("WScript.Shell")
value = SysVarReg.RegRead ("HKCU\Software\test\FirstLogonComplete")

If (IsNull(value)) then

    Set WshShell = WScript.CreateObject("WScript.Shell") 
    WshShell.Run "c:\Program Files\Internet Explorer\iexplore.exe https://intranet/start.htm"

    Dim SysVarReg2, Value2
    Value2 = "TRUE"
    Set SysVarReg2 = WScript.CreateObject("WScript.Shell")
    SysVarReg2.RegWrite "HKCU\Software\test\FirstLogonComplete", Value2

else
    wscript.echo "Already logged on"
end if

Answer 1

在VBScript中 - 所有变量都是变量 - 变量可以是两个特殊值之一：EMPTY或NULL。 EMPTY定义为具有未初始化值的变量，而NULL是不包含有效数据的变量。

如果你想测试变量是否是＆＃39;值＆＃39;是NULL或EMPTY然后使用以下if语句：

If IsNull(value)  Or  IsEmpty(value) Then
   '...do something
End If

Answer 2

如果RegRead抛出错误，则value未初始化;未初始化的变量的值为Empty，而不是Null。因此，您应该添加行

value = Null

在Dim语句之后。否则，IsNull将始终返回False。

Answer 3

你的意思是'Null'还是'Nothing'？

在VBScript中，Nothing意味着缺少值（或空指针）。 Null用于表示数据库中的NULL值。

有关详细信息，请参阅this link。

另外，请参阅this example了解如何检测注册表项是否存在：

Const HKLM = &H80000002
Set oReg =GetObject("Winmgmts:root\default:StdRegProv")

sKeyPath = "Software\Microsoft\Windows\CurrentVersion"
If RegValueExists(HKLM, sKeyPath, sValue) Then
  WScript.Echo "Value exists"
Else
  WScript.Echo "Value does not exist"
End If

Function RegValueExists(sHive, sRegKey, sRegValue)
  Dim aValueNames, aValueTypes
  RegValueExists = False
  If oReg.EnumValues(sHive, sKeyPath, aValueNames, aValueTypes) = 0 Then
    If IsArray(aValueNames) Then
      For i = 0 To UBound(aValueNames)
        If LCase(aValueNames(i)) = LCase(sRegValue) Then
          RegValueExists = True
        End If
      Next
    End If
  End If
End Function

Answer 4

这是我解决业务问题的方法。他们想让USB只读，因此数据无法在拇指驱动器上消失。在ping并连接到WMI之后，我必须确定密钥是否已存在且值已设置。在几千台计算机上。

keyExists = fnReadKeyValue()

'======================================
'======================================


Function fnReadKeyValue()
    '   ' EXAMPLE VALUES
    '   const HKEY_LOCAL_MACHINE = &H80000002
    '   strComputer = "."
    '   strKeyPath = "SYSTEM\CurrentControlSet\Control\StorageDevicePolicies"
    '   strEntryName = "WriteProtect"

    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")

    objReg.GetDWordValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue
    if IsNull(strValue) then
        objLogFile.WriteLine "That registry value doesn't exist."
        fnReadKeyValue = "FAIL"
    else
        fnReadKeyValue = strValue
    end if

End Function

vbscript并检查null

4 个答案: